89 lines
2.3 KiB
VB.net
89 lines
2.3 KiB
VB.net
|
Public Class BattleAnimation3D
|
|||
|
|
|
|||
|
|
Inherits Entity
|
|||
|
|
|
|||
|
|
Public Enum AnimationTypes
|
|||
|
|
[Nothing]
|
|||
|
|
Move
|
|||
|
|
Transition
|
|||
|
|
Size
|
|||
|
|
Opacity
|
|||
|
|
Rotation
|
|||
|
|
Texture
|
|||
|
|
Wait
|
|||
|
|
ViewPokeBill
|
|||
|
|
BillMove
|
|||
|
|
Sound
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public AnimationType As AnimationTypes = AnimationTypes.Nothing
|
|||
|
|
Public CanRemove As Boolean = False
|
|||
|
|
|
|||
|
|
Public Ready As Boolean = False
|
|||
|
|
Public startDelay As Single
|
|||
|
|
Public endDelay As Single
|
|||
|
|
|
|||
|
|
Public Sub New(ByVal Position As Vector3, ByVal Texture As Texture2D, ByVal Scale As Vector3, ByVal startDelay As Single, ByVal endDelay As Single)
|
|||
|
|
MyBase.New(Position.X, Position.Y, Position.Z, "BattleAnimation", {Texture}, {0, 0}, False, 0, Scale, BaseModel.BillModel, 0, "", New Vector3(1.0F))
|
|||
|
|
|
|||
|
|
Me.Visible = Visible
|
|||
|
|
Me.startDelay = startDelay
|
|||
|
|
Me.endDelay = endDelay
|
|||
|
|
|
|||
|
|
Me.CreateWorldEveryFrame = True
|
|||
|
|
Me.DropUpdateUnlessDrawn = False
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overrides Sub Update()
|
|||
|
|
If CanRemove = False Then
|
|||
|
|
If Ready = True Then
|
|||
|
|
If endDelay > 0.0F Then
|
|||
|
|
endDelay -= 0.1F
|
|||
|
|
|
|||
|
|
If endDelay <= 0.0F Then
|
|||
|
|
endDelay = 0.0F
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
CanRemove = True
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
If startDelay > 0.0F Then
|
|||
|
|
startDelay -= 0.1F
|
|||
|
|
|
|||
|
|
If startDelay <= 0.0F Then
|
|||
|
|
startDelay = 0.0F
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
DoActionActive()
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
MyBase.Update()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overrides Sub UpdateEntity()
|
|||
|
|
If Me.Rotation.Y <> Screen.Camera.Yaw Then
|
|||
|
|
Me.Rotation.Y = Screen.Camera.Yaw
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
DoActionUpdate()
|
|||
|
|
|
|||
|
|
MyBase.UpdateEntity()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overridable Sub DoActionUpdate()
|
|||
|
|
'Insert code in Inherits class for every update here.
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overridable Sub DoActionActive()
|
|||
|
|
'Insert code in Inherits class here.
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overrides Sub Render()
|
|||
|
|
If Me.startDelay <= 0.0F Then
|
|||
|
|
Draw(Me.Model, Me.Textures, True)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|