tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix Trainers and other Pokémon acting like Roamers

This commit is contained in:
JappaWakka 2024-03-14 10:14:21 +01:00
parent 979b3f68c9
commit 402fc4d64c
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
P3D/World/PokemonEncounter.vb
View File

@ -138,6 +138,10 @@ Public Class PokemonEncounter
Dim p As Pokemon = Core.Player.GetWalkPokemon()
If Not p Is Nothing Then
If p.Level >= Pokemon.Level Then
If BattleSystem.BattleScreen.RoamingBattle = True Then
BattleSystem.BattleScreen.RoamingBattle = False
BattleSystem.BattleScreen.RoamingPokemonStorage = Nothing
End If
Exit Sub
End If
End If
@ -148,6 +152,10 @@ Public Class PokemonEncounter
If Not Core.Player.Pokemons(0).Item Is Nothing Then
If Core.Player.Pokemons(0).Item.ID = 94 Then
If Core.Random.Next(0, 3) = 0 Then
If BattleSystem.BattleScreen.RoamingBattle = True Then
BattleSystem.BattleScreen.RoamingBattle = False
BattleSystem.BattleScreen.RoamingPokemonStorage = Nothing
End If
Exit Sub
End If
End If
@ -159,6 +167,10 @@ Public Class PokemonEncounter
If Not Core.Player.Pokemons(0).Item Is Nothing Then
If Core.Player.Pokemons(0).Item.ID = 291 Then
If Core.Random.Next(0, 3) = 0 Then
If BattleSystem.BattleScreen.RoamingBattle = True Then
BattleSystem.BattleScreen.RoamingBattle = False
BattleSystem.BattleScreen.RoamingPokemonStorage = Nothing
End If
Exit Sub
End If
End If