P3D-Legacy/P3D/Pokemon/Items/Medicine/MaxEther.vb

45 lines
1.8 KiB
VB.net
Raw Normal View History

Namespace Items.Medicine
2016-09-07 18:50:38 +02:00
<Item(64, "Max Ether")>
2016-09-07 18:50:38 +02:00
Public Class MaxEther
Inherits MedicineItem
2016-09-07 18:50:38 +02:00
2016-09-20 05:11:31 +02:00
Public Overrides ReadOnly Property Description As String = "This medicine can fully restore the PP of a single selected move that has been learned by a Pokémon."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 2000
2016-09-07 18:50:38 +02:00
2016-09-20 05:11:31 +02:00
Public Sub New()
_textureRectangle = New Rectangle(384, 48, 24, 24)
2016-09-07 18:50:38 +02:00
End Sub
Public Overrides Sub Use()
Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen)
2016-09-07 18:50:38 +02:00
End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean
Core.SetScreen(New ChooseAttackScreen(Core.CurrentScreen, Core.Player.Pokemons(PokeIndex), True, True, AddressOf UseOnAttack))
Return True
End Function
Private Sub UseOnAttack(ByVal Pokemon As Pokemon, ByVal AttackIndex As Integer)
If Pokemon.Attacks(AttackIndex).CurrentPP < Pokemon.Attacks(AttackIndex).MaxPP Then
Pokemon.Attacks(AttackIndex).CurrentPP = Pokemon.Attacks(AttackIndex).MaxPP
Dim t As String = "Restored PP of~" & Pokemon.Attacks(AttackIndex).Name & "."
t &= RemoveItem()
PlayerStatistics.Track("[17]Medicine Items used", 1)
SoundManager.PlaySound("single_heal", False)
Screen.TextBox.Show(t, {}, True, True)
Else
Screen.TextBox.Show("The move already has~full PP.", {}, True, True)
End If
End Sub
End Class
End Namespace