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

RaiseStat and LowerStat functions show msg if fail

This commit is contained in:
JappaWakka 2023-12-11 14:04:53 +01:00
parent 58eba766ac
commit bd2d2f2c3d
1 changed files with 36 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -228,6 +228,7 @@
Dim Message As String = "" Dim Message As String = ""
Dim RaiseAmount As Integer = 1 Dim RaiseAmount As Integer = 1
Dim Chance As Integer = 100 Dim Chance As Integer = 100
Dim FailMessage As String = ""
If f.Split(CChar(",")).Count > 2 Then If f.Split(CChar(",")).Count > 2 Then
Target = CBool(f.GetSplit(2, ",")) Target = CBool(f.GetSplit(2, ","))
@ -241,19 +242,21 @@
If CInt(f.GetSplit(5, ",")) > 0 Then If CInt(f.GetSplit(5, ",")) > 0 Then
Chance = CInt(f.GetSplit(5, ",")) Chance = CInt(f.GetSplit(5, ","))
End If End If
If f.Split(CChar(",")).Count > 6 Then
FailMessage = f.GetSplit(6, ",")
End If
End If End If
End If End If
End If End If
End If End If
If GetEffectChanceResult(Move, Chance) = True Then RaiseStat(Move, own, Stat, Target, Message, RaiseAmount, Chance, FailMessage, BattleScreen)
BattleScreen.Battle.RaiseStat(Target, own, BattleScreen, Stat, RaiseAmount, Message, "move:" & Move.Name, True)
End If
Case "lowerstat", "decreasestat" Case "lowerstat", "decreasestat"
Dim Stat As String = f.GetSplit(1, ",") Dim Stat As String = f.GetSplit(1, ",")
Dim Message As String = "" Dim Message As String = ""
Dim Target As Boolean = own Dim Target As Boolean = own
Dim LowerAmount As Integer = 1 Dim LowerAmount As Integer = 1
Dim Chance As Integer = 100 Dim Chance As Integer = 100
Dim FailMessage As String = ""
If f.Split(CChar(",")).Count > 2 Then If f.Split(CChar(",")).Count > 2 Then
Target = CBool(f.GetSplit(2, ",")) Target = CBool(f.GetSplit(2, ","))
@ -267,13 +270,14 @@
If CInt(f.GetSplit(5, ",")) > 0 Then If CInt(f.GetSplit(5, ",")) > 0 Then
Chance = CInt(f.GetSplit(5, ",")) Chance = CInt(f.GetSplit(5, ","))
End If End If
If f.Split(CChar(",")).Count > 6 Then
FailMessage = f.GetSplit(6, ",")
End If
End If End If
End If End If
End If End If
End If End If
If GetEffectChanceResult(Move, Chance) = True Then LowerStat(Move, own, Stat, Target, Message, LowerAmount, Chance, FailMessage, BattleScreen)
BattleScreen.Battle.LowerStat(Target, own, BattleScreen, Stat, LowerAmount, Message, "move:" & Move.Name, True)
End If
Case "reducehp", "drainhp", "damage" Case "reducehp", "drainhp", "damage"
Dim Target As Boolean = CBool(f.GetSplit(1, ",")) Dim Target As Boolean = CBool(f.GetSplit(1, ","))
Dim HPAmount As Integer = 0 Dim HPAmount As Integer = 0
@ -435,6 +439,32 @@
Private Shared Function GetEffectChanceResult(ByVal move As Attack, ByVal chance As Integer) As Boolean Private Shared Function GetEffectChanceResult(ByVal move As Attack, ByVal chance As Integer) As Boolean
Return Core.Random.Next(0, 101) <= chance Return Core.Random.Next(0, 101) <= chance
End Function End Function
Private Shared Sub LowerStat(ByVal Move As Attack, own As Boolean, Stat As String, Target As Boolean, Message As String, LowerAmount As Integer, Chance As Integer, FailMessage As String, ByVal BattleScreen As BattleScreen)
If GetEffectChanceResult(Move, Chance) = True Then
If BattleScreen.Battle.LowerStat(Target, own, BattleScreen, Stat, LowerAmount, Message, "move:" & Move.Name, True) = False Then
If Move.Category = Attack.Categories.Status Then
If FailMessage = "" Then
BattleScreen.BattleQuery.Add(New TextQueryObject(Move.Name & " failed!"))
Else
BattleScreen.BattleQuery.Add(New TextQueryObject(FailMessage.Replace("<movename>", Move.Name)))
End If
End If
End If
End If
End Sub
Private Shared Sub RaiseStat(ByVal Move As Attack, own As Boolean, Stat As String, Target As Boolean, Message As String, RaiseAmount As Integer, Chance As Integer, FailMessage As String, ByVal BattleScreen As BattleScreen)
If GetEffectChanceResult(Move, Chance) = True Then
If BattleScreen.Battle.RaiseStat(Target, own, BattleScreen, Stat, RaiseAmount, Message, "move:" & Move.Name, True) = False Then
If Move.Category = Attack.Categories.Status Then
If FailMessage = "" Then
BattleScreen.BattleQuery.Add(New TextQueryObject(Move.Name & " failed!"))
Else
BattleScreen.BattleQuery.Add(New TextQueryObject(FailMessage.Replace("<movename>", Move.Name)))
End If
End If
End If
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