- 129
- Posts
- 14
- Years
- Seen Sep 4, 2023
Hello everyone!
There are some codes around to make pokémon battles scale with your party level to make the game more challenging, some basic versions can be found even in Essentials.
Some of the codes evolve the Pokémon, however the available ones so far didn't handle well cases like multiple evolutions (making a Bellossom a Vileplume) or didn't properly evolve pokémon that has 2 evolutions not by level (say Pichu -> Pikachu -> Raichu).
Inspired on some codes by Umbreon I made my own version that fixes all that!
Features:
Balancing Wild Pokemon
Difficulty Levels for Trainers
Pokémon are automatically evolved when appropriate
Details:
For Wild Pokémon:
For battles in the wild, the effect is always there. Currently it matches your party to a difficulty level based on number of badges, average level and maximum level of your party. Then based on this classification it balances battles out.
For Trainer Battles:
The codes uses a switch to turn on/off the effect for trainers and a variable that sets the difficulty level of that trainer by hand. All the rest is similar to the mechanics of wild pokémon, except levels for trainers are slightly more challenging than for wild pokémon.
Everything is explained in comments so it should be easy to modify.
To install it, just copy this script and put it above Main:
This is my first code, so I hope you can find it useful!
Credits are appreciated.
Thanks!
Joltik
Edit 17/06/18
Fixed a small typo in the end.
There are some codes around to make pokémon battles scale with your party level to make the game more challenging, some basic versions can be found even in Essentials.
Some of the codes evolve the Pokémon, however the available ones so far didn't handle well cases like multiple evolutions (making a Bellossom a Vileplume) or didn't properly evolve pokémon that has 2 evolutions not by level (say Pichu -> Pikachu -> Raichu).
Inspired on some codes by Umbreon I made my own version that fixes all that!
Features:
Balancing Wild Pokemon
Difficulty Levels for Trainers
Pokémon are automatically evolved when appropriate
Details:
For Wild Pokémon:
For battles in the wild, the effect is always there. Currently it matches your party to a difficulty level based on number of badges, average level and maximum level of your party. Then based on this classification it balances battles out.
For Trainer Battles:
The codes uses a switch to turn on/off the effect for trainers and a variable that sets the difficulty level of that trainer by hand. All the rest is similar to the mechanics of wild pokémon, except levels for trainers are slightly more challenging than for wild pokémon.
Everything is explained in comments so it should be easy to modify.
To install it, just copy this script and put it above Main:
Code:
################################################################################
# Advanced Pokemon Level Balancing
# By Joltik
#Inspired by Umbreon's code
################################################################################
################################################################################
module LevelBalance
Light = 10 #from 1 to 10
Easy = 20 #from 11 to 20
Medium = 30 #from 21 to 30
Hard = 40 #from 31 to 40
Insane = 55 #from 41 to 55
Extreme = MAXIMUMLEVEL #from 56 to MAXIMUMLEVEL
Switch = 100 #Switch that turns on Trainer Difficulty Control
Trainer_dif = 50 #Variable that ontrols trainer battle's difficulty
# Calculates the difficulty based on your party pokemon's level and badges
def self.calcDifficulty
lv=[Light,Easy,Medium,Hard,Insane,Extreme]
badges = $Trainer.numbadges
balance = pbBalancedLevel($Trainer.party)
mlv=0
for poke in $Trainer.pokemonParty
mlv=poke.level if poke.level>mlv
end
average = (badges*30+3*balance+4*mlv)/10
for i in 0...lv.length
if average <= lv[i]
break
end
end
return i
end
end
Events.onWildPokemonCreate+=proc {|sender,e|
pokemon=e[0]
difficulty= LevelBalance::calcDifficulty
badges = $Trainer.numbadges
balance = pbBalancedLevel($Trainer.party)
mlv=0
for poke in $Trainer.pokemonParty
mlv=poke.level if poke.level>mlv
end
case difficulty
when 0 #Light
l = balance/3 - 2 + rand(5)
when 1 #Easy
l = 2*balance/3 - 4 + rand(8)
when 2 #Medium
l = 3*(balance + 4*mlv)/20 - 4 + rand(8)
when 3 #Hard
l = 4*(balance + 4*mlv)/25 - 2 + rand(8)
when 4 #Insane
l = (balance + 4*mlv)/6 - 4 + rand(4+balance/10)
else #Extreme
l = 9*(balance + 4*mlv)/50 - 4 + rand(4+balance/10)
end
newlevel=l
newlevel=1 if newlevel<1
newlevel=PBExperience::MAXLEVEL if newlevel>PBExperience::MAXLEVEL
pokemon.level=newlevel
#now we evolve the pokémon, if applicable
species = pokemon.species
newspecies = pbGetBabySpecies(species) # revert to the first evolution
evoflag=0 #used to track multiple evos not done by lvl
endevo=false
loop do #beginning of loop to evolve species
nl = newlevel + 5
nl = MAXIMUMLEVEL if nl > MAXIMUMLEVEL
pkmn = PokeBattle_Pokemon.new(newspecies, nl)
cevo = Kernel.pbCheckEvolution(pkmn)
evo = pbGetEvolvedFormData(newspecies)
if evo
evo = evo[rand(evo.length - 1)]
# here we evolve things that don't evolve through level
# that's what we check with evo[0]!=4
#notice that such species have cevo==-1 and wouldn't pass the last check
#to avoid it we set evoflag to 1 (with some randomness) so that
#pokemon may have its second evolution (Raichu, for example)
if evo && cevo < 1 && rand(50) <= newlevel
if evo[0] != 4 && rand(50) <= newlevel
newspecies = evo[2]
if evoflag == 0 && rand(50) <= newlevel
evoflag=1
else
evoflag=0
end
end
else
endevo=true
end
end
if evoflag==0 || endevo
if cevo == -1 || rand(50) > newlevel
# Breaks if there no more evolutions or randomnly
# Randomness applies only if the level is under 50
break
else
newspecies = evo[2]
end
end
end
#fixing some things such as Bellossom would turn into Vileplume
#check if original species could evolve (Bellosom couldn't)
couldevo=pbGetEvolvedFormData(species)
#check if current species can evolve
evo = pbGetEvolvedFormData(newspecies)
if evo.length<1 && couldevo.length<1
else
species=newspecies
end
pokemon.name=PBSpecies.getName(species)
pokemon.species=species
pokemon.calcStats
pokemon.resetMoves
}
Events.onTrainerPartyLoad+=proc {|sender,e|
if e[0] # Trainer data should exist to be loaded, but may not exist somehow
trainer=e[0][0] # A PokeBattle_Trainer object of the loaded trainer
items=e[0][1] # An array of the trainer's items they can use
party=e[0][2] # An array of the trainer's Pokémon
if $game_switches && $game_switches[LevelBalance::Switch] && $Trainer &&
$Trainer.party.length > 0
badges = $Trainer.numbadges
balance = pbBalancedLevel($Trainer.party)
mlv=0
for poke in $Trainer.pokemonParty
mlv=poke.level if poke.level>mlv
end
for i in 0...party.length
#sets difficulty based on variable
case $game_variables[LevelBalance::Trainer_dif]
when 0 #Light
l = balance/2 - 2 + rand(5)
when 1 #Easy
l = 3*balance/4 - 4 + rand(8)
when 2 #Medium
l = 9*(balance + 4*mlv)/50 - 4 + rand(4 + balance/10)
when 3 #Hard
l = 11*(balance + 4*mlv)/50 - 4 + rand(4 + balance/10)
when 4 #Insane
l = 5*(balance + 4*mlv)/20 - 4 + rand(4+balance/10)
else #Extreme
l = 7*(balance + 4*mlv)/25 - 4+ rand(4+balance/10)
end
level = l
level=1 if level<1
level=PBExperience::MAXLEVEL if level>PBExperience::MAXLEVEL
party[i].level = level
#now we evolve the pokémon, if applicable
species = party[i].species
newspecies = pbGetBabySpecies(species) # revert to the first evolution
evoflag=0 #used to track multiple evos not done by lvl
endevo=false
loop do #beginning of loop to evolve species
nl = level + 5
nl = MAXIMUMLEVEL if nl > MAXIMUMLEVEL
pkmn = PokeBattle_Pokemon.new(newspecies, nl)
cevo = Kernel.pbCheckEvolution(pkmn)
evo = pbGetEvolvedFormData(newspecies)
if evo
evo = evo[rand(evo.length - 1)]
# here we evolve things that don't evolve through level
# that's what we check with evo[0]!=4
#notice that such species have cevo==-1 and wouldn't pass the last check
#to avoid it we set evoflag to 1 (with some randomness) so that
#pokemon may have its second evolution (Raichu, for example)
if evo && cevo < 1 && rand(50) <= level
if evo[0] != 4 && rand(50) <= level
newspecies = evo[2]
if evoflag == 0 && rand(50) <= level
evoflag=1
else
evoflag=0
end
end
else
endevo=true
end
end
if evoflag==0 || endevo
if cevo == -1 || rand(50) > level
# Breaks if there no more evolutions or randomnly
# Randomness applies only if the level is under 50
break
else
newspecies = evo[2]
end
end
end #end of loop do
#fixing some things such as Bellossom would turn into Vileplume
#check if original species could evolve (Bellosom couldn't)
couldevo=pbGetEvolvedFormData(species)
#check if current species can evolve
evo = pbGetEvolvedFormData(newspecies)
if evo.length<1 && couldevo.length<1
else
species=newspecies
end #end of evolving script
party[i].name=PBSpecies.getName(species)
party[i].species=species
party[i].calcStats
party[i].resetMoves
end #end of for
end
end
}This is my first code, so I hope you can find it useful!
Credits are appreciated.
Thanks!
Joltik
Edit 17/06/18
Fixed a small typo in the end.
Last edited:
