Trade

################################################################################
#-------------------------------------------------------------------------------
#Author: Alexandre
#Simple trade system.
#-------------------------------------------------------------------------------
################################################################################
class Scene_Trade
################################################################################
#-------------------------------------------------------------------------------
#Author: Alexandre
#Lets initialise the scene:
#@list is the main trade background
#@info is the background that appears when confirming the trade
#-------------------------------------------------------------------------------
################################################################################
  def initialize(user)
    #--------
    #necessary to make sure both users have started the trade scene before
    #proceeding with the trade
#    $network.send("<TRA start>")
#    loop do
#      Graphics.update
#      Input.update
#      message = $network.listen
#      case message
#      when /<TRA start>/ then break
#      when /<TRA dead>/ then $scene = Scene_Map.new; break
#      end
#    end
    #--------
    @username = user
    @partysent = false
    @pokemonselected = false
    @theirparty = nil
    @theirpartylength = 0
    @theirchosen = nil
    @index = 1
    @viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
    @overlay=SpriteWrapper.new(@viewport)
    @overlay.bitmap = Bitmap.new(Graphics.width,Graphics.height)
    @overlay.z = 1000005
    @overlay2=SpriteWrapper.new(@viewport)
    @overlay2.bitmap = Bitmap.new(Graphics.width,Graphics.height)
    @overlay2.z = 1000009
    @overlay3=SpriteWrapper.new(@viewport)
    @overlay3.bitmap = Bitmap.new(Graphics.width,Graphics.height)
    @overlay3.z = 1000009
    @list=SpriteWrapper.new(@viewport)
    @list.visible = true
    @list.bitmap=BitmapCache.load_bitmap("Graphics/Pictures/tradebackground.png")
    @list.z = 1000004
    @selector=SpriteWrapper.new(@viewport)
    @selector.visible = true
    @selector.bitmap=BitmapCache.load_bitmap("Graphics/Pictures/boxpoint1.png")
    @selector.z = 1000006
    @waiting = Window_AdvancedTextPokemon.new("Waiting...")
    @waiting.visible = false
    @waiting.width = 120
    @waiting.x = Graphics.width/2 - 50
    @waiting.y = 160
    @sprite = []
    @spritex = []
    @sprites = {}
    @info=SpriteWrapper.new(@viewport)
    @info.visible = true
    @info.bitmap=BitmapCache.load_bitmap("Graphics/Pictures/tradebottom.png")
    @info.z = 1000008
    @info.visible = false
    @accepted = false
    @received = false
    @listreceived = false
  end
################################################################################
#-------------------------------------------------------------------------------
#Main procedure of the Scene, contains the loop that keeps it alive. When B is
#pressed, the Trade dead message is sent to the server and the scene is disposed
#-------------------------------------------------------------------------------
################################################################################
  def main
    mylist
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
      if Input.trigger?(Input::B)
        $scene = Connect.new
        $network.send("<TRA dead>")
      end
    end
    Graphics.freeze
    @waiting.dispose
    @viewport.dispose
    @list.dispose
    @overlay.dispose
    @overlay2.dispose
    @overlay3.dispose
    @sprite[0].dispose if @sprite[0] != nil
    @sprite[1].dispose if @sprite[1] != nil
    @sprite[2].dispose if @sprite[2] != nil
    @sprite[3].dispose if @sprite[3] != nil
    @sprite[4].dispose if @sprite[4] != nil
    @sprite[5].dispose if @sprite[5] != nil
    @spritex[0].dispose if @spritex[0] != nil
    @spritex[1].dispose if @spritex[1] != nil
    @spritex[2].dispose if @spritex[2] != nil
    @spritex[3].dispose if @spritex[3] != nil
    @spritex[4].dispose if @spritex[4] != nil
    @spritex[5].dispose if @spritex[5] != nil
    @sprites["mypokemon"].dispose if @sprites["mypokemon"] != nil
    @sprites["theirpokemon"].dispose if @sprites["theirpokemon"] != nil
  end
################################################################################
#-------------------------------------------------------------------------------
#Just a procedure to update the scene and check for any incoming messages
#-------------------------------------------------------------------------------
################################################################################
  def update
    their_info if @received == true and @pokemonselected == true
    their_list if @listreceived == true
    message = $network.listen
    handle(message)
    @sprite[0].update if @sprite[0] != nil
    @sprite[1].update if @sprite[1] != nil
    @sprite[2].update if @sprite[2] != nil
    @sprite[3].update if @sprite[3] != nil
    @sprite[4].update if @sprite[4] != nil
    @sprite[5].update if @sprite[5] != nil
    @spritex[0].update if @spritex[0] != nil
    @spritex[1].update if @spritex[1] != nil
    @spritex[2].update if @spritex[2] != nil
    @spritex[3].update if @spritex[3] != nil
    @spritex[4].update if @spritex[4] != nil
    @spritex[5].update if @spritex[5] != nil
    @viewport.update
    @overlay.update
    @overlay2.update
    @overlay3.update
    @selector.update
    check_input
    if @pokemonselected == false and @theirparty != nil
      update_selector_input
      update_selector
    end
    @waiting.update
    end
################################################################################
#-------------------------------------------------------------------------------
#Listens to incoming messages and determines what to do when trade messages are
#received.
#-------------------------------------------------------------------------------
################################################################################
  def handle(message)
    case message
      when /<TRA party=(.*)>/ #$Trainer.party dump
        theirparty($1) if @theirparty == nil
      when /<TRA offer=(.*)>/ #Trainer.party[@index - 1] dump
        receiveoffer($1) if @theirchosen == nil
      when /<TRA accepted>/
        execute_trade if @accepted == true
      when /<TRA declined>/ then trade_declined
      when /<TRA dead>/
        Kernel.pbMessage("The user exited the trade.")
        $scene=Connect.new
      end
  end
################################################################################
#-------------------------------------------------------------------------------
#Checks for input from C to select a pokemon or show the summary.
#-------------------------------------------------------------------------------
################################################################################
  def check_input
    #Player's pokemon
    if Input.trigger?(Input::C) and @pokemonselected == false
      if @index >= 1 and @index <= $Trainer.party.length
      commands=[_INTL("Offer"),_INTL("Summary"),_INTL("Cancel")]
      choice=Kernel.pbMessage(_INTL("What do you want to do?"),commands)
      if choice==0
        serialized = [Marshal.dump($Trainer.party[@index - 1])].pack("m").delete("\n")
        $network.send("<TRA offer=" + serialized + ">")
        show_information
        @waiting.visible = true
        @pokemonselected=true
      elsif choice==1
        scene=PokemonSummaryScene.new
        screen=PokemonSummary.new(scene)
        screen.pbStartScreen($Trainer.party,@index - 1)
      elsif choice==2
        #do nothing
      end
    else
      #Other user's pokemon
    commands=[_INTL("Summary"),_INTL("Cancel")]
      choice=Kernel.pbMessage(_INTL("What do you want to do?"),commands)
      if choice==0
        scene=PokemonSummaryScene.new
        screen=PokemonSummary.new(scene)
        screen.pbStartScreen(@theirparty,@index - 1 - $Trainer.party.length)
      elsif choice==1
        #donothing
      end
      end
    end
  end
################################################################################
#-------------------------------------------------------------------------------
#Checks for left and right input to move selector.
#-------------------------------------------------------------------------------
################################################################################
  def update_selector_input
    @index += 1 if Input.trigger?(Input::RIGHT)
    @index += 1 if Input.trigger?(Input::DOWN)
    @index -= 1 if Input.trigger?(Input::LEFT)
    @index -= 1 if Input.trigger?(Input::UP)
    @index = 1 if @index > $Trainer.party.length + @theirparty.length
    @index = $Trainer.party.length + @theirparty.length if @index <= 0
  end
################################################################################
#-------------------------------------------------------------------------------
#Updates the position of the selector.
#-------------------------------------------------------------------------------
################################################################################
  def update_selector
    case @index
    when 1 then @selector.x = 46; @selector.y = 40
    when 2 then @selector.x = 135; @selector.y = 40
    when 3 then @selector.x = 46; @selector.y = 120
    when 4 then @selector.x = 135; @selector.y = 120
    when 5 then @selector.x = 46; @selector.y = 220
    when 6 then @selector.x = 135; @selector.y = 220
    when 7 then @selector.x = 299; @selector.y = 40
    when 8 then @selector.x = 388; @selector.y = 40
    when 9 then @selector.x = 299; @selector.y = 120
    when 10 then @selector.x = 388; @selector.y = 120
    when 11 then @selector.x = 299; @selector.y = 220
    when 12 then @selector.x = 388; @selector.y = 220
    end
  end
################################################################################
#-------------------------------------------------------------------------------
#Receives the other user's party.
#-------------------------------------------------------------------------------
################################################################################
  def theirparty(data)
    @theirparty = Marshal.load(data.unpack("m")[0]) #load serialised party data
    @listreceived = true
  end
################################################################################
#-------------------------------------------------------------------------------
#Display the other uer's party.
#-------------------------------------------------------------------------------
################################################################################
  def their_list
    @listreceived = false

    @theirpartylength = 1 if @theirparty[0] !=nil
    @theirpartylength = 2 if @theirparty[1] !=nil
    @theirpartylength = 3 if @theirparty[2] !=nil
    @theirpartylength = 4 if @theirparty[3] !=nil
    @theirpartylength = 5 if @theirparty[4] !=nil
    @theirpartylength = 6 if @theirparty[5] !=nil
    for i in 0..@theirpartylength-1
      @spritex[i]= PokemonTradeIcon.new(@theirparty[i].species,@theirparty[i].eggsteps,@theirparty[i].personalID,false,@viewport)
    end
    @spritex[0].x = 284 if @spritex[0] != nil
    @spritex[0].y = 55 if @spritex[0] != nil
    @spritex[1].x = 373 if @spritex[1] != nil
    @spritex[1].y = 55 if @spritex[1] != nil
    @spritex[2].x = 284 if @spritex[2] != nil
    @spritex[2].y = 135 if @spritex[2] != nil
    @spritex[3].x = 373 if @spritex[3] != nil
    @spritex[3].y = 135 if @spritex[3] != nil
    @spritex[4].x = 284 if @spritex[4] != nil
    @spritex[4].y = 235 if @spritex[4] != nil
    @spritex[5].x = 373 if @spritex[5]!= nil
    @spritex[5].y = 235 if @spritex[5] != nil
    @spritex[0].z = 1000005 if @spritex[0] != nil
    @spritex[1].z = 1000005 if @spritex[1] != nil
    @spritex[2].z = 1000005 if @spritex[2] != nil
    @spritex[3].z = 1000005 if @spritex[3] != nil
    @spritex[4].z = 1000005 if @spritex[4] != nil
    @spritex[5].z = 1000005 if @spritex[5] != nil
  end
################################################################################
#-------------------------------------------------------------------------------
#Show's information about your chosen pokemon.
#-------------------------------------------------------------------------------
################################################################################
  def show_information
    @waiting.visible = false
    @info.visible = true
    pkmn = $Trainer.party[@index - 1]
    itemname=pkmn.item==0 ? _INTL("NONE") : PBItems.getName(pkmn.item)
    imagepos = []
    @overlay2.bitmap.clear
    @typebitmap=BitmapCache.load_bitmap(_INTL("Graphics/Pictures/types.png"))
    @sprites["mypokemon"]=SpriteWrapper.new(@viewport)
    @sprites["mypokemon"].bitmap=pbLoadTradeBitmap(pkmn.species,pkmn.eggsteps,pkmn.personalID,pkmn.trainerID)
    @sprites["mypokemon"].mirror = true
    pbPositionPokemonSprite(@sprites["mypokemon"],-10,24)
    @sprites["mypokemon"].z = 1000009
    @sprites["mypokemon"].visible = true
    @chosenpokemon = false
    move0 = pkmn.moves[0].id == 0 ? "--" : PBMoves.getName(pkmn.moves[0].id)
    move1 = pkmn.moves[1].id == 0 ? "--" : PBMoves.getName(pkmn.moves[1].id)
    move2 = pkmn.moves[2].id == 0 ? "--" : PBMoves.getName(pkmn.moves[2].id)
    move3 = pkmn.moves[3].id == 0 ? "--" : PBMoves.getName(pkmn.moves[3].id)
     textpositions = [
 [_INTL("#{pkmn.name}"),40,12,2,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Lv: #{pkmn.level}"),105,0,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("HP: #{pkmn.hp}/#{pkmn.totalhp}"),105,11,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Attack: #{pkmn.attack}"),105,22,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Defense: #{pkmn.defense}"),105,33,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Speed: #{pkmn.speed}"),105,44,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Sp. Att: #{pkmn.spatk}"),105,55,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Sp. Def: #{pkmn.spdef}"),105,66,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Nature: #{PBNatures.getName(pkmn.nature)}"),105,77,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Ability: #{PBAbilities.getName(pkmn.ability)}"),105,88,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 1: #{move0}"),105,99,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 2: #{move1}"),105,110,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 3: #{move2}"),105,121,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 4: #{move3}"),105,132,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Item: #{itemname}"),2,27,0,Color.new(255,255,255),Color.new(0,0,0)],
 ]
  if pkmn.gender==0
    textpositions.push([_INTL("♂"),90,12,false,Color.new(120,184,248),Color.new(0,120,248)])
 elsif pkmn.gender==1
    textpositions.push([_INTL("♀"),90,12,false,Color.new(248,128,128),Color.new(168,24,24)])
 end
  pbSetExtraSmallFont(@overlay2.bitmap)
  pbDrawTextPositions(@overlay2.bitmap,textpositions)
 type1rect=Rect.new(0,pkmn.type1*28,64,28)
 type2rect=Rect.new(0,pkmn.type2*28,64,28)
 @overlay2.bitmap.blt(170,4,@typebitmap,type1rect)
 @overlay2.bitmap.blt(170,4 + 28,@typebitmap,type2rect) if pkmn.type1!=pkmn.type2
 ballimage=sprintf("Graphics/Pictures/ball%02d_0.png",pkmn.ballused)
 imagepos.push([ballimage,-4,124,0,0,-1,-1])
 pbDrawImagePositions(@overlay2.bitmap,imagepos)
 end
################################################################################
#-------------------------------------------------------------------------------
#Display's the user's party.
#-------------------------------------------------------------------------------
################################################################################
def mylist
 textpos = [
 [_INTL("#{$network.username}'s list"),91,14,2,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("#{@username}'s list"),390,14,2,Color.new(255,255,255),Color.new(0,0,0)],
 ]
  @overlay.bitmap.font.name=["Pokemon Emerald Small","Arial Narrow","Arial"]
  pbDrawTextPositions(@overlay.bitmap,textpos)
  if @partysent == false
    #we must serialie the data in order to send the whole class then encode
    #in base 64 (and delete the newline that the packing causes) in order for
    #server not to go beserk (serialised data is binary, server does not understand
    #how to receive this data as it is, encoding in base 64 avoids this)
    party = [Marshal.dump($Trainer.party)].pack("m").delete("\n")
    $network.send("<TRA party="+ party +">")
    @partysent = true
  end
  for i in 0..$Trainer.party.length-1
    @sprite[i] = PokemonTradeIcon.new($Trainer.party[i].species,$Trainer.party[i].eggsteps,$Trainer.party[i].personalID,false,@viewport)
  end
    @sprite[0].x = 31 if @sprite[0] != nil
    @sprite[0].y = 55 if @sprite[0] != nil
    @sprite[1].x = 120 if @sprite[1] != nil
    @sprite[1].y = 55 if @sprite[1] != nil
    @sprite[2].x = 31 if @sprite[2] != nil
    @sprite[2].y = 135 if @sprite[2] != nil
    @sprite[3].x = 120 if @sprite[3] != nil
    @sprite[3].y = 135 if @sprite[3] != nil
    @sprite[4].x = 31 if @sprite[4] != nil
    @sprite[4].y = 235 if @sprite[4] != nil
    @sprite[5].x = 120 if @sprite[5] != nil
    @sprite[5].y = 235 if @sprite[5] != nil
    @sprite[0].z = 1000005 if @sprite[0] != nil
    @sprite[1].z = 1000005 if @sprite[1] != nil
    @sprite[2].z = 1000005 if @sprite[2] != nil
    @sprite[3].z = 1000005 if @sprite[3] != nil
    @sprite[4].z = 1000005 if @sprite[4] != nil
    @sprite[5].z = 1000005 if @sprite[5] != nil
  end

################################################################################
#-------------------------------------------------------------------------------
#Receives the data for the other user's chosen pokemon.
#-------------------------------------------------------------------------------
################################################################################
  def receiveoffer(data)
    @theirchosen = Marshal.load(data.unpack("m")[0]) #decode base 64 and load serialised data
    @received = true
  end
################################################################################
#-------------------------------------------------------------------------------
#Displays the information about the other user's chosen pokemon.
#-------------------------------------------------------------------------------
################################################################################
  def their_info
    @received = false
    @waiting.visible = false
    itemname=@theirchosen.item==0 ? _INTL("NONE") : PBItems.getName(@theirchosen.item)
    @sprites["theirpokemon"].dispose if @sprites["theirpokemon"] != nil
    @sprites["theirpokemon"]=SpriteWrapper.new(@viewport)
    @sprites["theirpokemon"].bitmap=pbLoadTradeBitmap(@theirchosen.species,@theirchosen.eggsteps,@theirchosen.personalID,@theirchosen.trainerID)
    pbPositionPokemonSprite(@sprites["theirpokemon"],368,24)
    @sprites["theirpokemon"].z = 1000009
    @sprites["theirpokemon"].visible = true
    @overlay3.bitmap.clear
    imagepos2 = []
    @typebitmap2=BitmapCache.load_bitmap(_INTL("Graphics/Pictures/types.png"))
    move0x = @theirchosen.moves[0] == 0 ? "--" : PBMoves.getName(@theirchosen.moves[0].id)
    move1x = @theirchosen.moves[1] == 0 ? "--" : PBMoves.getName(@theirchosen.moves[1].id)
    move2x = @theirchosen.moves[2] == 0 ? "--" : PBMoves.getName(@theirchosen.moves[2].id)
    move3x = @theirchosen.moves[3] == 0 ? "--" : PBMoves.getName(@theirchosen.moves[3].id)
    textpositions2 = [
 [_INTL("{1}",@theirchosen.name),440,12,2,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Lv: {1}",@theirchosen.level),257,0,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("HP: {1}/{2}",@theirchosen.hp,@theirchosen.totalhp),257,11,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Attack: {1}",@theirchosen.attack),257,22,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Defense: {1}",@theirchosen.defense),257,33,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Speed: {1}",@theirchosen.speed),257,44,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Sp. Att: {1}",@theirchosen.spatk),257,55,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Sp. Def: {1}",@theirchosen.spdef),257,66,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Nature: {1}",PBNatures.getName(@theirchosen.nature)),257,77,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Ability: {1}",PBAbilities.getName(@theirchosen.ability)),257,88,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 1: {1}",move0x),257,99,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 2: {1}",move1x),257,110,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 3: {1}",move2x),257,121,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Move 4: {1}",move3x),257,132,0,Color.new(255,255,255),Color.new(0,0,0)],
 [_INTL("Item: {1}",itemname),383,27,0,Color.new(255,255,255),Color.new(0,0,0)],
 ]
  if @theirchosen.gender == 0
    textpositions2.push([_INTL("♂"),390,12,false,Color.new(120,184,248),Color.new(0,120,248)])
  elsif @theirchosen.gender == 1
    textpositions2.push([_INTL("♀"),390,12,false,Color.new(248,128,128),Color.new(168,24,24)])
 end
  pbSetExtraSmallFont(@overlay3.bitmap)
  pbDrawTextPositions(@overlay3.bitmap,textpositions2)
 type1rect2=Rect.new(0,(@theirchosen.type1)*28,64,28)
 type2rect2=Rect.new(0,(@theirchosen.type2)*28,64,28)
 @overlay3.bitmap.blt(320,4,@typebitmap2,type1rect2)
 @overlay3.bitmap.blt(320,4 + 28,@typebitmap2,type2rect2) if @theirchosen.type1 != @theirchosen.type2
 ballimage=sprintf("Graphics/Pictures/ball%02d_0.png",@theirchosen.ballused)
 imagepos2.push([ballimage,452,124,0,0,-1,-1])
 pbDrawImagePositions(@overlay2.bitmap,imagepos2)
 if Kernel.pbConfirmMessage(_INTL("Trade your #{$Trainer.party[@index - 1].name} for their #{@theirchosen.name}?"))
   @waiting.visible = true
   $network.send("<TRA accepted>")
   @accepted = true
 else
  trade_declined
   $network.send("<TRA declined>")
  end
end
################################################################################
#-------------------------------------------------------------------------------
#Procedure that is called when the other player declines the trade.
#-------------------------------------------------------------------------------
################################################################################
def trade_declined
  @waiting.visible = false
  @info.visible=false
  @sprites["mypokemon"].dispose
  @sprites["theirpokemon"].dispose
  @overlay2.bitmap.clear
  @overlay3.bitmap.clear
  @pokemonselected = false
  @theirchosen = nil
  @accepted = false
  @received = false
  @listreceived = false
end
################################################################################
#-------------------------------------------------------------------------------
#Excutes the trade, this is where the pokemon chosen is modified to the new one.
#-------------------------------------------------------------------------------
################################################################################
def execute_trade
  @waiting.visible = false
  old = $Trainer.party[@index - 1]
  $Trainer.party[@index - 1] = @theirchosen
  evo=PokemonTradeScene.new
  evo.pbStartScreen(old,@theirchosen,$network.username,@username)
  evo.pbTrade
  evo.pbEndScreen
    $Trainer.seen[@theirchosen.species]=true
  $Trainer.owned[@theirchosen.species]=true

  $network.send("<TRA dead>")
  pbSave
  Kernel.pbMessage("Saved the game!")
  $scene = Connect.new

end

end
################################################################################
#-------------------------------------------------------------------------------
#Other Essentials based classes and methods needed for the scene to function
#-------------------------------------------------------------------------------
################################################################################
class PokemonTradeIcon < SpriteWrapper
 attr_accessor :selected
 attr_accessor :active
 attr_reader :pokemon
 def initialize(pokemon,eggsteps,personalID,active,viewport=nil)
  super(viewport)
  @eggsteps = eggsteps
  @personalID = personalID
  @animbitmap=nil
  @frames=[
   Rect.new(0,0,64,64),
   Rect.new(64,0,64,64)
  ]
  @active=active
  @selected=false
  @animframe=0
  self.pokemon=pokemon
  @frame=0
  @pokemon=pokemon
  @spriteX=self.x
  @spriteY=self.y
  @updating=false
end
def width
  return 300
end
def height
  return 300
  end
 def pokemon=(value)
  @animbitmap.dispose if @animbitmap
  @animbitmap=pbLoadTradeIcon(value,@eggsteps,@personalID)
  self.bitmap=@animbitmap
  self.src_rect=@frames[@animframe]
 end
 def dispose
  @animbitmap.dispose
  super
end
 def update
  @updating=true
  super
  frameskip=5
  if frameskip==-1
    @animframe=0
    self.src_rect=@frames[@animframe]
  else
   @frame+=1
   @frame=0 if @frame>100
   if @frame>=frameskip
    @animframe=(@animframe==1) ? 0 : 1
    self.src_rect=@frames[@animframe]
    @frame=0
   end
 end
   if self.selected
   if !self.active
    self.x=@spriteX+8
    self.y=(@animframe==0) ? @spriteY-6 : @spriteY+2
   else
    self.x=@spriteX
    self.y=(@animframe==0) ? @spriteY+2 : @spriteY+10
   end
 end
 end
 def x=(value)
  super
  @spriteX=value if !@updating
 end
 def y=(value)
  super
  @spriteY=value if !@updating
 end
end

 def pbLoadTradeIcon(pokemon,eggsteps,personalID)
  return BitmapCache.load_bitmap(pbPokemonTradeFile(pokemon,eggsteps,personalID))
 end
 def pbPokemonTradeFile(pokemon,eggsteps,personalID)
  # return sprintf("Graphics/Pictures/ball00.png")

   @pokemon = pokemon.to_i
   @eggsteps = eggsteps.to_i
   @personalID = personalID.to_i
 # if @eggsteps > 1
   # Special case for eggs
 #  return sprintf("Graphics/Pictures/iconEgg.png")
 # end
  if isConst?(@pokemon,PBSpecies,:UNOWN)
   # Special case for Unown
   d=@personalID&3
   d|=((@personalID>>8)&3)<<2
   d|=((@personalID>>16)&3)<<4
   d|=((@personalID>>24)&3)<<6
   d%=28  # index of letter : ABCDEFGHIJKLMNOPQRSTUVWXYZ!?
   filename=sprintf("Graphics/Icons/icon%03d_%02d.png",@pokemon,d)
   begin
    load_data(filename)
    return filename
   rescue Errno::ENOENT, Errno::EACCES, RGSSError
    # File not found, just fall back
   end
  end
  return sprintf("Graphics/Icons/icon%03d.png",pokemon)
end

def pbLoadTradeBitmap(species,eggsteps,personalID,trainerID)
  return pbLoadTradeBitmapSpecies(species,eggsteps,personalID,trainerID)
end

 def pbLoadTradeBitmapSpecies(species,eggsteps,personalID,trainerID)
      return BitmapCache.load_bitmap(
     sprintf("Graphics/Pictures/ball00.png"))
=begin
  if eggsteps.to_i > 0
   return BitmapCache.load_bitmap(
     sprintf("Graphics/Pictures/egg.png"))
  end
  bitmapFileName=sprintf("Graphics/Battlers/%03d%s.png",species,pbcheckShiny(personalID,trainerID) ? "s" : "")
  if isConst?(species,PBSpecies,:SPINDA)
   bitmap=Bitmap.new(bitmapFileName)
   pbTradeSpindaSpots(pokemon,bitmap)
   return bitmap
  elsif isConst?(species,PBSpecies,:UNOWN)
   d=personalID&3
   d|=((personalID>>8)&3)<<2
   d|=((personalID>>16)&3)<<4
   d|=((personalID>>24)&3)<<6
   d%=28 # index of letter : ABCDEFGHIJKLMNOPQRSTUVWXYZ!?
   begin
    # Load special bitmap if found
    # Example: 201b_02 for the letter C
    return BitmapCache.load_bitmap(
      sprintf("Graphics/Battlers/%03d%s_%02d.png",species,
       pbcheckShiny(personalID,trainerID) ? "s" : "",d)
    )
   rescue
    # Load plain bitmap as usual (see below)
   end
 end
  return BitmapCache.load_bitmap(bitmapFileName)
=end
end

def pbSetExtraSmallFont(bitmap)
  bitmap.font.name=["Pokemon Emerald Small","Arial Narrow","Arial"]
  bitmap.font.size=16
end

def pbcheckShiny(personalID,trainerID)
 a=personalID.to_i^trainerID.to_i
 b=a&0xFFFF
 c=(a>>16)&0xFFFF
 d=b^c
 return (d<8)
end