mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-31 01:35:20 +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
929 B
VB.net
28 lines
929 B
VB.net
Public Class BASound
|
|
|
|
Inherits BattleAnimation3D
|
|
|
|
Private soundfile As String
|
|
Private stopMusic As Boolean
|
|
Private IsPokemon As Boolean
|
|
|
|
|
|
Public Sub New(ByVal sound As String, ByVal startDelay As Single, ByVal endDelay As Single, Optional ByVal stopMusic As Boolean = False, Optional ByVal IsPokemon As Boolean = False)
|
|
MyBase.New(New Vector3(0.0F), TextureManager.DefaultTexture, New Vector3(1.0F), startDelay, endDelay)
|
|
Me.Scale = New Vector3(1.0F)
|
|
soundfile = sound
|
|
Me.Visible = False
|
|
Me.stopMusic = stopMusic
|
|
Me.IsPokemon = IsPokemon
|
|
AnimationType = AnimationTypes.Sound
|
|
End Sub
|
|
|
|
Public Overrides Sub DoActionActive()
|
|
If IsPokemon = True Then
|
|
SoundManager.PlayPokemonCry(CInt(soundfile))
|
|
Else
|
|
SoundManager.PlaySound(soundfile, stopMusic)
|
|
End If
|
|
Me.Ready = True
|
|
End Sub
|
|
End Class |