tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed going up slideblocks speed

Browse Source
This commit is contained in:
Jasper "JappaWakka" Speelman 2022-04-03 21:04:25 +02:00
parent 5e9ed79196
commit 11a8b632d0
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Overworld/OverworldCamera.vb
View File

@ -418,9 +418,7 @@ Public Class OverworldCamera
#Region "CameraMethods" #Region "CameraMethods"
Private Sub SetSpeed() Private Sub SetSpeed()
If CurrentScreen.Identification = Screen.Identifications.OverworldScreen AndAlso CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = False Then If CurrentScreen.Identification = Screen.Identifications.OverworldScreen AndAlso CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
Speed = 0.04F
Else
If Screen.Level.Riding = True Then If Screen.Level.Riding = True Then
Speed = 0.08F Speed = 0.08F
Else Else

8
P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
View File

@ -50,6 +50,14 @@
.UpdateEntity() .UpdateEntity()
End With End With
IsReady = True IsReady = True
Case "setspeed"
Dim speed As Single = sng(argument)
Screen.Camera.Speed = speed * 0.04F
IsReady = True
Case "resetspeed"
Screen.Camera.Speed = 0.04F
IsReady = True
Case "move" Case "move"
If Started = False Then If Started = False Then
Screen.Camera.Move(sng(argument)) Screen.Camera.Move(sng(argument))