tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed HatchEgg command adding 2 pokémon

Browse Source
This commit is contained in:
JappaWakka 2022-07-31 19:59:47 +02:00
parent 53c5d5ba5f
commit 0695ff6491
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -863,10 +863,13 @@
End If
If Core.Player.Pokemons.Count - 1 >= Index Then
Pokemon = Core.Player.Pokemons(Index)
Core.Player.Pokemons.Remove(Pokemon)
End If
If Pokemon.IsEgg() = True Then
Screen.TextBox.Show("?")
SetScreen(New TransitionScreen(CType(CurrentScreen, OverworldScreen), New HatchEggScreen(CType(CurrentScreen, OverworldScreen), {Pokemon}.ToList, CanRename, Message), Color.White, False))
CanContinue = False
End If
Screen.TextBox.Show("?")
SetScreen(New TransitionScreen(CType(CurrentScreen, OverworldScreen), New HatchEggScreen(CType(CurrentScreen, OverworldScreen), {Pokemon}.ToList, CanRename, Message), Color.White, False))
CanContinue = False
End Select
IsReady = True