tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

@Player.AddCoins max 50000 + voltorb flip bugfix

This commit is contained in:
JappaWakka 2023-06-30 15:45:44 +02:00
parent ba4a377d23
commit d190ef524d
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
P3D/Screens/VoltorbFlipScreen.vb
View File

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

4
P3D/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
View File

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