coin scripts

P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb

@@ -299,6 +299,16 @@
                         PlayerStatistics.Track("Obtained BP", bp)
                     End If
 
+                    IsReady = True
+                Case "addcoins"
+                    Dim coins As Integer = int(argument)
+
+                    Core.Player.Coins += coins
+
+                    If coins > 0 Then
+                        PlayerStatistics.Track("Obtained Coins", coins)
+                    End If
+
                     IsReady = True
                 Case "showrod"
                     If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then

P3D/World/ActionScript/V2/ScriptConstructs/DoPlayer.vb

@@ -75,6 +75,8 @@
                     Return Core.Player.Gender
                 Case "bp"
                     Return Core.Player.BP.ToString()
+                Case "coins"
+                    Return Core.Player.Coins.ToString()
                 Case "badges"
                     Return Core.Player.Badges.Count
                 Case "thirdperson"