49 lines
1.7 KiB
VB.net
49 lines
1.7 KiB
VB.net
Namespace Items.XItems
|
|
|
|
<Item(51, "X Defense")>
|
|
Public Class XDefend
|
|
|
|
Inherits XItem
|
|
|
|
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 550
|
|
Public Overrides ReadOnly Property Description As String = "An item that boosts the Defense stat of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
|
|
|
Public Sub New()
|
|
_textureRectangle = New Rectangle(96, 48, 24, 24)
|
|
End Sub
|
|
|
|
Public Overrides Function UseOnPokemon(PokeIndex As Integer) As Boolean
|
|
Dim foundBattleScreen As Boolean = True
|
|
Dim s As Screen = Core.CurrentScreen
|
|
While s.Identification <> Screen.Identifications.BattleScreen
|
|
If s.PreScreen Is Nothing Then
|
|
foundBattleScreen = False
|
|
Exit While
|
|
End If
|
|
s = s.PreScreen
|
|
End While
|
|
|
|
If foundBattleScreen = True Then
|
|
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
|
|
|
|
If p.StatDefense < 6 Then
|
|
p.StatDefense += 2
|
|
|
|
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Defense!" & RemoveItem(), {}, False, False)
|
|
PlayerStatistics.Track("[53]Status booster used", 1)
|
|
|
|
Return True
|
|
End If
|
|
|
|
Screen.TextBox.Show("Cannot boost~ " & p.GetDisplayName() & "'s Defense!", {}, False, False)
|
|
Return False
|
|
Else
|
|
Logger.Log(Logger.LogTypes.Warning, "XDefense.vb: Used outside of battle environment!")
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace
|