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

Implemented RandomStatus GM move function

Browse Source
This commit is contained in:
JappaWakka 2023-12-10 14:53:59 +01:00
parent 68a64fde7d
commit 2c3ca27c2d
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -358,6 +358,11 @@
End If End If
BattleScreen.Battle.SwitchOutOwn(BattleScreen, SwitchTo, -1, Message) BattleScreen.Battle.SwitchOutOwn(BattleScreen, SwitchTo, -1, Message)
End If End If
Case "randomstatus"
fSub = CInt(f.GetSplit(1, ",")).Clamp(0, 100).ToString
If f.Split(CChar(",")).Count > 2 Then
fSub &= "," & f.GetSplit(2, ",")
End If
Case Else Case Else
fSub = CInt(f.GetSplit(1, ",")).Clamp(0, 100).ToString fSub = CInt(f.GetSplit(1, ",")).Clamp(0, 100).ToString
End Select End Select
@ -381,6 +386,33 @@
End If End If
Select Case fMain.ToLower() Select Case fMain.ToLower()
Case "randomstatus"
Dim chance As Integer = CInt(fSub.GetSplit(0, ","))
Dim withoutBadPoison As Boolean = False
If fSub.Contains(",") Then
withoutBadPoison = CBool(fSub.GetSplit(1, ","))
End If
Dim randomNumber As Integer = Core.Random.Next(0, 7)
If withoutBadPoison = True Then
randomNumber = Core.Random.Next(0, 6)
End If
Select Case randomNumber
Case 0
Paralyze(Move, own, BattleScreen, CInt(fSub))
Case 1
Poison(Move, own, BattleScreen, CInt(fSub))
Case 2
Burn(Move, own, BattleScreen, CInt(fSub))
Case 3
Freeze(Move, own, BattleScreen, CInt(fSub))
Case 4
Sleep(Move, own, BattleScreen, CInt(fSub))
Case 5
Confuse(Move, own, BattleScreen, CInt(fSub))
Case 6
BadPoison(Move, own, BattleScreen, CInt(fSub))
End Select
Case "paralyze" Case "paralyze"
Paralyze(Move, own, BattleScreen, CInt(fSub)) Paralyze(Move, own, BattleScreen, CInt(fSub))
Case "poison" Case "poison"