Fix WarpBlock
This commit is contained in:
parent
5c9faa6710
commit
fef6ff28df
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue