45 lines
1.6 KiB
VB.net
45 lines
1.6 KiB
VB.net
|
Public Class BAEntityOpacity
|
|||
|
|
|||
|
|
Inherits BattleAnimation3D
|
|||
|
|
|
|||
|
|
Public TargetEntity As Entity
|
|||
|
|
Public TransitionSpeed As Single = 0.01F
|
|||
|
|
Public FadeIn As Boolean = False
|
|||
|
|
Public EndState As Single = 0.0F
|
|||
|
|
|
|||
|
|
Public Sub New(ByVal entity As Entity, 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(New Vector3(0.0F), TextureManager.DefaultTexture, New Vector3(1.0F), startDelay, endDelay)
|
|||
|
|
Me.EndState = EndState
|
|||
|
|
Me.FadeIn = FadeIn
|
|||
|
|
Me.TransitionSpeed = TransitionSpeed
|
|||
|
|
Me.TargetEntity = entity
|
|||
|
|
|
|||
|
|
Me.TargetEntity.Opacity = StartState
|
|||
|
|
Me.Visible = False
|
|||
|
|
|
|||
|
|
Me.AnimationType = AnimationTypes.Transition
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overrides Sub DoActionActive()
|
|||
|
|
If Me.FadeIn = True Then
|
|||
|
|
If Me.EndState > TargetEntity.Opacity Then
|
|||
|
|
TargetEntity.Opacity += Me.TransitionSpeed
|
|||
|
|
If TargetEntity.Opacity >= Me.EndState Then
|
|||
|
|
TargetEntity.Opacity = Me.EndState
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
If Me.EndState < TargetEntity.Opacity Then
|
|||
|
|
TargetEntity.Opacity -= Me.TransitionSpeed
|
|||
|
|
If TargetEntity.Opacity <= Me.EndState Then
|
|||
|
|
TargetEntity.Opacity = Me.EndState
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If TargetEntity.Opacity = Me.EndState Then
|
|||
|
|
Me.Ready = True
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|