From 11a8b632d0805242014c50dc8ae87f53dec1e951 Mon Sep 17 00:00:00 2001
From: "Jasper \"JappaWakka\" Speelman"
 <31563291+JappaWakka@users.noreply.github.com>
Date: Sun, 3 Apr 2022 21:04:25 +0200
Subject: [PATCH] Fixed going up slideblocks speed

---
 P3D/Overworld/OverworldCamera.vb                     | 4 +---
 P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb | 8 ++++++++
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/P3D/Overworld/OverworldCamera.vb b/P3D/Overworld/OverworldCamera.vb
index 7967a2359..dd3bab730 100644
--- a/P3D/Overworld/OverworldCamera.vb
+++ b/P3D/Overworld/OverworldCamera.vb
@@ -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
diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
index 22c1f5164..951ad0b8c 100644
--- a/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
+++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
@@ -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))