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
41 lines
1.4 KiB
VB.net
41 lines
1.4 KiB
VB.net
Public Class BAOpacity
|
|
|
|
Inherits BattleAnimation3D
|
|
|
|
Public TransitionSpeed As Single = 0.01F
|
|
Public FadeIn As Boolean = False
|
|
Public EndState As Single = 0.0F
|
|
|
|
Public Sub New(ByVal Position As Vector3, ByVal Texture As Texture2D, ByVal Scale As Vector3, ByVal TransitionSpeed As Single, ByVal FadeIn As Boolean, ByVal EndState As Single, ByVal startDelay As Single, ByVal endDelay As Single, Optional ByVal StartState As Single = 1.0F)
|
|
MyBase.New(Position, Texture, Scale, startDelay, endDelay)
|
|
MyBase.Opacity = StartState
|
|
Me.EndState = EndState
|
|
Me.FadeIn = FadeIn
|
|
Me.TransitionSpeed = TransitionSpeed
|
|
|
|
Me.AnimationType = AnimationTypes.Transition
|
|
End Sub
|
|
|
|
Public Overrides Sub DoActionActive()
|
|
If Me.FadeIn = True Then
|
|
If Me.EndState > Me.Opacity Then
|
|
Me.Opacity += Me.TransitionSpeed
|
|
If Me.Opacity >= Me.EndState Then
|
|
Me.Opacity = Me.EndState
|
|
End If
|
|
End If
|
|
Else
|
|
If Me.EndState < Me.Opacity Then
|
|
Me.Opacity -= Me.TransitionSpeed
|
|
If Me.Opacity <= Me.EndState Then
|
|
Me.Opacity = Me.EndState
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Me.Opacity = Me.EndState Then
|
|
Me.Ready = True
|
|
End If
|
|
End Sub
|
|
|
|
End Class |