Fix WarpBlock

This commit is contained in:
JappaWakka 2024-07-05 11:16:49 +02:00
parent 5c9faa6710
commit fef6ff28df
1 changed files with 10 additions and 8 deletions

View File

@ -27,6 +27,7 @@
End If End If
Next Next
If c >= 5 Then If c >= 5 Then
If link.GetSplit(5, ",") <> "" Then
Dim validRotations As New List(Of Integer) Dim validRotations As New List(Of Integer)
Dim rotationData() As String = link.GetSplit(5, ",").Split(CChar("|")) Dim rotationData() As String = link.GetSplit(5, ",").Split(CChar("|"))
@ -37,6 +38,7 @@
Return True Return True
End If End If
End If End If
End If
Dim WarpSoundName As String = "Warp_Exit" Dim WarpSoundName As String = "Warp_Exit"
If c >= 6 Then If c >= 6 Then
Dim WarpSoundData As Integer = CInt(link.GetSplit(6)) Dim WarpSoundData As Integer = CInt(link.GetSplit(6))
@ -44,7 +46,7 @@
Case 0 Case 0
WarpSoundName = "Warp_Exit" WarpSoundName = "Warp_Exit"
Case 1 Case 1
WarpSoundName = "Warp_RegularDoor" WarpSoundName = "Warp_Door"
Case 2 Case 2
WarpSoundName = "Warp_Ladder" WarpSoundName = "Warp_Ladder"
Case 3 Case 3