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

added some small descriptions

Browse Source
This commit is contained in:
Capt_Segis 2016-09-20 11:48:17 -05:00 committed by GitHub
parent 2802563e44
commit 3a80c1e07c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -904,7 +904,7 @@
Dim UA As Single = 1.0F Dim UA As Single = 1.0F
Dim FA As Single = 1.0F Dim FA As Single = 1.0F
'IT 'IT (Item attack power modifier)
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Own, BattleScreen) = True Then If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Own, BattleScreen) = True Then
Select Case p.Item.Name.ToLower() Select Case p.Item.Name.ToLower()
Case "muscle band" Case "muscle band"
@ -1007,7 +1007,7 @@
End If End If
End Select End Select
End If End If
'CHG 'CHG (If used Charge)
Dim lastMove As Attack = BattleScreen.FieldEffects.OwnLastMove Dim lastMove As Attack = BattleScreen.FieldEffects.OwnLastMove
If Own = False Then If Own = False Then
lastMove = BattleScreen.FieldEffects.OppLastMove lastMove = BattleScreen.FieldEffects.OppLastMove
@ -1025,7 +1025,7 @@
If BattleScreen.FieldEffects.WaterSport > 0 And Attack.Type.Type = Element.Types.Fire Then If BattleScreen.FieldEffects.WaterSport > 0 And Attack.Type.Type = Element.Types.Fire Then
WS = 0.5F WS = 0.5F
End If End If
'UA 'UA (User Ability)
Select Case p.Ability.Name.ToLower() Select Case p.Ability.Name.ToLower()
Case "rivalry" Case "rivalry"
If p.Gender <> Pokemon.Genders.Genderless And Op.Gender <> Pokemon.Genders.Genderless Then If p.Gender <> Pokemon.Genders.Genderless And Op.Gender <> Pokemon.Genders.Genderless Then
@ -1122,7 +1122,8 @@
Case Else Case Else
UA = 1.0F UA = 1.0F
End Select End Select
'FA (Foe ability)
Select Case Op.Ability.Name.ToLower() Select Case Op.Ability.Name.ToLower()
Case "thick fat" Case "thick fat"
If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then