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

Fixed Yawn counter

Browse Source
This commit is contained in:
CaptainSegis 2016-12-22 02:46:08 -05:00
parent da9e8095b0
commit 4b6cde659e
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb
View File

@ -5030,13 +5030,11 @@
End If End If
If .FieldEffects.OwnYawn > 0 And .OwnPokemon.HP > 0 Then 'Yawn If .FieldEffects.OwnYawn > 0 And .OwnPokemon.HP > 0 Then 'Yawn
If .OwnPokemon.Status <> Pokemon.StatusProblems.Sleep Then .FieldEffects.OwnYawn -= 1
.FieldEffects.OwnYawn = 0 If .OwnPokemon.Status = Pokemon.StatusProblems.None And .FieldEffects.OwnYawn = 0 Then
If .OwnPokemon.Status = Pokemon.StatusProblems.None Then
InflictSleep(True, False, BattleScreen, -1, "", "yawn") InflictSleep(True, False, BattleScreen, -1, "", "yawn")
End If End If
End If End If
End If
Dim futureSight As String = "Future Sight" 'Future Sight/Doom Desire Dim futureSight As String = "Future Sight" 'Future Sight/Doom Desire
If .FieldEffects.OwnFutureSightID = 1 Then If .FieldEffects.OwnFutureSightID = 1 Then
@ -5758,13 +5756,11 @@
End If End If
If .FieldEffects.OppYawn > 0 And .OppPokemon.HP > 0 Then 'Yawn If .FieldEffects.OppYawn > 0 And .OppPokemon.HP > 0 Then 'Yawn
If .OppPokemon.Status <> Pokemon.StatusProblems.Sleep Then .FieldEffects.OppYawn -= 1
.FieldEffects.OppYawn = 0 If .OppPokemon.Status = Pokemon.StatusProblems.None And .FieldEffects.OppYawn = 0 Then
If .OppPokemon.Status = Pokemon.StatusProblems.None Then
InflictSleep(False, True, BattleScreen, -1, "", "yawn") InflictSleep(False, True, BattleScreen, -1, "", "yawn")
End If End If
End If End If
End If
Dim futureSight As String = "Future Sight" 'Future Sight/Doom Desire Dim futureSight As String = "Future Sight" 'Future Sight/Doom Desire
If .FieldEffects.OppFutureSightID = 1 Then If .FieldEffects.OppFutureSightID = 1 Then