tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-24 22:35:47 +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

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

@ -909,25 +909,29 @@
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
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
Else
If sleepTurns > 0 Then
BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is fast asleep."))
Return
Else
CureStatusProblem(own, own, BattleScreen, p.GetDisplayName() & " woke up!", "sleepturns")
End If
End If End If
End If End If
' Original Sleep code, just incase the sleep talk is buggy, can revert it back.
If sleepTurns > 0 Then
BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " is fast asleep."))
GoTo endthisround
Else
CureStatusProblem(own, own, BattleScreen, p.GetDisplayName() & " woke up!", "sleepturns")
End If
End If End If
EndSleepCheck:
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
If own = False Then If own = False Then