Namespace BattleSystem
Public Class BattleCalculation
Public Shared Function FieldEffectTurns(ByVal BattleScreen As BattleScreen, ByVal own As Boolean, Optional ByVal moveName As String = "") As Integer
Dim turns As Integer = 5
Dim p As Pokemon
If own Then
p = BattleScreen.OwnPokemon
Else
p = BattleScreen.OppPokemon
End If
Dim ability As String = p.Ability.Name.ToLower()
If p.Item IsNot Nothing AndAlso BattleScreen.FieldEffects.CanUseItem(own) = True Then
Select Case p.Item.Name.ToLower()
Case "damp rock"
If ability = "drizzle" Or moveName = "rain dance" Then
turns = 8
End If
Case "heat rock"
If ability = "drought" Or moveName = "sunny day" Then
turns = 8
End If
Case "smooth rock"
If ability = "sand stream" Or moveName = "sandstorm" Then
turns = 8
End If
Case "icy rock"
If ability = "snow warning" Or moveName = "hail" Then
turns = 8
End If
Case "light clay"
If moveName = "light screen" Or moveName = "reflect" Then
turns = 8
End If
Case "terrain extender"
If moveName = "electric terrain" Or moveName = "grassy terrain" Or moveName = "misty terrain" Or moveName = "psychic terrain" Then
turns = 8
ElseIf ability = "electric surge" Or ability = "grassy surge" Or ability = "misty surge" Or ability = "psychic surge" Then
turns = 8
End If
End Select
End If
Return turns
End Function
Public Shared Function MovesFirst(ByVal BattleScreen As BattleScreen) As Boolean
'Determine strike first with speed:
Dim ownSpeed As Integer = DetermineBattleSpeed(True, BattleScreen)
Dim oppSpeed As Integer = DetermineBattleSpeed(False, BattleScreen)
If ownSpeed > oppSpeed Then 'Faster than opponent
Return True
ElseIf ownSpeed < oppSpeed Then 'Slower than opponent
Return False
Else 'Speed is equal, decide randomly
If Core.Random.Next(0, 2) = 0 Then
Return True
Else
Return False
End If
End If
End Function
Public Shared Function AttackFirst(ByVal ownAttack As Attack, ByVal oppAttack As Attack, ByVal BattleScreen As BattleScreen) As Boolean
Dim ownPokemon As Pokemon = BattleScreen.OwnPokemon
Dim oppPokemon As Pokemon = BattleScreen.OppPokemon
Dim ownPriority As Integer = ownAttack.Priority
Dim oppPriority As Integer = oppAttack.Priority
If ownPokemon.Ability.Name.ToLower() = "prankster" Then
If ownAttack.Category = Attack.Categories.Status Then
ownPriority += 1
End If
End If
If oppPokemon.Ability.Name.ToLower() = "prankster" Then
If oppAttack.Category = Attack.Categories.Status Then
oppPriority += 1
End If
End If
'Added condition to check for full HP
If ownPokemon.Ability.Name.ToLower() = "gale wings" And ownAttack.Type.Type = Element.Types.Flying And ownPokemon.HP = ownPokemon.MaxHP Then
ownPriority += 1
End If
If oppPokemon.Ability.Name.ToLower() = "gale wings" And oppAttack.Type.Type = Element.Types.Flying And oppPokemon.HP = oppPokemon.MaxHP Then
oppPriority += 1
End If
If BattleScreen.FieldEffects.OwnCustapBerry > 0 Then
ownPriority += 1
BattleScreen.FieldEffects.OwnCustapBerry = 0
End If
If BattleScreen.FieldEffects.OppCustapBerry > 0 Then
oppPriority += 1
BattleScreen.FieldEffects.OppCustapBerry = 0
End If
'If the priority of your attack is higher, then attack first:
If ownPriority > oppPriority Then
Return True
ElseIf oppPriority > ownPriority Then 'Same thing for opp's attack
Return False
Else 'Same priority
'Quickclaw's 20% chance of hitting first:
Dim Claw As Integer = 0
If Not ownPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(True) = True And BattleScreen.FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then
If ownPokemon.Item.ID = 73 Then
If Core.Random.Next(0, 100) < 20 Then
Claw += 1 'Own claw succeeded
End If
End If
End If
If Not oppPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(False) = True And BattleScreen.FieldEffects.CanUseOwnItem(False, BattleScreen) = True Then
If oppPokemon.Item.ID = 73 Then
If Core.Random.Next(0, 100) < 20 Then
Claw += 10 'Opp's claw succeeded
End If
End If
End If
Select Case Claw
Case 1 'You succeed claw
Return True
Case 10 'Opp succeed claw
Return False
Case 11 'Both succeed claw, decide randomly
If Core.Random.Next(0, 2) = 0 Then
Return True
Else
Return False
End If
End Select
Dim Tail As Integer = 0 'Uses effect of Lagging Tail
If Not ownPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(True) = True And BattleScreen.FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then
If ownPokemon.Item.Name = "Lagging Tail" Then
Tail += 1
End If
End If
If Not oppPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(False) = True And BattleScreen.FieldEffects.CanUseOwnItem(False, BattleScreen) = True Then
If oppPokemon.Item.Name = "Lagging Tail" Then
Tail += 10
End If
End If
Select Case Tail
Case 1
Return False 'Your laggin tail effect works > You go last
Case 10
Return True 'Opponents lagging tail effect works > He goes last
Case 11
If Core.Random.Next(0, 2) = 0 Then 'Both laggin Tail works. > Random determination.
Return True
Else
Return False
End If
End Select
Dim Full As Integer = 0 'Uses effect of Full Incense
If Not ownPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(True) = True And BattleScreen.FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then
If ownPokemon.Item.Name = "Full Incense" Then
Full += 1
End If
End If
If Not oppPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(False) = True And BattleScreen.FieldEffects.CanUseOwnItem(False, BattleScreen) = True Then
If oppPokemon.Item.Name = "Full Incense" Then
Full += 10
End If
End If
Select Case Full
Case 1
Return False 'Your Full incense effect works > You go last
Case 10
Return True 'Opponents full incense effect works > He goes last
Case 11
If Core.Random.Next(0, 2) = 0 Then 'Both full incense works. > Random determination.
Return True
Else
Return False
End If
End Select
If ownPokemon.Ability.Name.ToLower() = "stall" And oppPokemon.Ability.Name.ToLower() <> "stall" Then
Return False
End If
If oppPokemon.Ability.Name.ToLower() = "stall" And ownPokemon.Ability.Name.ToLower() <> "stall" Then
Return True
End If
Dim _first As Boolean = False
'Determine strike first with speed:
Dim ownSpeed As Integer = DetermineBattleSpeed(True, BattleScreen)
Dim oppSpeed As Integer = DetermineBattleSpeed(False, BattleScreen)
If ownSpeed > oppSpeed Then 'Faster than opponent
_first = True
ElseIf ownSpeed < oppSpeed Then 'Slower than opponent
_first = False
Else 'Speed is equal, decide randomly
If Core.Random.Next(0, 2) = 0 Then
_first = True
Else
_first = False
End If
End If
If BattleScreen.FieldEffects.TrickRoom > 0 Then
_first = Not _first
End If
Return _first
End If
End Function
Public Shared Function DetermineBattleSpeed(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
p = BattleScreen.OppPokemon
End If
Dim speed As Integer = CInt(p.Speed * GetMultiplierFromStat(p.StatSpeed)) 'Calculate the speed's basic value from the speed and the speed stat
If own = True Then
If BattleScreen.IsPVPBattle = False Then
If Core.Player.Badges.Contains(3) = True Then
speed = CInt(speed + (speed * (1 / 8))) 'Add 1/8 of the speed if the player has the 3rd badge and it's not a PvP battle
End If
End If
End If
If p.Status = P3D.Pokemon.StatusProblems.Paralyzed And p.Ability.Name.ToLower() <> "quick feet" Then
speed = CInt(speed / 2) 'Divide the speed by 2 (gen 7 standards) if the Pokemon is paralyzed.
End If
If Not p.Item Is Nothing Then
If p.Item.Name = "Choice Scarf" Then
speed = CInt(speed * 1.5F)
End If
Dim SlowDownItems As List(Of String) = {"iron ball", "macho brace", "power bracer", "power belt", "power lens", "power band", "power anklet", "power weight"}.ToList()
If SlowDownItems.Contains(p.Item.Name.ToLower()) = True And BattleScreen.FieldEffects.CanUseItem(own) = True Then
speed = CInt(speed / 2)
End If
If own = True Then
If BattleScreen.FieldEffects.OwnTailWind > 0 Then
speed *= 2
End If
Else
If BattleScreen.FieldEffects.OppTailWind > 0 Then
speed *= 2
End If
End If
If p.Number = 132 Then
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(own) = True Then
If p.Item.Name = "Quick Powder" Then
speed *= 2
End If
End If
End If
End If
Select Case p.Ability.Name.ToLower()
Case "swift swim"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then
speed *= 2
End If
Case "chlorophyll"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
speed *= 2
End If
Case "sand rush"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then
speed *= 2
End If
Case "slush rush"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Hailstorm Then
speed *= 2
End If
Case "surge surfer"
If BattleScreen.FieldEffects.ElectricTerrain > 0 Then
speed *= 2
End If
End Select
Dim grassPledge As Integer = BattleScreen.FieldEffects.OppGrassPledge
If own = False Then
grassPledge = BattleScreen.FieldEffects.OwnGrassPledge
End If
If grassPledge > 0 Then
speed = CInt(speed / 2)
End If
If p.Ability.Name.ToLower() = "quick feet" Then
If p.Status = Pokemon.StatusProblems.Paralyzed Or p.Status = Pokemon.StatusProblems.Burn Or p.Status = Pokemon.StatusProblems.Poison Or p.Status = Pokemon.StatusProblems.Sleep Or p.Status = Pokemon.StatusProblems.Freeze Then
speed = CInt(speed * 1.5F)
End If
End If
If p.Ability.Name.ToLower() = "slow start" Then
If own = True Then
If BattleScreen.FieldEffects.OwnPokemonTurns < 5 Then
speed = CInt(speed / 2)
End If
Else
If BattleScreen.FieldEffects.OppPokemonTurns < 5 Then
speed = CInt(speed / 2)
End If
End If
End If
speed = speed.Clamp(1, 999)
Return speed
End Function
Public Shared Function DetermineBattleAttack(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Integer
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then
p = BattleScreen.OppPokemon
End If
Dim attack As Integer = CInt(p.Attack * GetMultiplierFromStat(p.StatAttack)) 'Calculate the attack's basic value
If own = True Then
If BattleScreen.IsPVPBattle = False Then
If Core.Player.Badges.Contains(1) = True Then
attack = CInt(attack + (attack * (1 / 8))) 'Add 1/8 of the attack if the player has the 1st badge and it's not a PvP battle
End If
End If
End If
If p.Status = P3D.Pokemon.StatusProblems.Burn And p.Ability.Name.ToLower() <> "guts" Then
attack = CInt(attack / 2)
End If
If Not p.Item Is Nothing Then
If p.Item.Name = "Choice Band" Then
attack = CInt(attack * 1.5F)
End If
If p.Number = 25 Then
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(own) = True Then
If p.Item.Name = "Light Ball" Then
attack *= 2
End If
End If
End If
If p.Number = 104 OrElse p.Number = 105 Then
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(own) = True Then
If p.Item.Name = "Thick Club" Then
attack *= 2
End If
End If
End If
End If
Select Case p.Ability.Name.ToLower()
Case "huge power"
attack *= 2
Case "pure power"
attack *= 2
Case "defeatist"
If p.HP / p.MaxHP <= 0.5 Then
attack = CInt(attack / 2)
End If
Case "hustle"
attack = CInt(attack * 1.5F)
Case "flower gift"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
attack = CInt(attack * 1.5F)
End If
End Select
If p.Ability.Name.ToLower() = "guts" Then
If p.Status = Pokemon.StatusProblems.Paralyzed Or p.Status = Pokemon.StatusProblems.Burn Or p.Status = Pokemon.StatusProblems.Poison Or p.Status = Pokemon.StatusProblems.Sleep Or p.Status = Pokemon.StatusProblems.Freeze Then
attack = CInt(attack * 1.5F)
End If
End If
If p.Ability.Name.ToLower() = "slow start" Then
If own = True Then
If BattleScreen.FieldEffects.OwnPokemonTurns < 5 Then
attack = CInt(attack / 2)
End If
Else
If BattleScreen.FieldEffects.OppPokemonTurns < 5 Then
attack = CInt(attack / 2)
End If
End If
End If
attack = attack.Clamp(1, 999)
Return attack
End Function
'''
''' Outcome: 0=true/>1=false:1=sleeptalk/snore 2=other move 3=start sleep 4=X wont obey 5=X wont obey 6=X turned away 7=X is loafing around 8=X pretended to not notice
'''
Public Shared Function ObedienceCheck(ByVal UsedAttack As Attack, BattleScreen As BattleScreen) As Integer
Dim p As Pokemon = BattleScreen.OwnPokemon
If p.OT = Core.Player.OT Then
Return 0
End If
If BattleScreen.IsPVPBattle = True Then
Return 0
End If
Dim badgeLevel As Integer = Badge.GetLevelCap()
If badgeLevel > -1 And p.Level > badgeLevel And p.OT <> Core.Player.OT Then
Dim r As Integer = Core.Random.Next(0, 256)
Dim A As Integer = CInt((p.Level + badgeLevel * r) / 256)
If A < badgeLevel Then
Return 0
Else
BattleScreen.FieldEffects.OwnRageCounter = 0
Dim outcome As Integer = 0
If UsedAttack.Name.ToLower() = "snore" Or UsedAttack.Name.ToLower() = "sleep talk" Then
Return 1
Else
r = Core.Random.Next(0, 256)
Dim B As Integer = CInt((p.Level + badgeLevel) * r / 256)
If B < badgeLevel Then
Return 2
Else
Dim C As Integer = p.Level - badgeLevel
r = Core.Random.Next(0, 256)
Dim uproar As Integer = BattleScreen.FieldEffects.OwnUproar
If p.Ability.Name.ToLower() <> "insomnia" And p.Ability.Name.ToLower() <> "vital spirit" And uproar = 0 Then
If r < C Then
Return 3
End If
Else
If r - C < C Then
Return 4
Else
Return 4 + Core.Random.Next(1, 5)
End If
End If
End If
End If
End If
Else
Return 0
End If
Return 0
End Function
Public Shared Function AccuracyCheck(ByVal UsedAttack As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
Dim p As Pokemon = BattleScreen.OwnPokemon
Dim op As Pokemon = BattleScreen.OppPokemon
If own = False Then
p = BattleScreen.OppPokemon
op = BattleScreen.OwnPokemon
End If
If UsedAttack.Accuracy <= 0 Then
Return True
End If
If p.Ability.Name.ToLower() = "no guard" Or op.Ability.Name.ToLower() = "no guard" Then
Return True
End If
If UsedAttack.GetUseAccEvasion(own, BattleScreen) = False Then
Return True
End If
Dim result As Single = 1.0F
Dim INIT As Integer = UsedAttack.GetAccuracy(own, BattleScreen)
If op.Ability.Name.ToLower() = "wonder skin" And UsedAttack.Category = Attack.Categories.Status And UsedAttack.GetAccuracy(own, BattleScreen) > 0 And BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) = True Then
INIT = 50
End If
If INIT < 0 Then
INIT = 1
End If
Dim evasion As Integer = op.Evasion
Dim accuracy As Integer = p.Accuracy
If UsedAttack.UseOppEvasion = False Then
evasion = 0
End If
Dim ACC As Integer = accuracy - evasion
ACC = ACC.Clamp(-6, 6)
Dim ACCM As Single = GetMultiplierFromAccEvasion(ACC)
result = INIT * ACCM
If Not op.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Not own) = True Then
If op.Item.Name.ToLower() = "bright powder" Or op.Item.Name.ToLower() = "lax incense" Then
result *= 0.9F
End If
End If
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(own) = True Then
Select Case p.Item.Name.ToLower()
Case "wide lens"
result *= 1.1F
Case "zoom lens"
Dim ownTurns As Integer = BattleScreen.FieldEffects.OwnTurnCounts
Dim oppTurns As Integer = BattleScreen.FieldEffects.OppTurnCounts
If own = False Then
ownTurns = BattleScreen.FieldEffects.OppTurnCounts
oppTurns = BattleScreen.FieldEffects.OwnTurnCounts
End If
If ownTurns < oppTurns Then
result *= 1.2F
End If
End Select
End If
Select Case p.Ability.Name.ToLower()
Case "compoundeyes"
result *= 1.3F
Case "victory star"
result *= 1.1F
Case "hustle"
If UsedAttack.Category = Attack.Categories.Physical Then
result *= 0.8F
End If
End Select
Select Case op.Ability.Name.ToLower()
Case "sand veil"
If BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) = True Then
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then
result *= 0.8F
End If
End If
Case "snow cloak"
If BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) = True Then
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Hailstorm Then
result *= 0.8F
End If
End If
Case "tangled feet"
If BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) = True Then
If op.HasVolatileStatus(Pokemon.VolatileStatus.Confusion) = True Then
result *= 0.5F
End If
End If
End Select
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Foggy Then
result *= 0.6F
End If
If BattleScreen.FieldEffects.Gravity > 0 Then
result *= CSng(10 / 6)
End If
Dim F As Integer = CInt(result).Clamp(0, 100)
Dim R As Integer = Core.Random.Next(0, 100)
If R < F Then
Return True
Else
Return False
End If
End Function
Public Shared Function IsCriticalHit(ByVal UsedAttack As Attack, ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
Dim C As Integer = 0
Dim p As Pokemon = BattleScreen.OwnPokemon
Dim op As Pokemon = BattleScreen.OppPokemon
If own = False Then
p = BattleScreen.OppPokemon
op = BattleScreen.OwnPokemon
End If
If UsedAttack.CriticalChance < 1 Then
Return False
End If
If op.Ability.Name.ToLower() = "battle armor" Or op.Ability.Name.ToLower() = "shell armor" Then
If BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) = True Then
Return False
End If
End If
Dim luckyChant As Integer = BattleScreen.FieldEffects.OppLuckyChant
If own = False Then
luckyChant = BattleScreen.FieldEffects.OwnLuckyChant
End If
If luckyChant > 0 Then
Return False
End If
If p.Ability.Name.ToLower() = "super luck" Then
C += 1
End If
Dim focusEnergy As Integer = BattleScreen.FieldEffects.OwnFocusEnergy
If own = False Then
focusEnergy = BattleScreen.FieldEffects.OppFocusEnergy
End If
If focusEnergy > 0 Then
C += 2
End If
If UsedAttack.CriticalChance > 1 Then
C += 1
End If
Dim lansat As Integer = BattleScreen.FieldEffects.OwnLansatBerry
If own = False Then
lansat = BattleScreen.FieldEffects.OppLansatBerry
End If
If lansat > 0 Then
C += 2
End If
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(own) = True Then
Select Case p.Item.Name.ToLower()
Case "lucky punch"
If p.Number = 113 Then
C += 2
End If
Case "leek"
If p.Number = 83 Then
C += 2
End If
Case "scope lens"
C += 1
Case "razor claw"
C += 1
End Select
End If
Dim chance As Integer = 16
Select Case C
Case 0
chance = 16
Case 1
chance = 8
Case 2
chance = 4
Case 3
chance = 3
Case Else
chance = 2
End Select
If Core.Random.Next(0, chance) = 0 Then
Return True
End If
If UsedAttack.ID = 524 Then 'frost breath
Return True
End If
If UsedAttack.ID = 480 Then 'storm throw
Return True
End If
Return False
End Function
Public Shared Function CanRun(ByVal own As Boolean, ByVal BattleScreen As BattleScreen) As Boolean
If BattleScreen.BattleMode = BattleScreen.BattleModes.Safari Then
Return True
End If
Dim p As Pokemon = BattleScreen.OwnPokemon
Dim op As Pokemon = BattleScreen.OppPokemon
If own = False Then
p = BattleScreen.OppPokemon
op = BattleScreen.OwnPokemon
End If
If p.Type1.Type = Element.Types.Ghost Or p.Type2.Type = Element.Types.Ghost Then
Return True
End If
If p.Ability.Name.ToLower() = "run away" Then
Return True
End If
If Not p.Item Is Nothing Then
If p.Item.Name.ToLower() = "smoke ball" And BattleScreen.FieldEffects.CanUseItem(own) = True And BattleScreen.FieldEffects.CanUseOwnItem(own, BattleScreen) = True Then
Return True
End If
End If
If op.Ability.Name.ToLower() = "shadow tag" And p.Ability.Name.ToLower() <> "shadow tag" And op.HP > 0 Then
Return False
End If
If op.Ability.Name.ToLower() = "arena trap" And op.HP > 0 And BattleScreen.FieldEffects.IsGrounded(own, BattleScreen) = True Then
Return False
End If
If op.Ability.Name.ToLower() = "magnet pull" And op.HP > 0 Then
If p.Type1.Type = Element.Types.Steel Or p.Type2.Type = Element.Types.Steel Then
Return False
End If
End If
With BattleScreen.FieldEffects
If own = True Then
If .OwnWrap > 0 Or .OwnBind > 0 Or .OwnClamp > 0 Or .OwnFireSpin > 0 Or .OwnMagmaStorm > 0 Or .OwnSandTomb > 0 Or .OwnWhirlpool > 0 Or .OwnInfestation > 0 Then
Return False
End If
Else
If .OppWrap > 0 Or .OppBind > 0 Or .OppClamp > 0 Or .OppFireSpin > 0 Or .OppMagmaStorm > 0 Or .OppSandTomb > 0 Or .OppWhirlpool > 0 Or .OppInfestation > 0 Then
Return False
End If
End If
End With
Dim ingrain As Integer = BattleScreen.FieldEffects.OwnIngrain
If own = False Then
ingrain = BattleScreen.FieldEffects.OppIngrain
End If
If ingrain > 0 Then
Return False
End If
If p.Speed > op.Speed Then
Return True
Else
Dim A As Integer = p.Speed
Dim B As Integer = op.Speed
If B = 0 Then
B = 1
End If
Dim C As Integer = BattleScreen.FieldEffects.RunTries
Dim X As Integer = (CInt(A * 128 / B) + (30 * C)) Mod 256
Dim R As Integer = Core.Random.Next(0, 256)
If R < X Then
Return True
Else
BattleScreen.FieldEffects.RunTries += 1
Return False
End If
End If
End Function
Public Shared Function CalculateEffectiveness(ByVal move As Attack, ByVal BattleScreen As BattleScreen, ByVal p As Pokemon, ByVal op As Pokemon, ByVal own As Boolean) As Single
Dim Type1 As Single = ReverseTypeEffectiveness(Element.GetElementMultiplier(move.GetAttackType(own, BattleScreen), op.Type1))
Dim Type2 As Single = ReverseTypeEffectiveness(Element.GetElementMultiplier(move.GetAttackType(own, BattleScreen), op.Type2))
Dim effectiveness As Single = Type1 * Type2
'Freeze Dry
If move.ID = 573 Then
If op.Type1.Type = Element.Types.Water Or op.Type2.Type = Element.Types.Water Then
effectiveness *= 4
End If
End If
'Flying Press
If move.ID = 9999 Then
If op.Type1.Type = Element.Types.Fighting Or op.Type2.Type = Element.Types.Fighting Then
effectiveness *= 2
End If
If op.Type1.Type = Element.Types.Grass Or op.Type2.Type = Element.Types.Grass Then
effectiveness *= 2
End If
If op.Type1.Type = Element.Types.Bug Or op.Type2.Type = Element.Types.Bug Then
effectiveness *= 2
End If
If op.Type1.Type = Element.Types.Rock Or op.Type2.Type = Element.Types.Rock Then
effectiveness /= 2
End If
If op.Type1.Type = Element.Types.Steel Or op.Type2.Type = Element.Types.Steel Then
effectiveness /= 2
End If
If op.Type1.Type = Element.Types.Electric Or op.Type2.Type = Element.Types.Electric Then
effectiveness /= 2
End If
End If
'Sheer Cold
If move.ID = 329 Then
If op.IsType(Element.Types.Ice) Then
effectiveness = 0.0F
End If
End If
Dim digHit As Boolean = False
Dim airHit As Boolean = False
Dim regHit As Boolean = False
'Grounded condition
If move.GetAttackType(own, BattleScreen).Type = Element.Types.Ground And BattleScreen.FieldEffects.IsGrounded(Not own, BattleScreen) = False Then
Dim targetDig As Boolean = False
Dim targetAir As Boolean = False
With BattleScreen.FieldEffects
If own = True Then
If .OppDigCounter > 0 Then
targetDig = True
End If
If .OppFlyCounter > 0 Or .OppBounceCounter > 0 Or .OppSkyDropCounter > 0 Then
targetAir = True
End If
Else
If .OwnDigCounter > 0 Then
targetDig = True
End If
If .OwnFlyCounter > 0 Or .OwnBounceCounter > 0 Or .OwnSkyDropCounter > 0 Then
targetAir = True
End If
End If
End With
Select Case move.ID
Case 89, 90, 222 'Earthquake, Fissure, Magnitude
effectiveness = 0.0F
If targetDig = True Then
digHit = True
End If
Case 614 'Thousand Arrows
airHit = True
If targetAir = True Then
If own = True Then
BattleScreen.FieldEffects.OppFlyCounter = 0
BattleScreen.FieldEffects.OppBounceCounter = 0
Else
BattleScreen.FieldEffects.OwnFlyCounter = 0
BattleScreen.FieldEffects.OwnBounceCounter = 0
End If
End If
Case Else
effectiveness = 0.0F
End Select
ElseIf move.GetAttackType(own, BattleScreen).Type = Element.Types.Ground And BattleScreen.FieldEffects.IsGrounded(Not own, BattleScreen) = True Then
regHit = True
End If
'Grounded hit effectiveness
If digHit = True Or airHit = True Or regHit = True Then
effectiveness = 1.0F
If op.IsType(Element.Types.Electric) Then
effectiveness *= 2
End If
If op.IsType(Element.Types.Fire) Then
effectiveness *= 2
End If
If op.IsType(Element.Types.Poison) Then
effectiveness *= 2
End If
If op.IsType(Element.Types.Rock) Then
effectiveness *= 2
End If
If op.IsType(Element.Types.Steel) Then
effectiveness *= 2
End If
If op.IsType(Element.Types.Bug) Then
effectiveness /= 2
End If
If op.IsType(Element.Types.Grass) Then
effectiveness /= 2
End If
End If
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 Type1 = 0 Then
effectiveness = Type2
End If
If Type2 = 0 Then
effectiveness = Type1
End If
If effectiveness = 0 Then
effectiveness = 1.0F
End If
End If
End If
If move.ImmunityAffected = False And effectiveness = 0 Then
If Type1 = 0.0F Then
effectiveness = Type2
End If
If Type2 = 0.0F Then
effectiveness = Type1
End If
If effectiveness = 0.0F Then
effectiveness = 1.0F
End If
End If
If op.IsType(Element.Types.Ghost) = True Then
Dim CanHitGhost = False
Dim Foresight As Integer = 0
Dim OdorSleuth As Integer = 0
If own Then
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
If CanHitGhost Then
If move.Type.Type = Element.Types.Normal Or move.Type.Type = Element.Types.Fighting Then
If Type1 = 0.0F Then
effectiveness = Type2
End If
If Type2 = 0.0F Then
effectiveness = Type1
End If
If effectiveness = 0.0F Then
effectiveness = 1.0F
End If
End If
End If
End If
If op.IsType(Element.Types.Dark) = True Then
Dim miracleEye As Integer = BattleScreen.FieldEffects.OppMiracleEye
If own = False Then
miracleEye = BattleScreen.FieldEffects.OwnMiracleEye
End If
If miracleEye > 0 Then
If move.Type.Type = Element.Types.Psychic Then
If Type1 = 0.0F Then
effectiveness = Type2
End If
If Type2 = 0.0F Then
effectiveness = Type1
End If
If effectiveness = 0.0F Then
effectiveness = 1.0F
End If
End If
End If
End If
If move.UseEffectiveness = False And effectiveness <> 0.0F Then
Return 1.0F
End If
Return effectiveness
End Function
Public Shared Function CalculateEffectiveness(ByVal own As Boolean, ByVal move As Attack, ByVal BattleScreen As BattleScreen) As Single
Dim p As Pokemon = BattleScreen.OwnPokemon
Dim op As Pokemon = BattleScreen.OppPokemon
If own = False Then
p = BattleScreen.OppPokemon
op = BattleScreen.OwnPokemon
End If
Return CalculateEffectiveness(move, BattleScreen, p, op, own)
End Function
Public Shared Function GainExp(ByVal p As Pokemon, ByVal BattleScreen As BattleScreen, ByVal PokemonList As List(Of Integer)) As Integer
Dim op As Pokemon = BattleScreen.OppPokemon
Dim a As Double = 1D
If BattleScreen.IsTrainerBattle = True Then
a = 1.5D
End If
Dim b As Double = op.BaseExperience
Dim t As Double = 1D
If p.OT <> Core.Player.OT Then
t = 1.5D
End If
Dim e As Double = 1D
If Not p.Item Is Nothing Then
If p.Item.Name.ToLower() = "lucky egg" Then
e = 1.5D
End If
End If
Dim L As Double = op.Level
Dim Lp As Double = p.Level
Dim s As Double = PokemonList.Count
Dim expShares As Integer = 0
For Each po As Pokemon In Core.Player.Pokemons
If Not po.Item Is Nothing Then
If po.Item.Name.ToLower() = "exp share" Then
expShares += 1
End If
End If
Next
If expShares > 0 Then
If Not p.Item Is Nothing Then
If p.Item.Name.ToLower() = "exp share" Then
s = 2D
Else
s = (PokemonList.Count * 2D) * expShares
End If
End If
End If
Dim EXP As Integer = CInt((((a * b * L) / (5 * s)) * (((2 * L + 10) ^ 2.5D) / ((L + Lp + 10) ^ 2.5D)) + 1) * t * e * 1)
If EXP < 2 Then
EXP = 2
End If
For Each mysteryEvent As MysteryEventScreen.MysteryEvent In MysteryEventScreen.ActivatedMysteryEvents
If mysteryEvent.EventType = MysteryEventScreen.EventTypes.EXPMultiplier Then
EXP = CInt(EXP * CSng(mysteryEvent.Value.Replace(".", GameController.DecSeparator)))
End If
Next
Return EXP
End Function
Public Shared Function SafariRound(ByVal BattleScreen As BattleScreen) As Battle.RoundConst
If BattleScreen.PokemonSafariStatus > 0 Then
BattleScreen.PokemonSafariStatus -= 1
ElseIf BattleScreen.PokemonSafariStatus < 0 Then
BattleScreen.PokemonSafariStatus += 1
End If
Dim flee As Boolean = False
Dim X As Single = BattleScreen.OppPokemon.Speed Mod 256
X *= 2
If X > 255 Then
flee = True
End If
If flee = False Then
If BattleScreen.PokemonSafariStatus < 0 Then
X *= 2
ElseIf BattleScreen.PokemonSafariStatus > 0 Then
X /= 4
End If
End If
Dim R As Integer = Core.Random.Next(0, 256)
If R < X Then
flee = True
End If
If flee = True And CanSwitch(BattleScreen, False) = True Then
Return New Battle.RoundConst() With {.StepType = Battle.RoundConst.StepTypes.Flee, .Argument = BattleScreen.OppPokemon.GetDisplayName() & " fled!"}
Else
If BattleScreen.PokemonSafariStatus < 0 Then
Return New Battle.RoundConst() With {.StepType = Battle.RoundConst.StepTypes.Text, .Argument = BattleScreen.OppPokemon.GetDisplayName() & " is angry!"}
ElseIf BattleScreen.PokemonSafariStatus > 0 Then
Return New Battle.RoundConst() With {.StepType = Battle.RoundConst.StepTypes.Text, .Argument = BattleScreen.OppPokemon.GetDisplayName() & " is eating!"}
Else
Return New Battle.RoundConst() With {.StepType = Battle.RoundConst.StepTypes.Text, .Argument = BattleScreen.OppPokemon.GetDisplayName() & " is watching carefully!"}
End If
End If
End Function
Public Shared Function CanSwitch(ByVal BattleScreen As BattleScreen, ByVal own As Boolean) As Boolean
'Abilities: Shadow Tag, Arena Trap, Magnet Pull
'Items
'Used Moves + Trapping Moves: Block, Mean Look, Spider Web, Ingrain
'Trapping: Bind, Clamp, Fire Spin, Infestation, Magma Storm, Sand Tomb, Whirlpool, Wrap
If own = True Then
If BattleScreen.OwnPokemon.Status = Pokemon.StatusProblems.Fainted Or BattleScreen.OwnPokemon.HP <= 0 Then
Return True
End If
If BattleScreen.OwnPokemon.Type1.Type = Element.Types.Ghost Or BattleScreen.OwnPokemon.Type2.Type = Element.Types.Ghost Then
Return True
End If
With BattleScreen
If Not .OwnPokemon.Item Is Nothing Then
If .OwnPokemon.Item.Name.ToLower() = "shed shell" And .FieldEffects.CanUseItem(True) = True And .FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then
Return True
End If
End If
End With
If BattleScreen.IsRemoteBattle AndAlso BattleScreen.IsPVPBattle AndAlso Not BattleScreen.IsHost Then
If BattleScreen.FieldEffects.ClientCanSwitch = False Then
Return False
End If
End If
If BattleScreen.OppPokemon.Ability.Name.ToLower() = "shadow tag" And BattleScreen.OwnPokemon.Ability.Name.ToLower() <> "shadow tag" And BattleScreen.OppPokemon.HP > 0 Then
Return False
End If
If BattleScreen.FieldEffects.OwnTrappedCounter > 0 Then
Return False
End If
If BattleScreen.OppPokemon.Ability.Name.ToLower() = "arena trap" And BattleScreen.OppPokemon.HP > 0 And BattleScreen.FieldEffects.IsGrounded(True, BattleScreen) = True Then
Return False
End If
If BattleScreen.OppPokemon.Ability.Name.ToLower() = "magnet pull" And BattleScreen.OwnPokemon.IsType(Element.Types.Steel) = True And BattleScreen.OppPokemon.HP > 0 Then
Return False
End If
With BattleScreen.FieldEffects
If .OwnWrap > 0 Or .OwnBind > 0 Or .OwnClamp > 0 Or .OwnFireSpin > 0 Or .OwnMagmaStorm > 0 Or .OwnSandTomb > 0 Or .OwnWhirlpool > 0 Or .OwnInfestation > 0 Then
Return False
End If
End With
If BattleScreen.FieldEffects.OwnIngrain > 0 Then
Return False
End If
Else
If BattleScreen.OppPokemon.Status = Pokemon.StatusProblems.Fainted Or BattleScreen.OppPokemon.HP <= 0 Then
Return True
End If
If BattleScreen.OppPokemon.Type1.Type = Element.Types.Ghost Or BattleScreen.OppPokemon.Type2.Type = Element.Types.Ghost Then
Return True
End If
With BattleScreen
If Not .OppPokemon.Item Is Nothing Then
If .OppPokemon.Item.Name.ToLower() = "shed shell" And .FieldEffects.CanUseItem(False) = True And .FieldEffects.CanUseOwnItem(False, BattleScreen) = True Then
Return True
End If
End If
End With
If BattleScreen.OwnPokemon.Ability.Name.ToLower() = "shadow tag" And BattleScreen.OppPokemon.Ability.Name.ToLower() <> "shadow tag" And BattleScreen.OwnPokemon.HP > 0 Then
Return False
End If
If BattleScreen.FieldEffects.OppTrappedCounter > 0 Then
Return False
End If
If BattleScreen.OwnPokemon.Ability.Name.ToLower() = "arena trap" And BattleScreen.OwnPokemon.HP > 0 And BattleScreen.FieldEffects.IsGrounded(False, BattleScreen) = True Then
Return False
End If
If BattleScreen.OwnPokemon.Ability.Name.ToLower() = "magnet pull" And BattleScreen.OppPokemon.IsType(Element.Types.Steel) = True And BattleScreen.OwnPokemon.HP > 0 Then
Return False
End If
With BattleScreen.FieldEffects
If .OppWrap > 0 Or .OppBind > 0 Or .OppClamp > 0 Or .OppFireSpin > 0 Or .OppMagmaStorm > 0 Or .OppSandTomb > 0 Or .OppWhirlpool > 0 Or .OppInfestation > 0 Then
Return False
End If
End With
If BattleScreen.FieldEffects.OppIngrain > 0 Then
Return False
End If
End If
Return True
End Function
Public Shared Function CalculateDamage(ByVal Attack As Attack, ByVal Critical As Boolean, ByVal Own As Boolean, ByVal targetPokemon As Boolean, ByVal BattleScreen As BattleScreen, Optional ByVal ExtraParameter As String = "") As Integer
Dim p As Pokemon = Nothing
Dim Op As Pokemon = Nothing
If Own = True Then
p = BattleScreen.OwnPokemon
Else
p = BattleScreen.OppPokemon
End If
If targetPokemon = True Then
Op = BattleScreen.OwnPokemon
Else
Op = BattleScreen.OppPokemon
End If
Dim damage As Integer = 0
Dim Level As Integer = p.Level
'BASE POWER:
Dim BasePower As Integer = 1
Dim HH As Single = 1.0F 'Helping hand = 1.5
Dim BP As Single = Attack.GetBasePower(Own, BattleScreen)
Dim IT As Single = 1.0F
Dim CHG As Single = 1.0F
Dim MS As Single = 1.0F
Dim WS As Single = 1.0F
Dim UA As Single = 1.0F
Dim FA As Single = 1.0F
'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
Select Case p.Item.Name.ToLower()
Case "muscle band"
If Attack.Category = Attack.Categories.Physical Then
IT = 1.1F
End If
Case "wise glasses"
If Attack.Category = Attack.Categories.Special Then
IT = 1.1F
End If
Case "adamant orb"
If p.Number = 483 Then
If Attack.Type.Type = Element.Types.Dragon Or Attack.Type.Type = Element.Types.Steel Then
IT = 1.2F
End If
End If
Case "lustrous orb"
If p.Number = 484 Then
If Attack.Type.Type = Element.Types.Dragon Or Attack.Type.Type = Element.Types.Water Then
IT = 1.2F
End If
End If
Case "griseous orb"
If p.Number = 487 Then
If Attack.Type.Type = Element.Types.Dragon Or Attack.Type.Type = Element.Types.Ghost Then
IT = 1.2F
End If
End If
Case "soul dew"
If p.Number = 380 OrElse p.Number = 381 Then
If Attack.Type.Type = Element.Types.Dragon Or Attack.Type.Type = Element.Types.Psychic Then
IT = 1.2F
End If
End If
Case Else
IT = 1.0F
End Select
Select Case p.Item.ID
Case 98, 270 'Black Belt, Fist Plate
If Attack.Type.Type = Element.Types.Fighting Then
IT = 1.2F
End If
Case 102, 268 'Black Glasses, Dread Plate
If Attack.Type.Type = Element.Types.Dark Then
IT = 1.2F
End If
Case 138, 271 'Charcoal, Flame Plate
If Attack.Type.Type = Element.Types.Fire Then
IT = 1.2F
End If
Case 144, 267 'Dragon Fang, Draco Plate
If Attack.Type.Type = Element.Types.Dragon Then
IT = 1.2F
End If
Case 125, 281, 286 'Hard Stone, Stone Plate, Rock Incense
If Attack.Type.Type = Element.Types.Rock Then
IT = 1.2F
End If
Case 108, 283 'Magnet, Zap Plate
If Attack.Type.Type = Element.Types.Electric Then
IT = 1.2F
End If
Case 143, 274 'Metal Coat, Iron Plate
If Attack.Type.Type = Element.Types.Steel Then
IT = 1.2F
End If
Case 117, 275, 287 'Miracle Seed, Meadow Plate, Rose Incense
If Attack.Type.Type = Element.Types.Grass Then
IT = 1.2F
End If
Case 95, 145, 264, 279 'Mystic Water, Wave Incense, Sea Incense, Splash Plate
If Attack.Type.Type = Element.Types.Water Then
IT = 1.2F
End If
Case 107, 272 'NeverMeltIce, Icicle Plate
If Attack.Type.Type = Element.Types.Ice Then
IT = 1.2F
End If
Case 104, 277 'Pink Bow, Pixie Plate
If Attack.Type.Type = Element.Types.Fairy Then
IT = 1.2F
End If
Case 81, 282 'Poison Barb, Toxic Plate
If Attack.Type.Type = Element.Types.Poison Then
IT = 1.2F
End If
Case 77, 278 'Sharp Beak, Sky Plate
If Attack.Type.Type = Element.Types.Flying Then
IT = 1.2F
End If
Case 88, 273 'Silver Powder, Insect Plate
If Attack.Type.Type = Element.Types.Bug Then
IT = 1.2F
End If
Case 76, 269 'Soft Sand, Earth Plate
If Attack.Type.Type = Element.Types.Ground Then
IT = 1.2F
End If
Case 113, 280 'Spell Tag, Spooky Plate
If Attack.Type.Type = Element.Types.Ghost Then
IT = 1.2F
End If
Case 96, 263, 276 'Twisted Spoon, Odd Incense, Mind Plate
If Attack.Type.Type = Element.Types.Psychic Then
IT = 1.2F
End If
Case 90 'Silk Scarf
If Attack.Type.Type = Element.Types.Normal Then
IT = 1.2F
End If
End Select
Select Case p.Item.ID
Case 635 'Fighting Gem
If Attack.Type.Type = Element.Types.Fighting Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:fighting gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Fighting Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 644 'Dark Gem
If Attack.Type.Type = Element.Types.Dark Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:dark gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Dark Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 630 'Fire Gem
If Attack.Type.Type = Element.Types.Fire Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:fire gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Fire Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 643 'Dragon Gem
If Attack.Type.Type = Element.Types.Dragon Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:dragon gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Dragon Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 641 'Rock Gem
If Attack.Type.Type = Element.Types.Rock Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:rock gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Rock Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 632 'Electric Gem
If Attack.Type.Type = Element.Types.Electric Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:electric gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Electric Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 645 'Steel Gem
If Attack.Type.Type = Element.Types.Steel Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:steel gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Steel Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 633 'Grass Gem
If Attack.Type.Type = Element.Types.Grass Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:grass gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Grass Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 631 'Water Gem
If Attack.Type.Type = Element.Types.Water Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:water gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Water Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 634 'Ice Gem
If Attack.Type.Type = Element.Types.Ice Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:ice gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Ice Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 647 'Fairy Gem
If Attack.Type.Type = Element.Types.Fairy Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:fairy gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Fairy Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 636 'Poison Gem
If Attack.Type.Type = Element.Types.Poison Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:poison gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Poison Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 638 'Flying Gem
If Attack.Type.Type = Element.Types.Flying Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:flying gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Flying Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 640 'Bug Gem
If Attack.Type.Type = Element.Types.Bug Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:bug gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Bug Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 637 'Ground Gem
If Attack.Type.Type = Element.Types.Ground Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:ground gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Ground Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 642 'Ghost Gem
If Attack.Type.Type = Element.Types.Ghost Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:ghost gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Ghost Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 639 'Psychic Gem
If Attack.Type.Type = Element.Types.Psychic Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:psychic gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Psychic Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
Case 646 'Normal Gem
If Attack.Type.Type = Element.Types.Normal Then
If BattleScreen.Battle.RemoveHeldItem(Own, Own, BattleScreen, "-1", "item:normal gem") = True Then
BattleScreen.BattleQuery.Add(New TextQueryObject("The Normal Gem boosted " & p.GetDisplayName() & "'s " & Attack.Name & "!"))
IT = 1.3F
End If
End If
End Select
End If
'CHG (If used Charge)
Dim lastMove As Attack = BattleScreen.FieldEffects.OwnLastMove
If Own = False Then
lastMove = BattleScreen.FieldEffects.OppLastMove
End If
If Not lastMove Is Nothing Then
If lastMove.Name.ToLower() = "charge" And Attack.Type.Type = Element.Types.Electric Then
CHG = 2.0F
End If
End If
'MS
If BattleScreen.FieldEffects.MudSport > 0 And Attack.Type.Type = Element.Types.Electric Then
MS = 0.5F
End If
'WA
If BattleScreen.FieldEffects.WaterSport > 0 And Attack.Type.Type = Element.Types.Fire Then
WS = 0.5F
End If
'UA (User Ability)
Select Case p.Ability.Name.ToLower()
Case "rivalry"
If p.Gender <> Pokemon.Genders.Genderless And Op.Gender <> Pokemon.Genders.Genderless Then
If p.Gender = Op.Gender Then
UA = 1.25F
Else
UA = 0.75F
End If
End If
Case "reckless"
If Attack.IsRecoilMove = True Then
UA = 1.2F
End If
Case "iron fist"
If Attack.IsPunchingMove = True Then
UA = 1.2F
End If
Case "blaze"
If p.HP < CInt(Math.Floor(p.MaxHP / 3)) And Attack.Type.Type = Element.Types.Fire Then
UA = 1.5F
End If
Case "overgrow"
If p.HP < CInt(Math.Floor(p.MaxHP / 3)) And Attack.Type.Type = Element.Types.Grass Then
UA = 1.5F
End If
Case "torrent"
If p.HP < CInt(Math.Floor(p.MaxHP / 3)) And Attack.Type.Type = Element.Types.Water Then
UA = 1.5F
End If
Case "swarm"
If p.HP < CInt(Math.Floor(p.MaxHP / 3)) And Attack.Type.Type = Element.Types.Bug Then
UA = 1.5F
End If
Case "technician"
If Attack.GetBasePower(Own, BattleScreen) <= 60 Then
UA = 1.5F
End If
Case "sheer force"
If Attack.HasSecondaryEffect = True Then
UA = 1.3F
End If
Case "analytic"
If Own = True Then
If BattleScreen.FieldEffects.OwnTurnCounts < BattleScreen.FieldEffects.OppTurnCounts Then
UA = 1.3F
End If
Else
If BattleScreen.FieldEffects.OwnTurnCounts > BattleScreen.FieldEffects.OppTurnCounts Then
UA = 1.3F
End If
End If
Case "sand force"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then
If Attack.Type.Type = Element.Types.Rock Or Attack.Type.Type = Element.Types.Ground Or Attack.Type.Type = Element.Types.Steel Then
UA = 1.3F
End If
End If
Case "strong jaw"
If Attack.IsJawMove = True Then
UA = 1.5F
End If
Case "refrigerate"
If Attack.Type.Type = Element.Types.Normal Then
UA = 1.2F
End If
Case "pixilate"
If Attack.Type.Type = Element.Types.Normal Then
UA = 1.2F
End If
Case "normalize"
If Attack.Type.Type = Element.Types.Normal Then
UA = 1.2F
End If
Case "galvanize"
If Attack.Type.Type = Element.Types.Normal Then
UA = 1.2F
End If
Case "aerilate"
If Attack.Type.Type = Element.Types.Normal Then
UA = 1.2F
End If
Case "mega launcher"
If Attack.IsPulseMove = True Then
UA = 1.5F
End If
Case "tough claws"
If Attack.MakesContact = True Then
UA = 1.3F
End If
Case "dark aura"
If Attack.Type.Type = Element.Types.Dark Then
UA = 1.3F
End If
Case "fairy aura"
If Attack.Type.Type = Element.Types.Fairy Then
UA = 1.3F
End If
Case "parental bond"
If ExtraParameter = "parental bond" Then
UA = 0.25
End If
Case Else
UA = 1.0F
End Select
'FA (Foe ability)
Select Case Op.Ability.Name.ToLower()
Case "thick fat"
If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
If Attack.Type.Type = Element.Types.Fire Or Attack.Type.Type = Element.Types.Ice Then
FA = 0.5F
End If
End If
Case "heatproof"
If BattleScreen.FieldEffects.CanUseAbility(Own, BattleScreen) = True Then
If Attack.Type.Type = Element.Types.Fire Then
FA = 0.5F
End If
End If
Case "dry skin"
If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
If Attack.Type.Type = Element.Types.Fire Then
FA = 1.25F
End If
End If
Case "multiscale"
If Op.HP = Op.MaxHP Then
FA = 0.5F
End If
Case "dark aura"
If Attack.Type.Type = Element.Types.Dark Then
FA = 1.3F
End If
Case "fairy aura"
If Attack.Type.Type = Element.Types.Fairy Then
FA = 1.3F
End If
Case Else
FA = 1.0F
End Select
BasePower = CInt(Math.Floor(HH * BP * IT * CHG * MS * WS * UA * FA))
'ATK:
Dim Atk As Integer = 1
Dim AStat As Single = 1.0F
Dim ASM As Single = 1.0F
Dim AM As Single = 1.0F
Dim IM As Single = 1.0F
If Attack.Category = Attack.Categories.Physical Then
If Attack.ID = 492 Then
AStat = Attack.GetUseAttackStat(Op) 'When the move is Foul Play
ASM = GetMultiplierFromStat(Op.StatAttack)
Else
AStat = Attack.GetUseAttackStat(p)
ASM = GetMultiplierFromStat(p.StatAttack)
End If
If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
If Op.Ability.Name.ToLower() = "unaware" Then
ASM = 1.0F
End If
End If
Select Case p.Ability.Name.ToLower()
Case "pure power"
AM = 2.0F
Case "huge power"
AM = 2.0F
Case "flower gift"
If BattleScreen.FieldEffects.CanUseAbility(Own, BattleScreen) = True Then
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
AM = 1.5F
End If
End If
Case "guts"
If p.Status = Pokemon.StatusProblems.Paralyzed Or p.Status = Pokemon.StatusProblems.Poison Or p.Status = Pokemon.StatusProblems.Burn Or p.Status = Pokemon.StatusProblems.Sleep Or p.Status = Pokemon.StatusProblems.BadPoison Then
AM = 1.5F
End If
Case "hustle"
AM = 1.5F
Case "slow start"
If Own = True Then
If BattleScreen.FieldEffects.OwnPokemonTurns < 5 Then
AM = 0.5F
End If
Else
If BattleScreen.FieldEffects.OppPokemonTurns < 5 Then
AM = 0.5F
End If
End If
Case "toxic boost"
If p.Status = Pokemon.StatusProblems.Poison Or p.Status = Pokemon.StatusProblems.BadPoison Then
AM = 1.5F
End If
Case "defeatist"
If p.HP <= CInt(p.MaxHP / 2) Then
AM = 0.5F
End If
Case Else
AM = 1.0F
End Select
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()
Case "choice band"
IM = 1.5F
Case "light ball"
If p.Number = 25 Then
IM = 2.0F
End If
Case "thick club"
If p.Number = 104 Or p.Number = 105 Then
IM = 2.0F
End If
Case Else
IM = 1.0F
End Select
End If
ElseIf Attack.Category = Attack.Categories.Special Then
AStat = Attack.GetUseAttackStat(p)
ASM = GetMultiplierFromStat(p.StatSpAttack)
If Op.Ability.Name.ToLower() = "unaware" Then
ASM = 1.0F
End If
Select Case p.Ability.Name.ToLower()
Case "plus"
AM = 1.0F
Case "minus"
AM = 1.0F
Case "solar power"
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
AM = 1.5F
End If
Case "flare boost"
If Op.Status = Pokemon.StatusProblems.Burn Then
AM = 1.5F
End If
Case "defeatist"
If p.HP <= CInt(p.MaxHP / 2) Then
AM = 0.5F
End If
Case Else
AM = 1.0F
End Select
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()
Case "choice specs"
IM = 1.5F
Case "light ball"
If p.Number = 25 Then
IM = 2.0F
End If
Case "deepseatooth"
If p.Number = 366 Then
IM = 2.0F
End If
Case "metronome"
Dim lastAttack As Attack = Nothing
If Own = False Then
If Not BattleScreen.FieldEffects.OppLastMove Is Nothing Then
lastAttack = BattleScreen.FieldEffects.OppLastMove
End If
Else
If Not BattleScreen.FieldEffects.OwnLastMove Is Nothing Then
lastAttack = BattleScreen.FieldEffects.OwnLastMove
End If
End If
If Not lastAttack Is Nothing Then
If lastAttack.ID = Attack.ID Then
Dim multi As Integer = 1
If Own = True Then
BattleScreen.FieldEffects.OwnMetronomeItemCount += 1
multi = BattleScreen.FieldEffects.OwnMetronomeItemCount
Else
BattleScreen.FieldEffects.OppMetronomeItemCount += 1
multi = BattleScreen.FieldEffects.OppMetronomeItemCount
End If
multi = multi.Clamp(1, 10)
IM = 1.0F + CSng(multi / 10)
Else
If Own = True Then
BattleScreen.FieldEffects.OwnMetronomeItemCount = 0
Else
BattleScreen.FieldEffects.OppMetronomeItemCount = 0
End If
IM = 1.0F
End If
Else
If Own = True Then
BattleScreen.FieldEffects.OwnMetronomeItemCount = 0
Else
BattleScreen.FieldEffects.OppMetronomeItemCount = 0
End If
IM = 1.0F
End If
Case Else
IM = 1.0F
End Select
End If
End If
'Critical hit interaction with attack stat change
If ASM < 1.0F AndAlso Critical = True Then
ASM = 1.0F
End If
Atk = CInt(Math.Floor(AStat * ASM * AM * IM))
'DEF
Dim Def As Integer = 1
Dim DStat As Single = 1.0F
Dim DSM As Single = 1.0F
Dim SX As Single = 1.0F
Dim DMod As Single = 1.0F
If Attack.Category = Attack.Categories.Physical OrElse Attack.ID = 473 OrElse Attack.ID = 540 OrElse Attack.ID = 548 Then 'Psyshock, Psystrike and Secret Sword.
DStat = Attack.GetUseDefenseStat(Op)
DSM = GetMultiplierFromStat(Op.StatDefense)
If p.Ability.Name.ToLower() = "unaware" Then
DSM = 1.0F
End If
If Attack.Name.ToLower() = "self-destruct" Or Attack.Name.ToLower() = "explosion" Then
SX = 1.0F
End If
If Not Op.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Not Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not Own, BattleScreen) = True Then
Select Case Op.Item.Name.ToLower()
Case "metal powder"
If Op.Number = 132 Then
DMod = 1.5F
End If
Case "eviolite"
If Op.IsFullyEvolved = False Then
DMod = 1.5F
End If
End Select
End If
If Op.Ability.Name.ToLower() = "marvel scale" Then
If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
If Op.Status = Pokemon.StatusProblems.Paralyzed Or Op.Status = Pokemon.StatusProblems.Poison Or Op.Status = Pokemon.StatusProblems.Burn Or Op.Status = Pokemon.StatusProblems.Sleep Or Op.Status = Pokemon.StatusProblems.Freeze Then
DMod = 1.5F
End If
End If
End If
If Op.Ability.Name.ToLower() = "fur coat" And BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
DMod = 2.0F
End If
If BattleScreen.FieldEffects.GrassyTerrain > 0 And Op.Ability.Name.ToLower() = "grass pelt" And BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
DMod = 1.5F
End If
ElseIf Attack.Category = Attack.Categories.Special Then
DStat = Attack.GetUseDefenseStat(Op)
DSM = GetMultiplierFromStat(Op.StatSpDefense)
If p.Ability.Name.ToLower() = "unaware" Or Attack.UseOppDefense = False Then
DSM = 1.0F
End If
If Op.Ability.Name.ToLower() = "flower gift" Then
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
DMod = 1.5F
End If
End If
If Not Op.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Not Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not Own, BattleScreen) = True Then
Select Case Op.Item.Name.ToLower()
Case "metal powder"
If Op.Number = 132 Then
DMod = 1.5F
End If
Case "deepseascale"
If Op.Number = 366 Then
DMod = 2.0F
End If
Case "assault vest"
DMod = 1.5F
Case "eviolite"
If Op.IsFullyEvolved = False Then
DMod = 1.5F
End If
End Select
End If
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sandstorm Then
If Op.Type1.Type = Element.Types.Rock Or Op.Type2.Type = Element.Types.Rock Then
DMod = 1.5F
End If
End If
End If
If DSM > 1.0F AndAlso Critical = True Then
DSM = 1.0F
End If
'Sacred Sword ignores defense stat changes
If Attack.ID = 533 Then
DSM = 1.0F
End If
Def = CInt(Math.Floor(DStat * DSM * DMod * SX))
If Def <= 0 Then
Def = 1
End If
'Mod1
Dim Mod1 As Single = 1.0F
Dim BRN As Single = 1.0F
Dim RL As Single = 1.0F
Dim TVT As Single = 1.0F
Dim SR As Single = 1.0F
Dim FF As Single = 1.0F
If Attack.Category = Attack.Categories.Physical Then
If p.Ability.Name.ToLower() <> "guts" And p.Status = Pokemon.StatusProblems.Burn Then
BRN = 0.5F
End If
End If
Dim CritSwap As Boolean = False
If Core.Random.Next(0, 3) = 0 And Critical = True Then
CritSwap = True
End If
If CritSwap = False Then
If Attack.Category = Attack.Categories.Physical Then
If p.Ability.Name.ToLower() <> "infiltrator" Then
If Own = True Then
If BattleScreen.FieldEffects.OppReflect > 0 Then
RL = 0.5F
End If
Else
If BattleScreen.FieldEffects.OwnReflect > 0 Then
RL = 0.5F
End If
End If
End If
ElseIf Attack.Category = Attack.Categories.Special Then
If p.Ability.Name.ToLower() <> "infiltrator" Then
If Own = True Then
If BattleScreen.FieldEffects.OppLightScreen > 0 Then
RL = 0.5F
End If
Else
If BattleScreen.FieldEffects.OwnLightScreen > 0 Then
RL = 0.5F
End If
End If
End If
End If
End If
Select Case Attack.Type.Type
Case Element.Types.Fire
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
SR = 1.5F
ElseIf BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then
SR = 0.5F
End If
Case Element.Types.Water
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Sunny Then
SR = 0.5F
ElseIf BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Rain Then
SR = 1.5F
End If
Case Element.Types.Ice
If BattleScreen.FieldEffects.Weather = BattleWeather.WeatherTypes.Snow Then
SR = 1.5F
End If
Case Element.Types.Electric
If BattleScreen.FieldEffects.ElectricTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
SR = 1.5F
End If
Case Element.Types.Grass
If BattleScreen.FieldEffects.GrassyTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
SR = 1.5F
End If
Case Element.Types.Psychic
If BattleScreen.FieldEffects.PsychicTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
SR = 1.5F
End If
End Select
'If p.Ability.Name.ToLower() = "flash fire" Then
' If BattleScreen.FieldEffects.CanUseAbility(Own, BattleScreen) = True Then
' If Own = True Then
' If Not BattleScreen.FieldEffects.OppLastMove Is Nothing Then
' If BattleScreen.FieldEffects.OppLastMove.Type.Type = Element.Types.Fire And Attack.Type.Type = Element.Types.Fire Then
' FF = 1.5F
' End If
' End If
' Else
' If Not BattleScreen.FieldEffects.OwnLastMove Is Nothing Then
' If BattleScreen.FieldEffects.OwnLastMove.Type.Type = Element.Types.Fire And Attack.Type.Type = Element.Types.Fire Then
' FF = 1.5F
' End If
' End If
' End If
' End If
'End If
If Attack.Type.Type = Element.Types.Fire Then
If Own = True Then
If BattleScreen.FieldEffects.OwnFlashFire = 1 Then
FF = 1.5F
End If
Else
If BattleScreen.FieldEffects.OppFlashFire = 1 Then
FF = 1.5F
End If
End If
End If
Mod1 = BRN * RL * TVT * SR * FF
'CH
Dim CH As Single = 1.0F
If Critical = True Then
If p.Ability.Name.ToLower() = "sniper" Then
CH = 2.25
Else
CH = 1.5
End If
End If
'Mod2
Dim Mod2 As Single = 1.0F
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Own, BattleScreen) = True Then
If p.Item.Name.ToLower() = "life orb" Then
Mod2 = 1.3F
End If
End If
If Attack.Name.ToLower() = "me first" Then
Mod2 = 1.5F
End If
'R
Dim R As Integer = Core.Random.Next(85, 101)
If R = 0 Then
R = 1
End If
'STAB
Dim STAB As Single = 1.0F
If Attack.CanGainSTAB = True Then
If Attack.Type.Type = p.Type1.Type Or Attack.Type.Type = p.Type2.Type Then
If p.Ability.Name.ToLower() = "adaptability" Then
STAB = 2.0F
Else
STAB = 1.5F
End If
End If
End If
'Mod3
Dim Mod3 As Single = 1.0F
Dim SRF As Single = 1.0F
Dim EB As Single = 1.0F
Dim TL As Single = 1.0F
Dim TRB As Single = 1.0F
Dim effectiveness As Single = CalculateEffectiveness(Attack, BattleScreen, p, Op, Own)
If effectiveness > 1.0F Then
If Op.Ability.Name.ToLower() = "solid rock" Or Op.Ability.Name.ToLower() = "filter" Then
If BattleScreen.FieldEffects.CanUseAbility(Not Own, BattleScreen) = True Then
SRF = 0.75F
End If
End If
If Not p.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Own, BattleScreen) = True Then
If p.Item.Name.ToLower() = "expert belt" Then
EB = 1.2F
End If
End If
If Not Op.Item Is Nothing Then
If BattleScreen.FieldEffects.CanUseItem(Not Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not Own, BattleScreen) = True Then
Select Case Op.Item.Name.ToLower()
Case "occa"
If Attack.Type.Type = Element.Types.Fire Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Occa Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:occa") = True Then
TRB = 0.5F
End If
End If
Case "passho"
If Attack.Type.Type = Element.Types.Water Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Passho Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:passho") = True Then
TRB = 0.5F
End If
End If
Case "wacan"
If Attack.Type.Type = Element.Types.Electric Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Wacan Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:wacan") = True Then
TRB = 0.5F
End If
End If
Case "rindo"
If Attack.Type.Type = Element.Types.Grass Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Rindo Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:rindo") = True Then
TRB = 0.5F
End If
End If
Case "yache"
If Attack.Type.Type = Element.Types.Ice Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Yache Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:yache") = True Then
TRB = 0.5F
End If
End If
Case "chople"
If Attack.Type.Type = Element.Types.Fighting Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Chople Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:chople") = True Then
TRB = 0.5F
End If
End If
Case "kebia"
If Attack.Type.Type = Element.Types.Poison Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Kebia Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:kebia") = True Then
TRB = 0.5F
End If
End If
Case "shuca"
If Attack.Type.Type = Element.Types.Ground Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Shuca Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:shuca") = True Then
TRB = 0.5F
End If
End If
Case "coba"
If Attack.Type.Type = Element.Types.Flying Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Coba Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:coba") = True Then
TRB = 0.5F
End If
End If
Case "payapa"
If Attack.Type.Type = Element.Types.Psychic Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Payapa Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:payapa") = True Then
TRB = 0.5F
End If
End If
Case "tanga"
If Attack.Type.Type = Element.Types.Bug Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Tanga Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:tanga") = True Then
TRB = 0.5F
End If
End If
Case "charti"
If Attack.Type.Type = Element.Types.Rock Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Charti Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:charti") = True Then
TRB = 0.5F
End If
End If
Case "kasib"
If Attack.Type.Type = Element.Types.Ghost Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Kasib Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:kasib") = True Then
TRB = 0.5F
End If
End If
Case "haban"
If Attack.Type.Type = Element.Types.Dragon Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Haban Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:haban") = True Then
TRB = 0.5F
End If
End If
Case "colbur"
If Attack.Type.Type = Element.Types.Dark Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Colbur Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:corlbur") = True Then
TRB = 0.5F
End If
End If
Case "babiri"
If Attack.Type.Type = Element.Types.Steel Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Babiri Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:babiri") = True Then
TRB = 0.5F
End If
End If
Case "roseli"
If Attack.Type.Type = Element.Types.Fairy Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Roseli Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:roseli") = True Then
TRB = 0.5F
End If
End If
End Select
End If
End If
End If
If Not Op.Item Is Nothing Then
If BattleScreen.FieldEffects.CanUseItem(Not Own) = True And BattleScreen.FieldEffects.CanUseOwnItem(Not Own, BattleScreen) = True Then
If Op.Item.Name.ToLower() = "chilan" Then
If Attack.Type.Type = Element.Types.Normal Then
If BattleScreen.Battle.RemoveHeldItem(Not Own, Not Own, BattleScreen, "The Chilan Berry weakened the effect of " & Attack.Name & " on " & Op.GetDisplayName() & "!", "berry:chilan") = True Then
TRB = 0.5F
End If
End If
End If
End If
End If
If effectiveness < 1.0F Then
If p.Ability.Name.ToLower() = "tinted lens" Then
TL = 2.0F
End If
End If
Mod3 = SRF * EB * TL * TRB
damage = CInt(Math.Floor((((((((Level * 2 / 5) + 2) * BasePower * Atk / 50) / Def) * Mod1) + 2) * CH * Mod2 * R / 100) * STAB * effectiveness * Mod3))
If p.Ability.Name.ToLower() = "multiscale" And p.HP = p.MaxHP And BattleScreen.FieldEffects.CanUseAbility(Own, BattleScreen) = True Then
damage = CInt(damage / 2)
End If
If BattleScreen.FieldEffects.MistyTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
If Attack.Type.Type = Element.Types.Dragon Then
damage = CInt(damage / 2)
End If
End If
If BattleScreen.FieldEffects.GrassyTerrain > 0 And BattleScreen.FieldEffects.IsGrounded(Own, BattleScreen) = True Then
'Earthquake, Bulldoze, Magnitude
If Attack.ID = 89 Or Attack.ID = 523 Or Attack.ID = 222 Then
damage = CInt(damage / 2)
End If
End If
If Attack.IsOneHitKOMove = True Then
damage = Op.HP
End If
If damage <= 0 Then
damage = 1
End If
Return damage
End Function
Public Shared Function ReverseTypeEffectiveness(ByVal effectiveness As Single) As Single
If BattleScreen.IsInverseBattle = True Then
Select Case effectiveness
Case 0.5F, 0.0F
Return 2.0F
Case 1.0F
Return 1.0F
Case 2.0F
Return 0.5F
End Select
Return 1.0F
Else
Return effectiveness
End If
End Function
'''
''' Calculates the usable multiplier from a stat reduction/raise.
'''
''' The relative stat reduction/raise of the stat.
Public Shared Function GetMultiplierFromStat(ByVal StatValue As Integer) As Single
Select Case StatValue
Case -6
Return CSng(2 / 8)
Case -5
Return CSng(2 / 7)
Case -4
Return CSng(2 / 6)
Case -3
Return CSng(2 / 5)
Case -2
Return CSng(2 / 4)
Case -1
Return CSng(2 / 3)
Case 0
Return CSng(2 / 2)
Case 1
Return CSng(3 / 2)
Case 2
Return CSng(4 / 2)
Case 3
Return CSng(5 / 2)
Case 4
Return CSng(6 / 2)
Case 5
Return CSng(7 / 2)
Case 6
Return CSng(8 / 2)
Case Else
Return 1.0F
End Select
End Function
Public Shared Function GetMultiplierFromAccEvasion(ByVal StatValue As Integer) As Single
Select Case StatValue
Case -6
Return CSng(3 / 9)
Case -5
Return CSng(3 / 8)
Case -4
Return CSng(3 / 7)
Case -3
Return CSng(3 / 6)
Case -2
Return CSng(3 / 5)
Case -1
Return CSng(3 / 4)
Case 0
Return CSng(3 / 3)
Case 1
Return CSng(4 / 3)
Case 2
Return CSng(5 / 3)
Case 3
Return CSng(6 / 3)
Case 4
Return CSng(7 / 3)
Case 5
Return CSng(8 / 3)
Case 6
Return CSng(9 / 3)
Case Else
Return 1.0F
End Select
End Function
End Class
End Namespace