Made some more updates to the engine:
- Can now evolve pokemon 5 times instead of just 3
Here is the difference in the old code to the new code.
Old
Function PR_EvolvePokemon(PokemonN)
`Check Pokemon Level
CheckPokemonForm1=1
If CheckPokemonForm1=1 And Pokemon(YourPokemon(PokemonN).Pokemon).PokemonForm=1
`Reset CheckPokemonForm1
CheckPokemonForm1=0
`Replace Your Pokemon With Evolve Form
YourPokemon(PokemonN).HP=YourPokemon(PokemonN).HP+70
YourPokemon(PokemonN).ATK=YourPokemon(PokemonN).ATK+70
YourPokemon(PokemonN).DEF=YourPokemon(PokemonN).DEF+70
YourPokemon(PokemonN).SPD=YourPokemon(PokemonN).SPD+70
YourPokemon(PokemonN).SATK=YourPokemon(PokemonN).SATK+70
YourPokemon(PokemonN).SDEF=YourPokemon(PokemonN).SDEF+70
YourPokemon(PokemonN).CHits=YourPokemon(PokemonN).CHits+5
YourPokemon(PokemonN).ACC=YourPokemon(PokemonN).ACC+5
YourPokemon(PokemonN).EV=YourPokemon(PokemonN).EV+5
YourPokemon(PokemonN).Pokemon=Pokemon(YourPokemon(PokemonN).Pokemon).EvolveTo
Else
`If Condition Not True Then Check Form 2
CheckPokemonForm2=1
Endif
`Check Pokemon Level
If CheckPokemonForm2=1 And Pokemon(YourPokemon(PokemonN).Pokemon).PokemonForm=2
`Reset CheckPokemonForm2
CheckPokemonForm2=0
`Replace Your Pokemon With Evolve Form
YourPokemon(PokemonN).HP=YourPokemon(PokemonN).HP+140
YourPokemon(PokemonN).ATK=YourPokemon(PokemonN).ATK+140
YourPokemon(PokemonN).DEF=YourPokemon(PokemonN).DEF+140
YourPokemon(PokemonN).SPD=YourPokemon(PokemonN).SPD+140
YourPokemon(PokemonN).SATK=YourPokemon(PokemonN).SATK+140
YourPokemon(PokemonN).SDEF=YourPokemon(PokemonN).SDEF+140
YourPokemon(PokemonN).CHits=YourPokemon(PokemonN).CHits+10
YourPokemon(PokemonN).ACC=YourPokemon(PokmonN).ACC+10
YourPokemon(PokemonN).EV=YourPokemon(PokemonN).EV+10
YourPokemon(PokemonN).Pokemon=Pokemon(YourPokemon(PokemonN).Pokemon).EvolveTo
Endif
`Delete Old Image
If Image Exist(YourPokemon(PokemonN).Image)=1
Delete Image YourPokemon(PokemonN).Image
Load Image Pokemon(YourPokemon(PokemonN).Pokemon).PokemonFile,YourPokemon(PokemonN).Image
Texture Object YourPokemon(PokemonN).Object,1,YourPokemon(PokemonN).Image
Else
Load Image Pokemon(YourPokemon(PokemonN).Pokemon).PokemonFile,YourPokemon(PokemonN).Image+1
Texture Object YourPokemon(PokemonN).Object,1,YourPokemon(PokemonN).Image+1
Endif
EndFunction
New
Function Poke_Evolve(Pokemon,Evolve,PTW)
`Player Pokemon
If PTW=0
`Check Pokemon Form 1
If Pokemon(Poke(Pokemon).Pokemon).PokemonForm=1
`Replace Old Pokemon With New
Poke(Pokemon).HP=Poke(Pokemon).HP+Evolve1
Poke(Pokemon).ATK=Poke(Pokemon).ATK+Evolve1
Poke(Pokemon).DEF=Poke(Pokemon).DEF+Evolve1
Poke(Pokemon).SPD=Poke(Pokemon).SPD+Evolve1
Poke(Pokemon).SATK=Poke(Pokemon).SATK+Evolve1
Poke(Pokemon).SDEF=Poke(Pokemon).SDEF+Evolve1
Poke(Pokemon).CRT=Poke(Pokemon).CRT+Evolve1
Poke(Pokemon).ACC=Poke(Pokemon).ACC+Evolve1
Poke(Pokemon).EV=Poke(Pokemon).EV+Evolve1
Poke(Pokemon).Pokemon=Pokemon(Poke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 2
If Pokemon(Poke(Pokemon).Pokemon).PokemonForm=2
`Replace Old Pokemon With New
Poke(Pokemon).HP=Poke(Pokemon).HP+Evolve2
Poke(Pokemon).ATK=Poke(Pokemon).ATK+Evolve2
Poke(Pokemon).DEF=Poke(Pokemon).DEF+Evolve2
Poke(Pokemon).SPD=Poke(Pokemon).SPD+Evolve2
Poke(Pokemon).SATK=Poke(Pokemon).SATK+Evolve2
Poke(Pokemon).SDEF=Poke(Pokemon).SDEF+Evolve2
Poke(Pokemon).CRT=Poke(Pokemon).CRT+Evolve2
Poke(Pokemon).ACC=Poke(Pokemon).ACC+Evolve2
Poke(Pokemon).EV=Poke(Pokemon).EV+Evolve2
Poke(Pokemon).Pokemon=Pokemon(Poke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 3
If Pokemon(Poke(Pokemon).Pokemon).PokemonForm=3
`Replace Old Pokemon With New
Poke(Pokemon).HP=Poke(Pokemon).HP+Evolve3
Poke(Pokemon).ATK=Poke(Pokemon).ATK+Evolve3
Poke(Pokemon).DEF=Poke(Pokemon).DEF+Evolve3
Poke(Pokemon).SPD=Poke(Pokemon).SPD+Evolve3
Poke(Pokemon).SATK=Poke(Pokemon).SATK+Evolve3
Poke(Pokemon).SDEF=Poke(Pokemon).SDEF+Evolve3
Poke(Pokemon).CRT=Poke(Pokemon).CRT+Evolve3
Poke(Pokemon).ACC=Poke(Pokemon).ACC+Evolve3
Poke(Pokemon).EV=Poke(Pokemon).EV+Evolve3
Poke(Pokemon).Pokemon=Pokemon(Poke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 4
If Pokemon(Poke(Pokemon).Pokemon).PokemonForm=4
`Replace Old Pokemon With New
Poke(Pokemon).HP=Poke(Pokemon).HP+Evolve4
Poke(Pokemon).ATK=Poke(Pokemon).ATK+Evolve4
Poke(Pokemon).DEF=Poke(Pokemon).DEF+Evolve4
Poke(Pokemon).SPD=Poke(Pokemon).SPD+Evolve4
Poke(Pokemon).SATK=Poke(Pokemon).SATK+Evolve4
Poke(Pokemon).SDEF=Poke(Pokemon).SDEF+Evolve4
Poke(Pokemon).CRT=Poke(Pokemon).CRT+Evolve4
Poke(Pokemon).ACC=Poke(Pokemon).ACC+Evolve4
Poke(Pokemon).EV=Poke(Pokemon).EV+Evolve4
Poke(Pokemon).Pokemon=Pokemon(Poke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 5
If Pokemon(Poke(Pokemon).Pokemon).PokemonForm=5
`Replace Old Pokemon With New
Poke(Pokemon).HP=Poke(Pokemon).HP+Evolve5
Poke(Pokemon).ATK=Poke(Pokemon).ATK+Evolve5
Poke(Pokemon).DEF=Poke(Pokemon).DEF+Evolve5
Poke(Pokemon).SPD=Poke(Pokemon).SPD+Evolve5
Poke(Pokemon).SATK=Poke(Pokemon).SATK+Evolve5
Poke(Pokemon).SDEF=Poke(Pokemon).SDEF+Evolve5
Poke(Pokemon).CRT=Poke(Pokemon).CRT+Evolve5
Poke(Pokemon).ACC=Poke(Pokemon).ACC+Evolve5
Poke(Pokemon).EV=Poke(Pokemon).EV+Evolve5
Poke(Pokemon).Pokemon=Pokemon(Poke(Pokemon).Pokemon).EvolveTo
Endif
`Delete Old Media And Replace With New
`Model
If Object Exist(Poke(Pokemon).Object)=1
Delete Object Poke(Pokemon).Object
Load Object Pokemon(Poke(Pokemon).Pokemon).Model,Poke(Pokemon).Object
Endif
`Base Texture
If Image Exist(Poke(Pokemon).Image1)=1
Delete Image Poke(Pokemon).Image1
Load Image Pokemon(Poke(Pokemon).Pokemon).Texture,Poke(Pokemon).Image1
If Deferred=1
Texture Object Poke(Pokemon).Object,1,Poke(Pokemon).Image1
Else
Texture Object Poke(Pokemon).Object,0,Poke(Pokemon).Image1
Endif
Endif
`Normal Texture
If Image Exist(Poke(Pokemon).Image2)=1
Delete Image Poke(Pokemon).Image2
Load Image Pokemon(Poke(Pokemon).Pokemon).NormalMap,Poke(Pokemon).Image2
If Deferred=1
Texture Object Poke(Pokemon).Object,1,Poke(Pokemon).Image2
Else
Texture Object Poke(Pokemon).Object,0,Poke(Pokemon).Image2
Endif
Endif
Endif
`Trainer Pokemon
If PTW=1
`Check Pokemon Form 1
If Pokemon(TrainerPoke(Pokemon).Pokemon).PokemonForm=1
`Replace Old Pokemon With New
TrainerPoke(Pokemon).HP=TrainerPoke(Pokemon).HP+Evolve1
TrainerPoke(Pokemon).ATK=TrainerPoke(Pokemon).ATK+Evolve1
TrainerPoke(Pokemon).DEF=TrainerPoke(Pokemon).DEF+Evolve1
TrainerPoke(Pokemon).SPD=TrainerPoke(Pokemon).SPD+Evolve1
TrainerPoke(Pokemon).SATK=TrainerPoke(Pokemon).SATK+Evolve1
TrainerPoke(Pokemon).SDEF=TrainerPoke(Pokemon).SDEF+Evolve1
TrainerPoke(Pokemon).CRT=TrainerPoke(Pokemon).CRT+Evolve1
TrainerPoke(Pokemon).ACC=TrainerPoke(Pokemon).ACC+Evolve1
TrainerPoke(Pokemon).EV=TrainerPoke(Pokemon).EV+Evolve1
TrainerPoke(Pokemon).Pokemon=Pokemon(TrainerPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 2
If Pokemon(TrainerPoke(Pokemon).Pokemon).PokemonForm=2
`Replace Old Pokemon With New
TrainerPoke(Pokemon).HP=TrainerPoke(Pokemon).HP+Evolve2
TrainerPoke(Pokemon).ATK=TrainerPoke(Pokemon).ATK+Evolve2
TrainerPoke(Pokemon).DEF=TrainerPoke(Pokemon).DEF+Evolve2
TrainerPoke(Pokemon).SPD=TrainerPoke(Pokemon).SPD+Evolve2
TrainerPoke(Pokemon).SATK=TrainerPoke(Pokemon).SATK+Evolve2
TrainerPoke(Pokemon).SDEF=TrainerPoke(Pokemon).SDEF+Evolve2
TrainerPoke(Pokemon).CRT=TrainerPoke(Pokemon).CRT+Evolve2
TrainerPoke(Pokemon).ACC=TrainerPoke(Pokemon).ACC+Evolve2
TrainerPoke(Pokemon).EV=TrainerPoke(Pokemon).EV+Evolve2
TrainerPoke(Pokemon).Pokemon=Pokemon(TrainerPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 3
If Pokemon(TrainerPoke(Pokemon).Pokemon).PokemonForm=3
`Replace Old Pokemon With New
TrainerPoke(Pokemon).HP=TrainerPoke(Pokemon).HP+Evolve3
TrainerPoke(Pokemon).ATK=TrainerPoke(Pokemon).ATK+Evolve3
TrainerPoke(Pokemon).DEF=TrainerPoke(Pokemon).DEF+Evolve3
TrainerPoke(Pokemon).SPD=TrainerPoke(Pokemon).SPD+Evolve3
TrainerPoke(Pokemon).SATK=TrainerPoke(Pokemon).SATK+Evolve3
TrainerPoke(Pokemon).SDEF=TrainerPoke(Pokemon).SDEF+Evolve3
TrainerPoke(Pokemon).CRT=TrainerPoke(Pokemon).CRT+Evolve3
TrainerPoke(Pokemon).ACC=TrainerPoke(Pokemon).ACC+Evolve3
TrainerPoke(Pokemon).EV=TrainerPoke(Pokemon).EV+Evolve3
TrainerPoke(Pokemon).Pokemon=Pokemon(TrainerPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 4
If Pokemon(TrainerPoke(Pokemon).Pokemon).PokemonForm=4
`Replace Old Pokemon With New
TrainerPoke(Pokemon).HP=TrainerPoke(Pokemon).HP+Evolve4
TrainerPoke(Pokemon).ATK=TrainerPoke(Pokemon).ATK+Evolve4
TrainerPoke(Pokemon).DEF=TrainerPoke(Pokemon).DEF+Evolve4
TrainerPoke(Pokemon).SPD=TrainerPoke(Pokemon).SPD+Evolve4
TrainerPoke(Pokemon).SATK=TrainerPoke(Pokemon).SATK+Evolve4
TrainerPoke(Pokemon).SDEF=TrainerPoke(Pokemon).SDEF+Evolve4
TrainerPoke(Pokemon).CRT=TrainerPoke(Pokemon).CRT+Evolve4
TrainerPoke(Pokemon).ACC=TrainerPoke(Pokemon).ACC+Evolve4
TrainerPoke(Pokemon).EV=TrainerPoke(Pokemon).EV+Evolve4
TrainerPoke(Pokemon).Pokemon=Pokemon(TrainerPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 5
If Pokemon(TrainerPoke(Pokemon).Pokemon).PokemonForm=5
`Replace Old Pokemon With New
TrainerPoke(Pokemon).HP=TrainerPoke(Pokemon).HP+Evolve5
TrainerPoke(Pokemon).ATK=TrainerPoke(Pokemon).ATK+Evolve5
TrainerPoke(Pokemon).DEF=TrainerPoke(Pokemon).DEF+Evolve5
TrainerPoke(Pokemon).SPD=TrainerPoke(Pokemon).SPD+Evolve5
TrainerPoke(Pokemon).SATK=TrainerPoke(Pokemon).SATK+Evolve5
TrainerPoke(Pokemon).SDEF=TrainerPoke(Pokemon).SDEF+Evolve5
TrainerPoke(Pokemon).CRT=TrainerPoke(Pokemon).CRT+Evolve5
TrainerPoke(Pokemon).ACC=TrainerPoke(Pokemon).ACC+Evolve5
TrainerPoke(Pokemon).EV=TrainerPoke(Pokemon).EV+Evolve5
TrainerPoke(Pokemon).Pokemon=Pokemon(TrainerPoke(Pokemon).Pokemon).EvolveTo
Endif
`Delete Old Media And Replace With New
`Model
If Object Exist(TrainerPoke(Pokemon).Object)=1
Delete Object TrainerPoke(Pokemon).Object
Load Object Pokemon(TrainerPoke(Pokemon).Pokemon).Model,TrainerPoke(Pokemon).Object
Endif
`Base Texture
If Image Exist(TrainerPoke(Pokemon).Image1)=1
Delete Image TrainerPoke(Pokemon).Image1
Load Image Pokemon(TrainerPoke(Pokemon).Pokemon).Texture,TrainerPoke(Pokemon).Image1
If Deferred=1
Texture Object TrainerPoke(Pokemon).Object,1,TrainerPoke(Pokemon).Image1
Else
Texture Object TrainerPoke(Pokemon).Object,0,TrainerPoke(Pokemon).Image1
Endif
Endif
`Normal Texture
If Image Exist(TrainerPoke(Pokemon).Image2)=1
Delete Image TrainerPoke(Pokemon).Image2
Load Image Pokemon(TrainerPoke(Pokemon).Pokemon).NormalMap,TrainerPoke(Pokemon).Image2
If Deferred=1
Texture Object TrainerPoke(Pokemon).Object,1,TrainerPoke(Pokemon).Image2
Else
Texture Object TrainerPoke(Pokemon).Object,0,TrainerPoke(Pokemon).Image2
Endif
Endif
Endif
`Wild Pokemon
If PTW=2
`Check Pokemon Form 1
If Pokemon(WildPoke(Pokemon).Pokemon).PokemonForm=1
`Replace Old Pokemon With New
WildPoke(Pokemon).HP=WildPoke(Pokemon).HP+Evolve1
WildPoke(Pokemon).ATK=WildPoke(Pokemon).ATK+Evolve1
WildPoke(Pokemon).DEF=WildPoke(Pokemon).DEF+Evolve1
WildPoke(Pokemon).SPD=WildPoke(Pokemon).SPD+Evolve1
WildPoke(Pokemon).SATK=WildPoke(Pokemon).SATK+Evolve1
WildPoke(Pokemon).SDEF=WildPoke(Pokemon).SDEF+Evolve1
WildPoke(Pokemon).CRT=WildPoke(Pokemon).CRT+Evolve1
WildPoke(Pokemon).ACC=WildPoke(Pokemon).ACC+Evolve1
WildPoke(Pokemon).EV=WildPoke(Pokemon).EV+Evolve1
WildPoke(Pokemon).Pokemon=Pokemon(WildPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 2
If Pokemon(WildPoke(Pokemon).Pokemon).PokemonForm=2
`Replace Old Pokemon With New
WildPoke(Pokemon).HP=WildPoke(Pokemon).HP+Evolve2
WildPoke(Pokemon).ATK=WildPoke(Pokemon).ATK+Evolve2
WildPoke(Pokemon).DEF=WildPoke(Pokemon).DEF+Evolve2
WildPoke(Pokemon).SPD=WildPoke(Pokemon).SPD+Evolve2
WildPoke(Pokemon).SATK=WildPoke(Pokemon).SATK+Evolve2
WildPoke(Pokemon).SDEF=WildPoke(Pokemon).SDEF+Evolve2
WildPoke(Pokemon).CRT=WildPoke(Pokemon).CRT+Evolve2
WildPoke(Pokemon).ACC=WildPoke(Pokemon).ACC+Evolve2
WildPoke(Pokemon).EV=WildPoke(Pokemon).EV+Evolve2
WildPoke(Pokemon).Pokemon=Pokemon(WildPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 3
If Pokemon(WildPoke(Pokemon).Pokemon).PokemonForm=3
`Replace Old Pokemon With New
WildPoke(Pokemon).HP=WildPoke(Pokemon).HP+Evolve3
WildPoke(Pokemon).ATK=WildPoke(Pokemon).ATK+Evolve3
WildPoke(Pokemon).DEF=WildPoke(Pokemon).DEF+Evolve3
WildPoke(Pokemon).SPD=WildPoke(Pokemon).SPD+Evolve3
WildPoke(Pokemon).SATK=WildPoke(Pokemon).SATK+Evolve3
WildPoke(Pokemon).SDEF=WildPoke(Pokemon).SDEF+Evolve3
WildPoke(Pokemon).CRT=WildPoke(Pokemon).CRT+Evolve3
WildPoke(Pokemon).ACC=WildPoke(Pokemon).ACC+Evolve3
WildPoke(Pokemon).EV=WildPoke(Pokemon).EV+Evolve3
WildPoke(Pokemon).Pokemon=Pokemon(WildPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 4
If Pokemon(WildPoke(Pokemon).Pokemon).PokemonForm=4
`Replace Old Pokemon With New
WildPoke(Pokemon).HP=WildPoke(Pokemon).HP+Evolve4
WildPoke(Pokemon).ATK=WildPoke(Pokemon).ATK+Evolve4
WildPoke(Pokemon).DEF=WildPoke(Pokemon).DEF+Evolve4
WildPoke(Pokemon).SPD=WildPoke(Pokemon).SPD+Evolve4
WildPoke(Pokemon).SATK=WildPoke(Pokemon).SATK+Evolve4
WildPoke(Pokemon).SDEF=WildPoke(Pokemon).SDEF+Evolve4
WildPoke(Pokemon).CRT=WildPoke(Pokemon).CRT+Evolve4
WildPoke(Pokemon).ACC=WildPoke(Pokemon).ACC+Evolve4
WildPoke(Pokemon).EV=WildPoke(Pokemon).EV+Evolve4
WildPoke(Pokemon).Pokemon=Pokemon(WildPoke(Pokemon).Pokemon).EvolveTo
Endif
`Check Pokemon Form 5
If Pokemon(WildPoke(Pokemon).Pokemon).PokemonForm=5
`Replace Old Pokemon With New
WildPoke(Pokemon).HP=WildPoke(Pokemon).HP+Evolve5
WildPoke(Pokemon).ATK=WildPoke(Pokemon).ATK+Evolve5
WildPoke(Pokemon).DEF=WildPoke(Pokemon).DEF+Evolve5
WildPoke(Pokemon).SPD=WildPoke(Pokemon).SPD+Evolve5
WildPoke(Pokemon).SATK=WildPoke(Pokemon).SATK+Evolve5
WildPoke(Pokemon).SDEF=WildPoke(Pokemon).SDEF+Evolve5
WildPoke(Pokemon).CRT=WildPoke(Pokemon).CRT+Evolve5
WildPoke(Pokemon).ACC=WildPoke(Pokemon).ACC+Evolve5
WildPoke(Pokemon).EV=WildPoke(Pokemon).EV+Evolve5
WildPoke(Pokemon).Pokemon=Pokemon(WildPoke(Pokemon).Pokemon).EvolveTo
Endif
`Delete Old Media And Replace With New
`Model
If Object Exist(WildPoke(Pokemon).Object)=1
Delete Object WildPoke(Pokemon).Object
Load Object Pokemon(WildPoke(Pokemon).Pokemon).Model,WildPoke(Pokemon).Object
Endif
`Base Texture
If Image Exist(WildPoke(Pokemon).Image1)=1
Delete Image WildPoke(Pokemon).Image1
Load Image Pokemon(WildPoke(Pokemon).Pokemon).Texture,WildPoke(Pokemon).Image1
If Deferred=1
Texture Object WildPoke(Pokemon).Object,1,WildPoke(Pokemon).Image1
Else
Texture Object WildPoke(Pokemon).Object,0,WildPoke(Pokemon).Image1
Endif
Endif
`Normal Texture
If Image Exist(WildPoke(Pokemon).Image2)=1
Delete Image WildPoke(Pokemon).Image2
Load Image Pokemon(WildPoke(Pokemon).Pokemon).NormalMap,WildPoke(Pokemon).Image2
If Deferred=1
Texture Object WildPoke(Pokemon).Object,1,WildPoke(Pokemon).Image2
Else
Texture Object WildPoke(Pokemon).Object,0,WildPoke(Pokemon).Image2
Endif
Endif
Endif
EndFunction
As you can see it is a big difference in the code.
Also I could probably make a quick demo, meaning I might not be able to fit the GUI in there, but you will be able to play with a couple of pokemon commands. So if you want me to get out a quick demo or put a lot more time into it?