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

Fixed EndRound custom move effect

Browse Source
This commit is contained in:
JappaWakka 2022-12-31 13:16:32 +01:00
parent eeae37a495
commit 2328ca5c67
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
P3D/Pokemon/Attacks/AttackSpecialFunctions.vb
View File

@ -160,6 +160,11 @@
End If End If
BattleScreen.Battle.SwitchOutOwn(BattleScreen, SwitchTo, -1, Message) BattleScreen.Battle.SwitchOutOwn(BattleScreen, SwitchTo, -1, Message)
End If End If
Case Else
fSub = CInt(f.GetSplit(1, ",")).Clamp(0, 100).ToString
End Select
Else
Select Case f.ToLower()
Case "endround" Case "endround"
BattleScreen.Battle.DeleteHostQuery(BattleScreen) BattleScreen.Battle.DeleteHostQuery(BattleScreen)
Dim cq1 As ScreenFadeQueryObject = New ScreenFadeQueryObject(ScreenFadeQueryObject.FadeTypes.Vertical, Color.Black, True, 16) Dim cq1 As ScreenFadeQueryObject = New ScreenFadeQueryObject(ScreenFadeQueryObject.FadeTypes.Vertical, Color.Black, True, 16)
@ -167,11 +172,6 @@
cq2.PassThis = True cq2.PassThis = True
BattleScreen.BattleQuery.AddRange({cq1, cq2}) BattleScreen.BattleQuery.AddRange({cq1, cq2})
BattleScreen.Battle.StartRound(BattleScreen) BattleScreen.Battle.StartRound(BattleScreen)
Case Else
fSub = CInt(f.GetSplit(1, ",")).Clamp(0, 100).ToString
End Select
Else
Select Case f.ToLower()
Case "freeze" Case "freeze"
fSub = "15" fSub = "15"
Case "poison" Case "poison"