diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
index 7b8eb5248..68077349c 100644
--- a/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
+++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
@@ -238,6 +238,9 @@
                 Case "removemoney"
                     Core.Player.Money -= int(argument)
 
+                    If Core.Player.Money < 0 Then
+                        Core.Player.Money = 0
+                    End If
                     IsReady = True
                 Case "setmovement"
                     Dim movements() As String = argument.Split(CChar(","))