80 lines
2.8 KiB
VB.net
80 lines
2.8 KiB
VB.net
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,, "StrengthTrigger")
|
|
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 |