Update FreezeDry.vb

fixed ID and some strings
This commit is contained in:
Capt_Segis 2016-09-13 22:47:31 -05:00 committed by GitHub
parent dc63d26858
commit 9a0befa03e

View File

@ -7,7 +7,7 @@ Namespace BattleSystem.Moves.Ice
Public Sub New() Public Sub New()
'#Definitions '#Definitions
Me.Type = New Element(Element.Types.Ice) Me.Type = New Element(Element.Types.Ice)
Me.ID = 58 Me.ID = 573
Me.OriginalPP = 20 Me.OriginalPP = 20
Me.CurrentPP = 20 Me.CurrentPP = 20
Me.MaxPP = 20 Me.MaxPP = 20
@ -15,7 +15,7 @@ Namespace BattleSystem.Moves.Ice
Me.Accuracy = 100 Me.Accuracy = 100
Me.Category = Categories.Special Me.Category = Categories.Special
Me.ContestCategory = ContestCategories.Beauty Me.ContestCategory = ContestCategories.Beauty
Me.Name = "Ice Beam" Me.Name = "Freeze Dry"
Me.Description = "The user rapidly cools the target. This may also leave the target frozen. This move is super effective on Water types." Me.Description = "The user rapidly cools the target. This may also leave the target frozen. This move is super effective on Water types."
Me.CriticalChance = 1 Me.CriticalChance = 1
Me.IsHMMove = False Me.IsHMMove = False
@ -67,7 +67,7 @@ Namespace BattleSystem.Moves.Ice
Dim chance As Integer = GetEffectChance(0, own, BattleScreen) Dim chance As Integer = GetEffectChance(0, own, BattleScreen)
If Core.Random.Next(0, 100) < chance Then If Core.Random.Next(0, 100) < chance Then
BattleScreen.Battle.InflictFreeze(Not own, own, BattleScreen, "", "move:icebeam") BattleScreen.Battle.InflictFreeze(Not own, own, BattleScreen, "", "move:freezedry")
End If End If
End Sub End Sub