From 2a3579f6849887717e0ad73af0d1e3c02c2eaaf0 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Mon, 29 May 2023 09:57:39 +0200 Subject: [PATCH] Added menu with tutorials, removed gradients Also improved some tokens and fixed the quit button on the How To Play tutorial image --- P3D/Content/Localization/Tokens_en.dat | 4 +- .../VoltorbFlip/Tutorial_HowToPlay.png | Bin 2151 -> 1975 bytes P3D/Screens/VoltorbFlipScreen.vb | 56 ++++++++++++------ 3 files changed, 39 insertions(+), 21 deletions(-) diff --git a/P3D/Content/Localization/Tokens_en.dat b/P3D/Content/Localization/Tokens_en.dat index d6470670f..4221dd478 100644 --- a/P3D/Content/Localization/Tokens_en.dat +++ b/P3D/Content/Localization/Tokens_en.dat @@ -430,7 +430,7 @@ VoltorbFlip_BeforeNewLevel_GameInfo_Answer_HowToPlay,How to Play VoltorbFlip_BeforeNewLevel_GameInfo_Answer_Hint,Hint! VoltorbFlip_BeforeNewLevel_GameInfo_Answer_AboutMemos,About Memos -VoltorbFlip_GameWon_1,Game clear!* received~ +VoltorbFlip_GameWon_1,Game clear!~You've found all of the hidden x2 and x3 cards.* received~ VoltorbFlip_GameWon_2,Coin(s)! VoltorbFlip_GameLost,Oh no! You get 0 Coins! @@ -456,7 +456,7 @@ VoltorbFlip_BeforeGame_NoCoinCase,You don't have a Coin Case!~Come back when you VoltorbFlip_Tutorial_HowToPlay_Message,Voltorb Flip is a game in which~you flip over cards to find~numbers hidden beneath them.*The cards are hiding the~numbers 1 through 3...~and Voltorb as well.*The first number you flip over~will give you that many Coins.*From then on, the next number~you find will multiply the~total amount of Coins you've~collected by that number.*If it's a 2, your total will~be multiplied by "x2".*If it's a 3, your total will~be multiplied by "x3".*But if you flip over a~Voltorb, it's game over.*When that happens, you'll lose~all the Coins you've collected~in the current level.*If you select "Quit", you'll~withdraw from the level.*If you get to a difficult~spot, you might want to end~the game early.*Once you've found all the~hidden 2 and 3 cards,~you've cleared the game.*Once you've flipped over~all these cards, then you'll~advance to the next level.*As you move up in levels,~you will be able to receive~more Coins. Do your best! VoltorbFlip_Tutorial_Hint_Message,The numbers at the side~of the board give you a clue~about the numbers hidden on~the backs of the cards.*The larger the number, the~more likely it is that there~are many large numbers hidden~in that row or column.*In the same way, you can tell~how many Voltorb are hidden~in the row or column.*Consider the hidden number~totals and the Voltorb~totals carefully as you~flip over cards. -VoltorbFlip_Tutorial_AboutMemos_Message,Select "Open Memo" or~press [] to open~the Memo Window.*You can mark the cards with~the numbers 1 through 3,~but also with a Voltorb mark.*When you have an idea of the~numbers hidden on the back~of the cards, open the Memo~Window, choose the type of~mark you want to use with~the Mouse Wheel or the~Gamepad's Shoulder Buttons~and then press []~while highlighting the card~you want to mark.*If you want to remove a mark,~choose the type of mark you~want to remove with the~Mouse Wheel or the Gamepad's~Shoulder Buttons and then~press [] while~highlighting the card you~want to remove the mark from.*You can also use the~mouse to select a~mark type or a card. +VoltorbFlip_Tutorial_AboutMemos_Message,Select "Open Memo" or press~[] to open the~Memo Window.*You can mark the cards with~the numbers 1 through 3,~but also with a Voltorb mark.*When you have an idea of the~numbers hidden on the back~of the cards, open the Memo~Window, choose the type of~mark you want to use with~the Mouse Wheel or the~Gamepad's Shoulder Buttons~and then press []~while highlighting the card~you want to mark.*If you want to remove a mark,~choose the type of mark you~want to remove with the~Mouse Wheel or the Gamepad's~Shoulder Buttons and then~press [] while~highlighting the card you~want to remove the mark from.*You can also use the~mouse to select a~mark type or a card. VoltorbFlip_Tutorial_HowToPlay_Image1,If you flip the cards in this order, you'll collect: 3 x 1 x 2 x 1 x 3... A total of 18 Coins! And then... VoltorbFlip_Tutorial_HowToPlay_Image2,If you select "Quit", you'll keep those 18 Coins. VoltorbFlip_Tutorial_HowToPlay_Image3,But if you find Voltorb, you'll lose all your Coins! diff --git a/P3D/Content/Textures/VoltorbFlip/Tutorial_HowToPlay.png b/P3D/Content/Textures/VoltorbFlip/Tutorial_HowToPlay.png index e9408c59248e07026f65f497110833d82be0e606..5776149120299bbd82112b6edd4fdc4c259fe90b 100644 GIT binary patch delta 1789 zcmZuyYgAKL7C!eTK#(B8+JM6&Ay`mwL>ZbWs9XUR#z&Oes#OTo@)$9Oq3H?~$h{&0 zYY<6^)|ttIAhdSYg_CM_>R?R^P=B z^bZS$=fA^OwTARgb!Rk#Exl849OPk0hib8lqGo^|{!laC((tuQV2OJ75JzoNt_S;j z76J?7#73EQ4MYj?-+`)CVn#9d)ZKpG#(>TvZI&Sp+HX8+%M+l3f1P< z?dy(X@dD*HZm6o^3B4~pkgYap)%}(tn{rX=!I2`~iI@++g0%vCrxEXykyMhrTiR~_1J!& zphXz$Sob{X@=Iu}Om9Y8>u`TkZOy7{o;^)YRfw0aHCi2z77?ncC{ey%*)SR`>_|B{7695~ z;nmw=zS(bLuU37^sL1?4XKo@-viiK0@jaCi7wEdRvzg+0iq_G6@Z*;d?-X7$fpwyb z2J7)PScOYP=k}%lj*@TpyKNmUQzy>_D({(<0^HZG55K*zDn3b2RRXp>@Ntkl(_7gA zUry7WE|-H>k5*DO#osbw4blnN6+H?@+Xn4})TX8_sJDRBIdVsE?w@+g=I6Xj@bBoZ zcb07^A4*PhuGx`6w8I8t64YQ7jhOpp6M2uOE{d`iFS>x%kXW#xe83|BgwCpC?aGgz z$vgKm6!})p%a`>tFPQgyLJj_GoBZ?4%mi>+T;LBo!JFLC$2fg>QJ)KR6Jw#$@d0D| za2ix=x|-=Mm6P6wXwr6)x3rDKkX|LdC%sOxLur5pm?}^Jgek@=D>T|v+U{&OMq}bK zaPua>0#m2)``}w=(3p^6R8RrU4gwI<=i0`pf0VIUfC69)F#k^=ZX8Q+&N~ev>v?8q zk^PcYc~ZP~skTdhGaW`wJJ*_Qut@JXqXYPQw+0<@0jwg7=;Me#K{6gF2!g%HgalCe z>d?R<_O$msKb=LK?8mQbcd~gf9FpOM+8az%2(+=-buZE|wJC^XZM3zifCbl<=EvjD;h?1?0Agi`I1|7Z=n5Z%K< zj2+7A<7)fabeNZu67y@Bz^1CV1MNAoj2m?q8sn(Txf3Z^ZAe^f@-#dE?AYHIT zzmT7wf1YBxi8pfN#{QJmnF!JE{`V66=o9b6!&@pgsuvSk-ab$ZO8F zc;rY8qGRMl`ExSRxnq_}Yok_PteLI@D1^~%nb|YklC@70>!P27pF(9QoeA1rffLO= zj(0-?>WaB4eZuC*&;tyU3+kT4Z~($}z$@2IVK=B)45z>##tAV;GQu8}t)T#65HLBa z59}b+9u%ZxZU4+nP-ZUg)>Js9e|-FDA=Y*t4C-z7$zLg?_%Q(q4SPb8pmbW;QMa=e zxv>aoI}284`=@@jRq|K)T$N0(gv0m1l41luB>oplC3`p`hbW%Zw{lXrk~Ddk_$Y|G z=7ASGLAec7Ed?67UHN(#9AAz3c=sJScaLscp0eCn*tmKZ#^#HmY9`>c>~x*wXX%oN zHx@J>578i&-U3fvpdj5F1Y!t#v|MT?zySFB0wd>jOOpTk08c=ys9gslZiL0<{0bZp B4k-Wt literal 2151 zcmbVOYgiL!7XD^PASSXTwgn*w@wVNKXs8-Ofto>}LbalT1yM-a6%av!az{zVD_9<+ zy7dM$uvLi)3MwsB!HHNeNCOe9qFe%Ue}aY>5QCFsKkPowy8XF7X3jV7%sJmV-+9mb z%;9xwSJ~2?=l}rQpg{i(03dJ)lr(F2*S@Hafo4Wh;HG2%7_+7?q_s;*LXe#j5S|hu ziAhQSdRH{?i%v++Oy-27q;8Fqa6%=Lgj+f}Ziz!4hx?sB)0ztE?oz|rP_ zX{x%V=F6s%^!<%*WJqqSHv*81-@B6(Vb)Xve4k}!>Mz&# z4GIV&V@M{rPEPy|d^+pR?y(g{m z=aw4uXIs$)uEC-$Z^(JyM;>ire7B|e_=&9JZ$HQG**sWdHf^@7rE+BEka73(m)Je8j@LHZRvpPH)x?_z3@sPg zjZ;qub845FS~|cMuW!7u%gW8$E^^ZO(G&x#R)By>OuHiQZT%pxgDjUH{@J`1@tN`F zL3DU3uRjRW68vEFkoB+QOGD=flsdjFQUEbijpfoz?BNIN%Uz_8Q>kga>`x2j#J1Pm zleebQCFXpqvGH|#zOA}e6S5k3Txmwn8tjNA+{ny9fy{M?_l#I?-LrY=OyMXz@0}{w z?CIth7&xSW6mchvDoq3^R1bc%O=_6jY5pq8I-zy5$odn)_zyXu2i4~;EK-w$Is=(c zEmZ}afBRq=d~;gJP__wI57`JSCJ#F6GVY~A$|cqHQI)6{q~KU(@5v4@-qe*5>ViLd zo7a&fa5;Fb_vlCa<)_@ro^~&>#Z`7Y19}3$-G3H5wGonT6m_b|To@w}6=z?z2Su(^ z4hZBp6ENXG{>cCeM6u~f{r?t!3irQzfaeUHh7lgJbD%SSRd2$!K0nPG`?iDv2WyPN zk*h?r@#QE+xJk^d0PLLh{bobjw_)Q<7J|VC3V7dKuk8(EQQjffN59s8C@tna_8Nq( z*nN9W-pAlqdj!r$?sC+F0L(Z_f)wGj(%MNBJIksvQt`m~%$3l>s9gP`w&8iitco&~ z?qpdjKi;%qU4ry^E)FUjfz0#ZBN_D)>^Md_Ri|bRW5boncB-<+803Al!YLm z0G1I!SN=6EQQGM7qRspy*3v8)-srk$Dk2poS$Ym^9qLAbo+>sH0d^zh)|`pQOd3Gd zNuX6#93iEa4mZ|c1^q(e$SM@ZTu$~WNA5=6JQ?izy7HK&zo~==ss@n1<@rVq=}|Ce zhVp0D`?b@p)alU8-w7e?o!{?i6y%5cClwFyDLsik^jJT3$;;D_(>ua}KYm|8fV#P; znjgT+WB~s)kfup=JOpreNQ2QY;+iADPW58hmPk5CNCtQJcYVI((H+wnfI0l3yIQEbG(f`v z7HgFxbUJ9a>W*yQ=pRB#2jh!@F<+LE5&nh`)hrHnz{?3wF(}x=pkwaR+RQZaPPg<_ z%g`p;iTNC$eh8pGUQ@}8ZQ4p^F=;v#AT}GffYK)9zUFP^Gtx+N6VjPrSPWWsTNVU0 z>{(GcPUDz5$uj`K|6CzIwqJM8&3dF`_^vl+B(8fK1Gj?Xo7 zM~1Q-nO-h9c?M@TJfQUpTLh@D9lCD(l5%7O<7T&)BuX{(nV-$TR-ne+#%SqmT9y<3 zBeQPyvjQtW!m8@;@8o27B`Ac|?gh((fH==eZI9rK=~xkKOmR!huu==)$CEt>l*XTc9mo19|B)ixlXPuhDbkjBZ$1lu P5 1 Then + If GameState = States.NewLevelQuestion Then Select Case NewLevelMenuIndex Case 2 'How to Play + SpriteBatch.DrawRectangle(New Rectangle(CInt(GameOrigin.X), CInt(GameOrigin.Y), GameSize.Width + 64, GameSize.Height + 32), New Color(0, 0, 0, 128)) + Dim TutorialString1 As String = Localization.GetString("VoltorbFlip_Tutorial_HowToPlay_Image1", "If you flip the cards in this order, you'll collect: 3 x 1 x 2 x 1 x 3... A total of 18 Coins! And then...") Dim TutorialString2 As String = Localization.GetString("VoltorbFlip_Tutorial_HowToPlay_Image2", "If you select ""Quit"", you'll keep those 18 Coins.") Dim TutorialString3 As String = Localization.GetString("VoltorbFlip_Tutorial_HowToPlay_Image3", "But if you find Voltorb, you'll lose all your Coins!") - SpriteBatch.Draw(TextureManager.GetTexture("Textures\VoltorbFlip\Tutorial_HowToPlay"), New Rectangle(CInt(TutorialRectangle.X), CInt(TutorialRectangle.Y), TutorialRectangle.Width, TutorialRectangle.Height), mainBackgroundColor) + SpriteBatch.Draw(TextureManager.GetTexture("Textures\VoltorbFlip\Tutorial_HowToPlay"), New Rectangle(CInt(TutorialRectangle.X), CInt(TutorialRectangle.Y), TutorialRectangle.Width, TutorialRectangle.Height), MainColor) SpriteBatch.DrawString(FontManager.MainFont, TutorialString1.CropStringToWidth(FontManager.MainFont, 1, 448), New Vector2(CInt(TutorialRectangle.X + 256 - FontManager.MainFont.MeasureString(TutorialString1.CropStringToWidth(FontManager.MainFont, 1, 448)).X / 2), CInt(TutorialRectangle.Y + 128 - FontManager.MainFont.MeasureString(TutorialString1.CropStringToWidth(FontManager.MainFont, 1, 448)).Y / 2)), FontColor) SpriteBatch.DrawString(FontManager.MainFont, TutorialString2.CropStringToWidth(FontManager.MainFont, 1, 304), New Vector2(CInt(TutorialRectangle.X + 336 - FontManager.MainFont.MeasureString(TutorialString2.CropStringToWidth(FontManager.MainFont, 1, 304)).X / 2), CInt(TutorialRectangle.Y + 256 - FontManager.MainFont.MeasureString(TutorialString2.CropStringToWidth(FontManager.MainFont, 1, 304)).Y / 2)), FontColor) SpriteBatch.DrawString(FontManager.MainFont, TutorialString3.CropStringToWidth(FontManager.MainFont, 1, 304), New Vector2(CInt(TutorialRectangle.X + 336 - FontManager.MainFont.MeasureString(TutorialString2.CropStringToWidth(FontManager.MainFont, 1, 304)).X / 2), CInt(TutorialRectangle.Y + 336 - FontManager.MainFont.MeasureString(TutorialString3.CropStringToWidth(FontManager.MainFont, 1, 304)).Y / 2)), FontColor) + Dim QuitButtonText As String = Localization.GetString("VoltorbFlip_QuitButton", "Quit") + SpriteBatch.DrawString(FontManager.MainFont, QuitButtonText, New Vector2(CInt(TutorialRectangle.X + 8 + 128 / 2 - FontManager.MainFont.MeasureString(QuitButtonText).X / 2), CInt(TutorialRectangle.Y + 228 + 56 / 2 - FontManager.MainFont.MeasureString(QuitButtonText).Y / 2)), FontColor) + SpriteBatch.DrawString(FontManager.MainFont, QuitButtonText, New Vector2(CInt(TutorialRectangle.X + 8 + 128 / 2 - FontManager.MainFont.MeasureString(QuitButtonText).X / 2 - 2), CInt(TutorialRectangle.Y + 228 + 56 / 2 - FontManager.MainFont.MeasureString(QuitButtonText).Y / 2 - 2)), MainColor) + Case 3 'Hint + SpriteBatch.DrawRectangle(New Rectangle(CInt(GameOrigin.X), CInt(GameOrigin.Y), GameSize.Width + 64, GameSize.Height + 32), New Color(0, 0, 0, 128)) + Dim TutorialString As String = Localization.GetString("VoltorbFlip_Tutorial_Hint_Image", "By looking at the numbers on the sides of the cards, you can see the hidden number and Voltorb totals.") - SpriteBatch.Draw(TextureManager.GetTexture("Textures\VoltorbFlip\Tutorial_Hints"), New Rectangle(CInt(TutorialRectangle.X), CInt(TutorialRectangle.Y), TutorialRectangle.Width, TutorialRectangle.Height), mainBackgroundColor) + SpriteBatch.Draw(TextureManager.GetTexture("Textures\VoltorbFlip\Tutorial_Hint"), New Rectangle(CInt(TutorialRectangle.X), CInt(TutorialRectangle.Y), TutorialRectangle.Width, TutorialRectangle.Height), MainColor) SpriteBatch.DrawString(FontManager.MainFont, TutorialString.CropStringToWidth(FontManager.MainFont, 1, 448), New Vector2(CInt(TutorialRectangle.X + 256 - FontManager.MainFont.MeasureString(TutorialString.CropStringToWidth(FontManager.MainFont, 1, 448)).X / 2), CInt(TutorialRectangle.Y + 320 - FontManager.MainFont.MeasureString(TutorialString.CropStringToWidth(FontManager.MainFont, 1, 448)).Y / 2)), FontColor) Case 4 'About Memos + SpriteBatch.DrawRectangle(New Rectangle(CInt(GameOrigin.X), CInt(GameOrigin.Y), GameSize.Width + 64, GameSize.Height + 32), New Color(0, 0, 0, 128)) + Dim TutorialString As String = Localization.GetString("VoltorbFlip_Tutorial_AboutMemos_Image", "Select ""Open Memo"" to open the Memo Window. Select the cards and press [] to add and [] to remove marks.") Dim ButtonTextTop As String = Localization.GetString("VoltorbFlip_MemoButton_Open_Line1", "Open") Dim ButtonTextBottom As String = Localization.GetString("VoltorbFlip_MemoButton_Open_Line2", "Memos") - SpriteBatch.Draw(TextureManager.GetTexture("Textures\VoltorbFlip\Tutorial_AboutMemos"), New Rectangle(CInt(TutorialRectangle.X), CInt(TutorialRectangle.Y), TutorialRectangle.Width, TutorialRectangle.Height), mainBackgroundColor) + SpriteBatch.Draw(TextureManager.GetTexture("Textures\VoltorbFlip\Tutorial_AboutMemos"), New Rectangle(CInt(TutorialRectangle.X), CInt(TutorialRectangle.Y), TutorialRectangle.Width, TutorialRectangle.Height), MainColor) SpriteBatch.DrawString(FontManager.MainFont, TutorialString.CropStringToWidth(FontManager.MainFont, 1, 448), New Vector2(CInt(TutorialRectangle.X + 256 - FontManager.MainFont.MeasureString(TutorialString.CropStringToWidth(FontManager.MainFont, 1, 448)).X / 2), CInt(TutorialRectangle.Y + 304 - FontManager.MainFont.MeasureString(TutorialString.CropStringToWidth(FontManager.MainFont, 1, 448)).Y / 2)), FontColor) @@ -997,7 +1004,7 @@ TryAgain: 'Level complete! If CurrentCoins >= MaxCoins AndAlso GameState = States.Game Then - Dim GameClearText = Localization.GetString("VoltorbFlip_GameWon_1", "Game clear!* received~") & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_GameWon_2", "Coin(s)!") + Dim GameClearText = Localization.GetString("VoltorbFlip_GameWon_1", "Game clear!~You've found all of the hidden x2 and x3 cards.* received~") & CurrentCoins.ToString & " " & Localization.GetString("VoltorbFlip_GameWon_2", "Coin(s)!") SoundManager.PlaySound("VoltorbFlip\WinGame") TextBox.Show(GameClearText) If Delay = 0 Then @@ -1099,7 +1106,7 @@ TryAgain: Next If ReadyAmount = CInt(GridSize * GridSize) Then - GameState = States.NewLevel + GameState = States.NewLevelQuestion End If End If @@ -1118,7 +1125,7 @@ TryAgain: CurrentFlips = 0 If ReadyAmount = CInt(GridSize * GridSize) Then - GameState = States.NewLevel + GameState = States.NewLevelQuestion End If End If @@ -1127,7 +1134,6 @@ TryAgain: Select Case NewLevelMenuIndex Case 0 'Main Menu If Delay = 0 AndAlso TextBox.Showing = False AndAlso ChooseBox.Showing = False Then - ChooseBox.readyForResult = False TextBox.Show(Localization.GetString("VoltorbFlip_BeforeNewLevel_Main_Question_1", "Play Voltorb Flip Lv.") & " " & CurrentLevel.ToString & Localization.GetString("VoltorbFlip_BeforeNewLevel_Main_Question_2", "?") & "%" & Localization.GetString("VoltorbFlip_BeforeNewLevel_Main_Answer_Play", "Play") & "|" & Localization.GetString("VoltorbFlip_BeforeNewLevel_Main_Answer_GameInfo", "Game Info") & "|" & Localization.GetString("VoltorbFlip_BeforeNewLevel_Main_Answer_Quit", "Quit") & "%") Delay = 5 End If @@ -1135,15 +1141,17 @@ TryAgain: Select Case ChooseBox.result Case 0 GameState = States.NewLevel + ChooseBox.readyForResult = False Case 1 NewLevelMenuIndex = 1 + ChooseBox.readyForResult = False Case 2 GameState = States.Closing + ChooseBox.readyForResult = False End Select End If Case 1 'Info Menu If Delay = 0 AndAlso TextBox.Showing = False AndAlso ChooseBox.Showing = False Then - ChooseBox.readyForResult = False TextBox.Show(Localization.GetString("VoltorbFlip_BeforeNewLevel_GameInfo_Question", "Which set of info?") & "%" & Localization.GetString("VoltorbFlip_BeforeNewLevel_GameInfo_Answer_HowToPlay", "How to Play") & "|" & Localization.GetString("VoltorbFlip_BeforeNewLevel_GameInfo_Answer_Hint", "Hint!") & "|" & Localization.GetString("VoltorbFlip_BeforeNewLevel_GameInfo_Answer_AboutMemos", "About Memos") & "%") Delay = 5 End If @@ -1160,21 +1168,30 @@ TryAgain: Case 2 'How to Play If Delay = 0 Then TextBox.Show(Localization.GetString("VoltorbFlip_Tutorial_HowToPlay_Message", "Voltorb Flip is a game in which~you flip over cards to find~numbers hidden beneath them.*The cards are hiding the~numbers 1 through 3...~and Voltorb as well.*The first number you flip over~will give you that many Coins.*From then on, the next number~you find will multiply the~total amount of Coins you've~collected by that number.*If it's a 2, your total will~be multiplied by ""x2"".*If it's a 3, your total will~be multiplied by ""x3"".*But if you flip over a~Voltorb, it's game over.*When that happens, you'll lose~all the Coins you've collected~in the current level.*If you select ""Quit"", you'll~withdraw from the level.*If you get to a difficult~spot, you might want to end~the game early.*Once you've found all the~hidden 2 and 3 cards,~you've cleared the game.*Once you've flipped over~all these cards, then you'll~advance to the next level.*As you move up in levels,~you will be able to receive~more Coins. Do your best!")) - NewLevelMenuIndex = 1 Delay = 5 End If + If TextBox.Showing = False AndAlso Delay > 3 Then + ChooseBox.readyForResult = False + NewLevelMenuIndex = 1 + End If Case 3 'Hint! If Delay = 0 Then TextBox.Show(Localization.GetString("VoltorbFlip_Tutorial_Hint_Message", "The numbers at the side~of the board give you a clue~about the numbers hidden on~the backs of the cards.*The larger the number, the~more likely it is that there~are many large numbers hidden~in that row or column.*In the same way, you can tell~how many Voltorb are hidden~in the row or column.*Consider the hidden number~totals and the Voltorb~totals carefully as you~flip over cards.")) - NewLevelMenuIndex = 1 Delay = 5 End If + If TextBox.Showing = False AndAlso Delay > 3 Then + ChooseBox.readyForResult = False + NewLevelMenuIndex = 1 + End If Case 4 'About Memos If Delay = 0 Then - TextBox.Show(Localization.GetString("VoltorbFlip_Tutorial_AboutMemos_Message", "Select ""Open Memo"" or~press [] to open~the Memo Window.*You can mark the cards with~the numbers 1 through 3,~but also with a Voltorb mark.*When you have an idea of the~numbers hidden on the back~of the cards, open the Memo~Window, choose the type of~mark you want to use with~the Mouse Wheel or the~Gamepad's Shoulder Buttons~and then press []~while highlighting the card~you want to mark.*If you want to remove a mark,~choose the type of mark you~want to remove with the~Mouse Wheel or the Gamepad's~Shoulder Buttons and then~press [] while~highlighting the card you~want to remove the mark from.*You can also use the~mouse to select a~mark type or a card.")) - NewLevelMenuIndex = 1 + TextBox.Show(Localization.GetString("VoltorbFlip_Tutorial_AboutMemos_Message", "Select ""Open Memo"" or press~[] to open the~Memo Window.*You can mark the cards with~the numbers 1 through 3,~but also with a Voltorb mark.*When you have an idea of the~numbers hidden on the back~of the cards, open the Memo~Window, choose the type of~mark you want to use with~the Mouse Wheel or the~Gamepad's Shoulder Buttons~and then press []~while highlighting the card~you want to mark.*If you want to remove a mark,~choose the type of mark you~want to remove with the~Mouse Wheel or the Gamepad's~Shoulder Buttons and then~press [] while~highlighting the card you~want to remove the mark from.*You can also use the~mouse to select a~mark type or a card.")) Delay = 5 End If + If TextBox.Showing = False AndAlso Delay > 3 Then + ChooseBox.readyForResult = False + NewLevelMenuIndex = 1 + End If End Select End If 'Prepare new Level @@ -1232,7 +1249,7 @@ TryAgain: _screenTransitionY = MathHelper.Lerp(maxWindowHeight, _screenTransitionY, 0.8F) If _screenTransitionY >= maxWindowHeight - 0.8 Then If GameState = States.Opening Then - GameState = States.NewLevel + GameState = States.NewLevelQuestion End If _screenTransitionY = maxWindowHeight End If @@ -1259,6 +1276,7 @@ TryAgain: CurrentCoins = 0 End If + ChooseBox.readyForResult = False GameState = States.NewLevelQuestion End Sub End Class