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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
P3D/Entites/Enviroment/WarpBlock.vb
View File

@ -27,14 +27,16 @@
End If End If
Next Next
If c >= 5 Then If c >= 5 Then
Dim validRotations As New List(Of Integer) If link.GetSplit(5, ",") <> "" Then
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("|"))
For Each Element As String In rotationData For Each Element As String In rotationData
validRotations.Add(CInt(Element)) validRotations.Add(CInt(Element))
Next Next
If validRotations.Contains(Screen.Camera.GetPlayerFacingDirection()) = False Then If validRotations.Contains(Screen.Camera.GetPlayerFacingDirection()) = False Then
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"
@ -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