Side-By-Side Battle

module PokeBattle_SceneConstants
  USECOMMANDBOX = true # If true, expects the file Graphics/Pictures/battleCommand.png
  USEFIGHTBOX   = true # If true, expects the file Graphics/Pictures/battleFight.png

  # Text colors
  MESSAGEBASECOLOR        = Color.new(80,80,88)
  MESSAGESHADOWCOLOR      = Color.new(160,160,168)
  MENUBASECOLOR           = MESSAGEBASECOLOR
  MENUSHADOWCOLOR         = MESSAGESHADOWCOLOR
  BOXTEXTBASECOLOR        = Color.new(72,72,72)
  BOXTEXTSHADOWCOLOR      = Color.new(184,184,184)
  PPTEXTBASECOLOR         = MESSAGEBASECOLOR        # More than 1/2 of total PP
  PPTEXTSHADOWCOLOR       = MESSAGESHADOWCOLOR
  PPTEXTBASECOLORYELLOW   = Color.new(248,192,0)    # 1/2 of total PP or less
  PPTEXTSHADOWCOLORYELLOW = Color.new(144,104,0)
  PPTEXTBASECOLORORANGE   = Color.new(248,136,32)   # 1/4 of total PP or less
  PPTEXTSHADOWCOLORORANGE = Color.new(144,72,24)
  PPTEXTBASECOLORRED      = Color.new(248,72,72)    # Zero PP
  PPTEXTSHADOWCOLORRED    = Color.new(136,48,48)

  # HP bar colors
  HPCOLORGREEN        = Color.new(24,192,32)
  HPCOLORGREENDARK    = Color.new(0,144,0)
  HPCOLORYELLOW       = Color.new(248,176,0)
  HPCOLORYELLOWDARK   = Color.new(176,104,8)
  HPCOLORRED          = Color.new(248,88,40)
  HPCOLORREDDARK      = Color.new(168,48,56)

  # Exp bar colors
  EXPCOLORBASE       = Color.new(72,144,248)
  EXPCOLORSHADOW     = Color.new(48,96,216)

  # Position and width of HP/Exp bars
  HPGAUGE_X    = 102
  HPGAUGE_Y    = 40
  HPGAUGESIZE  = 96
  EXPGAUGE_X   = 6
  EXPGAUGE_Y   = 76
  EXPGAUGESIZE = 192

  # Coordinates of the top left of the player's data boxes
  PLAYERBOX_X   = Graphics.width - 530
  PLAYERBOX_Y   = Graphics.height - 390
  PLAYERBOXD1_X = PLAYERBOX_X - 12
  PLAYERBOXD1_Y = PLAYERBOX_Y - 20
  PLAYERBOXD2_X = PLAYERBOX_X
  PLAYERBOXD2_Y = PLAYERBOX_Y + 34

  # Coordinates of the top left of the foe's data boxes
  FOEBOX_X      = 250
  FOEBOX_Y      = 0
  FOEBOXD1_X    = FOEBOX_X + 12
  FOEBOXD1_Y    = FOEBOX_Y - 34
  FOEBOXD2_X    = FOEBOX_X
  FOEBOXD2_Y    = FOEBOX_Y + 20

  # Coordinates of the top left of the player's Safari game data box
  SAFARIBOX_X = Graphics.width - 232
  SAFARIBOX_Y = Graphics.height - 184

  # Coordinates of the party bars and balls of both sides
  # Coordinates are the top left of the graphics except where specified
  PLAYERPARTYBAR_X    = Graphics.width - 248
  PLAYERPARTYBAR_Y    = Graphics.height - 142
  PLAYERPARTYBALL1_X  = PLAYERPARTYBAR_X + 44
  PLAYERPARTYBALL1_Y  = PLAYERPARTYBAR_Y - 30
  PLAYERPARTYBALL_GAP = 32
  FOEPARTYBAR_X       = 248   # Coordinates of end of bar nearest screen middle
  FOEPARTYBAR_Y       = 114
  FOEPARTYBALL1_X     = FOEPARTYBAR_X - 44 - 30   # 30 is width of ball icon
  FOEPARTYBALL1_Y     = FOEPARTYBAR_Y - 30
  FOEPARTYBALL_GAP    = 32   # Distance between centres of two adjacent balls

  # Coordinates of the centre bottom of the player's battler's sprite
  # Is also the centre middle of its shadow
  PLAYERBATTLER_X   = Graphics.width - 390
  PLAYERBATTLER_Y   = Graphics.height - 100
  PLAYERBATTLERD1_X = PLAYERBATTLER_X - 48
  PLAYERBATTLERD1_Y = PLAYERBATTLER_Y
  PLAYERBATTLERD2_X = PLAYERBATTLER_X + 32
  PLAYERBATTLERD2_Y = PLAYERBATTLER_Y + 16

  # Coordinates of the centre bottom of the foe's battler's sprite
  # Is also the centre middle of its shadow
  FOEBATTLER_X      = Graphics.width - 100
  FOEBATTLER_Y      = (Graphics.height * 3/4) - 50
  FOEBATTLERD1_X    = FOEBATTLER_X + 48
  FOEBATTLERD1_Y    = FOEBATTLER_Y
  FOEBATTLERD2_X    = FOEBATTLER_X - 32
  FOEBATTLERD2_Y    = FOEBATTLER_Y - 16

  # Centre bottom of the player's side base graphic
  PLAYERBASEX = PLAYERBATTLER_X
  PLAYERBASEY = PLAYERBATTLER_Y

  # Centre middle of the foe's side base graphic
  FOEBASEX    = FOEBATTLER_X
  FOEBASEY    = FOEBATTLER_Y

  # Coordinates of the centre bottom of the player's sprite
  PLAYERTRAINER_X   = PLAYERBATTLER_X
  PLAYERTRAINER_Y   = PLAYERBATTLER_Y - 16
  PLAYERTRAINERD1_X = PLAYERBATTLERD1_X
  PLAYERTRAINERD1_Y = PLAYERTRAINER_Y
  PLAYERTRAINERD2_X = PLAYERBATTLERD2_X
  PLAYERTRAINERD2_Y = PLAYERTRAINER_Y

  # Coordinates of the centre bottom of the foe trainer's sprite
  FOETRAINER_X      = FOEBATTLER_X
  FOETRAINER_Y      = FOEBATTLER_Y + 6
  FOETRAINERD1_X    = FOEBATTLERD1_X
  FOETRAINERD1_Y    = FOEBATTLERD1_Y + 6
  FOETRAINERD2_X    = FOEBATTLERD2_X
  FOETRAINERD2_Y    = FOEBATTLERD2_Y + 6

  # Default focal points of user and target in animations - do not change!
  FOCUSUSER_X   = 128   # 144
  FOCUSUSER_Y   = 224   # 188
  FOCUSTARGET_X = 384   # 352
  FOCUSTARGET_Y = 96    # 108, 98
end

def pbSendOut(battlerindex,pkmn) # Player sending out Pokémon
    while inPartyAnimation?; end
    balltype=pkmn.ballused
    ballbitmap=sprintf("Graphics/Pictures/ball%02d",balltype)
    pictureBall=PictureEx.new(32)
    delay=1
    pictureBall.moveVisible(delay,true)
    pictureBall.moveName(delay,ballbitmap)
    pictureBall.moveOrigin(delay,PictureOrigin::Center)
    # Setting the ball's movement path
    path=[[0,   146], [10,  134], [21,  122], [30,  112], 
          [39,  104], [46,   99], [53,   95], [61,   93], 
          [68,   93], [75,   96], [82,  102], [89,  111], 
          [94,  121], [100, 134], [106, 150], [111, 166], 
          [116, 183], [120, 199], [124, 216], [127, 238]]
    spriteBall=IconSprite.new(0,0,@viewport)
    spriteBall.visible=false
    angle=0
    multiplier=1.0
    if @battle.doublebattle
      multiplier=(battlerindex==0) ? 0.7 : 1.3
    end

MultipleForms.register(:GROUDON,{
"getPrimalForm"=>proc{|pokemon|
   next 1 if isConst?(pokemon.item,PBItems,:REDORB)# && pokemon.form==0
   next 
},
"getUnprimalForm"=>proc{|pokemon|
   next 0
},
"getPrimalName"=>proc{|pokemon|
   next _INTL("Primal Groudon") if pokemon.form==1
   next
},
"getBaseStats"=>proc{|pokemon|
   next [100,180,160,90,150,90] if pokemon.form==1
   next
},
"type2"=>proc{|pokemon|
   next getID(PBTypes,:FIRE) if pokemon.form==1
   next
},
"ability"=>proc{|pokemon|
   next getID(PBAbilities,:DESOLATELAND) if pokemon.form==1
   next
},
"height"=>proc{|pokemon|
   next 50 if pokemon.form==1
   next
},
"weight"=>proc{|pokemon|
   next 9997 if pokemon.form==1
   next
},
"onSetForm"=>proc{|pokemon,form|
   pbSeenForm(pokemon)
},
"getOffsetY"=>proc{|pokemon|
  next -150 if pokemon.form==1
},
"getOffsetX"=>proc{|pokemon|
  next  50 if pokemon.form==1
}
})