[Scripting Question] Determining correct Pokemon for level?

[Black Temple Gaurdian]

So I have the following script to adjust the level of wild Pokemon:

   if $PokemonSystem.scaling == "On"
     newlevel=pbBalancedLevel($Trainer.party)-8+rand(5)   # 8-4 levels lower
     newlevel=1 if newlevel<1
     newlevel=(PBExperience::MAXLEVEL)-20 if newlevel>(PBExperience::MAXLEVEL)-20
     pokemon.level=newlevel
     pokemon.calcStats
     pokemon.resetMoves
   end

But a problem I'm having is that you get Pokemon levelled massively beyond when they should of evolved, or Pokemon that are too low a level to have evolved yet.

How would I go about addressing this problem?

 

[mej71]

See the code at the bottom here: https://pastebin.com/raw/0snBXTNz
You'd use something like this to get next evolutions and apply them. Make sure to do this check before calcStats
You can find more about checking for evolutions here: https://www.pokecommunity.com/threads/338244

Combining these two you should be able to determine what you need. Get the evo list, and run through it, checking for levels (maybe with a bit of randomness for variation)

 

[Black Temple Gaurdian]

So what I'm thinking is:
Store the current form.
Get the previous form.
Store the previous form.
Repeat until baby.
Evolve if possible, with preference to stored forms.
Repeat until appropriate.