mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-08-15 06:48:38 +02:00
9723820427
Ported Battle Animation Code Ported Battle Animations for Tackle, Pound, Growl, Ember and Poison Sting Normalized all SFX by Perceived Loudness (-11.0 LUFS) Renamed and moved a bunch of the SFX so they make more sense Added a jingle when you register a Phone Number Added a soundeffect for when an elevator reaches its destination
28 lines
856 B
VB.net
28 lines
856 B
VB.net
Namespace Items.Repels
|
|
|
|
Public MustInherit Class RepelItem
|
|
|
|
Inherits Item
|
|
|
|
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
|
|
|
|
Public MustOverride ReadOnly Property RepelSteps As Integer
|
|
|
|
Public Overrides Sub Use()
|
|
If Core.Player.RepelSteps <= 0 Then
|
|
Core.Player.Inventory.RemoveItem(ID, 1)
|
|
Player.Temp.LastUsedRepel = ID
|
|
|
|
SoundManager.PlaySound("Use_Repel", False)
|
|
Screen.TextBox.Show(Core.Player.Name & " used a~" & Name, {}, True, True)
|
|
Core.Player.RepelSteps = RepelSteps
|
|
PlayerStatistics.Track("[42]Repels used", 1)
|
|
Else
|
|
Screen.TextBox.Show("The Repel is still~in effect.", {}, True, True)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|