[Archive] Pokemon Essentials: Starter Kit for RPG Maker XP

Page 1:

#Make an event so everything runs. I called it Elm Event 4
Conditions: Elm Event 4 Is On
Trigger: Event Touch

Script:Kernel.pbNoticePlayer(get_character(0))
Wait: 15 Frames
Set Movement Route: Player, Turn right,
Set Movement Route: Rival, Move Left, Move Left, Move Left, Move Left, Move Left, Move Left
Wait For Moves Completion
Text: ..... ..... .....
Text: You got a pokemon at the lab.
Text: What a waste a wimp like you.
Text: Don't you get what i'm saying?
Text: Well, I too, have a good pokemon.
Text: I'll show you what I mean!
Control Self Switch A = ON
Page 2: 

Conditions: Self Switch A is ON
Trigger: Autorun

Comment: Rival Choice 1 switch = Totodile
Conditional Branch: Switch [042: Rival Choice 1] == ON
Conditional Branch: Script: pbTrainerBattle(PBTrainers::RIVAL,"?????",_I("Humph. Are you happy you won?"),false,1)
Branch End
Branch End
Control Self Switch B = ON

Comment: Rival Choice 2 switch = Chikorita
Conditional Branch: Switch [043: Rival Choice 2] == ON
Conditional Branch: Script: pbTrainerBattle(PBTrainers::RIVAL,"?????",_I("Humph. Are you happy you won?"),false,2)
Branch End
Branch End
Control Self Switch B = ON

Comment: Rival Choice 3 switch = Cyndaquil
Conditional Branch Switch [044: Rival Choice 3] == ON
Conditional Branch: Script: pbTrainerBattle(PBTrainers::RIVAL,"?????",_I("Humph. Are you happy you won?"),false,3)
Branch End
Branch End
Control Self Switch B = ON

Page 3:
Text: ..... ..... .....
My names ?????.
Text: I'm going to be the worlds greatest pokemon trainer.
Set Movement Route: Player, Move Down, Turn Up, Turn Left
# Elm event 5 is for the event where you name your rival in professor elm's lab

Set Movement Route: Rival, Move Up, Move Left, Move Left, Move Left, Move Up, Move Left, Move Left, Move Left, Move Left, Move Left, Move Left, Switch Elm Event 4 OFF, Switch Elm Event 5 ON
Wait: 60 Frames
Erase Event
 Control Self Switch C = ON
Page 4:

Conditions: Self Switch C is ON
Trigger: Action Button
#Blank event with self switch c as a trigger to prevent event from looping.

Comment: Rival Choice 1 switch = Totodile
Conditional Branch: Switch [042: Rival Choice 1] == ON
  Conditional Branch: Script: pbTrainerBattle(PBTrainers::RIVAL,"?????",_I("Humph. Are you happy you won?"),false,1)
    Comment:  If won
    Control Self Switch B = ON   
  Else
    Comment:  If lost
    Control Self Switch B = OFF
    Control Self Switch A = OFF
    Exit Event Processing
  Branch End
Branch End

def fullname
 if self.trainerTypeName=="RIVAL" && $game_variables[30]!=0
  return _INTL("{1} {2}",self.trainerTypeName,$game_variables[30])
 else
  return _INTL("{1} {2}",self.trainerTypeName,@name)
 end
end

def pbLoadTrainerData(trainerid,trainername,partyid=0)
 ret=nil
 trainers=load_data("Data/trainers.dat")
 for trainer in trainers
   if trainer[0]=="RIVAL" && $game_variables[30]!=0
    name=$game_variables[30]
   else
    name=trainer[1]
   end
   thistrainerid=trainer[0]
   thispartyid=trainer[4]
   if trainerid==thistrainerid && name==trainername && partyid==thispartyid
     ret=trainer
     break
   end
 end
 return ret
end

Script: pbTextEntry("Your rival's 
        name?",0,7,30)

     # If a participant is holding Amulet Coin, money earned is doubled
     for i in 0...6
      if @participants[i] && @party1[i].hp>0 && !@party1[i].egg? && @party1[i].item==PBItems::AMULETCOIN
       maxlevel*=2
       break
      end
     end
     self.pbPlayer.money+=maxlevel
     self.pbPlayer.money=999999 if self.pbPlayer.money>999999
     [color=red]pbDisplayPaused(_INTL("{1} got ${2} for winning!",self.pbPlayer.name,maxlevel))[/color]
    end
   end
   if @internalbattle && @moneygained>0
    pbDisplayPaused(_INTL("{1} picked up ${2}!",self.pbPlayer.name,moneygained))      
    self.pbPlayer.money+=moneygained
    self.pbPlayer.money=999999 if self.pbPlayer.money>999999

     # If a participant is holding Amulet Coin, money earned is doubled
     for i in 0...6
      if @participants[i] && @party1[i].hp>0 && !@party1[i].egg? && @party1[i].item==PBItems::AMULETCOIN
       maxlevel*=2
       break
      end
    end
    pbDisplayPaused(_INTL("{1} got ${2} for winning!",self.pbPlayer.name,maxlevel))
     if $game_switches[30]==true
       $game_variables[31]+=maxlevel*0.3
       maxlevel*=0.7
       pbDisplayPaused(_INTL("Sent some to Mom!"))
     end
     self.pbPlayer.money+=maxlevel
     self.pbPlayer.money=999999 if self.pbPlayer.money>999999

def pbPrepareWindow(window)
 window.visible=true
 window.letterbyletter=false
 window.baseColor=Color.new(72,72,72)
 window.shadowColor=Color.new(208,208,208)
end
def pbBankUse(helptext,mode)
 maximum=0
 if mode==0 #Deposit
   maximum=$Trainer.money
 else # Withdraw
   maximum=$game_variables[31]
 end
 curnumber=0
 amount=0
 helpwindow=Window_SimpleTextPokemon.new(helptext)
 helpwindow.visible=false
 helpwindow.viewport=@viewport
 pbPrepareWindow(helpwindow)
 using(numwindow=Window_SimpleTextPokemon.new(_INTL("000000"))){
   pbPrepareWindow(numwindow)
   numwindow.viewport=@viewport
   pbBottomRight(numwindow)
   numwindow.resizeToFit(numwindow.text,480)
   numwindow.text=_ISPRINTF("{1:06d}",curnumber)
   numwindow.y-=helpwindow.height
   loop do
     Graphics.update
     Input.update
     numwindow.update
     helpwindow.update
     if Input.repeat?(Input::LEFT)
      curnumber-=10
      curnumber=0 if curnumber<0
      numwindow.text=_ISPRINTF("{1:06d}",curnumber)
     elsif Input.repeat?(Input::RIGHT)
      curnumber+=10
      curnumber=maximum if curnumber>maximum
      numwindow.text=_ISPRINTF("{1:06d}",curnumber)
     elsif Input.repeat?(Input::UP)
      curnumber+=1
      curnumber=0 if curnumber>maximum
      numwindow.text=_ISPRINTF("{1:06d}",curnumber)
     elsif Input.repeat?(Input::DOWN)
      curnumber-=1
      curnumber=maximum if curnumber<1
      numwindow.text=_ISPRINTF("{1:06d}",curnumber)
     elsif Input.trigger?(Input::C)
      amount=curnumber
      break
     elsif Input.trigger?(Input::B)
      amount=0
      break
     end     
  end
 }
 helpwindow.visible=false
 amount=-amount if mode==0 # Deposit
 $Trainer.money+=amount
 $game_variables[31]-=amount
end