@Player.AddCoins max 50000 + voltorb flip bugfix

P3D/Screens/VoltorbFlipScreen.vb

@@ -1277,7 +1277,7 @@ TryAgain:
             End If
 
             If Delay = 0 Then
-                If GameState = States.QuitQuestion Then
+                If GameState = States.QuitQuestion OrElse GameState = States.GameWon Then
                     TotalCoins += CurrentCoins
                     CurrentFlips = 0
 
@@ -1286,13 +1286,20 @@ TryAgain:
                 Delay = 5
             End If
             If Delay > 3 Then
+                If Core.Player.Coins + TotalCoins > 50000 Then
+                    If CurrentLevel < PreviousLevel Then
+                        TextBox.Show(Localization.GetString("VoltorbFlip_NewLevel_Lower1", "Dropped to Game Lv.") & " " & CurrentLevel & Localization.GetString("VoltorbFlip_NewLevel_Lower2", "!"))
+                    End If
+                    GameState = States.Closing
+                    ChooseBox.readyForResult = False
+                Else
                     If CurrentLevel < PreviousLevel Then
                         TextBox.Show(Localization.GetString("VoltorbFlip_NewLevel_Lower1", "Dropped to Game Lv.") & " " & CurrentLevel & Localization.GetString("VoltorbFlip_NewLevel_Lower2", "!"))
                     End If
-
                     ChooseBox.readyForResult = False
                     GameState = States.NewLevelQuestion
                 End If
+            End If
         End Sub
     End Class
 

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

@@ -303,6 +303,10 @@
                 Case "addcoins"
                     Dim coins As Integer = int(argument)
 
+                    If Core.Player.Coins + coins > 50000 Then
+                        coins = 50000 - Core.Player.Coins
+                    End If
+
                     Core.Player.Coins += coins
 
                     If coins > 0 Then