50 lines
1.8 KiB
VB.net
50 lines
1.8 KiB
VB.net
Namespace Items.XItems
|
|
|
|
<Item(33, "X Accuracy")>
|
|
Public Class XAccuracy
|
|
|
|
Inherits XItem
|
|
|
|
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 950
|
|
Public Overrides ReadOnly Property Description As String = "An item that boosts the accuracy of a Pokémon during a battle. It wears off once the Pokémon is withdrawn."
|
|
Public Overrides ReadOnly Property PluralName As String = "X Accuracies"
|
|
|
|
Public Sub New()
|
|
_textureRectangle = New Rectangle(216, 24, 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.Accuracy < 6 Then
|
|
p.Accuracy += 2
|
|
|
|
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Accuracy!" & RemoveItem(), {}, False, False)
|
|
PlayerStatistics.Track("[53]Status booster used", 1)
|
|
|
|
Return True
|
|
End If
|
|
|
|
Screen.TextBox.Show("Cannot boost~ " & p.GetDisplayName() & "'s Accuracy!", {}, False, False)
|
|
Return False
|
|
Else
|
|
Logger.Log(Logger.LogTypes.Warning, "XAccuracy.vb: Used outside of battle environment!")
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace
|