tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-04-08 18:35:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Registers are now case insensitive"

Browse Source 
This reverts commit f09cd7d644d87008d28ac878b856748eb496aa6f.
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
If d.StartsWith("[") = True And d.EndsWith("]") = False And d.Contains("]") = True Then
d = d.Remove(0, d.IndexOf("]") + 1)
If d.ToLower = i.ToLower Then
If d = i Then
Return True
End If
Else
If d.ToLower = i.ToLower Then
If d = i Then
Return True
End If
End If
@ -332,11 +332,11 @@ nextScript:
Else
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)
If d.ToLower = i.ToLower Then
If d = i Then
Return True
End If
Else
If Core.Player.RegisterData.ToLower = i.ToLower Then
If Core.Player.RegisterData = i Then
Return True
End If
End If
@ -452,11 +452,11 @@ nextScript:
Dim Data As String = Core.Player.RegisterData
If Data = "" Then
Data = i.ToLower
Data = i
Else
Dim checkData() As String = Data.Split(CChar(","))
If checkData.Contains(i.ToLower) = False Then
Data &= "," & i.ToLower
If checkData.Contains(i) = False Then
Data &= "," & i
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)
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
Data = reg
@ -485,7 +485,7 @@ nextScript:
Dim Data As String = ""
Dim checkList As List(Of String) = checkData.ToList()
checkList.Remove(i.ToLower)
checkList.Remove(i)
checkData = checkList.ToArray()
For a = 0 To checkData.Count - 1
@ -509,16 +509,11 @@ nextScript:
Dim lType As String = line.Remove(0, 1)
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
newData &= ","
End If
newData &= line
ElseIf lName.ToLower = name AndAlso lType.ToLower() = type.ToLower() Then
If newData <> "" Then
newData &= ","
End If
newData &= lName
End If
Else
If newData <> "" Then