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

Made it possible for GameMode moves to flinch

This commit is contained in:
JappaWakka 2024-09-02 16:31:04 +02:00
parent d94bb95d0c
commit 8fd32c031b
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Data/Moves/example.dat
View File

Binary file not shown.

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

@ -390,6 +390,8 @@
End If
Select Case fMain.ToLower()
Case "flinch"
Flinch(Move, own, BattleScreen, CInt(fSub))
Case "randomstatus"
Dim chance As Integer = CInt(fSub.GetSplit(0, ","))
Dim withoutBadPoison As Boolean = False
@ -466,6 +468,12 @@
End If
End Sub
Private Shared Sub Flinch(ByVal Move As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Chance As Integer)
If GetEffectChanceResult(Move, Chance) = True Then
BattleScreen.Battle.InflictFlinch(Not own, own, BattleScreen, "", "move:" & Move.Name.ToLower())
End If
End Sub
Private Shared Sub Paralyze(ByVal Move As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen, Chance As Integer)
If GetEffectChanceResult(Move, Chance) = True Then
If BattleScreen.Battle.InflictParalysis(Not own, own, BattleScreen, "", "move:" & Move.Name.ToLower()) = False Then