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

Fixed going up slideblocks speed

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"
Private Sub SetSpeed()
If CurrentScreen.Identification = Screen.Identifications.OverworldScreen AndAlso CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = False Then
Speed = 0.04F
Else
If CurrentScreen.Identification = Screen.Identifications.OverworldScreen AndAlso CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
If Screen.Level.Riding = True Then
Speed = 0.08F
Else

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

@ -50,6 +50,14 @@
.UpdateEntity()
End With
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"
If Started = False Then
Screen.Camera.Move(sng(argument))