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

Fixed Yawn counter

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