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