tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove caps from registers 

re Strength triggers and time registers
This commit is contained in:
darkfire006 2022-08-06 21:49:50 -05:00
parent 56908b35f9
commit 7310e3cd13
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
P3D/Entites/Enviroment/StrengthTrigger.vb
View File

@ -27,8 +27,8 @@
Dim registers() As String = Core.Player.RegisterData.Split(CChar(",")) Dim registers() As String = Core.Player.RegisterData.Split(CChar(","))
For Each r As String In registers For Each r As String In registers
If r.StartsWith("ACTIVATOR_REMOVE_STRENGTH_ROCK_" & Screen.Level.LevelFile & "_") = True Then If r.StartsWith(("activator_remove_strength_rock_" & Screen.Level.LevelFile & "_").ToLower()) = True Then
Dim RemoveID As String = r.Remove(0, ("ACTIVATOR_REMOVE_STRENGTHT_ROCK_" & Screen.Level.LevelFile & "_").Length - 1) Dim RemoveID As String = r.Remove(0, ("activator_remove_strength_rock_" & Screen.Level.LevelFile & "_").ToLower().Length - 1)
For Each sRock As Entity In Screen.Level.Entities For Each sRock As Entity In Screen.Level.Entities
If sRock.EntityID = "StrengthRock" Then If sRock.EntityID = "StrengthRock" Then
If sRock.ID = CInt(RemoveID) Then If sRock.ID = CInt(RemoveID) Then
@ -51,7 +51,7 @@
CType(sRock, StrengthRock).CanBeRemoved = True CType(sRock, StrengthRock).CanBeRemoved = True
End If End If
If RemoveForever = True Then If RemoveForever = True Then
ActionScript.RegisterID("ACTIVATOR_REMOVE_STRENGTH_ROCK_" & Screen.Level.LevelFile & "_" & sRock.ID.ToString()) ActionScript.RegisterID("activator_remove_strength_rock_" & Screen.Level.LevelFile & "_" & sRock.ID.ToString())
End If End If
If ActivateScript <> "" Then If ActivateScript <> "" Then
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then

4
P3D/World/ActionScript/ActionScript.vb
View File

@ -358,8 +358,8 @@ nextScript:
If i <= Data.Count - 1 Then If i <= Data.Count - 1 Then
Dim d As String = Data(i) Dim d As String = Data(i)
If d.StartsWith("[TIME|") = True Then If d.StartsWith("[time|") = True Then
Dim timeString As String = d.Remove(0, ("[TIME|").Length) Dim timeString As String = d.Remove(0, ("[time|").Length)
timeString = timeString.Remove(timeString.IndexOf("]")) timeString = timeString.Remove(timeString.IndexOf("]"))
Dim timeData() As String = timeString.Split(CChar("|")) Dim timeData() As String = timeString.Split(CChar("|"))

2
P3D/World/ActionScript/V2/ScriptCommands/DoRegister.vb
View File

@ -67,7 +67,7 @@
If validValue = True Then If validValue = True Then
If isValidFormat = True Then If isValidFormat = True Then
Dim s As String = "[TIME|" & ActionScript.TimeToUnix(Date.Now) & "|" & args(1) & "|" & format & "]" & args(0) Dim s As String = "[time|" & ActionScript.TimeToUnix(Date.Now) & "|" & args(1) & "|" & format & "]" & args(0)
ActionScript.RegisterID(s) ActionScript.RegisterID(s)
Else Else
Logger.Log(Logger.LogTypes.Warning, "ScriptCommander.vb: (@register." & command & ") Invalid date format used for time based register!") Logger.Log(Logger.LogTypes.Warning, "ScriptCommander.vb: (@register." & command & ") Invalid date format used for time based register!")