Custom trainer battles

Stochastic · Mar 10, 2014

This is the script I made that enables you to make custom trainer battles without editing the trainers
PBS file.

How to use
Make a new script in the script editor, name it however you like, say CustomTrainers
and copy and paste this code inside.

Spoiler:

Code:

# ------------------------------------------------------------------------------
# Written by Stochastic, except for customTrainerBattle method which is a
# modified version of pbTrainerBattle method.
# ------------------------------------------------------------------------------

BR_DRAW = 5
BR_LOSS = 2
BR_WIN = 1

# ------------------------------------------------------------------------------
# species - Name of the species, e.g. "PIKACHU"
# level - Level
# moveset - Optional. Array of moves, e.g. [:MUDSLAP, :THUNDERBOLT, :VINEWHIP]
# If not specified, pokemon will be created with moves learned by leveling.
# The pokemon doesn't need to be able to learn the given moves, they can be
# arbitary.
# ------------------------------------------------------------------------------
def createPokemon(species, level, moveset=nil)
  begin
    poke = PokeBattle_Pokemon.new(species, level)
    poke.moves = convertMoves(moveset) if moveset
    poke.shinyflag = false
    return poke
  rescue
    return PokeBattle_Pokemon.new("PIKACHU", 5)
  end
end

def convertMoves(moves)
  moves.map! {|m| PBMove.new(getMoveID(m))}
  return moves
end

# provide move like this; :TACKLE
def getMoveID(move)
  return getConst(PBMoves,move)
end

# ------------------------------------------------------------------------------
# Creates a trainer with specified id, name, party, and optionally, items.
# Does not depend on defined trainers, only on trainer types
# ------------------------------------------------------------------------------
def createTrainer(trainerid,trainername,party,items=[])
  
  name = pbGetMessageFromHash(MessageTypes::TrainerNames, trainername)
  opponent = PokeBattle_Trainer.new(name, trainerid)
  opponent.setForeignID($Trainer) if $Trainer
  opponent.party = party
  
  return [opponent,items,party]
end

# ------------------------------------------------------------------------------
# Initiates trainer battle. This is a modified pbTrainerBattle method.
#
# trainer - custom PokeBattle_Trainer provided by the user
# endspeech - what the trainer says in-battle when defeated
# doublebattle - Optional. Set it to true if you want a double battle
# canlose - Optional. Set it to true if you want your party to be healed after battle,
and if you don't want to be sent to a pokemon center if you lose
# ------------------------------------------------------------------------------
def customTrainerBattle(trainer,endspeech,doublebattle=false,canlose=false)
  trainerparty=0 # added by SH
  if $Trainer.pokemonCount==0
    Kernel.pbMessage(_INTL("SKIPPING BATTLE...")) if $DEBUG
    return BR_LOSS # changed by SH
  end
  if !$PokemonTemp.waitingTrainer && $Trainer.ablePokemonCount>1 &&
     pbMapInterpreterRunning?
    thisEvent=pbMapInterpreter.get_character(0)
    triggeredEvents=$game_player.pbTriggeredTrainerEvents([2],false)
    otherEvent=[]
    for i in triggeredEvents
      if i.id!=thisEvent.id && !$game_self_switches[[$game_map.map_id,i.id,"A"]]
        otherEvent.push(i)
      end
    end
    if otherEvent.length==1
      if trainer[2].length<=3
        $PokemonTemp.waitingTrainer=[trainer,thisEvent.id,endspeech,doublebattle]
        return BR_LOSS # changed by SH
      end
    end
  end
  
  if $PokemonGlobal.partner && ($PokemonTemp.waitingTrainer || doublebattle)
    othertrainer=PokeBattle_Trainer.new(
       $PokemonGlobal.partner[1],$PokemonGlobal.partner[0])
    othertrainer.id=$PokemonGlobal.partner[2]
    othertrainer.party=$PokemonGlobal.partner[3]
    playerparty=[]
    for i in 0...$Trainer.party.length
      playerparty[i]=$Trainer.party[i]
    end
    for i in 0...othertrainer.party.length
      playerparty[6+i]=othertrainer.party[i]
    end
    fullparty1=true
    playertrainer=[$Trainer,othertrainer]
    doublebattle=true
  else
    playerparty=$Trainer.party
    playertrainer=$Trainer
    fullparty1=false
  end
  if $PokemonTemp.waitingTrainer
    combinedParty=[]
    fullparty2=false
    if false
      if $PokemonTemp.waitingTrainer[0][2].length>3
        raise _INTL("Opponent 1's party has more than three Pokémon, which is not allowed")
      end
      if trainer[2].length>3
        raise _INTL("Opponent 2's party has more than three Pokémon, which is not allowed")
      end
    elsif $PokemonTemp.waitingTrainer[0][2].length>3 || trainer[2].length>3
      for i in 0...$PokemonTemp.waitingTrainer[0][2].length
        combinedParty[i]=$PokemonTemp.waitingTrainer[0][2][i]
      end
      for i in 0...trainer[2].length
        combinedParty[6+i]=trainer[2][i]
      end
      fullparty2=true
    else
      for i in 0...$PokemonTemp.waitingTrainer[0][2].length
        combinedParty[i]=$PokemonTemp.waitingTrainer[0][2][i]
      end
      for i in 0...trainer[2].length
        combinedParty[3+i]=trainer[2][i]
      end
      fullparty2=false
    end
    scene=pbNewBattleScene
    battle=PokeBattle_Battle.new(scene,playerparty,combinedParty,playertrainer,
       [$PokemonTemp.waitingTrainer[0][0],trainer[0]])
    trainerbgm=pbGetTrainerBattleBGM(
       [$PokemonTemp.waitingTrainer[0][0],trainer[0]])
    battle.fullparty1=fullparty1
    battle.fullparty2=fullparty2
    battle.doublebattle=battle.pbDoubleBattleAllowed?()
    battle.endspeech=$PokemonTemp.waitingTrainer[2]
    battle.endspeech2=endspeech
    battle.items=[$PokemonTemp.waitingTrainer[0][1],trainer[1]]
  else
    scene=pbNewBattleScene
    battle=PokeBattle_Battle.new(scene,playerparty,trainer[2],playertrainer,trainer[0])
    battle.fullparty1=fullparty1
    battle.doublebattle=doublebattle ? battle.pbDoubleBattleAllowed?() : false
    battle.endspeech=endspeech
    battle.items=trainer[1]
    trainerbgm=pbGetTrainerBattleBGM(trainer[0])
  end
  if Input.press?(Input::CTRL) && $DEBUG
    Kernel.pbMessage(_INTL("SKIPPING BATTLE..."))
    Kernel.pbMessage(_INTL("AFTER LOSING..."))
    Kernel.pbMessage(battle.endspeech)
    Kernel.pbMessage(battle.endspeech2) if battle.endspeech2
    if $PokemonTemp.waitingTrainer
      pbMapInterpreter.pbSetSelfSwitch(
         $PokemonTemp.waitingTrainer[1],"A",true
      )
      $PokemonTemp.waitingTrainer=nil
    end
    return BR_WIN # changed by SH
  end
  Events.onStartBattle.trigger(nil,nil)
  battle.internalbattle=true
  pbPrepareBattle(battle)
  restorebgm=true
  decision=0
  pbBattleAnimation(trainerbgm,trainer[0].trainertype,trainer[0].name) { 
     pbSceneStandby {
        decision=battle.pbStartBattle(canlose)
     }
     if $PokemonGlobal.partner
       pbHealAll
       for i in $PokemonGlobal.partner[3]; i.heal; end
     end
     if decision==2 || decision==5
       if canlose
         for i in $Trainer.party; i.heal; end
         for i in 0...10
           Graphics.update
         end
       else
         $game_system.bgm_unpause
         $game_system.bgs_unpause
         Kernel.pbStartOver
       end
     else
       Events.onEndBattle.trigger(nil,decision)
       if decision==1
         if $PokemonTemp.waitingTrainer
           pbMapInterpreter.pbSetSelfSwitch(
              $PokemonTemp.waitingTrainer[1],"A",true
           )
         end
       end
     end
  }
  Input.update
  $PokemonTemp.waitingTrainer=nil
  return decision  # changed by SH
end

To use it in the game, make a new event that looks like this:

Spoiler:

The game will enter the conditional branch if you won against the trainer, and that's where we
activate the self switch A on. And here's the second page of the event.

Spoiler:

The script code:

Spoiler:

You can change the number of pokemon the trainer has, the species, levels, everything. Once you
created a pokemon with createPokemon method, you can edit the pokemon's hp, IVs, EVs, stats,
and anything else.

For example, let's make a trainer that has only one pokemon, a pikachu, on level 13, and let's give
that pikachu some HP IVs, and let's make his hp half of his total hp. We'll set the id of the trainer
to 7, and make her name "Alice". The part of the event that changes is the script:

Spoiler:

Hope this comes in handy in your game too. I'm using this system instead of the original one.
No credits needed since half of the code is copied from essentials, but if you want, you can
give me half a credit!

miniking · Mar 10, 2014

work fine *-*

thanks for this
olny descript the all funcions on your post for initials makers

Joltik · Mar 11, 2014

Would it be hard to implement a way for the trainer to use a random pokemon from a predefined array {pokemon1, pokemon2, pokemon3, ...}.

Thank you!

miniking · Mar 11, 2014

Giu said:
Would it be hard to implement a way for the trainer to use a random pokemon from a predefined array {pokemon1, pokemon2, pokemon3, ...}.

Thank you!

Use too this parameters:
number poke into other number and add exetions
use a fix group in the script ex:(....Gorup1= 5,32,65,25... random pokemon Group1)
by Type (random pokemon(::FIRE,::BUG))

all with exceptions

thank you

wait update*-*

Stochastic · Mar 11, 2014

Giu said:
Would it be hard to implement a way for the trainer to use a random pokemon from a predefined array {pokemon1, pokemon2, pokemon3, ...}.

Thank you!

Sure, it's not hard. Insert this method in the script.

Code:

# ------------------------------------------------------------------------------
# Returns a random element from a given array.
# ------------------------------------------------------------------------------
def randomElement(array)
  i = rand(array.length)
  return array[i]
end

Then, in the event, instead of writing createPokemon("PIKACHU", 13) you can write
createPokemon(randomElement(SomePool), 13), and you'll need to define 'SomePool',
either in the event script or in a global script (such as CustomTrainers) as,

Code:

SomePool = ["PIKACHU", "BULBASAUR", "SOME_OTHER_POKEMON"]

work fine *-*

thanks for this
olny descript the all funcions on your post for initials makers

Sorry, I don't understand. Do you want me to describe functions better?

miniking · Mar 11, 2014

Stochastic said:
Sure, it's not hard. Insert this method in the script.

Code:

# ------------------------------------------------------------------------------ # Returns a random element from a given array. # ------------------------------------------------------------------------------ def randomElement(array) i = rand(array.length) return array[i] end

Then, in the event, instead of writing createPokemon("PIKACHU", 13) you can write
createPokemon(randomElement(SomePool), 13), and you'll need to define 'SomePool',
either in the event script or in a global script (such as CustomTrainers) as,

Code:

SomePool = ["PIKACHU", "BULBASAUR", "SOME_OTHER_POKEMON"]

Sorry, I don't understand. Do you want me to describe functions better?

Who add random pokes by Type?
you can send a script to implement this?
And with exceptions
Example:
createPokemon(randomType(SomePoolFire), 13)

SomePoolFire= [ (::FIRE);'charmander' , 'charmilion','charizand'] *This poke is the exception, can create all other pokes, ecept in "[...]"

Can make this?
thanks

Stochastic · Mar 11, 2014

@miniking

Here, I've written a snippet that gives you all fire pokemon. Put it anywhere inside a global script, say CustomTrainers.

Code:

def allFireTypes
  dexdata=pbOpenDexData
  ret = []
  for i in 1...649
    pbDexDataOffset(dexdata, i, 8)
    type1 = dexdata.fgetb
    pbDexDataOffset(dexdata, i, 9)
    type2 = dexdata.fgetb
    if (isConst?(type1, PBTypes, :FIRE) || isConst?(type2, PBTypes, :FIRE))
      ret.push(getConstantName(PBSpecies, i))
    end
  end
  return ret
end

And then, to remove some pokemon from the array, that are listed in some other
array, use this (in an NPC event script, for example):

Code:

fire = allFireTypes()
except = ["RESHIRAM", "CHARIZARD"]
fire2 = fire.select {|p| !except.include?(p)}
p(fire2)

Array 'fire2' will contain all fire-type pokemon except for Reshiram and Charizard. You
can customize this however you wish :]

Dylanrockin · Mar 11, 2014

Is there a possible way to edit their EV's as well? Nevermind I got a syntax error upon starting up the game :L on line 14 for some reason :L

Stochastic · Mar 12, 2014

Dylanrockin said:
Is there a possible way to edit their EV's as well? Nevermind I got a syntax error upon starting up the game :L on line 14 for some reason :L

Yep, you can change anything you like :] Take a look at PokeBattle_Pokemon. Whatever you see
here (after attr_accessor) is changeable.

Spoiler:

Code:

  attr_reader(:totalhp)       # Current Total HP
  attr_reader(:attack)        # Current Attack stat
  attr_reader(:defense)       # Current Defense stat
  attr_reader(:speed)         # Current Speed stat
  attr_reader(:spatk)         # Current Special Attack stat
  attr_reader(:spdef)         # Current Special Defense stat
  attr_accessor(:iv)          # Array of 6 Individual Values for HP, Atk, Def,
                              #    Speed, Sp Atk, and Sp Def
  attr_accessor(:ev)          # Effort Values
  attr_accessor(:species)     # Species (National Pokedex number)
  attr_accessor(:personalID)  # Personal ID
  attr_accessor(:trainerID)   # 32-bit Trainer ID (the secret ID is in the upper
                              #    16 bits)
  attr_accessor(:hp)          # Current HP
  attr_accessor(:pokerus)     # Pokérus strain and infection time
  attr_accessor(:item)        # Held item
  attr_accessor(:itemRecycle) # Consumed held item (used in battle only)
  attr_accessor(:itemInitial) # Resulting held item (used in battle only)
  attr_accessor(:mail)        # Mail
  attr_accessor(:fused)       # The Pokémon fused into this one
  attr_accessor(:name)        # Nickname
  attr_accessor(:exp)         # Current experience points
  attr_accessor(:happiness)   # Current happiness
  attr_accessor(:status)      # Status problem (PBStatuses) 
  attr_accessor(:statusCount) # Sleep count/Toxic flag
  attr_accessor(:eggsteps)    # Steps to hatch egg, 0 if Pokémon is not an egg
  attr_accessor(:moves)       # Moves (PBMove)
  attr_accessor(:ballused)    # Ball used
  attr_accessor(:markings)    # Markings
  attr_accessor(:obtainMode)  # Manner obtained:
                              #    0 - met, 1 - as egg, 2 - traded,
                              #    4 - fateful encounter
  attr_accessor(:obtainMap)   # Map where obtained
  attr_accessor(:obtainText)  # Replaces the obtain map's name if not nil
  attr_accessor(:obtainLevel) # Level obtained
  attr_accessor(:hatchedMap)  # Map where an egg was hatched
  attr_accessor(:language)    # Language
  attr_accessor(:ot)          # Original Trainer's name 
  attr_accessor(:otgender)    # Original Trainer's gender:
                              #    0 - male, 1 - female, 2 - mixed, 3 - unknown
                              #    For information only, not used to verify
                              #    ownership of the Pokemon
  attr_accessor(:abilityflag) # Forces the first/second/hidden (0/1/2) ability
  attr_accessor(:genderflag)  # Forces male (0) or female (1)
  attr_accessor(:natureflag)  # Forces a particular nature
  attr_accessor(:shinyflag)   # Forces the shininess (true/false)
  attr_accessor(:ribbons)     # Array of ribbons
  attr_accessor :cool,:beauty,:cute,:smart,:tough,:sheen # Contest stats

So, for example, to change their EVs, you would say: pokemon.ev[0] = 125 (this will make their HP
evs be 125). The IVs and EVs are ordered like this: HP, Atk, Def, Speed, Sp Atk, and Sp Def

Is it a syntax error in my script? If so, what's on line 14? If it's in an event, make sure you typed
the script correctly.

Radical Raptr · Mar 16, 2014

First, this is amazing, and I finally got around to using it, and it should most definitly save me time, thank you.

Secondly, as for the syntax error, the part where you have the comment description thing, eg:

# ------------------------------------------------------------------------------
# species - Name of the species, e.g. "PIKACHU"
# level - Level
# moveset - Optional. Array of moves, e.g. [:MUDSLAP, :THUNDERBOLT, :VINEWHIP]
# If not specified, pokemon will be created with moves learned by leveling.
# The pokemon doesn't need to be able to learn the given moves, they can be
# arbitary.
# ------------------------------------------------------------------------------
you are missing the red, I noticed and changed it and it works fine - I don't know if that was the problem, but it happened to me before I changed it, but not after :P

joeyhugg · Mar 18, 2014

Some of the lines with comments do not have "#" symbols. I had line 62, but apparently some had others. An alternate way of commenting multiple lines is a "=begin" command and an "=end" command. "=end" goes at the end of the section you want commented.

miniking · May 6, 2014

Who Make double batles with this script?

FlexxGaming · May 6, 2014

Ooooh this is really nifty! Definitely going to use it for when I start programming the Battle Maison!

indieoutloud · May 8, 2014

miniking said:
Who Make double batles with this script?

I second this. Are double battles possible?

Stochastic · May 10, 2014

indieoutloud said:
I second this. Are double battles possible?

Yes, add another argument (true) to the customTrainerBattle call.
So instead of

Code:

customTrainerBattle(trainer, "Oh no!")

Write

Code:

customTrainerBattle(trainer, "Oh no!", [B]true[/B])

And you have a double battle :] Also make sure your opponent
has an even number of pokemon.

indieoutloud · May 10, 2014

Stochastic said:
Yes, add another argument (true) to the customTrainerBattle call.
So instead of

Code:

customTrainerBattle(trainer, "Oh no!")

Write

Code:

customTrainerBattle(trainer, "Oh no!", [B]true[/B])

And you have a double battle :] Also make sure your opponent
has an even number of pokemon.

Hmm, maybe I'm doing something wrong but it didn't work for me. Here is the instance I tried it on.

p0 = createPokemon("EKANS", 2)
p1 = createPokemon("RATTATA", 3)
party = [p0, p1]
trainer = createTrainer(37, "Dillon", party)
result = customTrainerBattle(trainer, "Maybe I was wrong.", true)
pbSet(1, result == BR_WIN ? 0 : 1)

When I tried it only Ekans was used.

Cheers!

indieoutloud

Stochastic · May 10, 2014

indieoutloud said:
Hmm, maybe I'm doing something wrong but it didn't work for me. Here is the instance I tried it on.

p0 = createPokemon("EKANS", 2)
p1 = createPokemon("RATTATA", 3)
party = [p0, p1]
trainer = createTrainer(37, "Dillon", party)
result = customTrainerBattle(trainer, "Maybe I was wrong.", true)
pbSet(1, result == BR_WIN ? 0 : 1)

When I tried it only Ekans was used.

Cheers!

indieoutloud

Make sure you also have two pokemon on your party.
I've tested it just now and it should work.

indieoutloud · May 10, 2014

Stochastic said:
Make sure you also have two pokemon on your party.
I've tested it just now and it should work.

I feel silly haha. Totally looked over how many Pokemon I had. This is fantastic thanks!

greenOak · May 11, 2014

Hmmm, I'm having quite a few a problems with the pokemons stats. I have the following script to define a pokemon:

p0 = createPokemon("TYRANITAR",100)
p0.natureflag=PBNatures::JOLLY
p0.iv[1]=31
p0.ev[1]=252 (I've also set this to zero while experimenting)

party = [p0]
trainer = createTrainer(1,"Camila",party)
result = customTrainerBattle(trainer,"..")
pbSet(1, result == BR_WIN ? 0 : 1)

A jolly Tyranitar should have 304 attack with 0 Atk EVs and 367 Attack with 252 EVs at level 100. The game currently tells me Tyranitar's attack stat is less than 304 which is wrong.

Looking into where essentials calculates a pokemons stats I saw the found formula:

((((base*2+iv+(ev>>2))*level/100).floor+5)*pv/100).floor

Apparently ev>>2 is the binary right shift operator (not sure how exactly this works) which didn't really make sense to me as I always seen the formula with ev/4 in it.

Changing the formula to ev/4, I get that a jolly Tyranitar with 0EV's has an attack stat of 304 as desired. However, with 252 attacking EVs I still get the attack stat being 304.

Any idea what's going on?

P.S. After reading a bit, ev>>2 should be equivalent to ev/4 if I understand correctly, and I changed the forumla back to ev>>2 and it still yields the correct 304 stat, so I'm not sure what I did wrong to get an attack stat less than 304 was about. Regardless, the problem with the EVs not doing anything still exists.

greenOak · May 11, 2014

Go figure, after hours of struggling with this problem, I figured it 30 minutes after posting.

Not sure if everyone else here figured this out, but its not mentioned in the previous posts so I'll post it anyways. Basically, the game doesn't recalculate a pokemon's stats after editing IVs, EVs, or natures. Thus, if you edit any of these outside the "createPokemon()" function, none of these changes will effect its battle stats in anyway. I verified this in battle with damage calculations.

I easily solved this problem by just adding the line "pokemon.calcStats" (or in the case I posted above p0.calcStats) after editing all the other stuff.

Custom trainer battles

More options

Stochastic

miniking

Joltik

miniking

Stochastic

miniking

Stochastic

Dylanrockin

That guy

Stochastic

Radical Raptr

#BAMFPokemonNerd

joeyhugg

miniking

FlexxGaming

Pokemon XY PC Edition Developer

indieoutloud

Stochastic

indieoutloud

Stochastic

indieoutloud

greenOak

greenOak