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

Actual Sleep Bug Fix.

Browse Source 
Removed Label support.
This commit is contained in:
jianmingyong 2016-09-17 00:10:16 +08:00
parent f097af5214
commit 6b84c541eb
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -909,24 +909,28 @@
Else Else
BattleScreen.FieldEffects.OppLastMove = moveUsed BattleScreen.FieldEffects.OppLastMove = moveUsed
End If End If
GoTo EndSleepCheck
Else Else
CureStatusProblem(own, own, BattleScreen, p.GetDisplayName() & " woke up!", "sleepturns") CureStatusProblem(own, own, BattleScreen, p.GetDisplayName() & " woke up!", "sleepturns")
BattleScreen.BattleQuery.Add(New TextQueryObject("Sleep Talk failed!")) BattleScreen.BattleQuery.Add(New TextQueryObject("Sleep Talk failed!"))
GoTo endthisround Return
End If End If
Else
If (own AndAlso BattleScreen.FieldEffects.OwnLastMove.ID = 214) OrElse (Not own AndAlso BattleScreen.FieldEffects.OppLastMove.ID = 214) Then
If own Then
BattleScreen.FieldEffects.OwnLastMove = moveUsed
Else
BattleScreen.FieldEffects.OppLastMove = moveUsed
End If End If
Else
' Original Sleep code, just incase the sleep talk is buggy, can revert it back.
If sleepTurns > 0 Then If sleepTurns > 0 Then
BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is fast asleep.")) BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is fast asleep."))
GoTo endthisround Return
Else Else
CureStatusProblem(own, own, BattleScreen, p.GetDisplayName() & " woke up!", "sleepturns") CureStatusProblem(own, own, BattleScreen, p.GetDisplayName() & " woke up!", "sleepturns")
End If End If
End If End If
End If
EndSleepCheck: End If
If p.Ability.Name.ToLower() = "truant" Then If p.Ability.Name.ToLower() = "truant" Then
Dim truantTurn As Integer = BattleScreen.FieldEffects.OwnTruantRound Dim truantTurn As Integer = BattleScreen.FieldEffects.OwnTruantRound