#===============================================================================
#  Elite Battle Interface
#    created by Luka S.J.
#
#  a brand new interface for Pokemon Essentials, to be used with the dynamic
#  battle system. Command and Fight windows are not based upon the previous
#  versions. Keep that in mind if you did (or plan to do) any alterations to the
#  interfaces.
#===============================================================================
module PokeBattle_SceneConstants
  if USENEWUI
    MESSAGEBASECOLOR        = Color.new(255,255,255)
    MESSAGESHADOWCOLOR      = Color.new(32,32,32)
    MENUBASECOLOR           = MESSAGEBASECOLOR
    MENUSHADOWCOLOR         = MESSAGESHADOWCOLOR
    BOXTEXTBASECOLOR        = MESSAGEBASECOLOR
    BOXTEXTSHADOWCOLOR      = MESSAGESHADOWCOLOR
    HPGAUGESIZE             = 168
    EXPGAUGESIZE            = 260
  end
end
#===============================================================================
#  Pokemon data battle boxes
#  UI overhaul
#===============================================================================
class PokemonNewDataBox  <  SpriteWrapper
  attr_reader :battler
  attr_accessor :selected
  attr_accessor :appearing
  attr_reader :animatingHP
  attr_reader :animatingEXP

  def initialize(battler,doublebattle,viewport=nil,player=nil)
    view = Viewport.new(viewport.rect.x,viewport.rect.y,viewport.rect.width,viewport.rect.height)
    view.z = viewport.z + 1
    viewport = view
    super(viewport)
    @explevel=0
    @player=player
    @battler=battler
    @doublebattle=doublebattle
    @selected=0
    @frame=0
    @showhp=false
    @showexp=false
    @appearing=false
    @animatingHP=false
    @starthp=0
    @currenthp=0
    @endhp=0
    @expflash=0
    if (@battler.index&1)==0 # if player's Pokémon
      @spritebaseX=34
      @playerpoke=true
    else
      @spritebaseX=16
      @playerpoke=false
    end
    if !doublebattle && @battler.index==0
      @showhp=true
      @showexp=true
    end
    @statuses=pbBitmap("Graphics/Pictures/newStatuses")
    @contents=BitmapWrapper.new(264,78)
    self.bitmap=@contents
    self.visible=false
    self.z=50
    refreshExpLevel
    refresh
  end

  def dispose
    @statuses.dispose
    @contents.dispose
    super
  end

  def refreshExpLevel
    if !@battler.pokemon
      @explevel=0
    else
      growthrate=@battler.pokemon.growthrate
      startexp=PBExperience.pbGetStartExperience(@battler.pokemon.level,growthrate)
      endexp=PBExperience.pbGetStartExperience(@battler.pokemon.level+1,growthrate)
      if startexp==endexp
        @explevel=0
      else
        @explevel=(@battler.pokemon.exp-startexp)*PokeBattle_SceneConstants::EXPGAUGESIZE/(endexp-startexp)
      end
    end
  end

  def exp
    return @animatingEXP ? @currentexp : @explevel
  end

  def hp
    return @animatingHP ? @currenthp : @battler.hp
  end

  def animateHP(oldhp,newhp)
    @starthp=oldhp
    @currenthp=oldhp
    @endhp=newhp
    @animatingHP=true
  end

  def animateEXP(oldexp,newexp)
    @currentexp=oldexp
    @endexp=newexp
    @animatingEXP=true
  end

  def appear
    refreshExpLevel
    refresh
    self.visible=true
    self.opacity=255
  end

  def getBattler(battler)
    return battler.effects[PBEffects::Illusion] if PBEffects.const_defined?(:Illusion) && battler.respond_to?('effects') && !battler.effects[PBEffects::Illusion].nil?
    return battler
  end

  def refresh
    self.bitmap.clear
    return if !@battler.pokemon
    if @playerpoke # Player Pokemon box
      isOutsider=(@battler.pokemon.trainerID!=@player.id || (@battler.pokemon.language!=0 && @battler.pokemon.language!=@player.language))
      y=0; y=1 if isOutsider;
      self.bitmap.blt(22,0,pbBitmap("Graphics/Pictures/bbtrans"),Rect.new(0,0,242,54))
      y=0; y=32 if @doublebattle;
      self.bitmap.blt(0,36,pbBitmap("Graphics/Pictures/exparea"),Rect.new(0,y,262,32))
      self.bitmap.blt(2,32,pbBitmap("Graphics/Pictures/expbar"),Rect.new(0,y*34,self.exp,34)) if !@doublebattle
      self.bitmap.blt(54,40,pbBitmap("Graphics/Pictures/hparea"),Rect.new(0,0,180,16))

      hpGaugeSize=PokeBattle_SceneConstants::HPGAUGESIZE
      hpgauge=@battler.totalhp==0 ? 0 : (self.hp*hpGaugeSize/@battler.totalhp)
      hpgauge=2 if hpgauge==0 && self.hp > 0
      hpzone=0
      hpzone=1 if self.hp <=(@battler.totalhp/2).floor
      hpzone=2 if self.hp <=(@battler.totalhp/3.5).floor
      self.bitmap.blt(54,40,pbBitmap("Graphics/Pictures/hpbars"),Rect.new(0,20*hpzone,6,20)) if self.hp > 0
      self.bitmap.blt(60,40,pbBitmap("Graphics/Pictures/hpbars"),Rect.new(6,20*hpzone,hpgauge,20))
      self.bitmap.blt(60+hpgauge,40,pbBitmap("Graphics/Pictures/hpbars"),Rect.new(174,20*hpzone,6,20)) if self.hp > 0
      y=58; y-=26 if @doublebattle;
      self.bitmap.blt(44,y,@statuses,Rect.new(0,17*(@battler.status-1),52,17)) if @battler.status > 0
      self.bitmap.blt(22,34,pbBitmap("Graphics/Pictures/mega_sym"),Rect.new(0,0,30,30)) if @battler.isMega?
      if INCLUDEGEN6 && @battler.isPrimal?
        path=nil
        path="Graphics/Pictures/battlePrimalAlphaBox.png" if @battler.species==PBSpecies::KYOGRE
        path="Graphics/Pictures/battlePrimalOmegaBox.png" if @battler.species==PBSpecies::GROUDON
        #define any custom Primal graphics here
        self.bitmap.blt(22,34,pbBitmap(path),Rect.new(0,0,30,30))
      end
      self.bitmap.blt(148,52,pbBitmap("Graphics/Pictures/hpind"),Rect.new(0,0,76,22)) if !@doublebattle
      pbSetSmallFont(self.bitmap)
      textpos=[
         ["#{self.hp}/#{@battler.totalhp}",152+34,50,2,Color.new(23,28,31),Color.new(185,185,185)]
      ]
      bitmap.font.name="Press Start"
      bitmap.font.size=16
      #pbDrawTextPositions(self.bitmap,textpos) if !@doublebattle
      pbDrawOutlineText(self.bitmap,102,58,140,16,"#{self.hp}/#{@battler.totalhp}",Color.new(255,255,255),Color.new(0,0,0),2)

      bitmap.font.name="Power Green Small"
      bitmap.font.size=25

      pokename=getBattler(@battler).name
      genderX=self.bitmap.text_size(pokename).width
      genderX+=14+44
      textpos.push([_INTL("Lv{1}",@battler.level),242,5,true,Color.new(255,255,255),Color.new(32,32,32)])
      pbDrawOutlineText(self.bitmap,8+44,10,self.bitmap.text_size(pokename).width,self.bitmap.text_size(pokename).height,pokename,Color.new(255,255,255),Color.new(0,0,0),0)
      if getBattler(@battler).gender==0 # Male
        pbDrawOutlineText(self.bitmap,self.bitmap.text_size(pokename).width+14+44,10,self.bitmap.text_size(pokename).width,self.bitmap.text_size(pokename).height,_INTL("♂"),Color.new(48+30,96+30,216),Color.new(0,0,0),0)
      elsif getBattler(@battler).gender==1 # Female
        pbDrawOutlineText(self.bitmap,self.bitmap.text_size(pokename).width+14+44,10,self.bitmap.text_size(pokename).width,self.bitmap.text_size(pokename).height,_INTL("♀"),Color.new(248,88+30,40+30),Color.new(0,0,0),0)
      end
      pbDrawOutlineText(self.bitmap,170,10,self.bitmap.text_size(pokename).width,self.bitmap.text_size(pokename).height,_INTL("Lv{1}",@battler.level),Color.new(255,255,255),Color.new(0,0,0),1)


    else # Enemy Pokemon box

      self.bitmap.blt(0,0,pbBitmap("Graphics/Pictures/bbtrans_opp"),Rect.new(0,0,242,54))
      y=0; y=32 if @doublebattle;
      self.bitmap.blt(2,36,pbBitmap("Graphics/Pictures/exparea_opp"),Rect.new(0,y,262,32))
      self.bitmap.blt(30,40,pbBitmap("Graphics/Pictures/hparea"),Rect.new(0,0,180,16))

      hpGaugeSize=PokeBattle_SceneConstants::HPGAUGESIZE
      hpgauge=@battler.totalhp==0 ? 0 : (self.hp*hpGaugeSize/@battler.totalhp)
      hpgauge=2 if hpgauge==0 && self.hp > 0
      hpzone=0
      hpzone=1 if self.hp <=(@battler.totalhp/2).floor
      hpzone=2 if self.hp <=(@battler.totalhp/3.5).floor
      self.bitmap.blt(30,40,pbBitmap("Graphics/Pictures/hpbars"),Rect.new(0,20*hpzone,6,20)) if self.hp > 0
      self.bitmap.blt(36,40,pbBitmap("Graphics/Pictures/hpbars"),Rect.new(6,20*hpzone,hpgauge,20))
      self.bitmap.blt(36+hpgauge,40,pbBitmap("Graphics/Pictures/hpbars"),Rect.new(174,20*hpzone,6,20)) if self.hp > 0
      self.bitmap.blt(214,34,pbBitmap("Graphics/Pictures/battleBoxOwned.png"),Rect.new(0,0,14,14)) if @battler.owned
      self.bitmap.blt(212,34,pbBitmap("Graphics/Pictures/mega_sym"),Rect.new(0,0,30,30)) if @battler.isMega?
      if INCLUDEGEN6 && @battler.isPrimal?
        path=nil
        path="Graphics/Pictures/battlePrimalAlphaBox.png" if @battler.species==PBSpecies::KYOGRE
        path="Graphics/Pictures/battlePrimalOmegaBox.png" if @battler.species==PBSpecies::GROUDON
        #define any custom Primal graphics here
        self.bitmap.blt(212,34,pbBitmap(path),Rect.new(0,0,30,30))
      end
      y=58; y-=26 if @doublebattle;
      self.bitmap.blt(20,y,@statuses,Rect.new(0,17*(@battler.status-1),52,17)) if @battler.status > 0
      pbSetSystemFont(self.bitmap)
      pokename=getBattler(@battler).name
      #textpos=[
      #   [pokename,8+20,5,false,Color.new(255,255,255),Color.new(32,32,32)]
      #]

      bitmap.font.name="Power Green Small"
      bitmap.font.size=25

      genderX=self.bitmap.text_size(pokename).width
      genderX+=14+20
      if getBattler(@battler).gender==0 # Male
        #textpos=[[_INTL("♂"),genderX,5,false,Color.new(48+30,96+30,216),Color.new(32,32,32)]]
        pbDrawOutlineText(self.bitmap,self.bitmap.text_size(pokename).width+14+30,10,16,30,_INTL("♂"),Color.new(48+30,96+30,216),Color.new(0,0,0),2)
      elsif getBattler(@battler).gender==1 # Female
        #textpos.push([_INTL("♀"),genderX,5,false,Color.new(248,88+30,40+30),Color.new(32,32,32)])
        pbDrawOutlineText(self.bitmap,self.bitmap.text_size(pokename).width+14+30,10,16,30,_INTL("♂"),Color.new(248,88+30,40+30),Color.new(0,0,0),2)
      end
      #textpos.push([_INTL("Lv{1}",@battler.level),218,5,true,Color.new(255,255,255),Color.new(32,32,32)])
      #pbDrawTextPositions(self.bitmap,textpos)
      pbDrawOutlineText(self.bitmap,8+120,12,self.bitmap.text_size(pokename).width,self.bitmap.text_size(pokename).height,_INTL("Lv{1}",@battler.level),Color.new(255,255,255),Color.new(0,0,0),2)
      pbDrawOutlineText(self.bitmap,8+30,12,self.bitmap.text_size(pokename).width,self.bitmap.text_size(pokename).height,pokename,Color.new(255,255,255),Color.new(0,0,0),2)

    end
  end


  def update
    super
    @frame+=1
    if @animatingHP
      if @currenthp < @endhp
        @currenthp+=[1,(@battler.totalhp/PokeBattle_SceneConstants::HPGAUGESIZE).floor*4].max
        @currenthp=@endhp if @currenthp > @endhp
      elsif @currenthp > @endhp
        @currenthp-=[1,(@battler.totalhp/PokeBattle_SceneConstants::HPGAUGESIZE).floor*4].max
        @currenthp=@endhp if @currenthp < @endhp
      end
      refresh
      @animatingHP=false if @currenthp==@endhp
    end
    if @animatingEXP
      if !@showexp
        @currentexp=@endexp
      elsif @currentexp < @endexp   # Gaining Exp
        if @endexp >=PokeBattle_SceneConstants::EXPGAUGESIZE ||
           @endexp-@currentexp >=PokeBattle_SceneConstants::EXPGAUGESIZE/4
          @currentexp+=4
        else
          @currentexp+=2
        end
        @currentexp=@endexp if @currentexp > @endexp
      elsif @currentexp > @endexp   # Losing Exp
        if @endexp==0 ||
           @currentexp-@endexp >=PokeBattle_SceneConstants::EXPGAUGESIZE/4
          @currentexp-=4
        elsif @currentexp > @endexp
          @currentexp-=2
        end
        @currentexp=@endexp if @currentexp < @endexp
      end
      refresh
      if @currentexp==@endexp
        if @currentexp==PokeBattle_SceneConstants::EXPGAUGESIZE
          if @expflash==0
            pbSEPlay("expfull")
            self.flash(Color.new(64,200,248),8)
            @expflash=8
          else
            @expflash-=1
            if @expflash==0
              @animatingEXP=false
              refreshExpLevel
            end
          end
        else
          @animatingEXP=false
        end
      end
    end
  end
end

class NewSafariDataBox < SpriteWrapper
  attr_accessor :selected
  attr_reader :appearing

  def initialize(battle,viewport=nil)
    view = Viewport.new(viewport.rect.x,viewport.rect.y,viewport.rect.width,viewport.rect.height)
    view.z = viewport.z + 1
    viewport = view
    super(viewport)
    @selected=0
    @battle=battle
    @spriteX=PokeBattle_SceneConstants::SAFARIBOX_X
    @spriteY=PokeBattle_SceneConstants::SAFARIBOX_Y
    @appearing=false
    @contents=BitmapWrapper.new(264,78)
    self.bitmap=@contents
    self.visible=false
    self.z=50
    refresh
  end

  def appear
    refresh
    self.visible=true
    self.opacity=255
  end

  def refresh
    self.bitmap.clear
    self.bitmap.blt(22,0,pbBitmap("Graphics/Pictures/bbtrans"),Rect.new(0,0,242,54))
    self.bitmap.blt(0,36,pbBitmap("Graphics/Pictures/exparea"),Rect.new(0,32,262,32))
    pbSetSystemFont(self.bitmap)
    textpos=[]
    base=PokeBattle_SceneConstants::BOXTEXTBASECOLOR
    shadow=PokeBattle_SceneConstants::BOXTEXTSHADOWCOLOR
    textpos.push([_INTL("Safari Balls:    {1}",@battle.ballcount),54,8,false,base,shadow])
    pbDrawTextPositions(self.bitmap,textpos)
  end

  def update
  end
end
#===============================================================================
#  Command Menu
#  UI ovarhaul
#===============================================================================
class NewCommandWindow
  attr_accessor :index

  def initialize(viewport=nil,battle=nil,safari=false)
    if !viewport.nil?
      view = Viewport.new(viewport.rect.x,viewport.rect.y,viewport.rect.width,viewport.rect.height)
      view.z = viewport.z
      view2 = Viewport.new(viewport.rect.x,viewport.rect.y,viewport.rect.width,viewport.rect.height)
      view2.z = viewport.z + 2
      viewport = view
    end
    @battle=battle
    @safaribattle=safari
    @viewport=viewport
    @viewport2=(viewport.nil?) ? viewport : view2
    @index=0

    @buttonBitmap=pbBitmap("Graphics/Pictures/commandMenuButtons")

    @texts=[
      ["Fight","Bag","Pokemon","Run"],
      ["Ball","Bait","Rock","Call"]
    ]

    @helpText=Sprite.new(@viewport)
    @helpText.bitmap=Bitmap.new(Graphics.width,36)
    @helpText.y=Graphics.height-104
    @helpText.x=Graphics.width+8
    @helpText.z=100
    pbSetSystemFont(@helpText.bitmap)

    @background=Sprite.new(@viewport)
    @background.bitmap=pbBitmap("Graphics/Pictures/newCommandBox")
    @background.y=Graphics.height-68
    @background.z=100

    @bgText=Sprite.new(@viewport)
    @bgText.bitmap=Bitmap.new(512,98)
    @bgText.y=Graphics.height-68
    @bgText.z=110
    pbSetSystemFont(@bgText.bitmap)
    text=[]

    @selHand=Sprite.new(@viewport2)
    @selHand.bitmap=pbBitmap("Graphics/Pictures/selHand")
    @selHand.oy=@selHand.bitmap.height
    @selHand.ox=@selHand.bitmap.width/2
    @selHand.z=150
    @selHand.visible=false
    @animdata=[0.1,0]

    @button={}
    for i in 0...4
      @button["#{i}"]=Sprite.new(@viewport)
      @button["#{i}"].bitmap=@buttonBitmap
      row=(@safaribattle) ? 1 : 0
      row=0 if i==3
      @button["#{i}"].src_rect.set(i*116,row*48,116,48)
      @button["#{i}"].z=120
      @button["#{i}"].x=16+(i*122)
      @button["#{i}"].y=@background.y+12
      text.push(["#{@texts[row][i]}",78+(i*122),40,2,PokeBattle_SceneConstants::MESSAGEBASECOLOR,Color.new(41,71,77)])
    end
    pbDrawTextPositions(@bgText.bitmap,text)
    @bgText.x=@button["#{@index}"].x
    @bgText.src_rect.set((@index*122)+16,0,116,98)
  end

  def visible; end; def visible=(val); end
  def disposed?; end; def dispose; end
  def color; end; def color=(val); end

  def showText
    @helpText.opacity=255
    @helpText.x-=52
  end

  def text=(msg)
    bitmap=pbBitmap("Graphics/Pictures/newBattleMessageSmall")
    balls=pbBitmap("Graphics/Pictures/newPartyBalls")
    @helpText.bitmap.clear
    @helpText.bitmap.blt(0,0,bitmap,Rect.new(0,0,bitmap.width,bitmap.height))
    text=[["#{msg}",bitmap.width/2,2,2,PokeBattle_SceneConstants::MESSAGEBASECOLOR,PokeBattle_SceneConstants::MESSAGESHADOWCOLOR]]
    for i in 0...6
      next if @safaribattle
      o=3
      if i < @battle.party1.length && @battle.party1[i]
        if @battle.party1[i].hp <=0 || @battle.party1[i].isEgg?
          o=2
        elsif @battle.party1[i].status > 0
          o=1
        else
          o=0
        end
      end
      @helpText.bitmap.blt(404+(i*18),18,balls,Rect.new(o*18,0,18,18))
      next if !@battle.opponent
      enemyindex=i
      if @battle.doublebattle && i >=3
        enemyindex=(i%3)+@battle.pbSecondPartyBegin(1)
      end
      o=3
      if enemyindex < @battle.party2.length && @battle.party2[enemyindex]
        if @battle.party2[enemyindex].hp <=0 || @battle.party2[enemyindex].isEgg?
          o=2
        elsif @battle.party2[enemyindex].status > 0
          o=1
        else
          o=0
        end
      end
      @helpText.bitmap.blt(i*18,0,balls,Rect.new(o*18,0,18,18))
    end
    pbDrawTextPositions(@helpText.bitmap,text)
  end

  def show
    @selHand.visible=false
    @background.y-=7
    @bgText.y-=7
    @helpText.y-=7
    for i in 0...4
      @button["#{i}"].y=@background.y+12
    end
  end

  def hide
    @selHand.visible=false
    @background.y+=7
    @bgText.y+=7
    @helpText.y+=7
    @helpText.opacity-=25.5
    for i in 0...4
      @button["#{i}"].y=@background.y+12
    end
    @helpText.x=Graphics.width+8 if @helpText.opacity <=0
  end

  def update
    @selHand.x=@button["#{@index}"].x+58
    @selHand.y=@button["#{@index}"].y
    @selHand.zoom_y-=@animdata[0]
    @selHand.visible=true
    @bgText.x=@button["#{@index}"].x
    @bgText.src_rect.set((@index*122)+16,0,116,98)
    @animdata[0]=-0.1 if @selHand.zoom_y <=0.5
    if @selHand.zoom_y >=1
      @animdata[0]=0
      @animdata[1]+=1
      if @animdata[1] > 14
        @animdata[0]=0.1
        @animdata[1]=0
      end
    end
    for i in 0...4
      if @index==i
        @button["#{i}"].y-=1 if @button["#{i}"].y > @background.y+2
      else
        @button["#{i}"].y+=1 if @button["#{i}"].y < @background.y+12
      end
    end
  end

end

class PokeBattle_Scene

  alias pbCommandMenu_old pbCommandMenu
  def pbCommandMenu(index)
    @orgPos=[@vector.x,@vector.y,@vector.angle,@vector.scale,@vector.zoom1] if @orgPos.nil?
    @idleTimer=0 if @idleTimer < 0
    pbCommandMenu_old(index)
  end

  alias pbCommandMenuEx_old pbCommandMenuEx
  def pbCommandMenuEx(index,texts,mode=0)
    if !USENEWUI
      return pbCommandMenuEx_old(index,texts,mode)
    end
    @ret=0
    clearMessageWindow
    cw=@commandWindow
    name=(@safaribattle) ? $Trainer.name : @battle.battlers[index].name
    cw.text=_INTL("What will {1} do?",name)
    pbSEPlay("SE_Zoom2",50)
    10.times do
      cw.showText
      animateBattleSprites(true)
      pbGraphicsUpdate
    end
    pbSEPlay("SE_Zoom4",50)
    10.times do
      cw.show
      animateBattleSprites(true)
      pbGraphicsUpdate
    end
    pbRefresh
    loop do
      pbGraphicsUpdate
      pbInputUpdate
      animateBattleSprites(true)
      cw.update
      # Update selected command
      if Input.trigger?(Input::LEFT)
        if cw.index > 0
          pbSEPlay("SE_Select1")
          cw.index-=1
        elsif cw.index <=0
          pbSEPlay("SE_Select1")
          cw.index=3
        end
      end
      if Input.trigger?(Input::RIGHT)
        if cw.index < 3
          pbSEPlay("SE_Select1")
          cw.index+=1
        elsif cw.index >=3
          pbSEPlay("SE_Select1")
          cw.index=0
        end
      end
      if Input.trigger?(Input::C)   # Confirm choice
        pbSEPlay("SE_Select2")
        @ret=cw.index
        @lastcmd[index]=@ret
        break
      elsif Input.trigger?(Input::B) && index==2 && @lastcmd[0]!=2 # Cancel
        pbSEPlay("SE_Select2")
        @ret=-1
        break
      end
    end
    10.times do
      cw.hide
      animateBattleSprites(true)
      pbGraphicsUpdate
    end
    if @ret > 0
      @vector.set(VECTOR[0],VECTOR[1],VECTOR[2],VECTOR[3],VECTOR[4],VECTOR[5])
      @vector.inc=0.2
    end
    return @ret
  end

end
#===============================================================================
#  Fight Menu
#  UI ovarhaul
#===============================================================================
class NewFightWindow
  attr_accessor :index
  attr_accessor :battler
  attr_reader :nummoves

  def initialize(viewport=nil)
    if !viewport.nil?
      view = Viewport.new(viewport.rect.x,viewport.rect.y,viewport.rect.width,viewport.rect.height)
      view.z = viewport.z
      view2 = Viewport.new(viewport.rect.x,viewport.rect.y,viewport.rect.width,viewport.rect.height)
      view2.z = viewport.z + 2
      viewport = view
    end
    @viewport=viewport
    @viewport2=(viewport.nil?) ? viewport : view2
    @index=0
    @battler=nil
    @nummoves=0

    @buttonBitmap=pbBitmap("Graphics/Pictures/moveSelButtons")
    @categoryBitmap=pbBitmap("Graphics/Pictures/category")

    @background=Sprite.new(@viewport)
    @background.bitmap=pbBitmap("Graphics/Pictures/newCommandBox")
    @background.y=Graphics.height-98
    @background.z=100


    @selHand=Sprite.new(@viewport2)
    @selHand.bitmap=pbBitmap("Graphics/Pictures/selHand")
    @selHand.oy=@selHand.bitmap.height
    @selHand.ox=@selHand.bitmap.width/2
    @selHand.z=150
    @selHand.visible=false
    @animdata=[0.1,0]

    @arrow1=Sprite.new(@viewport)
    @arrow1.bitmap=pbBitmap("Graphics/Pictures/dirArrow")
    @arrow1.y=@background.y+2
    @arrow1.z=140
    @arrow1.mirror=true
    @arrow1.opacity=0

    @arrow2=Sprite.new(@viewport)
    @arrow2.bitmap=pbBitmap("Graphics/Pictures/dirArrow")
    @arrow2.y=@background.y+2
    @arrow2.z=140
    @arrow2.x=Graphics.width-20
    @arrow2.opacity=0

    @megaButton=Sprite.new(@viewport)
    @megaButton.bitmap=pbBitmap("Graphics/Pictures/megaEvoButton")
    @megaButton.y=252
    @megaButton.x=-16
    @megaButton.z=145
    @megaButton.src_rect.set(0,0,116,48)

    @button={}
    @moved=false
    @showMega=false
    @position=[]
    @alternate=[0,0]

  end

  def generateButtons
    @moves=@battler.moves
    @nummoves=0
    @position.clear
    for i in 0...4
      @button["#{i}"].dispose if @button["#{i}"]
      @button["#{i}_2"].dispose if @button["#{i}_2"]
      @nummoves+=1 if @moves[i] && @moves[i].id > 0
    end
    for i in 0...@moves.length
      @position.push(20+(i*236)-(@index*236))
    end
    if @index==3
      for j in 0...@position.length
        @position[j]+=236
      end
    end
    for i in 0...@nummoves
      movedata=PBMoveData.new(@moves[i].id)
      @button["#{i}"]=Sprite.new(@viewport)
      @button["#{i}"].bitmap=Bitmap.new(214,88)
      pbSetSystemFont(@button["#{i}"].bitmap)
      @button["#{i}"].z=120
      @button["#{i}"].x=@position[i]
      @button["#{i}"].y=@background.y+10
      baseColor=@buttonBitmap.get_pixel(4,32+(@moves[i].type*88))
      shadowColor=@buttonBitmap.get_pixel(20,4+(@moves[i].type*88))
      @button["#{i}"].bitmap.blt(0,0,@buttonBitmap,Rect.new(0,@moves[i].type*88,214,88))
      text=[
        ["#{@moves[i].name}",103,10,2,baseColor,shadowColor],
        ["PP: #{@moves[i].pp}/#{@moves[i].totalpp}",103-18,38,2,baseColor,shadowColor]
      ]
      pbDrawTextPositions(@button["#{i}"].bitmap,text)

      @button["#{i}_2"]=Sprite.new(@viewport)
      @button["#{i}_2"].bitmap=Bitmap.new(214,88)
      @button["#{i}_2"].z=120
      @button["#{i}_2"].x=@position[i]
      @button["#{i}_2"].y=@background.y+10
      @button["#{i}_2"].visible=false
      @button["#{i}_2"].visible=true if @index==i
      @button["#{i}_2"].bitmap.blt(148,58,@categoryBitmap,Rect.new(0,movedata.category*28,64,28))
    end
  end

  def show
    @selHand.visible=false
    @background.y-=10
    @arrow1.y-=10
    @arrow2.y-=10
    for i in 0...@nummoves
      @button["#{i}"].y=@background.y+10 if @button["#{i}"] && !@button["#{i}"].disposed?
      @button["#{i}_2"].y=@background.y+10 if @button["#{i}_2"] && !@button["#{i}_2"].disposed?
    end
  end

  def hide
    @selHand.visible=false
    @background.y+=10
    @megaButton.x-=10
    @arrow1.y+=10
    @arrow2.y+=10
    for i in 0...@nummoves
      @button["#{i}"].y=@background.y+10 if @button["#{i}"] && !@button["#{i}"].disposed?
      @button["#{i}_2"].y=@background.y+10 if @button["#{i}_2"] && !@button["#{i}_2"].disposed?
    end
    @showMega=false
  end

  def megaButton
    @showMega=true
  end

  def megaButtonTrigger
    @megaButton.src_rect.y+=48
    @megaButton.src_rect.y=0 if @megaButton.src_rect.y >=96
  end

  def update
    if @index==0 or @index==1
      @arrow2.opacity+=25.5 if @arrow2.opacity < 255
    elsif @index==2 or @index==3
      @arrow2.opacity-=25.5 if @arrow2.opacity > 0
    end
    if @index==1 or @index==2 or @index==3
      @arrow1.opacity+=25.5 if @arrow1.opacity < 255
    elsif @index==0
      @arrow1.opacity-=25.5 if @arrow1.opacity > 0
    end
    for i in 0...@position.length
      @position[i]=20+(i*236)-(@index*236) if @index < 3
    end
    for i in 0...@nummoves
      @button["#{i}_2"].visible=false
      @button["#{i}_2"].visible=true if @index==i
      if @index==i
        @button["#{i}"].y-=1 if @button["#{i}"].y > @background.y+2
      else
        @button["#{i}"].y+=1 if @button["#{i}"].y < @background.y+10
      end
      distance=@button["#{i}"].x-@position[i]
      @button["#{i}"].x-=distance/2
      @button["#{i}_2"].x=@button["#{i}"].x
      @button["#{i}_2"].y=@button["#{i}"].y
    end
    if @showMega
      @megaButton.x+=10 if @megaButton.x < -16
    end
    @selHand.x=@button["#{@index}"].x+103
    @selHand.y=@button["#{@index}"].y
    @selHand.zoom_y-=@animdata[0]
    @selHand.visible=true
    @animdata[0]=-0.1 if @selHand.zoom_y <=0.5
    if @selHand.zoom_y >=1
      @animdata[0]=0
      @animdata[1]+=1
      if @animdata[1] > 14
        @animdata[0]=0.1
        @animdata[1]=0
      end
    end
  end

end

class PokeBattle_Scene

  alias pbFightMenu_old pbFightMenu
  def pbFightMenu(index)
    if !USENEWUI
      return pbFightMenu_old(index)
    end
    clearMessageWindow
    cw = @fightWindow
    battler=@battle.battlers[index]
    cw.megaButton if @battle.pbCanMegaEvolve?(index)
    cw.battler=battler
    lastIndex=@lastmove[index]
    if battler.moves[lastIndex].id!=0
      cw.index=lastIndex
    else
      cw.index=0
    end
    cw.generateButtons
    pbSelectBattler(index)
    pbSEPlay("SE_Zoom4",50)
    #10.times do
    #  cw.show
    #  moveEntireScene(8,-6)
    #  animateBattleSprites(true)
    #  pbGraphicsUpdate
    #end
    moveUpperRight(cw)
    pbRefresh
    loop do
      pbGraphicsUpdate
      pbInputUpdate
      animateBattleSprites(true)
      cw.update
      # Update selected command
      if Input.trigger?(Input::LEFT) && cw.index > 0
        pbSEPlay("SE_Select1")
        cw.index-=1
      elsif Input.trigger?(Input::RIGHT) &&  cw.index < (cw.nummoves-1)
        pbSEPlay("SE_Select1")
        cw.index+=1
      end
      if Input.trigger?(Input::C)   # Confirm choice
        @ret=cw.index
        pbSEPlay("SE_Select2")
        @lastmove[index]=@ret
        @idleTimer=-1
        break
      elsif Input.trigger?(Input::A)   # Use Mega Evolution
        if @battle.pbCanMegaEvolve?(index)
          @battle.pbRegisterMegaEvolution(index)
          cw.megaButtonTrigger
        pbSEPlay("SE_Select3")
        end
      elsif Input.trigger?(Input::B)   # Cancel fight menu
        @lastmove[index]=cw.index
        pbPlayCancelSE()
        @ret=-1
        break
      end
    end
    if @ret > -1
      @vector.set(VECTOR[0],VECTOR[1],VECTOR[2],VECTOR[3],VECTOR[4],VECTOR[5])
      @orgPos=nil
      @vector.inc=0.2
      @vector.lock
      10.times do
        cw.hide
        wait(1,true)
      end
    else
      moveLowerLeft(cw)
    end
    return @ret
  end

  alias pbChooseTarget_old pbChooseTarget
  def pbChooseTarget(index)
    if !USENEWUI
      return pbChooseTarget_old(index)
    end
    curwindow=pbFirstTarget(index)
    if curwindow==-1
      raise RuntimeError.new(_INTL("No targets somehow..."))
    end
    loop do
      pbGraphicsUpdate
      pbInputUpdate
      pbUpdateSelected(curwindow)
      if Input.trigger?(Input::C)
        pbUpdateSelected(-1)
        @ret=curwindow
        break
      end
      if Input.trigger?(Input::B)
        pbUpdateSelected(-1)
        @ret=-1
        break
      end
      if Input.trigger?(Input::RIGHT) && !(curwindow==3 or curwindow==2)
        pbPlayCursorSE()
        newcurwindow=3 if curwindow==1
        newcurwindow=2 if curwindow==0
        curwindow=newcurwindow if !(newcurwindow==index) && !@battle.battlers[newcurwindow].isFainted?
      elsif Input.trigger?(Input::DOWN) && !(curwindow==0 or curwindow==2)
        pbPlayCursorSE()
        newcurwindow=0 if curwindow==1
        newcurwindow=2 if curwindow==3
        curwindow=newcurwindow if !(newcurwindow==index) && !@battle.battlers[newcurwindow].isFainted?
      elsif Input.trigger?(Input::LEFT) && !(curwindow==1 or curwindow==0)
        pbPlayCursorSE()
        newcurwindow=1 if curwindow==3
        newcurwindow=0 if curwindow==2
        curwindow=newcurwindow if !(newcurwindow==index) && !@battle.battlers[newcurwindow].isFainted?
      elsif Input.trigger?(Input::UP) && !(curwindow==3 or curwindow==1)
        pbPlayCursorSE()
        newcurwindow=3 if curwindow==2
        newcurwindow=1 if curwindow==0
        curwindow=newcurwindow if !(newcurwindow==index) && !@battle.battlers[newcurwindow].isFainted?
      end
      #
      @sprites["shades"].opacity+=15 if @sprites["shades"].opacity < 150
      for i in 0...4
        if @sprites["pokemon#{i}"]
          if index==i or curwindow==i
            increaseTone(@sprites["pokemon#{i}"],-10) if @sprites["pokemon#{i}"].tone.red > 0
          else
            increaseTone(@sprites["pokemon#{i}"],10) if @sprites["pokemon#{i}"].tone.red < 80
          end
        end
      end
      #
    end
    10.times do
     @sprites["shades"].opacity-=15 if @sprites["shades"].opacity > 0
      for i in 0...4
        increaseTone(@sprites["pokemon#{i}"],-10) if @sprites["pokemon#{i}"] && @sprites["pokemon#{i}"].tone.red > 0
      end
      animateBattleSprites(true)
      pbGraphicsUpdate
    end
    return @ret
  end

end

def increaseTone(sprite,amount)
  sprite.tone.red+=amount
  sprite.tone.green+=amount
  sprite.tone.blue+=amount
end
#===============================================================================
#  Command Choices
#  UI ovarhaul
#===============================================================================
class NewChoiceSel
  attr_accessor :index

  def initialize(viewport,commands)
    @commands=commands
    @index=0
    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=viewport.z+5
    @sprites={}
    @sprites["back"]=Sprite.new(@viewport)
    @sprites["back"].bitmap=pbBitmap("Graphics/Pictures/shadeRest")
    @sprites["back"].opacity=0
    bitmap=pbBitmap("Graphics/Pictures/choiceSel")
    baseColor=PokeBattle_SceneConstants::MESSAGEBASECOLOR
    shadowColor=PokeBattle_SceneConstants::MESSAGESHADOWCOLOR
    @sprites["sel"]=Sprite.new(@viewport)
    @sprites["sel"].bitmap=bitmap
    @sprites["sel"].src_rect.set(160,0,160,62)
    @sprites["sel"].y=220
    @sprites["sel"].x=-150
    for i in 0...@commands.length
      @sprites["choice#{i}"]=Sprite.new(@viewport)
      @sprites["choice#{i}"].x=80+(i*192)
      @sprites["choice#{i}"].y=Graphics.height
      @sprites["choice#{i}"].bitmap=Bitmap.new(160,62)
      choice=@sprites["choice#{i}"].bitmap
      pbSetSystemFont(choice)
      choice.blt(0,0,bitmap,Rect.new(0,0,160,62))
      pbDrawOutlineText(choice,0,0,160,62,@commands[i],baseColor,shadowColor,1)
    end
  end

  def dispose(scene)
    5.times do
      @sprites["back"].opacity-=51
      @sprites["sel"].opacity-=51
      for i in 0...@commands.length
        @sprites["choice#{i}"].opacity-=51
      end
      @sprites["choice#{@index}"].y+=2
      scene.animateBattleSprites(true)
      scene.pbGraphicsUpdate
    end
    pbDisposeSpriteHash(@sprites)
    @viewport.dispose
  end

  def update
    @sprites["sel"].x=@sprites["choice#{@index}"].x
    @sprites["back"].opacity+=25.5 if @sprites["back"].opacity < 255
    if Input.trigger?(Input::LEFT)
      pbSEPlay("SE_Select1")
      @index-=1
      @index=@commands.length-1 if @index < 0
      @sprites["choice#{@index}"].src_rect.y+=6
    end
    if Input.trigger?(Input::RIGHT)
      pbSEPlay("SE_Select1")
      @index+=1
      @index=0  if @index >=@commands.length
      @sprites["choice#{@index}"].src_rect.y+=6
    end
    for i in 0...@commands.length
      @sprites["choice#{i}"].src_rect.y-=1 if @sprites["choice#{i}"].src_rect.y > 0
      @sprites["choice#{i}"].y-=(@sprites["choice#{i}"].y-220)*0.4
    end
  end

end
#===============================================================================
#  Battle Bag interface
#  UI ovarhaul
#===============================================================================
class NewBattleBag
  attr_reader :index
  attr_reader :ret

  def pbDisplayMessage(msg)
    @scene.changeMessageViewport(@viewport)
    @scene.pbDisplayMessage(msg)
    @scene.clearMessageWindow
    @scene.changeMessageViewport
  end

  def initialize(scene,viewport)
    @scene=scene
    $lastUsed=0 if $lastUsed.nil?
    @background=Viewport.new(0,0,Graphics.width,Graphics.height)
    @background.z=viewport.z+5
    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=viewport.z+5
    @lastUsed=$lastUsed
    @index=0
    @item=0
    @page=-1
    @selPocket=0
    @ret=nil
    @baseColor=PokeBattle_SceneConstants::MESSAGEBASECOLOR
    @shadowColor=PokeBattle_SceneConstants::MESSAGESHADOWCOLOR


    @sprites={}
    @items={}
    @bitmaps=[pbBitmap("Graphics/Pictures/battleBagChoices"),pbBitmap("Graphics/Pictures/battleBagLast"),pbBitmap("Graphics/Pictures/battleBackButtons")]
    @sprites["back"]=Sprite.new(@background)
    @sprites["back"].bitmap=pbBitmap("Graphics/Pictures/shadeFull")
    @sprites["back"].opacity=0
    @sprites["sel"]=Sprite.new(@viewport)
    @sprites["sel"].x=-216
    @sprites["sel"].y=34
    @sprites["name"]=Sprite.new(@viewport)
    @sprites["name"].bitmap=Bitmap.new(380,44)
    pbSetSystemFont(@sprites["name"].bitmap)
    @sprites["name"].x=-380
    @sprites["name"].y=328
    for i in 0...4
      @sprites["pocket#{i}"]=Sprite.new(@viewport)
      @sprites["pocket#{i}"].bitmap=@bitmaps[0]
      @sprites["pocket#{i}"].src_rect.set(216*i,0,216,92)
      @sprites["pocket#{i}"].x=24+(i%2)*244+((i%2==0) ? -260 : 260)
      @sprites["pocket#{i}"].y=34+(i/2)*118+(i%2)*42
    end
    @sprites["pocket4"]=Sprite.new(@viewport)
    @sprites["pocket4"].bitmap=Bitmap.new(356,60)
    pbSetSystemFont(@sprites["pocket4"].bitmap)
    @sprites["pocket4"].x=24
    @sprites["pocket4"].y=316+80
    self.refresh
    @sprites["pocket5"]=Sprite.new(@viewport)
    @sprites["pocket5"].bitmap=@bitmaps[2]
    @sprites["pocket5"].src_rect.set(0,0,120,52)
    @sprites["pocket5"].x=384
    @sprites["pocket5"].y=320+80
    @sprites["pocket5"].z=5

    @sprites["confirm"]=Sprite.new(@viewport)
    @sprites["confirm"].bitmap=Bitmap.new(466,156)
    pbSetSmallFont(@sprites["confirm"].bitmap)
    @sprites["confirm"].x=26-520
    @sprites["confirm"].y=80
    @sprites["cancel"]=Sprite.new(@viewport)
    @sprites["cancel"].bitmap=pbBitmap("Graphics/Pictures/battleItemConfirm")
    @sprites["cancel"].src_rect.set(466,0,466,72)
    @sprites["cancel"].x=26-520
    @sprites["cancel"].y=234

  end

  def drawPocket(pocket)
    @pocket=[]
    tp=$PokemonBag.pockets[pocket]
    tp=tp+$PokemonBag.pockets[1] if pocket==7
    for i in 0...tp.length
      item=tp[i]
      @pocket.push([item[0],item[1]]) if ItemHandlers.hasUseInBattle(item[0]) || ItemHandlers.hasBattleUseOnPokemon(item[0]) || ItemHandlers.hasBattleUseOnBattler(item[0])
    end
    if @pocket.length < 1
      pbDisplayMessage("You have no usable items in this pocket.")
      return
    end
    @xpos=[]
    @pages=@pocket.length/6
    @pages+=1 if @pocket.length%6 > 0
    @page=0
    @item=0
    @back=false
    @selPocket=pocket
    pbDisposeSpriteHash(@items)
    @pname=pbPocketNames[pocket]
    x=0
    y=0
    for j in 0...@pocket.length
      i=j
      @items["#{j}"]=Sprite.new(@viewport)
      @items["#{j}"].bitmap=Bitmap.new(216,92)
      pbSetSystemFont(@items["#{j}"].bitmap)
      @items["#{j}"].bitmap.blt(0,0,@bitmaps[0],Rect.new(216*5,0,216,92))
      @items["#{j}"].bitmap.blt(156,32,pbBitmap(sprintf("Graphics/Icons/item%03d",@pocket[i][0])),Rect.new(0,0,48,48))
      pbDrawOutlineText(@items["#{j}"].bitmap,8,8,200,38,"#{PBItems.getName(@pocket[i][0])}",@baseColor,@shadowColor,1)
      pbDrawOutlineText(@items["#{j}"].bitmap,8,46,200,38,"x#{@pocket[i][1]}",@baseColor,@shadowColor,1)

      @items["#{j}"].x=28+x*246+(i/6)*512+512
      @xpos.push(@items["#{j}"].x-512)
      @items["#{j}"].y=28+y*90
      @items["#{j}"].opacity=255
      x+=1
      y+=1 if x > 1
      x=0 if x > 1
      y=0 if y > 2
    end
  end

  def name
    bitmap=@sprites["name"].bitmap
    bitmap.clear
    bitmap.blt(0,0,pbBitmap("Graphics/Pictures/battleLastItem"),Rect.new(0,0,320,44))
    pbDrawOutlineText(bitmap,0,0,320,36,@pname,@baseColor,@shadowColor,1)
    pbDrawOutlineText(bitmap,300,0,80,36,"#{@page+1}/#{@pages}",@baseColor,@shadowColor,1)
    @sprites["name"].x+=38 if @sprites["name"].x < 0
  end

  def updatePocket
    @page=@item/6
    self.name
    for i in 0...@pocket.length
      @items["#{i}"].x-=(@items["#{i}"].x-(@xpos[i]-@page*512))*0.2
      @items["#{i}"].src_rect.y-=1 if @items["#{i}"].src_rect.y > 0
    end
    if @back
      @sprites["sel"].bitmap=@bitmaps[2]
      @sprites["sel"].src_rect.set(120*2,0,120,52)
      @sprites["sel"].x=@sprites["pocket5"].x
      @sprites["sel"].y=@sprites["pocket5"].y
    else
      @sprites["sel"].bitmap=@bitmaps[0]
      @sprites["sel"].src_rect.set(216*4,0,216,92)
      @sprites["sel"].x=@items["#{@item}"].x
      @sprites["sel"].y=@items["#{@item}"].y
    end
    @sprites["pocket5"].src_rect.y-=1 if @sprites["pocket5"].src_rect.y > 0
    if Input.trigger?(Input::LEFT) && !@back
      pbSEPlay("SE_Select1")
      if ![0,2,4].include?(@item)
        if @item%2==0
          @item-=5
        else
          @item-=1
        end
      else
        @item-=1 if @item < 0
      end
      @item=0 if @item < 0
      @items["#{@item}"].src_rect.y+=6
    end
    if Input.trigger?(Input::RIGHT) && !@back
      pbSEPlay("SE_Select1")
      if @page < (@pocket.length)/6
        if @item%2==1
          @item+=5
        else
          @item+=1
        end
      else
        @item+=1 if @item < @pocket.length-1
      end
      @item=@pocket.length-1 if @item > @pocket.length-1
      @items["#{@item}"].src_rect.y+=6
    end
    if Input.trigger?(Input::UP)
      pbSEPlay("SE_Select1")
      if @back
        @item+=4 if (@item%6) < 2
        @back=false
      else
        @item-=2
        if (@item%6) > 3
          @item+=6
          @back=true
        end
      end
      @item=0 if @item < 0
      @item=@pocket.length-1 if @item > @pocket.length-1
      @items["#{@item}"].src_rect.y+=6 if !@back
      @sprites["pocket5"].src_rect.y+=6 if @back
    end
    if Input.trigger?(Input::DOWN)
      pbSEPlay("SE_Select1")
      if @back
        @item-=4 if (@item%6) > 3
        @back=false
      else
        @item+=2
        if (@item%6) < 2
          @item-=6
          @back=true
        end
        @back=true if @item > @pocket.length-1
      end
      @item=@pocket.length-1 if @item > @pocket.length-1
      @item=0 if @item < 0
      @items["#{@item}"].src_rect.y+=6 if !@back
      @sprites["pocket5"].src_rect.y+=6 if @back
    end
    if (@back && Input.trigger?(Input::C)) || Input.trigger?(Input::B)
      pbSEPlay("SE_Select3")
      @selPocket=0
      @page=-1
      @back=false
      @doubleback=true
    end
  end

  def closeCurrent
    @selPocket=0
    @page=-1
    @back=false
    @ret=nil
    self.refresh
  end

  def show
    @ret=nil
    self.refresh
    for i in 0...6
      @sprites["pocket#{i}"].opacity=255
    end
    @sprites["pocket4"].y=316+80
    @sprites["pocket5"].y=320+80
    pbSEPlay("SE_Zoom4")
    10.times do
      for i in 0...4
        @sprites["pocket#{i}"].x+=((i%2==0) ? 26 : -26)
      end
      for i in 4...6
        @sprites["pocket#{i}"].y-=8
      end
      @sprites["back"].opacity+=25.5
      @scene.animateBattleSprites(true)
      @scene.pbGraphicsUpdate
    end
  end

  def hide
    @sprites["sel"].x=Graphics.width
    10.times do
      for i in 0...4
        @sprites["pocket#{i}"].x-=((i%2==0) ? 26 : -26)
      end
      for i in 4...6
        @sprites["pocket#{i}"].y+=8
      end
      if @pocket
        for i in 0...@pocket.length
          @items["#{i}"].opacity-=25.5
        end
      end
      @sprites["name"].x-=38
      @sprites["back"].opacity-=25.5
      @scene.animateBattleSprites(true)
      @scene.pbGraphicsUpdate
    end
  end

  def useItem?
    Input.update
    bitmap=@sprites["confirm"].bitmap
    bitmap.clear
    bitmap.blt(0,0,pbBitmap("Graphics/Pictures/battleItemConfirm"),Rect.new(0,0,466,156))
    bitmap.blt(20,30,pbBitmap(sprintf("Graphics/Icons/item%03d",@ret)),Rect.new(0,0,48,48))
    drawTextEx(bitmap,80,12,364,3,pbGetMessage(MessageTypes::ItemDescriptions,@ret),@shadowColor,Color.new(200,200,200))
    @sprites["sel"].bitmap=pbBitmap("Graphics/Pictures/battleItemConfirm")
    @sprites["sel"].x=Graphics.width
    @sprites["sel"].src_rect.width=466
    10.times do
      @sprites["confirm"].x+=52
      @sprites["cancel"].x+=52
      if @pocket
        for i in 0...@pocket.length
          @items["#{i}"].opacity-=25.5
        end
      end
      for i in 0...4
        @sprites["pocket#{i}"].opacity-=51 if @sprites["pocket#{i}"].opacity > 0
      end
      @sprites["pocket4"].y+=8 if @sprites["pocket4"].y < 316+80
      @sprites["pocket5"].y+=8 if @sprites["pocket5"].y < 400
      @sprites["name"].x-=38
      @scene.animateBattleSprites
      @scene.pbGraphicsUpdate
    end
    @sprites["name"].x=-380
    index=0
    choice=(index==0) ? "confirm" : "cancel"
    loop do
      @sprites["sel"].x=@sprites["#{choice}"].x
      @sprites["sel"].y=@sprites["#{choice}"].y
      @sprites["sel"].src_rect.x=(466*(index+2))
      @sprites["#{choice}"].src_rect.y-=1 if @sprites["#{choice}"].src_rect.y > 0
      if Input.trigger?(Input::UP)
        pbSEPlay("SE_Select1")
        index-=1
        index=1 if index < 0
        choice=(index==0) ? "confirm" : "cancel"
        @sprites["#{choice}"].src_rect.y+=6
      end
      if Input.trigger?(Input::DOWN)
        pbSEPlay("SE_Select1")
        index+=1
        index=0 if index > 1
        choice=(index==0) ? "confirm" : "cancel"
        @sprites["#{choice}"].src_rect.y+=6
      end
      if Input.trigger?(Input::C)
        pbSEPlay("SE_Select2")
        break
      end
      Input.update
      @scene.animateBattleSprites
      @scene.pbGraphicsUpdate
    end
    @sprites["sel"].x=Graphics.width
    self.refresh
    10.times do
      @sprites["confirm"].x-=52
      @sprites["cancel"].x-=52
      @sprites["pocket5"].y-=8 if index > 0
      @scene.animateBattleSprites
      @scene.pbGraphicsUpdate
    end
    if index > 0
      @ret=nil
      return false
    else
      @index=0 if @index==4 && @lastUsed==0
      return true
    end
  end

  def finish
    if (Input.trigger?(Input::B) || (Input.trigger?(Input::C) && @index==5)) && @selPocket==0 && !@doubleback
      pbSEPlay("SE_Select3")
      return true
    end
    @doubleback=false
    return false
  end

  def refresh
    bitmap=@sprites["pocket4"].bitmap
      bitmap.clear
    i=(@lastUsed > 0 ? 1 : 0)
    text=["","#{PBItems.getName(@lastUsed)}"]
    bitmap.blt(0,0,@bitmaps[1],Rect.new(i*356,0,356,60))
    bitmap.blt(28,6,pbBitmap(sprintf("Graphics/Icons/item%03d",@lastUsed)),Rect.new(0,0,48,48)) if @lastUsed>0
    pbDrawOutlineText(bitmap,0,0,356,60,text[i],@baseColor,@shadowColor,1)
  end

  def update
    if @selPocket==0
      updateMain
      for i in 0...4
        @sprites["pocket#{i}"].opacity+=51 if @sprites["pocket#{i}"].opacity < 255
      end
      @sprites["pocket4"].y-=8 if @sprites["pocket4"].y > 316
      if @pocket
        for i in 0...@pocket.length
          @items["#{i}"].opacity-=51 if @items["#{i}"] && @items["#{i}"].opacity > 0
        end
      end
      @sprites["name"].x-=38 if @sprites["name"].x > -380
    else
      if Input.trigger?(Input::C) && !@back
        pbSEPlay("SE_Select2")
        @selPocket=0
        @page=-1
        @lastUsed=0
        @lastUsed=@pocket[@item][0] if @pocket[@item][1] > 1
        $lastUsed=@lastUsed
        @ret=@pocket[@item][0]
      end
      updatePocket
      for i in 0...4
        @sprites["pocket#{i}"].opacity-=51 if @sprites["pocket#{i}"].opacity > 0
      end
      @sprites["pocket4"].y+=8 if @sprites["pocket4"].y < 316+80
      for i in 0...@pocket.length
        @items["#{i}"].opacity+=51 if @items["#{i}"] && @items["#{i}"].opacity < 255
      end
    end
  end

  def updateMain
    if @index < 4
      @sprites["sel"].bitmap=@bitmaps[0]
      @sprites["sel"].src_rect.set(216*4,0,216,92)
    elsif @index==4
      @sprites["sel"].bitmap=@bitmaps[1]
      @sprites["sel"].src_rect.set(356*2,0,356,60)
    else
      @sprites["sel"].bitmap=@bitmaps[2]
      @sprites["sel"].src_rect.set(120*2,0,120,52)
    end
    @sprites["sel"].x=@sprites["pocket#{@index}"].x
    @sprites["sel"].y=@sprites["pocket#{@index}"].y
    if Input.trigger?(Input::LEFT)
      pbSEPlay("SE_Select1")
      @index-=1
      @index+=2 if @index%2==1
      @index=3 if @index==4 && !(@lastUsed > 0)
      @sprites["pocket#{@index}"].src_rect.y+=6
    end
    if Input.trigger?(Input::RIGHT)
      pbSEPlay("SE_Select1")
      @index+=1
      @index-=2 if @index%2==0
      @index=2 if @index==4 && !(@lastUsed > 0)
      @sprites["pocket#{@index}"].src_rect.y+=6
    end
    if Input.trigger?(Input::UP)
      pbSEPlay("SE_Select1")
      @index-=2
      @index+=6 if @index < 0
      @index=5 if @index==4 && !(@lastUsed > 0)
      @sprites["pocket#{@index}"].src_rect.y+=6
    end
    if Input.trigger?(Input::DOWN)
      pbSEPlay("SE_Select1")
      @index+=2
      @index-=6 if @index > 5
      @index=5 if @index==4 && !(@lastUsed > 0)
      @sprites["pocket#{@index}"].src_rect.y+=6
    end
    for i in 0...6
      @sprites["pocket#{i}"].src_rect.y-=1 if @sprites["pocket#{i}"].src_rect.y > 0
    end
    if Input.trigger?(Input::C) && !@doubleback && @index < 5
      pbSEPlay("SE_Select2")
      if @index < 4
        cmd=[2,3,5,7]
        self.drawPocket(cmd[@index])
      else
        @selPocket=0
        @page=-1
        @ret=@lastUsed
        @lastUsed=0 if !($PokemonBag.pbQuantity(@lastUsed) > 1)
      end
    end
  end

end

class PokeBattle_Scene
  alias pbItemMenu_old pbItemMenu
  def pbItemMenu(index)
    @idleTimer=-1
    @vector.set(VECTOR[0],VECTOR[1],VECTOR[2],VECTOR[3],VECTOR[4],VECTOR[5])
    @vector.inc=0.2
    Input.update
    return pbItemMenu_old(index) if !USENEWUI
    ret=0
    retindex=-1
    pkmnid=-1
    @bagWindow.show
    loop do
      break if @bagWindow.finish
      Input.update
      @bagWindow.update
      if !@bagWindow.ret.nil? && @bagWindow.useItem?
        item=@bagWindow.ret
        usetype=$ItemData[item][ITEMBATTLEUSE]
        if usetype==1 || usetype==3
          modparty=[]
          for i in 0...6
            modparty.push(@battle.party1[@battle.partyorder[i]])
          end
          pkmnlist=PokemonScreen_Scene.new
          pkmnlist.addPriority=true
          pkmnscreen=PokemonScreen.new(pkmnlist,modparty)
          pkmnscreen.pbStartScene(_INTL("Use on which Pokémon?"),@battle.doublebattle)
          activecmd=pkmnscreen.pbChoosePokemon
          pkmnid=@battle.partyorder[activecmd]
          if activecmd>=0 && pkmnid>=0 && ItemHandlers.hasBattleUseOnPokemon(item)
            pkmnlist.pbEndScene
            ret=item
            retindex=pkmnid
            break
          end
          pkmnlist.pbEndScene
          @bagWindow.closeCurrent
          #itemscene.pbStartScene($PokemonBag)
        elsif usetype==2 || usetype==4
          if ItemHandlers.hasBattleUseOnBattler(item)
            ret=item
            retindex=index
            break
          end
        end
      end
      animateBattleSprites
      pbGraphicsUpdate
    end
    @bagWindow.hide
    pbConsumeItemInBattle($PokemonBag,ret) if ret > 0
    return [ret,retindex]
  end
end

class PokemonScreen_Scene
  attr_accessor :addPriority
  def pbStartScene(party,starthelptext,annotations=nil,multiselect=false)
    @sprites={}
    @party=party
    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=99999
    @viewport.z+=6 if @addPriority
    @multiselect=multiselect
    addBackgroundPlane(@sprites,"partybg","partybg",@viewport)
    @sprites["messagebox"]=Window_AdvancedTextPokemon.new("")
    @sprites["helpwindow"]=Window_UnformattedTextPokemon.new(starthelptext)
    @sprites["messagebox"].viewport=@viewport
    @sprites["messagebox"].visible=false
    @sprites["messagebox"].letterbyletter=true
    @sprites["helpwindow"].viewport=@viewport
    @sprites["helpwindow"].visible=true
    pbBottomLeftLines(@sprites["messagebox"],2)
    pbBottomLeftLines(@sprites["helpwindow"],1)
    pbSetHelpText(starthelptext)
    # Add party Pokémon sprites
    for i in 0...6
      if @party[i]
        @sprites["pokemon#{i}"]=PokeSelectionSprite.new(
           @party[i],i,@viewport)
      else
        @sprites["pokemon#{i}"]=PokeSelectionPlaceholderSprite.new(
           @party[i],i,@viewport)
      end
      if annotations
        @sprites["pokemon#{i}"].text=annotations[i]
      end
    end
    if @multiselect
      @sprites["pokemon6"]=PokeSelectionConfirmSprite.new(@viewport)
      @sprites["pokemon7"]=PokeSelectionCancelSprite2.new(@viewport)
    else
      @sprites["pokemon6"]=PokeSelectionCancelSprite.new(@viewport)
    end
    # Select first Pokémon
    @activecmd=0
    @sprites["pokemon0"].selected=true
    pbFadeInAndShow(@sprites) { update }
  end
end