POKEMON AMIE/REFRESH [ESSENTIALS V18]

भाग्य ज्योति · Sep 3, 2020

POKEMON AMIE / REFRESH

This script replicates the Amie/Refresh Feature from Gen6/7 Games

Features:

Interact with your Pokemon and play with them.
Access the menu as you wish, either from PokeGear, or while OW Pokemon interaction or both.
Based on Pizza Sun script, but fixed the glitch which disallowed custom field message while interacting with OW Pokemon.
Evolve Eevee based on affection, like in actual games.

NOTE:

This script requires "Easy Mouse System" by Luka S.J! Please have that installed before installing this script!
Unlike the version of the game Amie/Refresh, this script does not feed Pokemon PokePuffs or Pokebeans but instead eatable items in your game, like Rare Candies and berries!
Too many food items in the bag may cause lag.

Screenshots:

Spoiler:

Script:
Paste it above Main and below Compiler. Also download the Graphics from Attachments.

Spoiler:

Code:

################################################################################
#                         Pokemon Amie/Refresh
#                           by BhagyaJyoti
#                        Adapted from PizzaSun
#                 Further Adapted from rigbycwts's script
################################################################################
=begin
use either if the following two scripts to set Pokemon Amie a specific Pokemon 
beforehand:
=============================================
setAmieIndex(party index)
setAmiePokemon(pokemon)
=============================================
to begin Pokemon Amie/Refresh Scene use:
=========================================================
PokemonAmieRefresh
==========================================================
=end
#=========================================================#
# Plugin Manager Support
PluginManager.register({
  :name    => "Pokemon Amie/Refresh",
  :version => "1.5",
  :link    => "https://www.pokecommunity.com/showthread.php?t=439558",
  :credits => ["Bhagya Jyoti","Pizza Sun"]
})
#=========================================================#
#P.S.
#The Sprite Mask script is required to run Pokemon Amie/Refresh and included
#Below. IF you already have it installed, you may remove it if you'd like.
#===============================================================================
# ** Sprite Mask
#        by Luka S.J.
#-------------------------------------------------------------------------------
# Allows you to use a bitmap, sprite or image path to a bitmap to use as a mask
# for a sprite's original bitmap.
#===============================================================================
# handled as an extension of the Sprite class
class Sprite
  # function used to to mask the Sprite's current bitmap with another
  def mask(mask = nil,xpush = 0,ypush = 0)
    # exits out of the function if the sprite currently has no bitmap to mask
    return false if !self.bitmap
    # backs up the Sprites current bitmap
    bitmap = self.bitmap.clone
    # check for mask types
    if mask.is_a?(Bitmap) # accepts Bitmap.new
      mbmp = mask
    elsif mask.is_a?(Sprite) # accepts other Sprite.new
      mbmp = mask.bitmap
    elsif mask.is_a?(String) # accepts Strings
      mbmp = BitmapCache.load_bitmap(mask)
    else # exits if non-matching type
      return false
    end
    # creates a new bitmap
    self.bitmap = Bitmap.new(mbmp.width, mbmp.height)
    # creates the main mask
    mask = mbmp.clone
    # calculates the dimension metrics for pixel transfer
    ox = (bitmap.width - mbmp.width) / 2
    oy = (bitmap.height - mbmp.height) / 2
    width = mbmp.width + ox
    height = mbmp.height + oy
    # draws pixels to mask bitmap
    for y in oy...height
      for x in ox...width
        # gets pixel of mask for analysis
        pixel = mask.get_pixel(x - ox, y - oy)
        # gets pixel of current bitmap for analysis
        color = bitmap.get_pixel(x - xpush, y - ypush)
        # sets the new alpha to use the value of the mask alpha
        alpha = pixel.alpha
        alpha = color.alpha if color.alpha < pixel.alpha
        # draws new pixels onto the Sprite's bitmap
        self.bitmap.set_pixel(x - ox, y - oy, Color.new(color.red, color.green,color.blue, alpha))
      end
    end
    # returns finalized bitmap to be used elsewhere
    return self.bitmap
  end
end

################################################################################
# Pokemon-Amie/Pokemon Refresh Script
################################################################################

AMIEPOKEMON = 100 # Variable number to store the main Amie/Refresh Pokemon
AMIEINDEX = 101 # Variable number to store the main Amie/Refresh Pokemon Party Index

#All Things Pokemon can eat (Mostly Berries)
EATABLE_ITEMS = [
  :LAVACOOKIE,
  :OLDGATEAU,
  :CASTELIACONE,
  :RAGECANDYBAR,
  :SWEETHEART,
  :RARECANDY,
  :CHERIBERRY,
  :CHESTOBERRY,
  :PECHABERRY,
  :RAWSTBERRY,
  :ASPEARBERRY,
  :LEPPABERRY,
  :ORANBERRY,
  :PERSIMBERRY,
  :LUMBERRY,
  :SITRUSBERRY,
  :FIGYBERRY,
  :WIKIBERRY,
  :MAGOBERRY,
  :AGUAVBERRY,
  :IAPAPABERRY,
  :RAZZBERRY,
  :BLUKBERRY,
  :NANABBERRY,
  :WEPEARBERRY,
  :PINAPBERRY,
  :POMEGBERRY,
  :KELPSYBERRY,
  :QUALOTBERRY,
  :HONDEWBERRY,
  :GREPABERRY,
  :TAMATOBERRY,
  :CORNNBERRY,
  :MAGOSTBERRY,
  :RABUTABERRY,
  :NOMELBERRY,
  :SPELONBERRY,
  :PAMTREBERRY,
  :WATMELBERRY,
  :DURINBERRY,
  :BELUEBERRY,
  :OCCABERRY,
  :PASSHOBERRY,
  :WACANBERRY,
  :RINDOBERRY,
  :YACHEBERRY,
  :CHOPLEBERRY,
  :KEBIABERRY,
  :SHUCABERRY,
  :COBABERRY,
  :PAYAPABERRY,
  :TANGABERRY,
  :CHARTIBERRY,
  :KASIBBERRY,
  :HABANBERRY,
  :COLBURBERRY,
  :BABIRIBERRY,
  :CHILANBERRY,
  :LIECHIBERRY,
  :GANLONBERRY,
  :SALACBERRY,
  :PETAYABERRY,
  :APICOTBERRY,
  :LANSATBERRY,
  :STARFBERRY,
  :ENIGMABERRY,
  :MICLEBERRY,
  :CUSTAPBERRY,
  :JABOCABERRY,
  :ROWAPBERRY
]
#Adds effect Compatibility for Items
alias amie_pbHPItem pbHPItem
def pbHPItem(pokemon,restorehp,scene)
  if pokemon.hp<=0 || pokemon.hp==pokemon.totalhp || pokemon.egg?
    scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
    return false
  end
  hpgain=pbItemRestoreHP(pokemon,restorehp)
  scene.pbRefresh if scene!=nil
  scene.pbDisplay(_INTL("{1}'s HP was restored by {2} points.",pokemon.name,hpgain)) if scene!=nil
  return true
end
#
ItemHandlers::UseOnPokemon.add(:AWAKENING,proc{|item,pokemon,scene|
   if pokemon.hp<=0 || pokemon.status!=PBStatuses::SLEEP
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pokemon.healStatus
     scene.pbRefresh if scene!=nil
     scene.pbDisplay(_INTL("{1} woke up.",pokemon.name)) if scene!=nil
     pbMessage(_INTL("{1} woke up.",pokemon.name)) if scene==nil
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:AWAKENING,:CHESTOBERRY,:BLUEFLUTE,:POKEFLUTE)

ItemHandlers::UseOnPokemon.add(:ANTIDOTE,proc{|item,pokemon,scene|
   if pokemon.hp<=0 || pokemon.status!=PBStatuses::POISON
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pokemon.healStatus
     scene.pbRefresh if scene!=nil
     scene.pbDisplay(_INTL("{1} was cured of its poisoning.",pokemon.name)) if scene!=nil
     pbMessage(_INTL("{1} was cured of its poisoning.",pokemon.name)) if scene==nil
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:ANTIDOTE,:PECHABERRY)

ItemHandlers::UseOnPokemon.add(:BURNHEAL,proc{|item,pokemon,scene|
   if pokemon.hp<=0 || pokemon.status!=PBStatuses::BURN
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pokemon.healStatus
     scene.pbRefresh if scene!=nil
     scene.pbDisplay(_INTL("{1}'s burn was healed.",pokemon.name)) if scene!=nil
     pbMessage(_INTL("{1}'s burn was healed.",pokemon.name)) if scene==nil
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:BURNHEAL,:RAWSTBERRY)

ItemHandlers::UseOnPokemon.add(:PARLYZHEAL,proc{|item,pokemon,scene|
   if pokemon.hp<=0 || pokemon.status!=PBStatuses::PARALYSIS
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pokemon.healStatus
     scene.pbRefresh if scene!=nil
     scene.pbDisplay(_INTL("{1} was cured of paralysis.",pokemon.name)) if scene!=nil
     pbMessage(_INTL("{1} was cured of paralysis.",pokemon.name)) if scene==nil
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:PARLYZHEAL,:PARALYZEHEAL,:CHERIBERRY)

ItemHandlers::UseOnPokemon.add(:ICEHEAL,proc{|item,pokemon,scene|
   if pokemon.hp<=0 || pokemon.status!=PBStatuses::FROZEN
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pokemon.healStatus
     scene.pbRefresh if scene!=nil
     scene.pbDisplay(_INTL("{1} was thawed out.",pokemon.name)) if scene!=nil
     pbMessage(_INTL("{1} was thawed out.",pokemon.name)) if scene==nil
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:ICEHEAL,:ASPEARBERRY)


ItemHandlers::UseOnPokemon.add(:FULLHEAL,proc{|item,pokemon,scene|
   if pokemon.hp<=0 || pokemon.status==0
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pokemon.healStatus
     scene.pbRefresh if scene!=nil
     scene.pbDisplay(_INTL("{1} became healthy.",pokemon.name)) if scene!=nil
     pbMessage(_INTL("{1} became healthy.",pokemon.name)) if scene==nil
     next true
   end
})

ItemHandlers::UseOnPokemon.copy(:FULLHEAL,
   :LAVACOOKIE,:OLDGATEAU,:CASTELIACONE,:LUMIOSEGALETTE,:SHALOURSABLE,:LUMBERRY)

ItemHandlers::UseOnPokemon.add(:RARECANDY,proc{|item,pokemon,scene|
   if pokemon.level>=PBExperience.maxLevel || (pokemon.isShadow? rescue false)
     scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
     next false
   else
     pbChangeLevel(pokemon,pokemon.level+1,scene)
     scene.pbHardRefresh if scene!=nil
     next true
   end
})
alias amie_pbRaiseHappinessAndLowerEV pbRaiseHappinessAndLowerEV
def pbRaiseHappinessAndLowerEV(pokemon,scene,ev,messages)
  h=(pokemon.happiness<255)
  e=(pokemon.ev[ev]>0)
  if !h && !e
    scene.pbDisplay(_INTL("It won't have any effect.")) if scene!=nil
    return false
  end
  if h
    pokemon.changeHappiness("evberry")
  end
  if e
    pokemon.ev[ev]-=10
    pokemon.ev[ev]=0 if pokemon.ev[ev]<0
    pokemon.calcStats
  end
  scene.pbRefresh if scene!=nil
  scene.pbDisplay(messages[2-(h ? 0 : 1)-(e ? 0 : 2)]) if scene!=nil
  return true
end

alias amie_pbChangeLevel pbChangeLevel
def pbChangeLevel(pokemon,newlevel,scene)
  newlevel=1 if newlevel<1
  newlevel=PBExperience.maxLevel if newlevel>PBExperience.maxLevel
  if pokemon.level>newlevel
    attackdiff=pokemon.attack
    defensediff=pokemon.defense
    speeddiff=pokemon.speed
    spatkdiff=pokemon.spatk
    spdefdiff=pokemon.spdef
    totalhpdiff=pokemon.totalhp
    pokemon.level=newlevel
    pokemon.calcStats
    if !defined?(scene.Amie?)
      scene.pbRefresh
    end
    pbMessage(_INTL("{1} was downgraded to Level {2}!",pokemon.name,pokemon.level))
    attackdiff=pokemon.attack-attackdiff
    defensediff=pokemon.defense-defensediff
    speeddiff=pokemon.speed-speeddiff
    spatkdiff=pokemon.spatk-spatkdiff
    spdefdiff=pokemon.spdef-spdefdiff
    totalhpdiff=pokemon.totalhp-totalhpdiff
    pbTopRightWindow(_INTL("Max. HP<r>{1}\r\nAttack<r>{2}\r\nDefense<r>{3}\r\nSp. Atk<r>{4}\r\nSp. Def<r>{5}\r\nSpeed<r>{6}",
       totalhpdiff,attackdiff,defensediff,spatkdiff,spdefdiff,speeddiff))
    pbTopRightWindow(_INTL("Max. HP<r>{1}\r\nAttack<r>{2}\r\nDefense<r>{3}\r\nSp. Atk<r>{4}\r\nSp. Def<r>{5}\r\nSpeed<r>{6}",
       pokemon.totalhp,pokemon.attack,pokemon.defense,pokemon.spatk,pokemon.spdef,pokemon.speed))
  elsif pokemon.level==newlevel
    pbMessage(_INTL("{1}'s level remained unchanged.",pokemon.name))
  else
    attackdiff=pokemon.attack
    defensediff=pokemon.defense
    speeddiff=pokemon.speed
    spatkdiff=pokemon.spatk
    spdefdiff=pokemon.spdef
    totalhpdiff=pokemon.totalhp
    oldlevel=pokemon.level
    pokemon.level=newlevel
    pokemon.changeHappiness("levelup")
    pokemon.calcStats
    scene.pbRefresh if scene!=nil
    pbMessage(_INTL("{1} was elevated to Level {2}!",pokemon.name,pokemon.level))
    attackdiff=pokemon.attack-attackdiff
    defensediff=pokemon.defense-defensediff
    speeddiff=pokemon.speed-speeddiff
    spatkdiff=pokemon.spatk-spatkdiff
    spdefdiff=pokemon.spdef-spdefdiff
    totalhpdiff=pokemon.totalhp-totalhpdiff
    pbTopRightWindow(_INTL("Max. HP<r>+{1}\r\nAttack<r>+{2}\r\nDefense<r>+{3}\r\nSp. Atk<r>+{4}\r\nSp. Def<r>+{5}\r\nSpeed<r>+{6}",
       totalhpdiff,attackdiff,defensediff,spatkdiff,spdefdiff,speeddiff))
    pbTopRightWindow(_INTL("Max. HP<r>{1}\r\nAttack<r>{2}\r\nDefense<r>{3}\r\nSp. Atk<r>{4}\r\nSp. Def<r>{5}\r\nSpeed<r>{6}",
       pokemon.totalhp,pokemon.attack,pokemon.defense,pokemon.spatk,pokemon.spdef,pokemon.speed))
    movelist=pokemon.getMoveList
    for i in movelist
      if i[0]==pokemon.level          # Learned a new move
        pbLearnMove(pokemon,i[1],true)
      end
    end
    newspecies=pbCheckEvolution(pokemon)
    if newspecies>0
      pbFadeOutInWithMusic(99999){
         evo=PokemonEvolutionScene.new
         evo.pbStartScreen(pokemon,newspecies)
         evo.pbEvolution
         evo.pbEndScreen
      }
    end
  end
end

##

class PokeBattle_Pokemon
  attr_accessor(:amie_affection)
  attr_accessor(:amie_fullness)
  attr_accessor(:amie_enjoyment) # Pokemon-Amie stats
  MAXAMIEPOINTS = 255 # Max points that a single Amie/Refresh stat can have
  @amie_affection=0 if (@amie_affection==nil)
  @amie_fullness=0 if (@amie_fullness==nil)
  @amie_enjoyment=0 if (@amie_enjoyment==nil)
  # Getters - return each stat values in points
  def amie_affection
    @amie_affection=0 if (@amie_affection==nil)
    return @amie_affection
  end
  
  def amie_fullness
    @amie_fullness=0 if (@amie_fullness==nil)
    return @amie_fullness
  end
  
  def amie_enjoyment
    @amie_enjoyment=0 if (@amie_enjoyment==nil)
    return @amie_enjoyment
  end
  
  # Setters - sets each stat values in points
  def amie_affection=(value)
    # Failsafes.
    if value > MAXAMIEPOINTS
      @amie_affection = MAXAMIEPOINTS
    elsif value < 0
      @amie_affection = 0
    else
      @amie_affection = value
    end
  end
  
  def amie_fullness=(value)
    # Failsafes.
    if value > MAXAMIEPOINTS
      @amie_fullness = MAXAMIEPOINTS
    elsif value < 0
      @amie_fullness = 0
    else
      @amie_fullness = value
    end
  end
  
  def amie_enjoyment=(value)
    # Failsafes.
    if value > MAXAMIEPOINTS
      @amie_enjoyment = MAXAMIEPOINTS
    elsif value < 0
      @amie_enjoyment = 0
    else
      @amie_enjoyment = value
    end
  end
  
  # Converts the points for every Amie stat into an abstracted level.
  def getAmieStatLevel(points)
    case points
    when 0
      return 0
    when 1...50
      return 1
    when 50...100
      return 2
    when 100...150
      return 3
    when 150...MAXAMIEPOINTS
      return 4
    when MAXAMIEPOINTS
      return 5
    end
  end
  
  # Returns the Affection level. Needed for other scripts, e.g. evolution methods
  def getAffectionLevel
    return getAmieStatLevel(amie_affection)
  end
  
  def getFullnessLevel
    return getAmieStatLevel(amie_fullness)
  end
  
  def getEnjoymentLevel
    return getAmieStatLevel(amie_enjoyment)
  end
    
  def feedAmie(food)
    return if (amie_fullness>=MAXAMIEPOINTS)
    return if getFullnessLevel==5
    if EATABLE_ITEMS.include?(food)
      if pbCanUseOnPokemon?(getID(PBItems,food))
        ret=ItemHandlers.triggerUseOnPokemon(food,pbGet(AMIEPOKEMON),nil)
        #if ret && $ItemData[item][ITEMUSE]==1 # Usable on Pokémon, consumed
        #  $PokemonBag.pbDeleteItem(item)
        #end
      end
      if pbIsBerry?(getID(PBItems,food))
        if !@berryPlantData
          pbRgssOpen("Data/berry_plants.dat","rb"){|f|
             @berryPlantData=Marshal.load(f)
          }
        end
        if @berryPlantData && @berryPlantData[getID(PBItems,food)]!=nil
          ber = @berryPlantData[getID(PBItems,food)]
        else
          ber = [3,15,2,5]
        end
        affGain = ber[0] + rand(4)
        fullGain = 90
        enjoyGain = 0
      else
        affGain = rand(4)+3
        fullGain = 90
        enjoyGain = 0
      end
      $PokemonBag.pbDeleteItem(getID(PBItems,food))
      @amie_affection = amie_affection+affGain
      @amie_affection = [0, [amie_affection, MAXAMIEPOINTS].min].max
      @amie_fullness = amie_fullness+fullGain
      @amie_fullness = [0, [amie_fullness, MAXAMIEPOINTS].min].max
      @amie_enjoyment = amie_enjoyment+enjoyGain
      @amie_enjoyment = [0, [amie_enjoyment, MAXAMIEPOINTS].min].max
    end
  end
  
  # Changes the happiness of this Pokémon depending on what happened to change it.
  def changeAmieStats(method)
    affGain=0
    fullGain=0
    enjoyGain=0
    case method
    when "walking" # Walk approx. 50 steps
      fullGain=-1
      enjoyGain=-1
    when "sendInBattle" # Send Pokemon in to a battle
      fullGain=-25
      enjoyGain=-25
    when "feedPlainBean" # Feed Pokémon a whole Plain Bean
      affGain=3
      fullGain=rand(2)+100
    when "feedPatternBean" # Feed Pokémon a whole Pattern Bean
      affGain=5
      fullGain=rand(2)+100
    when "feedRainbowBean" # Feed Pokémon a whole Rainbow Bean
      affGain=125
      fullGain=rand(2)+100
    when "feedMalasada" # Feed Pokemon a malasada (SunMoon) or a Shirogi bread (ColMerc)
      fullGain=255
      affGain=5
    when "feedMalasadaDisliked"
      fullGain=255
      affGain=3
    when "feedMalasadaLiked"
      fullGain=255
      affGain=10
    when "pet" # Pet Pokemon. No spots implemented due to engine limitations.
      affGain=rand(4)+2
      enjoyGain=rand(20)+20
    else
      pbMessage(_INTL("Unknown stat-changing method."))
    end
    @amie_affection = amie_affection+affGain
    @amie_affection = [0, [amie_affection, MAXAMIEPOINTS].min].max
    @amie_fullness = amie_fullness+fullGain
    @amie_fullness = [0, [amie_fullness, MAXAMIEPOINTS].min].max
    @amie_enjoyment = amie_enjoyment+enjoyGain
    @amie_enjoyment = [0, [amie_enjoyment, MAXAMIEPOINTS].min].max
  end
  
  # Sets the Pokemon's Affection to 0.
  # Usually used when traded.
  def resetAffection
    @amie_affection = 0
  end
end

#Gets Mouse X and Y positions
class Game_Mouse
  def x
    return @x
  end
  def y
    return @y
  end
end
#Gets First NonEgg Pokemon
def pbFirstNonEggPokemon(variableNumber)
  for i in 0...$Trainer.party.length
    p = $Trainer.party[i]
    if p && !p.egg?
      pbSet(variableNumber,i)
      return $Trainer.party[i]
    end
  end
  pbSet(variableNumber,-1)
  return nil
end


def setAmieIndex(pokemonindex)
  if (pokemonindex<=$Trainer.party.length-1) &&(pokemonindex>=0)
    pbSet(AMIEINDEX,pokemonindex)
    pbSet(AMIEPOKEMON,$Trainer.party[pbGet(AMIEINDEX)])
    return
  end
  defaultAmie
end

def pbClickSprite(sprite)
  i=1
  5.times do
    sprite.zoom_x-=0.1**i
    sprite.zoom_y-=0.1**i
    i+=1
    Graphics.update
  end
  pbPlayCancelSE()
  i=1
  5.times do
    sprite.zoom_x+=0.1**i
    sprite.zoom_y+=0.1**i
    i+=1
    Graphics.update
  end
end


def setAmiePokemon(pkmn)
  pbSet(AMIEPOKEMON,pkmn)
  for i in 0...$Trainer.party.length
    if pbGet(AMIEPOKEMON) == $Trainer.party[i]
      pbSet(AMIEINDEX,i)
      return
    end
  end
  defaultAmie
end

def defaultAmie
  pbFirstNonEggPokemon(AMIEINDEX)
  pbSet(AMIEPOKEMON,$Trainer.party[pbGet(AMIEINDEX)])
end

#Lowers Fullness and Enjoyment by 1 every 50 steps
HUNGERCOUNTER=0
Events.onStepTaken+=proc {
  HUNGERCOUNTER += 1
  if HUNGERCOUNTER>=50
    for pkmn in $Trainer.party
      pkmn.changeAmieStats("walking")
    end
    HUNGERCOUNTER = 0
  end
}

class PokeBattle_Battler
  attr_accessor :amie_affection
  attr_accessor :amie_fullness
  attr_accessor :amie_enjoyment
  
# Getters - return each stat values in points
  def amie_affection
    return (@pokemon) ? @pokemon.amie_affection : 0
  end
  
  def amie_fullness
    return (@pokemon) ? @pokemon.amie_fullness : 0
  end
  
  def amie_enjoyment
    return (@pokemon) ? @pokemon.amie_enjoyment : 0
  end
  
  def getAffectionLevel
    return (@pokemon) ? @pokemon.getAmieStatLevel(@pokemon.amie_affection) : 0
  end
end

#===============================================================================
#  This class performs menu screen processing.
#-------------------------------------------------------------------------------
#  Adapted by rigbycwts for use with Pokemon-Amie for Essentials, Edited by Pizza Sun
#===============================================================================

class PokeAmie_Essentials_Scene
#-----------------------------------------------------------------------------
# * Frame Update
#-----------------------------------------------------------------------------
  def update
    # Update windows
    pbUpdateSpriteHash(@sprites)
    if @custom
      updateCustom
    else
      update_command
    end
    if (switch==1)
      pbFadeOutIn(99999) {
        pbSwitchScreen
      }
    end
    if (switch!=0)
      if @sprites["text"]!=nil
        if !@sprites["text"].disposed?
          base   = Color.new(248,248,248)
          shadow = Color.new(104,104,104)
          pkname = $Trainer.party[@partyIndex].name
          textpos1 = [
            [_INTL("Affection"),32,70,0,base,shadow],
            [_INTL("Fullness"),32,102,0,base,shadow],
            [_INTL("Enjoyment"),32,134,0,base,shadow],
            [_INTL("Select the Pokémon you'd like to play with!"),74,348,0,base,shadow],
            [pkname,70,20,0,base,shadow],
          ]
          @sprites["text"].dispose
          @sprites["text"] = BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
          pbSetSystemFont(@sprites["text"].bitmap)
          pbDrawTextPositions(@sprites["text"].bitmap,textpos1)
        end
      end
    end
    if @feedshow==1
      if @sprites["feedshow"]!=nil
        if @sprites["feedshow"].disposed?
          @sprites["feedshow"] = IconSprite.new(0,0)
          @sprites["feedshow"].viewport = @viewport
          @sprites["feedshow"].setBitmap("Graphics/Pictures/Pokemon Amie/feedshow")
          @sprites["feedshow"].oy = @sprites["feedshow"].bitmap.height/2
          @sprites["feedshow"].x = @sprites["feed"].x
          @sprites["feedshow"].y = @sprites["feed"].y
          sprite = @sprites["feedshow"]
          w=sprite.bitmap.width
          sprite.zoom_x=0.2
          sprite.zoom_y=0.2
          8.times do
            #if (sprite.x+(sprite.zoom_x+0.1)*w)>=512
            #  break
            #end
            sprite.zoom_x+=0.1
            Graphics.update
          end
          4.times do
            sprite.zoom_y+=0.2
            Graphics.update
          end
        end
      else
        @sprites["feedshow"] = IconSprite.new(0,0)
        @sprites["feedshow"].viewport = @viewport
        @sprites["feedshow"].setBitmap("Graphics/Pictures/Pokemon Amie/feedshow")
        @sprites["feedshow"].oy = @sprites["feedshow"].bitmap.height/2
        @sprites["feedshow"].x = @sprites["feed"].x
        @sprites["feedshow"].y = @sprites["feed"].y
        sprite = @sprites["feedshow"]
        w=sprite.bitmap.width
        sprite.zoom_x=0.2
        sprite.zoom_y=0.2
        8.times do
          #if (sprite.x+(sprite.zoom_x+0.1)*w)>=512
          #  break
          #end
          sprite.zoom_x+=0.1
          Graphics.update
        end
        4.times do
          sprite.zoom_y+=0.2
          Graphics.update
        end
      end
      @foodnum=0
      @sprites["itemcount"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
      pbSetSystemFont(@sprites["itemcount"].bitmap)
      @sprites["itemcount"].bitmap.font.size=24
      @sprites["itemcount"].z=1
      for item in EATABLE_ITEMS
        if $PokemonBag.pbQuantity(item)>0
          @items[@foodnum]=item
          @sprites["food#{@foodnum}"] = ItemIconSprite.new(0,0,-1,@viewport)
          @sprites["food#{@foodnum}"].item = getID(PBItems,item)
          @sprites["food#{@foodnum}"].ox = @sprites["food#{@foodnum}"].bitmap.width/2
          @sprites["food#{@foodnum}"].oy = @sprites["food#{@foodnum}"].bitmap.height/2
          @sprites["food#{@foodnum}"].x = @sprites["food#{@foodnum}"].ox+@sprites["feed"].ox+@sprites["feed"].x+@sprites["food#{@foodnum}"].bitmap.width*@foodnum
          @sprites["food#{@foodnum}"].y = @sprites["feed"].y
          num=$PokemonBag.pbQuantity(item)
          pbDrawOutlineText(@sprites["itemcount"].bitmap,@sprites["food#{@foodnum}"].x,@sprites["food#{@foodnum}"].y,24,24,num.to_s,Color.new(248,248,248),Color.new(30,30,30),0)
          srcx = @sprites["feed"].x-@sprites["food#{@foodnum}"].x
          srcx=0 if srcx<0
          @sprites["food#{@foodnum}"].src_rect.set(srcx,0,@sprites["food#{@foodnum}"].bitmap.width,@sprites["food#{@foodnum}"].bitmap.width)
          @foodnum+=1
        end
      end
      @feedshow=3
    elsif @feedshow==2
      for item in 0...(@foodnum)
        @sprites["food#{item}"].dispose
        @sprites["itemcount"].dispose
      end
      sprite = @sprites["feedshow"]
      4.times do
        sprite.zoom_y-=0.2
        Graphics.update
      end
      8.times do
        if ((sprite.zoom_x-0.1))<=0
          break
        end
        sprite.zoom_x-=0.1
        Graphics.update
      end
      sprite.dispose
      @feedshow=0
    end
    return
  end
  def switch
    return @switch
  end
  def pbSwitchScreen
    base   = Color.new(248,248,248)
    shadow = Color.new(104,104,104)
    pkname = $Trainer.party[@partyIndex].name
    textpos1 = [
      [_INTL("Affection"),32,70,0,base,shadow],
      [_INTL("Fullness"),32,102,0,base,shadow],
      [_INTL("Enjoyment"),32,134,0,base,shadow],
      [_INTL("Select the Pokémon you'd like to play with!"),74,348,0,base,shadow],
      [pkname,70,20,0,base,shadow],
    ]
    @sprites["text"] = BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
    pbSetSystemFont(@sprites["text"].bitmap)
    pbDrawTextPositions(@sprites["text"].bitmap,textpos1)
    for i in 0...($Trainer.party.length)
      pokemonIconFile = pbPokemonIconFile($Trainer.party[i])
      @sprites["pokeicon#{i}"]=PokemonIconSprite.new($Trainer.party[i],@viewport)
      @sprites["pokeicon#{i}"].ox=@sprites["pokeicon#{i}"].bitmap.width/4
      @sprites["pokeicon#{i}"].oy=@sprites["pokeicon#{i}"].bitmap.height/2
      @sprites["pokeicon#{i}"].x=68+76*i
      @sprites["pokeicon#{i}"].y=228
      @sprites["pokeicon#{i}"].z=1
    end
    index = pbGet(AMIEINDEX)+1
    @sprites["bgmap"].setBitmap("Graphics/Pictures/Pokemon Amie/bgswitch"+index.to_s)
    @sprites["pokemon"].dispose
    @sprites["switch"].dispose
    @sprites["feed"].dispose
    if @sprites["feedshow"]!=nil
      if !@sprites["feedshow"].disposed?
        @sprites["feedshow"].dispose
        @feedshow=0
      end
    end
    if @foodnum>0
      if @sprites["itemcount"]!=nil
        if !@sprites["itemcount"].disposed?
          @sprites["itemcount"].dispose
        end
      end
      for x in 0...@foodnum
        if @sprites["food#{x}"]!=nil
          if !@sprites["food#{x}"].disposed?
            @sprites["food#{x}"].dispose
          end
        end
      end
    end
    @sprites["active"] = IconSprite.new(0,0)
    @sprites["active"].viewport = @viewport
    @sprites["active"].setBitmap("Graphics/Pictures/Pokemon Amie/active")
    @sprites["active"].ox = @sprites["active"].bitmap.width/2
    @sprites["active"].oy = @sprites["active"].bitmap.height/2
    @sprites["active"].x = 68+76*(pbGet(AMIEINDEX))+24
    @sprites["active"].y = 228+24
    @sprites["active"].z=2
    #Draw Affection
    for a in 1...6
      @sprites["affect#{a}"] = IconSprite.new(0,0)
      if a<=(pbGet(AMIEPOKEMON).getAffectionLevel)
        @sprites["affect#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/affect")
      else
        @sprites["affect#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/affect_empty")
      end
      space=15
      @sprites["affect#{a}"].viewport = @viewport
      @sprites["affect#{a}"].ox=@sprites["affect#{a}"].bitmap.width/2
      @sprites["affect#{a}"].oy=@sprites["affect#{a}"].bitmap.height/2
      @sprites["affect#{a}"].x=178+@sprites["affect#{a}"].bitmap.width*a+space
      @sprites["affect#{a}"].y=87
      #Draw Fullness
      @sprites["full#{a}"] = IconSprite.new(0,0)
      if a<=(pbGet(AMIEPOKEMON).getFullnessLevel)
        @sprites["full#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/full")
      else
        @sprites["full#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/full_empty")
      end
      space=15
      @sprites["full#{a}"].viewport = @viewport
      @sprites["full#{a}"].ox=@sprites["full#{a}"].bitmap.width/2
      @sprites["full#{a}"].oy=@sprites["full#{a}"].bitmap.height/2
      @sprites["full#{a}"].x=178+@sprites["full#{a}"].bitmap.width*a+space
      @sprites["full#{a}"].y=87+32
      #Draw Enjoyment
      @sprites["enjoy#{a}"] = IconSprite.new(0,0)
      if a<=(pbGet(AMIEPOKEMON).getEnjoymentLevel)
        @sprites["enjoy#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/enjoy")
      else
        @sprites["enjoy#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/enjoy_empty")
      end
      space=15
      @sprites["enjoy#{a}"].viewport = @viewport
      @sprites["enjoy#{a}"].ox=@sprites["enjoy#{a}"].bitmap.width/2
      @sprites["enjoy#{a}"].oy=@sprites["enjoy#{a}"].bitmap.height/2
      @sprites["enjoy#{a}"].x=178+@sprites["enjoy#{a}"].bitmap.width*a+space
      @sprites["enjoy#{a}"].y=87+64
    end
    @switch=2
  end
  #-----------------------------------------------------------------------------
  def pbStartScene(pokemon, partyIndex)
    @pokemon = pokemon
    @partyIndex = partyIndex
    @sprites={}
    @counter=0 
    @foodcounter=0
    @shouldbreak = false
    @time1 = 0
    @time2 = 0
    @time3 = 0
    @switch = 0
    @feedshow=0
    @foodnum=0
    @mouse_x=nil
    @food = nil
    @feeding=false
    @items=[]
    @mask=nil
    @full=false
    #-----------------------------------------------------------------------------
    # * Main Processing
    #-----------------------------------------------------------------------------
    def main
      # Make command window
      fadein = true
      # Makes the text window
      @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
      @viewport.z=99999
      @sprites["bgmap"] = IconSprite.new(0,0)
      @sprites["bgmap"].setBitmap("Graphics/Pictures/Pokemon Amie/"+pbBackdrop)
      @sprites["bgmap"].viewport = @viewport
      @sprites["mouse"] = IconSprite.new(0,0)
      @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/hand2")
      @sprites["mouse"].z=5
      @sprites["mouse"].viewport = @viewport
      @sprites["mouse"].ox = @sprites["mouse"].bitmap.width/2 
      @sprites["mouse"].oy = @sprites["mouse"].bitmap.height/2
      @sprites["mouse"].x=$mouse.x if defined?($mouse.x)
      @sprites["mouse"].y=$mouse.y if defined?($mouse.y)
      @sprites["pokemon"]=PokemonSprite.new(@viewport)
      @sprites["pokemon"].setPokemonBitmap(@pokemon)
      @sprites["pokemon"].mirror=false
      @sprites["pokemon"].color=Color.new(0,0,0,0)
      @sprites["pokemon"].ox = @sprites["pokemon"].bitmap.width/2 
      @sprites["pokemon"].oy = @sprites["pokemon"].bitmap.height/2
      #places Pokemon at the center of screen
      @sprites["pokemon"].x=SCREEN_WIDTH/2
      @sprites["pokemon"].y = SCREEN_HEIGHT/2+30
      @sprites["pokemon"].z = 3
      @pokemon.amie_enjoyment=(@pokemon.amie_enjoyment-2)
      @sprites["switch"] = IconSprite.new(0,0)
      @sprites["switch"].setBitmap("Graphics/Pictures/Pokemon Amie/switch")
      @sprites["switch"].viewport = @viewport
      #sets switch icon to bottom right
      @sprites["switch"].ox = @sprites["switch"].bitmap.width
      @sprites["switch"].oy = @sprites["switch"].bitmap.height
      @sprites["switch"].x=SCREEN_WIDTH
      @sprites["switch"].y = SCREEN_HEIGHT
      @sprites["back"] = IconSprite.new(0,0)
      @sprites["back"].setBitmap("Graphics/Pictures/Pokemon Amie/back")
      @sprites["back"].viewport = @viewport
      #sets 'back' icon to bottom left
      @sprites["back"].oy = @sprites["back"].bitmap.height
      @sprites["back"].y = SCREEN_HEIGHT
      @sprites["feed"] = IconSprite.new(0,0)
      @sprites["feed"].setBitmap("Graphics/Pictures/Pokemon Amie/feed")
      @sprites["feed"].viewport = @viewport
      #sets switch icon to bottom right
      @sprites["feed"].ox = @sprites["feed"].bitmap.width/2
      @sprites["feed"].oy = @sprites["feed"].bitmap.height/2
      @sprites["feed"].x=50
      @sprites["feed"].y=50
      @sprites["feed"].z=2
      @custom = false            
    end
    def pbAmieMouse
      if !(@sprites["pokemon"].disposed?)&&(@feeding!=true)
        if $mouse.overPixel?(@sprites["pokemon"]) && ($mouse.leftPress?) #Pressing mouse while over Pokemon?
          #pbGet(AMIEPOKEMON).feedAmie(:ORANBERRY)
          @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/hand1")
          pbWait(1)
          if !$mouse.isStatic? #Is the mouse moving?
            @counter=@counter+1
            if ([email protected]_f)>(getPlayTime("Audio/SE/pet.ogg")) #Audio doesn't overlap
              pbSEPlay("pet.ogg",90,100)
              @time2= Time.now
            end
            if @counter>=50 #after counter reaches number, hearts appear
              pbGet(AMIEPOKEMON).changeAmieStats("pet")
              pbPlayCry(@pokemon,90,110)
              for i in 0...4 #creates the hearts
                @sprites["#{i}"] = IconSprite.new(0,0)
                @sprites["#{i}"].setBitmap("Graphics/Pictures/Pokemon Amie/heart")
                @sprites["#{i}"].viewport = @viewport
                @sprites["#{i}"].z=4
                @sprites["#{i}"].x=SCREEN_WIDTH/2+rand(70)-40
                @sprites["#{i}"].y=SCREEN_HEIGHT/2-rand(40)+30
              end
              15.times do
                for i in 0...4 #moves hearts
                  @sprites["#{i}"].x+=rand(100)/10-rand(100)/10
                  @sprites["#{i}"].y-=(rand(4)/3+1)*3
                end
                pbUpdateSpriteHash(@sprites)
                Graphics.update
              end
              for i in 0...4
                @sprites["#{i}"].dispose
              end
              Graphics.update
              @counter=0
            end
          end
        else
          @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/hand2")
        end
      end
      if !(@sprites["pokemon"].disposed?)&&(@feeding==true)
        if $mouse.overPixel?(@sprites["pokemon"]) && ($mouse.leftPress?)&&(@food!=nil)&&(([email protected]_f)>0.4)
          @foodcounter=@foodcounter+1
          @time1=Time.now
          if @foodcounter==1
            pbSEPlay("eat.ogg",90,100)
            @mask=("Graphics/Pictures/Pokemon Amie/eaten1.png")
            @foodcounter=2
          end
          if @foodcounter==3
            pbSEPlay("eat.ogg",90,100)
            @mask=("Graphics/Pictures/Pokemon Amie/eaten2.png")
            @foodcounter=4
          end
          if @foodcounter==5
            pbSEPlay("eat.ogg",90,100)
            @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/eaten3.png")
            pk=$Trainer.party[pbGet(AMIEINDEX)].species
            pbGet(AMIEPOKEMON).feedAmie(@food)
            if pk!=($Trainer.party[pbGet(AMIEINDEX)].species)
              @sprites["pokemon"].setPokemonBitmap($Trainer.party[pbGet(AMIEINDEX)])
            end
            @feeding=false
            @foodcounter=0
            @time1=0
            pbPlayCry(@pokemon,90,110)
            for i in 0...4 #creates the hearts
              @sprites["#{i}"] = IconSprite.new(0,0)
              @sprites["#{i}"].setBitmap("Graphics/Pictures/Pokemon Amie/heart")
              @sprites["#{i}"].viewport = @viewport
              @sprites["#{i}"].z=4
              @sprites["#{i}"].x=SCREEN_WIDTH/2+rand(70)-40
              @sprites["#{i}"].y=SCREEN_HEIGHT/2-rand(40)+30
            end
            15.times do
              for i in 0...4 #moves hearts
                @sprites["#{i}"].x+=rand(100)/10-rand(100)/10
                @sprites["#{i}"].y-=(rand(4)/3+1)*3
              end
              pbUpdateSpriteHash(@sprites)
              Graphics.update
            end
            for i in 0...4
              @sprites["#{i}"].dispose
            end
            @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/hand2")
            @sprites["mouse"].ox=@sprites["mouse"].bitmap.width/2
            @sprites["mouse"].oy=@sprites["mouse"].bitmap.height/2
            @mask=nil
            Graphics.update
          end
        end
        @sprites["mouse"].mask(@mask)
      end
      #moves hand picture to mouse position
      @sprites["mouse"].x=$mouse.x if defined?($mouse.x)
      @sprites["mouse"].y=$mouse.y if defined?($mouse.y)
    end
    def pbBackdrop #gets background based off location
      environ=pbGetEnvironment
      # Choose backdrop
      backdrop="Field"
      if environ==PBEnvironment::Cave
        backdrop="Cave"
      elsif environ==PBEnvironment::MovingWater || environ==PBEnvironment::StillWater
        backdrop="Water"
      elsif environ==PBEnvironment::Underwater
        backdrop="Underwater"
      elsif environ==PBEnvironment::Rock
        backdrop="Mountain"
      else
        if !$game_map || !pbGetMetadata($game_map.map_id,MetadataOutdoor)
          backdrop="IndoorA"
        end
      end
      if $game_map
        back=pbGetMetadata($game_map.map_id,MetadataBattleBack)
        if back && back!=""
          backdrop=back
        end
      end
      if $PokemonGlobal && $PokemonGlobal.nextBattleBack
        backdrop=$PokemonGlobal.nextBattleBack
      end
      # Apply graphics
      battlebg=backdrop
      return battlebg
    end
    
    #-----------------------------------------------------------------------------
    # * Frame Update (when command window is active)
    #-----------------------------------------------------------------------------
    def updateCustom
      if Input.trigger?(Input::B)
        @custom = false
        return
      end
    end
  
    def update_command
      
      # If B button was pressed
      if Input.trigger?(Input::B)
        if switch==0
          pbPlayCancelSE()
          @shouldbreak=true #ends scene loop and starts to end scene
        else
          pbPlayCancelSE()
          @switch=0
          pbFadeOutIn(99999) {
            pbDisposeSpriteHash(@sprites)
            @viewport.dispose
            main
          }
        end
      end
      if (@sprites["textbox"]!=nil)
        if !@sprites["textbox"].disposed?
          if $mouse.click?(@sprites["textbox"])
            setAmieIndex(@partyIndex)
            @pokemon=pbGet(AMIEPOKEMON)
            pbClickSprite(@sprites["textbox"])
            @switch=0
            pbFadeOutIn(99999) {
              pbDisposeSpriteHash(@sprites)
              @viewport.dispose
              main
            }
          end
        end
      end
      if !@sprites["switch"].disposed?
        if $mouse.click?(@sprites["switch"]) #clicks on switch sprite
          pbClickSprite(@sprites["switch"])
          @switch=1
        end
      end
      if @sprites["feedshow"]!=nil
        if !@sprites["feedshow"].disposed?
          if ($mouse.leftPress?)&&(!$mouse.overPixel?(@sprites["feed"]))&&($mouse.overPixel?(@sprites["feedshow"]))
            if (@mouse_x!=nil)
              dx=$mouse.x-@mouse_x
              if ((@sprites["food#{@foodnum-1}"].x+@sprites["food#{@foodnum-1}"].bitmap.width+dx)<=512)
                dx=0
              end
              lx=@sprites["food0"].ox+@sprites["feed"].ox+@sprites["feed"].x
              if ((@sprites["food#{0}"].x+dx)>=lx)
                dx=0
              end
              @sprites["itemcount"].bitmap.clear
              for x in 0...@foodnum
                @sprites["food#{x}"].x += dx
                srcx = @sprites["feed"].x-@sprites["food#{x}"].x+40
                srcx=0 if srcx<0
                @sprites["food#{x}"].src_rect.set(srcx,0,@sprites["food#{x}"].bitmap.width,@sprites["food#{x}"].bitmap.width)
                num=$PokemonBag.pbQuantity(@items[x])
                if @sprites["feed"].x<@sprites["food#{x}"].x
                  pbDrawOutlineText(@sprites["itemcount"].bitmap,@sprites["food#{x}"].x,@sprites["food#{x}"].y,24,24,num.to_s,Color.new(248,248,248),Color.new(30,30,30),0)
                end
              end
            end
          end
        end
      end
      @mouse_x=$mouse.x
      if (!$mouse.leftPress?)&&(@feeding==true)
        @foodcounter=0
        @mask=nil
        @feeding=false
      end
      if @sprites["feedshow"]!=nil
        if (!$mouse.leftPress?)or(!$mouse.isStatic?)
          @time1=Time.now
        end
        if ($mouse.isStatic?)&&(([email protected]_f)>0.8)&&(!@sprites["feedshow"].disposed?)
          for x in 0...@foodnum
            if $mouse.leftPress?(@sprites["food#{x}"])
              if (@pokemon.getFullnessLevel==5)
                @full=true
                @time3=Time.now
                pbDrawOutlineText(@sprites["itemcount"].bitmap,SCREEN_WIDTH/2-64,@sprites["feed"].x+30,128,32,@pokemon.name+" is full!",Color.new(248,248,248),Color.new(30,30,30),0)
                break
              end
              @sprites["mouse"].setBitmap(pbItemIconFile(getID(PBItems,@items[x])))
              @sprites["mouse"].ox=@sprites["mouse"].bitmap.width/2
              @sprites["mouse"].oy=@sprites["mouse"].bitmap.height/2
              @food=@items[x]
              @feeding=true
              @feedshow=2
            end
          end
        end
        if @full==true && (([email protected]_f)>0.5)
          @full=false
          if @sprites["feedshow"]!=nil
            if !@sprites["feedshow"].disposed?
              @sprites["itemcount"].bitmap.clear
              for x in 0...@foodnum
                num=$PokemonBag.pbQuantity(@items[x])
                pbDrawOutlineText(@sprites["itemcount"].bitmap,@sprites["food#{x}"].x,@sprites["food#{x}"].y,24,24,num.to_s,Color.new(248,248,248),Color.new(30,30,30),0)
              end
            end
          end
        end
      end
      if !@sprites["feed"].disposed?
        if $mouse.click?(@sprites["feed"])&&!$mouse.long?(Input::Mouse_Left) #clicks on feed sprite
          if @feedshow==3
            pbClickSprite(@sprites["feed"])
            @feedshow=2
          end
          if @feedshow==0
            pbClickSprite(@sprites["feed"])
            @feedshow=1
          end
        end
      end
      if $mouse.click?(@sprites["back"])
        pbClickSprite(@sprites["back"])
        if switch==0
          @shouldbreak=true #ends scene loop and starts to end scene
        else
          @switch=0
          pbFadeOutIn(99999) {
            pbDisposeSpriteHash(@sprites)
            @viewport.dispose
            main
          }
        end
      end
      for i in 0...($Trainer.party.length)
        if (@sprites["pokeicon#{i}"]==nil)
          break
        end
        if @sprites["pokeicon#{i}"].disposed?
          break
        end
        if $mouse.click?(@sprites["pokeicon#{i}"])
          @partyIndex = i
          for a in 1...6
            if a<=$Trainer.party[@partyIndex].getAffectionLevel
              @sprites["affect#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/affect")
            else
              @sprites["affect#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/affect_empty")
            end
            space=15
            @sprites["affect#{a}"].viewport = @viewport
            @sprites["affect#{a}"].ox=@sprites["affect#{a}"].bitmap.width/2
            @sprites["affect#{a}"].oy=@sprites["affect#{a}"].bitmap.height/2
            @sprites["affect#{a}"].x=178+@sprites["affect#{a}"].bitmap.width*a+space
            @sprites["affect#{a}"].y=87
            #Draw Fullness
            if a<=($Trainer.party[@partyIndex].getFullnessLevel)
              @sprites["full#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/full")
            else
              @sprites["full#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/full_empty")
            end
            space=15
            @sprites["full#{a}"].viewport = @viewport
            @sprites["full#{a}"].ox=@sprites["full#{a}"].bitmap.width/2
            @sprites["full#{a}"].oy=@sprites["full#{a}"].bitmap.height/2
            @sprites["full#{a}"].x=178+@sprites["full#{a}"].bitmap.width*a+space
            @sprites["full#{a}"].y=87+32
            #Draw Enjoyment
            if a<=($Trainer.party[@partyIndex].getEnjoymentLevel)
              @sprites["enjoy#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/enjoy")
            else
              @sprites["enjoy#{a}"].setBitmap("Graphics/Pictures/Pokemon Amie/enjoy_empty")
            end
            space=15
            @sprites["enjoy#{a}"].viewport = @viewport
            @sprites["enjoy#{a}"].ox=@sprites["enjoy#{a}"].bitmap.width/2
            @sprites["enjoy#{a}"].oy=@sprites["enjoy#{a}"].bitmap.height/2
            @sprites["enjoy#{a}"].x=178+@sprites["enjoy#{a}"].bitmap.width*a+space
            @sprites["enjoy#{a}"].y=87+64
          end
          if ($Trainer.party[@partyIndex].egg?)
            if @sprites["textbox"]!=nil
              if !@sprites["textbox"].disposed?
                @sprites["textbox"].dispose
                @sprites["overlay"].dispose
              end
            end
          end
          if (pbGet(AMIEINDEX)!=i)&&(!$Trainer.party[@partyIndex].egg?)
            if (@sprites["textbox"]==nil)or(@sprites["textbox"].disposed?)
              @sprites["textbox"] = IconSprite.new(96,281)
              @sprites["textbox"].setBitmap("Graphics/Pictures/Pokemon Amie/textbox")
              @sprites["textbox"].viewport = @viewport
              @sprites["textbox"].x+=@sprites["textbox"].bitmap.width/2
              @sprites["textbox"].y+=@sprites["textbox"].bitmap.height/2
              @sprites["textbox"].ox=@sprites["textbox"].bitmap.width/2
              @sprites["textbox"].oy=@sprites["textbox"].bitmap.height/2
              base   = Color.new(64,64,64)
              shadow = Color.new(176,176,176)
              tx=@sprites["textbox"].x
              ty=@sprites["textbox"].y-3*@sprites["textbox"].oy/4
              textpos = [
                [_INTL("Switch Pokémon!"),tx,ty,2,base,shadow],
              ]
              @sprites["overlay"] = BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
              pbSetSystemFont(@sprites["overlay"].bitmap)
              pbDrawTextPositions(@sprites["overlay"].bitmap,textpos)
            end
          end
          if (pbGet(AMIEINDEX)==i)
            if !(@sprites["textbox"]==nil)
              if !@sprites["textbox"].disposed?
                @sprites["textbox"].dispose
                @sprites["overlay"].dispose
              end
            end
          end

          index = i+1
          @sprites["bgmap"].setBitmap("Graphics/Pictures/Pokemon Amie/bgswitch"+index.to_s)
        end
      end
    end
    def break?
      return @shouldbreak
    end
    main
  end
  
  def pbEndScene
      # Disposes the windows
      pbDisposeSpriteHash(@sprites)
      @viewport.dispose
  end
end
  

class PokeAmie_EssentialsScreen
  def initialize(scene)
    @scene=scene
  end
  
  def pbStartAmie(pokemon, partyIndex)
    @scene.pbStartScene(pokemon, partyIndex)
    $mouse.hide
    # Main loop
    loop do
      # Update game screen
      Graphics.update
      # Update input information
      Input.update
      # Frame update
      @scene.update
      # Mouse Check
      @scene.pbAmieMouse
      # Abort loop 
      if @scene.break?
        break
      end
    end
    pbFadeOutIn(99999) { 
      @scene.pbEndScene
    }
    $mouse.show
  end
end

def pokemonAmieRefresh
  setAmiePokemon(pbGet(AMIEPOKEMON))
  pbFadeOutIn(99999) { 
    scene = PokeAmie_Essentials_Scene.new
    screen = PokeAmie_EssentialsScreen.new(scene)
    screen.pbStartAmie(pbGet(AMIEPOKEMON),pbGet(AMIEINDEX))
  }
end
  
#------------------------------------------------------------------------------#

Accessibility:
1. Anywhere:-
Call the below code in an event-

Code:

pokemonAmieRefresh

2. PokeGear:-

Goto class PokemonPokegearScreen
Add after cmdJukebox = -1
Code:
```
    cmdPokeref = -1
```

Add after commands[cmdJukebox = commands.length] = ["jukebox",_INTL("Jukebox")]

Code:

    commands[cmdPokeref = commands.length] = ["pokemonamie",_INTL("Pokemon Amie")] if $Trainer.party.length>0

Add after

Code:

elsif cmdJukebox>=0 && cmd==cmdJukebox
        pbFadeOutIn {
          scene = PokemonJukebox_Scene.new
          screen = PokemonJukeboxScreen.new(scene)
          screen.pbStartScreen
        }

Code:

        elsif cmdPokeref>=0 && cmd==cmdPokeref
        pbPlayDecisionSE()
       pokemonAmieRefresh

3. Pokemon Follow by Mej71
Will be made when Pokemon Follow get a v18 upgrade.
4. Evolve Eevee into Sylveon based on Affection

Search in Pokemon_Evolution- when PBEvolution::HappinessMoveType
And replace the second line- if pokemon.happiness>=220
With- if pokemon.getAffectionLevel>=3

Credits:

BhagyaJyoti (Made for v18 with many fixes and made more Plug-n-Play)
PizzaSun (Original Script for v17.2)
rigbycwts (Concept for Essentials)

PercyGekkouga77 · Sep 3, 2020

Cool. Keep up the good work

Subhajit · Sep 3, 2020

Wow cool script. I wish improve dynamax script compatible with new v18

#Not Important · Sep 4, 2020

Subhajit said:
Wow cool script. I wish improve dynamax script compatible with new v18

Please stop asking for resources.
In v18 the battle system is very different, and Lucidious probably won't release one for a while.
Why don't you learn how to code? Ruby isn't hard.

Subhajit · Sep 4, 2020

#Not Important said:
Please stop asking for resources.
In v18 the battle system is very different, and Lucidious probably won't release one for a while.
Why don't you learn how to code? Ruby isn't hard.

Ok sorry.

#Not Important · Sep 4, 2020

Sorry, I was a bit toxic there...
I just mean that you should learn how to code instead of asking others to make scripts for you.

Subhajit · Sep 4, 2020

#Not Important said:
Sorry, I was a bit toxic there...
I just mean that you should learn how to code instead of asking others to make scripts for you.

I am not asking for these dynamax scripts. I am not even using dynamax in my game. I am just so excited to add more scripts in newly released v18. Thanks for your advice (I am trying to learn ruby).

#Not Important · Sep 4, 2020

Subhajit said:
I am not asking for these dynamax scripts. I am not even using dynamax in my game. I am just so excited to add more scripts in newly released v18. Thanks for your advice (I am trying to learn ruby).

I agree that v18 is cause for celebration!
Luka S.J.'s tutorials on youtube are good, and Marin wrote a tutorial that is pinned to this section, check both of those out!

Master Vishu · Sep 4, 2020

A pretty nice resource. Never knew it would be upgraded to v18. Thanks. I am definitely using it.

भाग्य ज्योति · Sep 5, 2020

For those who have downloaded yesterday or before, please re-download/copy the script, because I have added support for Plugin Manager.

भाग्य ज्योति · Sep 10, 2020

Upgraded script to v1.5. I completely forgot that many files were renamed, and `pbRgssOpen("Data/berryplants.dat","rb"){|f|` would no longer work. This meant that your game will always crash if you make your Pokémon eat any items. Also, there was methods changes of PBExperience, which I fixed. Those who have downloaded before, I apologize for missing this part. I have tasted all items once again, and till now all worked, so here you go.

भाग्य ज्योति · Sep 10, 2020

So, here is a good gift for you all. The following add-on creates parallax zooming effect when you play with your Pokémon. You can try yourself to witness it.
Search the following code-

Code:

def pbAmieMouse
      if !(@sprites["pokemon"].disposed?)&&(@feeding!=true)
        if $mouse.overPixel?(@sprites["pokemon"]) && ($mouse.leftPress?) #Pressing mouse while over Pokemon?
          #pbGet(AMIEPOKEMON).feedAmie(:ORANBERRY)
          @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/hand1")
          pbWait(1)

And add the below code after it:-

Code:

if @sprites["pokemon"].zoom_x<1.5
            @sprites["pokemon"].zoom_x+=0.1
            @sprites["pokemon"].zoom_y+=0.1
            @sprites["bgmap"].zoom_x+=0.2
            @sprites["bgmap"].zoom_y+=0.2
            if @sprites["feed"].x>(-80)
              @sprites["feed"].x-=20
            end
            if @feedshow==3
              for item in 0...(@foodnum)
                @sprites["food#{item}"].dispose
                @sprites["itemcount"].dispose
              end
              @sprites["feedshow"].dispose
              @feedshow=0
            end
            Graphics.update
          end

Now, search the following:-

Code:

else
          @sprites["mouse"].setBitmap("Graphics/Pictures/Pokemon Amie/hand2")

And add the below code:-

Code:

if @sprites["pokemon"].zoom_x>1
            @sprites["pokemon"].zoom_x-=0.1
            @sprites["pokemon"].zoom_y-=0.1
            @sprites["bgmap"].zoom_x-=0.2
            @sprites["bgmap"].zoom_y-=0.2
            if @sprites["feed"].x!=50
              @sprites["feed"].x+=20
            end
            Graphics.update
          end

And you can now witness what is called parallax zooming.

DarrylBD99 · Sep 17, 2020

I like this resource. However, you can't say it is like both Pokemon Amie/Refresh as in Pokemon Refresh, you can help cure status conditions and you immediately. Therefore, it should be Pokemon Amie V18... unless if you can add setting that includes Pokemon Refresh features.

भाग्य ज्योति · Sep 17, 2020

DarrylBD99 said:
I like this resource. However, you can't say it is like both Pokemon Amie/Refresh as in Pokemon Refresh, you can help cure status conditions and you immediately. Therefore, it should be Pokemon Amie V18... unless if you can add setting that includes Pokemon Refresh features.

Yeah, Amie and Refresh has many differences. But this script is in fact different from both. We need to feed berries and other items instead of puffs. And yes, if you feed effect-dealing berries, like ChestoBerry, your Pokemon will be awaken. So, items cure status problem. Except for berries which increase pp of moves, they instead of curing, create errors. I am trying to fix these. Other than it, all are what you can call- Essentials' Amie/Refresh!

UberDunsparce · Sep 17, 2020

DarrylBD99 said:
I like this resource. However, you can't say it is like both Pokemon Amie/Refresh as in Pokemon Refresh, you can help cure status conditions and you immediately. Therefore, it should be Pokemon Amie V18... unless if you can add setting that includes Pokemon Refresh features.

You can heal status conditions because instead of PokePuffs the script uses Berries and other consumable items which retain their field effects in the Amie Screen.

But honestly he can call it whatever he wants because its HIS script. If he wants to call it "Elite Battle Pokemon Feeding System DX" and no one can stop him, because its his script and he decides what he wants to name it, not you, not me, not anyone else.

Pizza Sun · Sep 17, 2020

Oh dang, I remember making this script a long time ago. lol Glad someone decided to fix some of the bugs on it. Man, I remember making some of the graphics for the script. I did a lot of messy code back then (I probably still write messy code now).

भाग्य ज्योति · Sep 17, 2020

Pizza Sun said:
Oh dang, I remember making this script a long time ago. lol Glad someone decided to fix some of the bugs on it. Man, I remember making some of the graphics for the script. I did a lot of messy code back then (I probably still write messy code now).

Wow, you are back. SO nice of you. Thanks for the original script!!!

UberDunsparce said:
"Elite Battle Pokemon Feeding System DX"

BRUH!!! I literally fall off my chair, laughing. I named it Pokemon Amie/Refresh, cause I did not wanted to change the actual name of what PizzaSun stated in his thread.

DarrylBD99 · Sep 18, 2020

UberDunsparce said:
If he wants to call it "Elite Battle Pokemon Feeding System DX" and no one can stop him

भाग्य ज्योति said:
BRUH!!! I literally fall off my chair, laughing.

Same here lmao...

DarrylBD99 · Sep 25, 2020

I am not sure if this is a bug, but while petting your Pokémon, the sound effect for petting rapidly repeats like mad.

भाग्य ज्योति · Sep 26, 2020

DarrylBD99 said:
I am not sure if this is a bug, but while petting your Pokémon, the sound effect for petting rapidly repeats like mad.

The problem looks it can be fixed quickly, but when you don't have a good speaker which produces distinct sound at each instance of time, this can't be even checked. I am in this condition. If I get a better speaker, I will surely look upon it. Thanks for telling though.

POKEMON AMIE/REFRESH [ESSENTIALS V18]

More options

भाग्य ज्योति

Attachments

PercyGekkouga77

Subhajit

#Not Important

All hail the wishmaker

Subhajit

#Not Important

All hail the wishmaker

Subhajit

#Not Important

All hail the wishmaker

Master Vishu

भाग्य ज्योति

भाग्य ज्योति

भाग्य ज्योति

DarrylBD99

Content Creator and Game Developer

भाग्य ज्योति

UberDunsparce

Pizza Sun

भाग्य ज्योति

DarrylBD99

Content Creator and Game Developer

DarrylBD99

Content Creator and Game Developer

भाग्य ज्योति