tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-28 16:24:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

Steel Beam move and tutor added

Browse Source
This commit is contained in:
TheOmegaGhost 2020-04-17 01:35:44 -03:00
parent df5a07c572
commit c1bc61aa27
5 changed files with 7 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Data/Scripts/blackthorn/dracotutor.dat
View File

Binary file not shown.

BIN
P3D/Content/Data/Scripts/olivine/steeltutor.dat Normal file
View File

Binary file not shown.

BIN
P3D/Content/Data/maps/Olivine.dat
View File

Binary file not shown.

3
P3D/P3D.vbproj
View File

@ -26825,6 +26825,9 @@
<None Include="Content\Data\Scripts\mtmortar\bf1map.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>
<Content Include="Content\Data\Scripts\olivine\steeltutor.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="Content\Data\Scripts\pallet\labmap.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</None>

29
P3D/Pokemon/Attacks/Steel/SteelBeam.vb
View File

@ -52,37 +52,16 @@ Namespace BattleSystem.Moves.Steel
'#End
Me.AIField1 = AIField.Damage
Me.AIField2 = AIField.Recoil
Me.AIField2 = AIField.Nothing
End Sub
Private Sub InflictCrashDamage(ByVal own As Boolean, ByVal BattleScreen As BattleScreen)
Public Overrides Sub PreAttack(Own As Boolean, BattleScreen As BattleScreen)
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
If Own = False Then
p = BattleScreen.OppPokemon
End If
BattleScreen.Battle.InflictRecoil(own, own, BattleScreen, Me, CInt(Math.Floor(p.MaxHP / 2)), "-1", "move:steelbeam")
End Sub
Public Overrides Sub MoveMisses(own As Boolean, BattleScreen As BattleScreen)
InflictCrashDamage(own, BattleScreen)
End Sub
Public Overrides Sub MoveProtectedDetected(own As Boolean, BattleScreen As BattleScreen)
InflictCrashDamage(own, BattleScreen)
End Sub
Public Overrides Sub MoveHasNoEffect(own As Boolean, BattleScreen As BattleScreen)
InflictCrashDamage(own, BattleScreen)
End Sub
Public Overrides Sub MoveRecoil(own As Boolean, BattleScreen As BattleScreen)
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
p = BattleScreen.OppPokemon
End If
BattleScreen.Battle.InflictRecoil(own, own, BattleScreen, Me, CInt(Math.Floor(p.MaxHP / 2)), "-1", "move:steelbeam")
BattleScreen.Battle.ReduceHP(CInt(Math.Floor(p.MaxHP / 2)), Own, Own, BattleScreen, "", "move:steelbeam")
End Sub
End Class