tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix incorrect Voltorb Flip rules

Browse Source
This commit is contained in:
JappaWakka 2023-06-12 16:15:45 +02:00
parent 7be2275050
commit c287e2ce36
1 changed files with 22 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
P3D/Screens/VoltorbFlipScreen.vb
View File

@ -1056,8 +1056,8 @@ TryAgain:
Next Next
If Controls.Accept = True AndAlso ReadyAmount = CInt(GridSize * GridSize) AndAlso TextBox.Showing = False Then If Controls.Accept = True AndAlso ReadyAmount = CInt(GridSize * GridSize) AndAlso TextBox.Showing = False Then
SoundManager.PlaySound("select")
If Delay = 0 Then If Delay = 0 Then
SoundManager.PlaySound("select")
Delay = 5 Delay = 5
End If End If
If Delay > 3 Then If Delay > 3 Then
@ -1088,11 +1088,9 @@ TryAgain:
PreviousLevel = CurrentLevel PreviousLevel = CurrentLevel
If CurrentFlips < CurrentLevel Then If CurrentFlips < CurrentLevel Then
CurrentLevel = Math.Max(1, CurrentFlips) CurrentLevel = Math.Max(1, CurrentFlips)
Else
CurrentLevel = 1
End If End If
SoundManager.PlaySound("select")
If Delay = 0 Then If Delay = 0 Then
SoundManager.PlaySound("select")
Delay = 5 Delay = 5
End If End If
If Delay > 3 Then If Delay > 3 Then
@ -1274,14 +1272,27 @@ TryAgain:
SoundManager.PlaySound("VoltorbFlip\QuitGame", True) SoundManager.PlaySound("VoltorbFlip\QuitGame", True)
TextBox.Show(Localization.GetString("VoltorbFlip_QuitGame_1", "<player.name> received~") & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_QuitGame_2", "Coin(s)!")) TextBox.Show(Localization.GetString("VoltorbFlip_QuitGame_1", "<player.name> received~") & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_QuitGame_2", "Coin(s)!"))
If GameState = States.QuitQuestion Then If CurrentFlips < CurrentLevel Then
TotalCoins += CurrentCoins CurrentLevel = Math.Max(1, CurrentFlips)
CurrentFlips = 0 End If
CurrentCoins = 0 If Delay = 0 Then
If GameState = States.QuitQuestion Then
TotalCoins += CurrentCoins
CurrentFlips = 0
CurrentCoins = 0
End If
Delay = 5
End If
If Delay > 3 Then
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 Sub End Sub
End Class End Class