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

Revert "Registers are now case insensitive" 

This reverts commit f09cd7d644.
This commit is contained in:
darkfire006 2022-08-09 10:34:44 -05:00
parent 860aed443a
commit 8bdb1e9858
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -318,11 +318,11 @@ nextScript:
For Each d As String In Data For Each d As String In Data
If d.StartsWith("[") = True And d.EndsWith("]") = False And d.Contains("]") = True Then If d.StartsWith("[") = True And d.EndsWith("]") = False And d.Contains("]") = True Then
d = d.Remove(0, d.IndexOf("]") + 1) d = d.Remove(0, d.IndexOf("]") + 1)
If d.ToLower = i.ToLower Then If d = i Then
Return True Return True
End If End If
Else Else
If d.ToLower = i.ToLower Then If d = i Then
Return True Return True
End If End If
End If End If
@ -332,11 +332,11 @@ nextScript:
Else Else
If Core.Player.RegisterData.StartsWith("[") = True And Core.Player.RegisterData.EndsWith("]") = False And Core.Player.RegisterData.Contains("]") = True Then If Core.Player.RegisterData.StartsWith("[") = True And Core.Player.RegisterData.EndsWith("]") = False And Core.Player.RegisterData.Contains("]") = True Then
Dim d As String = Core.Player.RegisterData.Remove(0, Core.Player.RegisterData.IndexOf("]") + 1) Dim d As String = Core.Player.RegisterData.Remove(0, Core.Player.RegisterData.IndexOf("]") + 1)
If d.ToLower = i.ToLower Then If d = i Then
Return True Return True
End If End If
Else Else
If Core.Player.RegisterData.ToLower = i.ToLower Then If Core.Player.RegisterData = i Then
Return True Return True
End If End If
End If End If
@ -452,11 +452,11 @@ nextScript:
Dim Data As String = Core.Player.RegisterData Dim Data As String = Core.Player.RegisterData
If Data = "" Then If Data = "" Then
Data = i.ToLower Data = i
Else Else
Dim checkData() As String = Data.Split(CChar(",")) Dim checkData() As String = Data.Split(CChar(","))
If checkData.Contains(i.ToLower) = False Then If checkData.Contains(i) = False Then
Data &= "," & i.ToLower Data &= "," & i
End If End If
End If End If
@ -466,7 +466,7 @@ nextScript:
Public Shared Sub RegisterID(ByVal name As String, ByVal type As String, ByVal value As String) Public Shared Sub RegisterID(ByVal name As String, ByVal type As String, ByVal value As String)
Dim Data As String = Core.Player.RegisterData Dim Data As String = Core.Player.RegisterData
Dim reg As String = "[" & type.ToUpper() & "|" & value & "]" & name.ToLower Dim reg As String = "[" & type.ToUpper() & "|" & value & "]" & name
If Data = "" Then If Data = "" Then
Data = reg Data = reg
@ -485,7 +485,7 @@ nextScript:
Dim Data As String = "" Dim Data As String = ""
Dim checkList As List(Of String) = checkData.ToList() Dim checkList As List(Of String) = checkData.ToList()
checkList.Remove(i.ToLower) checkList.Remove(i)
checkData = checkList.ToArray() checkData = checkList.ToArray()
For a = 0 To checkData.Count - 1 For a = 0 To checkData.Count - 1
@ -509,16 +509,11 @@ nextScript:
Dim lType As String = line.Remove(0, 1) Dim lType As String = line.Remove(0, 1)
lType = lType.Remove(lType.IndexOf("|")) lType = lType.Remove(lType.IndexOf("|"))
If lName.ToLower <> name.ToLower Or lType.ToLower() <> type.ToLower() Then If lName <> name Or lType.ToLower() <> type.ToLower() Then
If newData <> "" Then If newData <> "" Then
newData &= "," newData &= ","
End If End If
newData &= line newData &= line
ElseIf lName.ToLower = name AndAlso lType.ToLower() = type.ToLower() Then
If newData <> "" Then
newData &= ","
End If
newData &= lName
End If End If
Else Else
If newData <> "" Then If newData <> "" Then