BallSelection v1.3

def pbCallBall(pokemon,level=nil,seeform=true)
@viewport = Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z = 99999
@sprites = {}
@commands=[]
@select=0
@oldsel=0
x=0 ; y=0
@thispocket=$PokemonBag.pockets[3]
@sprites["black"]=Sprite.new(@viewport)
   @sprites["black"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/helpbg")
 @sprites["black"].x=0
 @sprites["black"].y=0
 @sprites["black"].opacity=0
 @sprites["black"].color=Color.new(-255,-255,-255)
for i in [email protected]
@commands.push("#{i}")
 @sprites["balls_#{i}"]=Sprite.new(@viewport)
 @sprites["balls_#{i}"].bitmap=BitmapCache.load_bitmap(sprintf("Graphics/Icons/item%03d",@thispocket[i][0]))
 @sprites["balls_#{i}"].x=36+(x*48)
 @sprites["balls_#{i}"].y=70+(y*48)
 @sprites["balls_#{i}"].opacity=0
  x+=1
  y+=1 if x>8
  x=0 if x>8
  y=0 if y>4
end
 baseColor=Color.new(255,255,255)
 shadowColor=Color.new(12*6,12*6,12*6)
@sprites["overlay"]=BitmapSprite.new(Graphics.width,Graphics.height,@viewport)
pbSetSystemFont(@sprites["overlay"].bitmap)
@sprites["overlay"].opacity=0
overlay=@sprites["overlay"].bitmap
overlay.clear
@adapter=PokemonMartAdapter.new
[email protected](@thispocket[@select][0])
 if pokemon.is_a?(String) || pokemon.is_a?(Symbol)
    pokemon = getID(PBSpecies,pokemon)
  end
pokename=PBSpecies.getName(pokemon)
    textPositions=[
    [_INTL("#{name}"),234,202,0,baseColor,shadowColor],
    [_INTL("Choose the ball for #{pokename}"),84,22,0,baseColor,shadowColor],

    ]
    pbDrawTextPositions(overlay,textPositions)
   @sprites["pokeicon"]=Sprite.new(@viewport)
   @sprites["pokeicon"].bitmap=BitmapCache.load_bitmap(sprintf("Graphics/Icons/icon%03d",pokemon))
 @sprites["pokeicon"].x=22
 @sprites["pokeicon"].y=0
 @sprites["pokeicon"].src_rect.set(0,0,64,64)
 @sprites["pokeicon"].opacity=0
 10.times do
   @sprites["black"].opacity+=15.5
   @sprites["pokeicon"].opacity+=15.5
   @sprites["overlay"].opacity+=25.5
   for i in [email protected]
     @sprites["balls_#{i}"].opacity+=15.5
     end
   pbWait(1)
   end
loop do
  Graphics.update
  Input.update
  @sprites["balls_#{@oldsel}"].opacity=155
  @sprites["balls_#{@select}"].opacity=255
  overlay.clear
  [email protected](@thispocket[@select][0])
    textPositions=[
       [_INTL("#{name}"),234,202,0,baseColor,shadowColor],
       [_INTL("Choose the ball for #{pokename}"),84,22,0,baseColor,shadowColor],
    ]
    pbDrawTextPositions(overlay,textPositions)
  @oldsel=@select
if Input.repeat?(Input::RIGHT)
@select += 1
@select = 0 if @select > @commands.length - 1
pbSEPlay("SE_Select1")
elsif Input.repeat?(Input::LEFT)
@select -= 1
@select = @commands.length - 1 if @select < 0
pbSEPlay("SE_Select1")
elsif Input.repeat?(Input::UP)
@select-=9
@select=0 if @select<0
elsif Input.repeat?(Input::DOWN)
@select+=9
@[email protected] - 1 if @select>[email protected]
elsif Input.trigger?(Input::C)
   10.times do
   @sprites["black"].opacity-=15.5
   @sprites["pokeicon"].opacity-=15.5
   @sprites["overlay"].opacity-=25.5
   for i in [email protected]
     @sprites["balls_#{i}"].opacity-=@sprites["balls_#{i}"].opacity=255 ? 25.5 : 15.5
     end
   pbWait(1)
   end
@sprites["pokeicon"].dispose
@sprites["black"].dispose
poke=PokeBattle_Pokemon.new(pokemon,level,$Trainer)
poke.ballused=pbGetBallType(@thispocket[@select][0])
for i in [email protected]
 @sprites["balls_#{i}"].dispose
end
overlay.dispose
pbAddPokemon(poke,level,seeform)
$PokemonBag.pbDeleteItem(@thispocket[@select][0])
return true
elsif Input.trigger?(Input::B) && $DEBUG
for i in [email protected]
@sprites["balls_#{i}"].dispose
end
overlay.dispose
return false
end
end
end

def pbCallBallSel(pokemon,level=nil,seeform=true)
  if $PokemonBag.pockets[3].length>0
  pbCallBall(pokemon,level,seeform)
else
   Kernel.pbMessage(_INTL("There are no poke ball in your pocket."))
  return false
end
end