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

Fix moves and abilities that break through ghost inmunity to normal and fighting type attacks.

Browse Source
This commit is contained in:
CaptainSegis 2016-12-17 15:43:34 -05:00
parent cc81d454ef
commit 94a4d1eb49
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -693,14 +693,6 @@
End If End If
End If End If
If p.Ability.Name.ToLower() = "scrappy" Then
If op.Type1.Type = Element.Types.Ghost Or op.Type2.Type = Element.Types.Ghost Then
If effectiveness = 0 Then
effectiveness = 1.0F
End If
End If
End If
If Not op.Item Is Nothing Then If Not op.Item Is Nothing Then
If op.Item.Name.ToLower() = "ring target" And BattleScreen.FieldEffects.CanUseItem(Not own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not own, BattleScreen) = True Then If op.Item.Name.ToLower() = "ring target" And BattleScreen.FieldEffects.CanUseItem(Not own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not own, BattleScreen) = True Then
If Type1 = 0 Then If Type1 = 0 Then
@ -728,14 +720,24 @@
End If End If
If op.IsType(Element.Types.Ghost) = True Then If op.IsType(Element.Types.Ghost) = True Then
Dim foresight As Integer = BattleScreen.FieldEffects.OppForesight Dim CanHitGhost = False
Dim odorSleught As Integer = BattleScreen.FieldEffects.OppOdorSleuth Dim Foresight As Integer = 0
If own = False Then Dim OdorSleuth As Integer = 0
foresight = BattleScreen.FieldEffects.OwnForesight If own Then
odorSleught = BattleScreen.FieldEffects.OwnOdorSleuth Foresight = BattleScreen.FieldEffects.OppForesight
OdorSleuth = BattleScreen.FieldEffects.OppOdorSleuth
Else
Foresight = BattleScreen.FieldEffects.OwnForesight
OdorSleuth = BattleScreen.FieldEffects.OwnOdorSleuth
End If
If Foresight > 0 Or OdorSleuth > 0 Then
CanHitGhost = True
End If
If BattleScreen.FieldEffects.CanUseAbility(own, BattleScreen) AndAlso p.Ability.Name.ToLower() = "scrappy" Then
CanHitGhost = True
End If End If
If foresight > 0 Or odorSleught > 0 Then If CanHitGhost Then
If move.Type.Type = Element.Types.Normal Or move.Type.Type = Element.Types.Fighting Then If move.Type.Type = Element.Types.Normal Or move.Type.Type = Element.Types.Fighting Then
If Type1 = 0.0F Then If Type1 = 0.0F Then
effectiveness = Type2 effectiveness = Type2
@ -1833,7 +1835,7 @@
End If End If
If TypeA < 1.0F Then If TypeA < 1.0F Then
If p.Ability.Name.ToLower() = "tinted lense" Then If p.Ability.Name.ToLower() = "tinted lens" Then
TL = 2.0F TL = 2.0F
End If End If
End If End If