43 lines
1.1 KiB
VB.net
43 lines
1.1 KiB
VB.net
|
Public Class TurningSign
|
|||
|
|
|
|||
|
|
Inherits Entity
|
|||
|
|
|
|||
|
|
Dim TurningSpeed As Single = 0.01F
|
|||
|
|
|
|||
|
|
Public Overrides Sub Initialize()
|
|||
|
|
MyBase.Initialize()
|
|||
|
|
|
|||
|
|
Dim randomValue As Single = CSng(MathHelper.TwoPi * Core.Random.NextDouble())
|
|||
|
|
Select Case Me.ActionValue
|
|||
|
|
Case 1
|
|||
|
|
Me.Rotation.X = randomValue
|
|||
|
|
Case 2
|
|||
|
|
Me.Rotation.Z = randomValue
|
|||
|
|
Case Else
|
|||
|
|
Me.Rotation.Y = randomValue
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
If StringHelper.IsNumeric(Me.AdditionalValue) = True Then
|
|||
|
|
Me.TurningSpeed = CSng(CInt(Me.AdditionalValue) / 100)
|
|||
|
|
End If
|
|||
|
|
Me.CreateWorldEveryFrame = True
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overrides Sub UpdateEntity()
|
|||
|
|
Select Case Me.ActionValue
|
|||
|
|
Case 1
|
|||
|
|
Me.Rotation.X += TurningSpeed
|
|||
|
|
Case 2
|
|||
|
|
Me.Rotation.Z += TurningSpeed
|
|||
|
|
Case Else
|
|||
|
|
Me.Rotation.Y += TurningSpeed
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
MyBase.UpdateEntity()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Overrides Sub Render()
|
|||
|
|
Me.Draw(Me.Model, Textures, True)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
End Class
|