From 73727edb6ce700e4e67f2f3ef234d68947dae27a Mon Sep 17 00:00:00 2001
From: JappaWakka <jjlspeelman@outlook.com>
Date: Sat, 31 Dec 2022 21:04:11 +0100
Subject: [PATCH] Added @Player.RemoveMoney(int)

---
 P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb b/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
index 7858a3820..7b8eb5248 100644
--- a/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
+++ b/P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
@@ -234,6 +234,10 @@
                 Case "money", "addmoney"
                     Core.Player.Money += int(argument)
 
+                    IsReady = True
+                Case "removemoney"
+                    Core.Player.Money -= int(argument)
+
                     IsReady = True
                 Case "setmovement"
                     Dim movements() As String = argument.Split(CChar(","))