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

Hopefully fix egg being able to switch by move

Browse Source
This commit is contained in:
JappaWakka 2023-05-13 20:03:23 +02:00
parent 333873fdae
commit 4363f3f4ed
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Pokemon/Attacks/Dragon/DragonTail.vb
View File

@ -97,8 +97,8 @@
End If End If
Else Else
If Core.Player.CountFightablePokemon > 1 Then If Core.Player.CountFightablePokemon > 1 Then
Dim i As Integer = Core.Random.Next(0, Core.Player.Pokemons.Count) Dim i As Integer = Core.Random.Next(0, Core.Player.Pokemons.Count)
While Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Fainted OrElse BattleScreen.OwnPokemonIndex = i OrElse Core.Player.Pokemons(i).HP <= 0 While Core.Player.Pokemons(i).IsEgg = True OrElse Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Fainted OrElse BattleScreen.OwnPokemonIndex = i OrElse Core.Player.Pokemons(i).HP <= 0
i = Core.Random.Next(0, Core.Player.Pokemons.Count - 1) i = Core.Random.Next(0, Core.Player.Pokemons.Count - 1)
End While End While
BattleScreen.Battle.SwitchOutOwn(BattleScreen, i, -1) BattleScreen.Battle.SwitchOutOwn(BattleScreen, i, -1)

2
P3D/Pokemon/Attacks/Normal/Roar.vb
View File

@ -82,7 +82,7 @@
Else Else
If Core.Player.CountFightablePokemon > 1 Then If Core.Player.CountFightablePokemon > 1 Then
Dim i As Integer = Core.Random.Next(0, Core.Player.Pokemons.Count) Dim i As Integer = Core.Random.Next(0, Core.Player.Pokemons.Count)
While Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Fainted OrElse BattleScreen.OwnPokemonIndex = i OrElse Core.Player.Pokemons(i).HP <= 0 While Core.Player.Pokemons(i).IsEgg = True OrElse Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Fainted OrElse BattleScreen.OwnPokemonIndex = i OrElse Core.Player.Pokemons(i).HP <= 0
i = Core.Random.Next(0, Core.Player.Pokemons.Count - 1) i = Core.Random.Next(0, Core.Player.Pokemons.Count - 1)
End While End While
BattleScreen.Battle.SwitchOutOwn(BattleScreen, i, -1) BattleScreen.Battle.SwitchOutOwn(BattleScreen, i, -1)