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

Updated mechanics from SwSh

Browse Source 
3 terrains are a +30%  instead of +50%
Defog removes terrains
Kings Shield is only a single atk red
This commit is contained in:
darkfire006 2022-12-20 16:58:57 -06:00
parent e5b1242384
commit b538376a1e
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
P3D/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -1963,15 +1963,15 @@
End If End If
Case Element.Types.Electric Case Element.Types.Electric
If BattleScreen.FieldEffects.ElectricTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then If BattleScreen.FieldEffects.ElectricTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
SR = 1.5F SR = 1.3F
End If End If
Case Element.Types.Grass Case Element.Types.Grass
If BattleScreen.FieldEffects.GrassyTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then If BattleScreen.FieldEffects.GrassyTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
SR = 1.5F SR = 1.3F
End If End If
Case Element.Types.Psychic Case Element.Types.Psychic
If BattleScreen.FieldEffects.PsychicTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then If BattleScreen.FieldEffects.PsychicTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
SR = 1.5F SR = 1.3F
End If End If
End Select End Select

4
P3D/Pokemon/Attacks/Flying/Defog.vb
View File

@ -71,6 +71,10 @@
.OwnSpikes = 0 .OwnSpikes = 0
.OwnStealthRock = 0 .OwnStealthRock = 0
.OwnToxicSpikes = 0 .OwnToxicSpikes = 0
.ElectricTerrain = 0
.PsychicTerrain = 0
.MistyTerrain = 0
.GrassyTerrain = 0
End With End With
End Sub End Sub

2
P3D/Pokemon/Attacks/Steel/KingsShield.vb
View File

@ -16,7 +16,7 @@
Me.Category = Categories.Status Me.Category = Categories.Status
Me.ContestCategory = ContestCategories.Smart Me.ContestCategory = ContestCategories.Smart
Me.Name = Localization.GetString("move_name_" & Me.ID,"King's Shield") Me.Name = Localization.GetString("move_name_" & Me.ID,"King's Shield")
Me.Description = "The user takes a defensive stance while it protects itself from damage. It also harshly lowers the Attack stat of any attacker who makes direct contact." Me.Description = "The user takes a defensive stance while it protects itself from damage. It also lowers the Attack stat of any attacker who makes direct contact."
Me.CriticalChance = 0 Me.CriticalChance = 0
Me.IsHMMove = False Me.IsHMMove = False
Me.Target = Targets.Self Me.Target = Targets.Self