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

Fixed Tar Shot crash + added message

This commit is contained in:
Jasper "JappaWakka" Speelman 2022-05-06 23:04:29 +02:00
parent f18dc03c4c
commit 8e2c45d78f
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
P3D/Pokemon/Attacks/Rock/TarShot.vb
View File

@ -55,21 +55,21 @@
Me.AIField2 = AIField.CanLowerSpeed Me.AIField2 = AIField.CanLowerSpeed
End Sub End Sub
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen) Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
If Core.Random.Next(0, 100) < GetEffectChance(0, own, BattleScreen) Then BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Speed", 1, "", "move:tarshot")
BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Speed", 1, "", "move:tarshot")
With BattleScreen.FieldEffects With BattleScreen.FieldEffects
If own = True Then If own = True Then
If .OppTarShot = False Then If .OppTarShot = False Then
.OppTarShot = True .OppTarShot = True
End If BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.OppPokemon.GetName & " " & "became weaker to fire!"))
Else
If .OwnTarShot = False Then
.OwnTarShot = True
End If
End If End If
End With Else
End If If .OwnTarShot = False Then
.OwnTarShot = True
BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.OwnPokemon.GetName & " " & "became weaker to fire!"))
End If
End If
End With
End Sub End Sub
End Class End Class