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 End If
Select Case fMain.ToLower() Select Case fMain.ToLower()
Case "flinch"
Flinch(Move, own, BattleScreen, CInt(fSub))
Case "randomstatus" Case "randomstatus"
Dim chance As Integer = CInt(fSub.GetSplit(0, ",")) Dim chance As Integer = CInt(fSub.GetSplit(0, ","))
Dim withoutBadPoison As Boolean = False Dim withoutBadPoison As Boolean = False
@ -466,6 +468,12 @@
End If End If
End Sub 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) 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 GetEffectChanceResult(Move, Chance) = True Then
If BattleScreen.Battle.InflictParalysis(Not own, own, BattleScreen, "", "move:" & Move.Name.ToLower()) = False Then If BattleScreen.Battle.InflictParalysis(Not own, own, BattleScreen, "", "move:" & Move.Name.ToLower()) = False Then