Revert "Updated to 7th Gen Standards"

This reverts commit
351b5ff1dc0c3f1ecf198f2652f3b4407cd751f5
4cb1844ae608729513ee75a7779889ff3345036d
af158713835d31e2fbf2a98591ab4c35ecb261a6
761d6e8e2d771cb202f3c4188a344ba79f1d6745
c6b61393893d7e743eeec43af6cc5c2d950c5890
d64f4dcb835222c6c8634ef9d9f8f76ce1e5c1c3
6ff5fd71976906083a606e9835251f7781a6a519
This commit is contained in:
jianmingyong 2016-10-21 13:12:48 +08:00
parent 2490622091
commit e754a4009e
7 changed files with 14 additions and 14 deletions

View File

@ -5,9 +5,9 @@ Namespace Abilities
Inherits Ability
Public Sub New()
MyBase.New(51, "Keen Eye", "Keen eyes prevent other Pokémon from lowering this Pokémon's accuracy.")
MyBase.New(51, "Keen Eye", "Prevents other Pokémon from lowering accuracy.")
End Sub
End Class
End Namespace
End Namespace

View File

@ -5,9 +5,9 @@ Namespace Abilities
Inherits Ability
Public Sub New()
MyBase.New(92, "Skill Link", "Maximizes the number of times multi-strike moves hit.")
MyBase.New(92, "Skill Link", "Increases the frequency of multi-strike moves.")
End Sub
End Class
End Namespace
End Namespace

View File

@ -5,9 +5,9 @@ Namespace Abilities
Inherits Ability
Public Sub New()
MyBase.New(9, "Static", "The Pokémon is charged with static electricity, so contact with it may cause paralysis.")
MyBase.New(9, "Static", "Contact with the Pokémon may cause paralysis.")
End Sub
End Class
End Namespace
End Namespace

View File

@ -5,9 +5,9 @@ Namespace Abilities
Inherits Ability
Public Sub New()
MyBase.New(173, "Strong Jaw", "The Pokémon's strong jaw boosts the power of its biting moves.")
MyBase.New(173, "Strong Jaw", "The Pokémon's strong jaw gives it tremendous biting power.")
End Sub
End Class
End Namespace
End Namespace

View File

@ -5,9 +5,9 @@ Namespace Abilities
Inherits Ability
Public Sub New()
MyBase.New(72, "Vital Spirit", "The Pokémon is full of vitality, and that prevents it from falling asleep.")
MyBase.New(72, "Vital Spirit", "Prevents the Pokémon from falling asleep.")
End Sub
End Class
End Namespace
End Namespace

View File

@ -13,7 +13,7 @@ Namespace BattleSystem.Moves.Water
Me.MaxPP = 20
Me.Power = 15
Me.Accuracy = 100
Me.Category = Categories.Special
Me.Category = Categories.Physical
Me.ContestCategory = ContestCategories.Cool
Me.Name = "Water Shuriken"
Me.Description = "The user hits the target with throwing stars two to five times in a row. This move always goes first."
@ -83,4 +83,4 @@ Namespace BattleSystem.Moves.Water
End Class
End Namespace
End Namespace

View File

@ -6,7 +6,7 @@ Namespace Items.Medicine
Inherits MedicineItem
Public Overrides ReadOnly Property IsHealingItem As Boolean = True
Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating wounds. It can be used to restore 60 HP to an injured Pokémon."
Public Overrides ReadOnly Property Description As String = "A spray-type medicine for treating wounds. It can be used to restore 50 HP to an injured Pokémon."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 700
Public Sub New()
@ -22,7 +22,7 @@ Namespace Items.Medicine
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
Return HealPokemon(PokeIndex, 60)
Return HealPokemon(PokeIndex, 50)
End Function
End Class