Public Class StrengthTrigger

    Inherits Entity

    Dim RemoveRock As Boolean = False
    Dim RemoveForever As Boolean = False
    Dim ActivateScript As String = ""

    Dim Activated As Boolean = False
    Public Shared RemovedRegistered As Boolean = False

    Public Overrides Sub Initialize()
        MyBase.Initialize()

        Dim v() As String = Me.AdditionalValue.Split(CChar(","))

        For i = 0 To v.Length
            Select Case i
                Case 0
                    RemoveRock = CBool(v(i))
                Case 1
                    RemoveForever = CBool(v(i))
                Case 2
                    ActivateScript = v(i)
            End Select
        Next

        Dim registers() As String = Core.Player.RegisterData.Split(CChar(","))
        For Each r As String In registers
            If r.StartsWith("ACTIVATOR_REMOVE_STRENGTH_ROCK_" & Screen.Level.LevelFile & "_") = True Then
                Dim RemoveID As String = r.Remove(0, ("ACTIVATOR_REMOVE_STRENGTHT_ROCK_" & Screen.Level.LevelFile & "_").Length - 1)
                For Each sRock As Entity In Screen.Level.Entities
                    If sRock.EntityID = "StrengthRock" Then
                        If sRock.ID = CInt(RemoveID) Then
                            sRock.CanBeRemoved = True
                        End If
                    End If
                Next
            End If
        Next

        Me.NeedsUpdate = True
    End Sub

    Public Overrides Sub Update()
        If Activated = False Then
            For Each sRock As Entity In Screen.Level.Entities
                If sRock.EntityID = "StrengthRock" Then
                    If sRock.Position.X = Me.Position.X And sRock.Position.Z = Me.Position.Z Then
                        If RemoveRock = True Then
                            CType(sRock, StrengthRock).CanBeRemoved = True
                        End If
                        If RemoveForever = True Then
                            ActionScript.RegisterID("ACTIVATOR_REMOVE_STRENGTH_ROCK_" & Screen.Level.LevelFile & "_" & sRock.ID.ToString())
                        End If
                        If ActivateScript <> "" Then
                            If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                                CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(Me.ActivateScript, 0, False)
                            End If
                        End If

                        Activated = True
                    End If
                End If
            Next
        End If

        MyBase.Update()
    End Sub

    Public Overrides Sub Render()
        If Me.Model Is Nothing Then
            Me.Draw(Me.BaseModel, Textures, True)
        Else
            UpdateModel()
            Draw(Me.BaseModel, Me.Textures, True, Me.Model)
        End If
    End Sub

End Class