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

Made Triple Kick increase in power with each hit

Browse Source
This commit is contained in:
JappaWakka 2025-07-01 08:30:16 +02:00
parent b03fa9f0fc
commit 5dd47e5b2d
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -2858,6 +2858,9 @@
End Select
End If
End If
If BattleScreen.FieldEffects.TempTripleKick > 0 Then
BattleScreen.FieldEffects.TempTripleKick = 0
End If
Else 'If not damaging move
Dim lastMove As Attack = BattleScreen.FieldEffects.OppLastMove
If own = False Then

3
P3D/Battle/BattleSystemV2/FieldEffects.vb
View File

@ -261,6 +261,9 @@
Public OppUsedMoves As New List(Of Integer)
'Global Temporary Variables
Public TempTripleKick As Integer = 0 'If Triple Kick is used, this will be increased every time it's hit
'Weather
Private _weather As BattleWeather.WeatherTypes = BattleWeather.WeatherTypes.Clear
Public WeatherRounds As Integer = 0

12
P3D/Pokemon/Attacks/Fighting/TripleKick.vb
View File

@ -52,6 +52,18 @@
'#End
End Sub
Public Overrides Function GetBasePower(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Dim TripleKick As Integer = 10
Select Case BattleScreen.FieldEffects.TempTripleKick
Case 1
TripleKick = 20
Case 2
TripleKick = 30
End Select
BattleScreen.FieldEffects.TempTripleKick += 1
Return TripleKick
End Function
Public Overrides Function GetTimesToAttack(own As Boolean, BattleScreen As BattleScreen) As Integer
Dim r As Integer = Core.Random.Next(0, 100)
If r < 73 Then