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

Make it possible to quit voltorbflip w/ open memo

Browse Source
This commit is contained in:
JappaWakka 2024-03-20 13:29:04 +01:00
parent 24e1335caa
commit e217895a20
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
P3D/Screens/VoltorbFlipScreen.vb
View File

@ -423,7 +423,7 @@ Namespace VoltorbFlip
End If End If
End If End If
End Sub End Subqu
Private Sub DrawCursor() Private Sub DrawCursor()
If GameState = States.Game OrElse GameState = States.Memo Then If GameState = States.Game OrElse GameState = States.Memo Then
Dim mainBackgroundColor As Color = New Color(255, 255, 255) Dim mainBackgroundColor As Color = New Color(255, 255, 255)
@ -914,19 +914,21 @@ TryAgain:
Dim QuitQuestionText As String = Localization.GetString("VoltorbFlip_QuitQuestion_Question_1", "If you quit now, you will~receive") & " " & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_QuitQuestion_Question_2", "Coin(s).*Will you quit?") & "%" & Localization.GetString("VoltorbFlip_QuitQuestion_AnswerYes", "Yes") & "|" & Localization.GetString("VoltorbFlip_QuitQuestion_AnswerNo", "No") & "%" Dim QuitQuestionText As String = Localization.GetString("VoltorbFlip_QuitQuestion_Question_1", "If you quit now, you will~receive") & " " & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_QuitQuestion_Question_2", "Coin(s).*Will you quit?") & "%" & Localization.GetString("VoltorbFlip_QuitQuestion_AnswerYes", "Yes") & "|" & Localization.GetString("VoltorbFlip_QuitQuestion_AnswerNo", "No") & "%"
'Quiting Voltorb Flip 'Quiting Voltorb Flip
If Controls.Dismiss(False, True, True) AndAlso GameState = States.Game AndAlso Delay = 0 Then If Controls.Dismiss(False, True, True) AndAlso (GameState = States.Game OrElse GameState = States.Memo) AndAlso Delay = 0 Then
TextBox.Show(QuitQuestionText) TextBox.Show(QuitQuestionText)
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
GameState = States.QuitQuestion GameState = States.QuitQuestion
MemoMenuX = 0
End If End If
'Quiting Voltorb Flip using the mouse 'Quiting Voltorb Flip using the mouse
Dim QuitButtonRectangle As New Rectangle(CInt(GameOrigin.X + 424), CInt(GameOrigin.Y + 448), 128, 56) Dim QuitButtonRectangle As New Rectangle(CInt(GameOrigin.X + 424), CInt(GameOrigin.Y + 448), 128, 56)
If Controls.Accept(True, False, False) AndAlso MouseHandler.IsInRectangle(QuitButtonRectangle) AndAlso GameState = States.Game AndAlso Delay = 0 Then If Controls.Accept(True, False, False) AndAlso MouseHandler.IsInRectangle(QuitButtonRectangle) AndAlso GameState = States.Game OrElse GameState = States.Memo) AndAlso Delay = 0 Then
TextBox.Show(QuitQuestionText) TextBox.Show(QuitQuestionText)
ChooseBox.CancelIndex = 1 ChooseBox.CancelIndex = 1
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
GameState = States.QuitQuestion GameState = States.QuitQuestion
MemoMenuX = 0
End If End If