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

VoltorbScreen fully implemented!

Browse Source
This commit is contained in:
JappaWakka 2023-05-27 15:09:41 +02:00
parent 99bf455a6e
commit bd38e5c2ab
4 changed files with 237 additions and 232 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Player/Player.vb
View File

@ -2108,10 +2108,6 @@
Public Sub Unload() Public Sub Unload()
'This function clears all data from the loaded player and restores the default values. 'This function clears all data from the loaded player and restores the default values.
'Reset VoltorbFlipScreen's Levels
VoltorbFlip.VoltorbFlipScreen.CurrentLevel = 1
VoltorbFlip.VoltorbFlipScreen.PreviousLevel = 1
'Clearning lists: 'Clearning lists:
Pokemons.Clear() Pokemons.Clear()
Pokedexes.Clear() Pokedexes.Clear()

4
P3D/Screens/MainMenu/PauseScreen.vb
View File

@ -295,6 +295,10 @@
#End Region #End Region
Private Sub QuitGame() Private Sub QuitGame()
'Reset VoltorbFlipScreen's Levels
VoltorbFlip.VoltorbFlipScreen.CurrentLevel = 1
VoltorbFlip.VoltorbFlipScreen.PreviousLevel = 1
If JoinServerScreen.Online = True Then If JoinServerScreen.Online = True Then
Core.ServersManager.ServerConnection.Disconnect() Core.ServersManager.ServerConnection.Disconnect()
End If End If

447
P3D/Screens/VoltorbFlipScreen.vb
View File

@ -11,7 +11,7 @@ Namespace VoltorbFlip
Public Shared _interfaceFade As Single = 0F Public Shared _interfaceFade As Single = 0F
Private Delay As Integer = 0 Private Delay As Integer = 0
Private MemoWindowX As Single = 0F Private MemoMenuX As Single = 0F
Private MemoMenuSize As New Size(112, 112) Private MemoMenuSize As New Size(112, 112)
Private Shared ReadOnly GameSize As New Size(576, 544) Private Shared ReadOnly GameSize As New Size(576, 544)
@ -20,7 +20,7 @@ Namespace VoltorbFlip
Private Shared ReadOnly GridSize As Integer = 5 Private Shared ReadOnly GridSize As Integer = 5
Public Shared GameOrigin As New Vector2(CInt(windowSize.Width / 2 - GameSize.Width / 2), CInt(windowSize.Height / 2 - GameSize.Height / 2)) Public Shared GameOrigin As New Vector2(CInt(windowSize.Width / 2 - GameSize.Width / 2), CInt(windowSize.Height / 2 - GameSize.Height / 2))
Public Shared BoardOrigin As New Vector2(GameOrigin.X + 32, GameOrigin.Y + 128) Public Shared BoardOrigin As New Vector2(GameOrigin.X + 32, GameOrigin.Y + 160)
Private BoardCursorPosition As New Vector2(0, 0) Private BoardCursorPosition As New Vector2(0, 0)
Private BoardCursorDestination As New Vector2(0, 0) Private BoardCursorDestination As New Vector2(0, 0)
@ -38,9 +38,9 @@ Namespace VoltorbFlip
Public Shared Property TotalFlips As Integer = 0 Public Shared Property TotalFlips As Integer = 0
Public Shared Property CurrentCoins As Integer = 0 Public Shared Property CurrentCoins As Integer = 0
Public Shared Property TotalCoins As Integer = 0 Public Shared Property TotalCoins As Integer = -1
Public Shared Property ConsequentWins As Integer = 0 Public Shared Property ConsequentWins As Integer = 0
Public Property MaxCoins As Integer = 1 Public Shared MaxCoins As Integer = 1
Public Board As List(Of List(Of Tile)) Public Board As List(Of List(Of Tile))
@ -74,12 +74,13 @@ Namespace VoltorbFlip
Public Sub New(ByVal currentScreen As Screen) Public Sub New(ByVal currentScreen As Screen)
GameState = States.Opening GameState = States.Opening
GameOrigin = New Vector2(CInt(windowSize.Width / 2 - GameSize.Width / 2), CInt(windowSize.Height / 2 - GameSize.Height / 2 - _screenTransitionY)) GameOrigin = New Vector2(CInt(windowSize.Width / 2 - GameSize.Width / 2), CInt(windowSize.Height / 2 - _screenTransitionY))
BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 128) BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 160)
BoardCursorDestination = GetCursorOffset(0, 0) BoardCursorDestination = GetCursorOffset(0, 0)
BoardCursorPosition = GetCursorOffset(0, 0) BoardCursorPosition = GetCursorOffset(0, 0)
Board = CreateBoard(CurrentLevel) Board = CreateBoard(CurrentLevel)
TotalCoins = 0
_preScreenTarget = New RenderTarget2D(GraphicsDevice, windowSize.Width, windowSize.Height, False, SurfaceFormat.Color, DepthFormat.Depth24Stencil8) _preScreenTarget = New RenderTarget2D(GraphicsDevice, windowSize.Width, windowSize.Height, False, SurfaceFormat.Color, DepthFormat.Depth24Stencil8)
_blur = New Resources.Blur.BlurHandler(windowSize.Width, windowSize.Height) _blur = New Resources.Blur.BlurHandler(windowSize.Width, windowSize.Height)
@ -155,7 +156,7 @@ Namespace VoltorbFlip
mainBackgroundColor = New Color(255, 255, 255, CInt(255 * _interfaceFade)) mainBackgroundColor = New Color(255, 255, 255, CInt(255 * _interfaceFade))
End If End If
Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\Background"), 2, New Rectangle(CInt(GameOrigin.X), CInt(GameOrigin.Y), CInt(GameSize.Width), CInt(GameSize.Height)), mainBackgroundColor, True) Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\Background"), 2, New Rectangle(CInt(GameOrigin.X), CInt(GameOrigin.Y), CInt(GameSize.Width), CInt(GameSize.Height)), mainBackgroundColor, False)
End Sub End Sub
Private Sub DrawHUD() Private Sub DrawHUD()
@ -171,11 +172,11 @@ Namespace VoltorbFlip
'Level 'Level
Dim LevelText As String = "LV." & CurrentLevel.ToString Dim LevelText As String = "LV." & CurrentLevel.ToString
Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 32), CInt(GameOrigin.Y + 32), 96, 96), mainBackgroundColor, True) Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 32), CInt(GameOrigin.Y + 32), 96, 96), mainBackgroundColor, False)
SpriteBatch.DrawInterfaceString(FontManager.MainFont, LevelText, New Vector2(CInt(GameOrigin.X + 80 + 4 - FontManager.MainFont.MeasureString(LevelText).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(LevelText).Y / 2)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, LevelText, New Vector2(CInt(GameOrigin.X + 80 + 4 - FontManager.MainFont.MeasureString(LevelText).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(LevelText).Y / 2)), Fontcolor)
'Current Coins 'Current Coins
Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 128 + 24), CInt(GameOrigin.Y + 32), 192, 96), mainBackgroundColor, True) Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 128 + 24), CInt(GameOrigin.Y + 32), 192, 96), mainBackgroundColor, False)
Dim CurrentCoinsText1 As String = "Coins found" Dim CurrentCoinsText1 As String = "Coins found"
Dim CurrentCoinsText2 As String = "in this LV." Dim CurrentCoinsText2 As String = "in this LV."
@ -196,12 +197,12 @@ Namespace VoltorbFlip
End If End If
CurrentCoinsText3 &= CurrentCoins.ToString & "]" CurrentCoinsText3 &= CurrentCoins.ToString & "]"
SpriteBatch.DrawInterfaceString(FontManager.MainFont, CurrentCoinsText1, New Vector2(CInt(GameOrigin.X + 232 + 20 - FontManager.MainFont.MeasureString(CurrentCoinsText1).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(CurrentCoinsText2).Y / 2 - FontManager.MainFont.MeasureString(CurrentCoinsText1).Y)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, CurrentCoinsText1, New Vector2(CInt(GameOrigin.X + 232 + 20 - FontManager.MainFont.MeasureString(CurrentCoinsText1).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(CurrentCoinsText2).Y / 2 - FontManager.MainFont.MeasureString(CurrentCoinsText1).Y)), Fontcolor)
SpriteBatch.DrawInterfaceString(FontManager.MainFont, CurrentCoinsText2, New Vector2(CInt(GameOrigin.X + 232 + 20 - FontManager.MainFont.MeasureString(CurrentCoinsText2).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(CurrentCoinsText2).Y / 2)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, CurrentCoinsText2, New Vector2(CInt(GameOrigin.X + 232 + 20 - FontManager.MainFont.MeasureString(CurrentCoinsText2).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(CurrentCoinsText2).Y / 2)), Fontcolor)
SpriteBatch.DrawInterfaceString(FontManager.MainFont, CurrentCoinsText3, New Vector2(CInt(GameOrigin.X + 232 + 20 - FontManager.MainFont.MeasureString(CurrentCoinsText3).X / 2), CInt(GameOrigin.Y + 80 + 4 + FontManager.MainFont.MeasureString(CurrentCoinsText2).Y / 2)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, CurrentCoinsText3, New Vector2(CInt(GameOrigin.X + 232 + 20 - FontManager.MainFont.MeasureString(CurrentCoinsText3).X / 2), CInt(GameOrigin.Y + 80 + 4 + FontManager.MainFont.MeasureString(CurrentCoinsText2).Y / 2)), Fontcolor)
'Total Coins 'Total Coins
Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 336 + 32), CInt(GameOrigin.Y + 32), 192, 96), mainBackgroundColor, True) Canvas.DrawImageBorder(TextureManager.GetTexture("Textures\VoltorbFlip\HUD"), 2, New Rectangle(CInt(GameOrigin.X + 336 + 32), CInt(GameOrigin.Y + 32), 192, 96), mainBackgroundColor, False)
Dim TotalCoinsText1 As String = "Total Coins" Dim TotalCoinsText1 As String = "Total Coins"
Dim TotalCoinsText2 As String = "earned" Dim TotalCoinsText2 As String = "earned"
@ -222,9 +223,9 @@ Namespace VoltorbFlip
End If End If
TotalCoinsText3 &= TotalCoins.ToString & "]" TotalCoinsText3 &= TotalCoins.ToString & "]"
SpriteBatch.DrawInterfaceString(FontManager.MainFont, TotalCoinsText1, New Vector2(CInt(GameOrigin.X + 440 + 28 - FontManager.MainFont.MeasureString(TotalCoinsText1).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(TotalCoinsText2).Y / 2 - FontManager.MainFont.MeasureString(TotalCoinsText1).Y)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, TotalCoinsText1, New Vector2(CInt(GameOrigin.X + 440 + 28 - FontManager.MainFont.MeasureString(TotalCoinsText1).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(TotalCoinsText2).Y / 2 - FontManager.MainFont.MeasureString(TotalCoinsText1).Y)), Fontcolor)
SpriteBatch.DrawInterfaceString(FontManager.MainFont, TotalCoinsText2, New Vector2(CInt(GameOrigin.X + 440 + 28 - FontManager.MainFont.MeasureString(TotalCoinsText2).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(TotalCoinsText2).Y / 2)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, TotalCoinsText2, New Vector2(CInt(GameOrigin.X + 440 + 28 - FontManager.MainFont.MeasureString(TotalCoinsText2).X / 2), CInt(GameOrigin.Y + 80 + 4 - FontManager.MainFont.MeasureString(TotalCoinsText2).Y / 2)), Fontcolor)
SpriteBatch.DrawInterfaceString(FontManager.MainFont, TotalCoinsText3, New Vector2(CInt(GameOrigin.X + 440 + 28 - FontManager.MainFont.MeasureString(TotalCoinsText3).X / 2), CInt(GameOrigin.Y + 80 + 4 + FontManager.MainFont.MeasureString(TotalCoinsText2).Y / 2)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, TotalCoinsText3, New Vector2(CInt(GameOrigin.X + 440 + 28 - FontManager.MainFont.MeasureString(TotalCoinsText3).X / 2), CInt(GameOrigin.Y + 80 + 4 + FontManager.MainFont.MeasureString(TotalCoinsText2).Y / 2)), Fontcolor)
End Sub End Sub
@ -262,7 +263,7 @@ Namespace VoltorbFlip
'Coins 'Coins
For RowIndex = 0 To GridSize - 1 For RowIndex = 0 To GridSize - 1
Dim CoinSumString As String = "00" Dim CoinSumString As String = "00"
If GameState = States.Game Or GameState = States.Memo Then If GameState = States.Game Or GameState = States.Memo Or GameState = States.QuitQuestion Then
Dim CoinSumInteger As Integer = CoinSums(0)(RowIndex) Dim CoinSumInteger As Integer = CoinSums(0)(RowIndex)
If CoinSumInteger < 10 Then If CoinSumInteger < 10 Then
CoinSumString = "0" & CoinSumInteger.ToString CoinSumString = "0" & CoinSumInteger.ToString
@ -270,15 +271,15 @@ Namespace VoltorbFlip
CoinSumString = CoinSumInteger.ToString CoinSumString = CoinSumInteger.ToString
End If End If
End If End If
SpriteBatch.DrawInterfaceString(FontManager.VoltorbFlipFont, CoinSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * GridSize - 8 - FontManager.VoltorbFlipFont.MeasureString(CoinSumString).X), BoardOrigin.Y + TileSize.Height * RowIndex + 8), mainBackgroundColor) SpriteBatch.DrawString(FontManager.VoltorbFlipFont, CoinSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * (GridSize + 1) - 8 - FontManager.VoltorbFlipFont.MeasureString(CoinSumString).X), BoardOrigin.Y + TileSize.Height * RowIndex + 8), mainBackgroundColor)
Next Next
'Voltorbs 'Voltorbs
For RowIndex = 0 To GridSize - 1 For RowIndex = 0 To GridSize - 1
Dim VoltorbSumString As String = "0" Dim VoltorbSumString As String = "0"
If GameState = States.Game Or GameState = States.Memo Then If GameState = States.Game Or GameState = States.Memo Or GameState = States.QuitQuestion Then
VoltorbSumString = VoltorbSums(0)(RowIndex).ToString VoltorbSumString = VoltorbSums(0)(RowIndex).ToString
End If End If
SpriteBatch.DrawInterfaceString(FontManager.VoltorbFlipFont, VoltorbSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * GridSize - 8 - FontManager.VoltorbFlipFont.MeasureString(VoltorbSumString).X), BoardOrigin.Y + TileSize.Height * RowIndex + 34), mainBackgroundColor) SpriteBatch.DrawString(FontManager.VoltorbFlipFont, VoltorbSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * (GridSize + 1) - 8 - FontManager.VoltorbFlipFont.MeasureString(VoltorbSumString).X), BoardOrigin.Y + TileSize.Height * RowIndex + 34), mainBackgroundColor)
Next Next
'Draw Columns 'Draw Columns
@ -293,7 +294,7 @@ Namespace VoltorbFlip
CoinSumString = CoinSumInteger.ToString CoinSumString = CoinSumInteger.ToString
End If End If
End If End If
SpriteBatch.DrawInterfaceString(FontManager.VoltorbFlipFont, CoinSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * ColumnIndex + TileSize.Width - 8 - FontManager.VoltorbFlipFont.MeasureString(CoinSumString).X / 2), BoardOrigin.Y + TileSize.Height * (GridSize - 1) + 8), mainBackgroundColor) SpriteBatch.DrawString(FontManager.VoltorbFlipFont, CoinSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * ColumnIndex + TileSize.Width - 8 - FontManager.VoltorbFlipFont.MeasureString(CoinSumString).X), BoardOrigin.Y + TileSize.Height * GridSize + 8), mainBackgroundColor)
Next Next
'Voltorbs 'Voltorbs
For ColumnIndex = 0 To GridSize - 1 For ColumnIndex = 0 To GridSize - 1
@ -301,7 +302,7 @@ Namespace VoltorbFlip
If GameState = States.Game Or GameState = States.Memo Then If GameState = States.Game Or GameState = States.Memo Then
VoltorbSumString = VoltorbSums(1)(ColumnIndex).ToString VoltorbSumString = VoltorbSums(1)(ColumnIndex).ToString
End If End If
SpriteBatch.DrawInterfaceString(FontManager.VoltorbFlipFont, VoltorbSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * ColumnIndex + TileSize.Width - 8 - FontManager.VoltorbFlipFont.MeasureString(VoltorbSumString).X / 2), BoardOrigin.Y + TileSize.Height * (GridSize - 1) + 34), mainBackgroundColor) SpriteBatch.DrawString(FontManager.VoltorbFlipFont, VoltorbSumString, New Vector2(CInt(BoardOrigin.X + TileSize.Width * ColumnIndex + TileSize.Width - 8 - FontManager.VoltorbFlipFont.MeasureString(VoltorbSumString).X), BoardOrigin.Y + TileSize.Height * GridSize + 34), mainBackgroundColor)
Next Next
End Sub End Sub
@ -316,8 +317,8 @@ Namespace VoltorbFlip
Fontcolor = New Color(0, 0, 0, CInt(255 * _interfaceFade)) Fontcolor = New Color(0, 0, 0, CInt(255 * _interfaceFade))
End If End If
'Draw Button 'Draw Button
Dim ButtonOriginX As Integer = CInt(BoardOrigin.X + BoardSize.Width + MemoMenuSize.Width + TileSize.Width / 4) Dim ButtonOriginX As Integer = CInt(BoardOrigin.X + BoardSize.Width + TileSize.Width / 4)
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Button", New Rectangle(0, 0, 56, 56)), New Rectangle(ButtonOriginX, CInt(BoardOrigin.Y + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Button", New Rectangle(0, 0, 56, 56)), New Rectangle(ButtonOriginX, CInt(BoardOrigin.Y), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
Dim ButtonTextTop As String = "Open" Dim ButtonTextTop As String = "Open"
Dim ButtonTextBottom As String = "Memos" Dim ButtonTextBottom As String = "Memos"
@ -326,33 +327,34 @@ Namespace VoltorbFlip
ButtonTextTop = "Close" ButtonTextTop = "Close"
End If End If
SpriteBatch.DrawInterfaceString(FontManager.MainFont, ButtonTextTop, New Vector2(CInt(ButtonOriginX + MemoMenuSize.Width / 2 - FontManager.MainFont.MeasureString(ButtonTextTop).X / 2), CInt(BoardOrigin.Y + TileSize.Height / 2 + 22)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, ButtonTextTop, New Vector2(CInt(ButtonOriginX + MemoMenuSize.Width / 2 - FontManager.MainFont.MeasureString(ButtonTextTop).X / 2), CInt(BoardOrigin.Y + 40)), Fontcolor)
SpriteBatch.DrawInterfaceString(FontManager.MainFont, ButtonTextBottom, New Vector2(CInt(ButtonOriginX + MemoMenuSize.Width / 2 - FontManager.MainFont.MeasureString(ButtonTextBottom).X / 2), CInt(BoardOrigin.Y + TileSize.Height / 2 + 22 + FontManager.MainFont.MeasureString(ButtonTextTop).Y)), Fontcolor) SpriteBatch.DrawString(FontManager.MainFont, ButtonTextBottom, New Vector2(CInt(ButtonOriginX + MemoMenuSize.Width / 2 - FontManager.MainFont.MeasureString(ButtonTextBottom).X / 2), CInt(BoardOrigin.Y + 40 + FontManager.MainFont.MeasureString(ButtonTextTop).Y)), Fontcolor)
'Draw Memo Menu 'Draw Memo Menu
If MemoWindowX > 0 Then If MemoMenuX > 0 Then
Dim CurrentTile As Tile = Board(CInt(GetCurrentTile.X))(CInt(GetCurrentTile.Y))
Dim CurrentTile As Tile = Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X))
'Draw Background 'Draw Background
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Background", New Rectangle(0, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Background", New Rectangle(0, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
If GameState = States.Memo Then If GameState = States.Memo Then
'Draw lit up Memos in the Memo menu when it's enabled on a tile 'Draw lit up Memos in the Memo menu when it's enabled on a tile
If CurrentTile.GetMemo(0) = True Then 'Voltorb If CurrentTile.GetMemo(0) = True Then 'Voltorb
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(0, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(0, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
End If End If
If CurrentTile.GetMemo(1) = True Then 'x1 If CurrentTile.GetMemo(1) = True Then 'x1
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(56, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(56, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
End If End If
If CurrentTile.GetMemo(2) = True Then 'x2 If CurrentTile.GetMemo(2) = True Then 'x2
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(56 + 56, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(56 + 56, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
End If End If
If CurrentTile.GetMemo(3) = True Then 'x3 If CurrentTile.GetMemo(3) = True Then 'x3
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(56 + 56 + 56, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Enabled", New Rectangle(56 + 56 + 56, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
End If End If
'Draw indicator of currently selected Memo 'Draw indicator of currently selected Memo
SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Index", New Rectangle(56 * MemoIndex, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor) SpriteBatch.Draw(TextureManager.GetTexture("VoltorbFlip\Memo_Index", New Rectangle(56 * MemoIndex, 0, 56, 56)), New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height), mainBackgroundColor)
End If End If
End If End If
@ -387,51 +389,66 @@ Namespace VoltorbFlip
Dim Data As List(Of Integer) = GetLevelData(Level) Dim Data As List(Of Integer) = GetLevelData(Level)
Dim Spots As List(Of List(Of Integer)) = New List(Of List(Of Integer)) Dim Spots As List(Of List(Of Integer)) = New List(Of List(Of Integer))
For i = 0 To Data(0) + Data(1) + Data(2) For i = 0 To Data(0) + Data(1) + Data(2) - 1
Dim SpotList As List(Of Integer) = New List(Of Integer)
Dim ValueX As Integer = Random.Next(0, 5)
Dim ValueY As Integer = Random.Next(0, 5)
SpotList.AddRange({ValueX, ValueY})
If Spots.Count > 0 Then If Spots.Count > 0 Then
Dim AddList As Boolean = False Dim ValueX As Integer = Random.Next(0, 5)
While AddList = False Dim ValueY As Integer = Random.Next(0, 5)
For SpotIndex = 0 To Spots.Count - 1 TryAgain:
If Spots(SpotIndex)(0) <> ValueX AndAlso Spots(SpotIndex)(1) <> ValueY Then Dim IsUnique As Boolean = True
AddList = True For SpotIndex = 0 To Spots.Count - 1
Else If Spots(SpotIndex)(0) = ValueX AndAlso Spots(SpotIndex)(1) = ValueY Then
ValueX = Random.Next(0, 5) IsUnique = False
ValueY = Random.Next(0, 5) Exit For
End If End If
Next Next
End While
Spots.Add(SpotList) If IsUnique = False Then
ValueX = Random.Next(0, 5)
ValueY = Random.Next(0, 5)
GoTo TryAgain
Else
Spots.Add(New List(Of Integer)({ValueX, ValueY}.ToList))
End If
Else Else
Spots.Add(SpotList) Spots.Add(New List(Of Integer)({Random.Next(0, 5), Random.Next(0, 5)}.ToList))
End If End If
Next Next
For a = 0 To Data(0) If Data(0) > 0 Then
Dim TileX As Integer = Spots(a)(0) For a = 0 To Data(0) - 1
Dim TileY As Integer = Spots(a)(1) Dim TileX As Integer = Spots(a)(0)
Dim TileY As Integer = Spots(a)(1)
Board(TileY)(TileX).Value = Tile.Values.Two
Next
End If
Board(TileX)(TileY).Value = Tile.Values.Two If Data(1) > 0 Then
Next For b = 0 To Data(1) - 1
Dim TileX As Integer = Spots(b + Data(0))(0)
Dim TileY As Integer = Spots(b + Data(0))(1)
For b = 0 To Data(1) Board(TileY)(TileX).Value = Tile.Values.Three
Dim TileX As Integer = Spots(b + Data(0))(0) Next
Dim TileY As Integer = Spots(b + Data(0))(1) End If
Board(TileX)(TileY).Value = Tile.Values.Three If Data(2) > 0 Then
Next For c = 0 To Data(2) - 1
Dim TileX As Integer = Spots(c + Data(0) + Data(1))(0)
Dim TileY As Integer = Spots(c + Data(0) + Data(1))(1)
For c = 0 To Data(2) Board(TileY)(TileX).Value = Tile.Values.Voltorb
Dim TileX As Integer = Spots(c + Data(0) + Data(1))(0) Next
Dim TileY As Integer = Spots(c + Data(0) + Data(1))(1) End If
Board(TileX)(TileY).Value = Tile.Values.Voltorb If Data(0) > 0 AndAlso Data(1) > 0 Then
Next MaxCoins = CInt(Math.Pow(2, Data(0)) * Math.Pow(3, Data(1)))
End If
MaxCoins = CInt(Math.Pow(2, Data(0)) * Math.Pow(3, Data(1))) If Data(0) > 0 AndAlso Data(1) = 0 Then
MaxCoins = CInt(Math.Pow(2, Data(0)))
End If
If Data(0) = 0 AndAlso Data(1) > 0 Then
MaxCoins = CInt(Math.Pow(3, Data(1)))
End If
VoltorbSums = GenerateSums(Board, True) VoltorbSums = GenerateSums(Board, True)
CoinSums = GenerateSums(Board, False) CoinSums = GenerateSums(Board, False)
@ -656,8 +673,8 @@ Namespace VoltorbFlip
End Function End Function
Public Overrides Sub SizeChanged() Public Overrides Sub SizeChanged()
GameOrigin = New Vector2(CInt(windowSize.Width / 2 - GameSize.Width / 2), CInt(windowSize.Height / 2 - GameSize.Height / 2 - _screenTransitionY)) GameOrigin = New Vector2(CInt(windowSize.Width / 2 - GameSize.Width / 2), CInt(windowSize.Height / 2 - _screenTransitionY))
BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 128) BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 160)
BoardCursorDestination = GetCursorOffset(0, 0) BoardCursorDestination = GetCursorOffset(0, 0)
BoardCursorPosition = GetCursorOffset(0, 0) BoardCursorPosition = GetCursorOffset(0, 0)
End Sub End Sub
@ -673,12 +690,16 @@ Namespace VoltorbFlip
Public Overrides Sub Update() Public Overrides Sub Update()
ChooseBox.Update() ChooseBox.Update()
TextBox.Update() If ChooseBox.Showing = False Then
TextBox.Update()
End If
If Delay > 0 Then If ChooseBox.Showing = False AndAlso TextBox.Showing = False Then
Delay -= 1 If Delay > 0 Then
If Delay <= 0 Then Delay -= 1
Delay = 0 If Delay <= 0 Then
Delay = 0
End If
End If End If
End If End If
@ -688,7 +709,6 @@ Namespace VoltorbFlip
If Delay = 0 Then If Delay = 0 Then
If ChooseBox.Showing = False AndAlso TextBox.Showing = False Then If ChooseBox.Showing = False AndAlso TextBox.Showing = False Then
If GameState = States.Game Or GameState = States.Memo Then If GameState = States.Game Or GameState = States.Memo Then
TextBox.Text = ""
'Moving the cursor between Tiles on the board 'Moving the cursor between Tiles on the board
If Controls.Up(True, True, False) Then If Controls.Up(True, True, False) Then
If BoardCursorDestination.Y > GetCursorOffset(Nothing, 0).Y Then If BoardCursorDestination.Y > GetCursorOffset(Nothing, 0).Y Then
@ -733,7 +753,7 @@ Namespace VoltorbFlip
End If End If
'Switching between Game and Memo GameStates (Keys & GamePad) 'Switching between Game and Memo GameStates (Keys & GamePad)
If KeyBoardHandler.KeyPressed(KeyBindings.OpenInventoryKey) Or ControllerHandler.ButtonPressed(Buttons.X) Then If KeyBoardHandler.KeyPressed(KeyBindings.RunKey) Or ControllerHandler.ButtonPressed(Buttons.X) Then
If GameState = States.Game Then If GameState = States.Game Then
GameState = States.Memo GameState = States.Memo
ElseIf GameState = States.Memo Then ElseIf GameState = States.Memo Then
@ -742,8 +762,8 @@ Namespace VoltorbFlip
End If End If
'Switching between Game and Memo GameStates (Mouse) 'Switching between Game and Memo GameStates (Mouse)
Dim ButtonRectangle As Rectangle = New Rectangle(CInt(BoardOrigin.X + BoardSize.Width + MemoMenuSize.Width), CInt(BoardOrigin.Y), MemoMenuSize.Width, MemoMenuSize.Height) Dim ButtonRectangle As Rectangle = New Rectangle(CInt(BoardOrigin.X + BoardSize.Width + TileSize.Width / 4), CInt(BoardOrigin.Y), MemoMenuSize.Width, MemoMenuSize.Height)
If Controls.Accept(True, False, False) = True AndAlso MouseHandler.IsInRectangle(ButtonRectangle) Then If Controls.Accept(True, False, False) = True AndAlso MouseHandler.IsInRectangle(ButtonRectangle) AndAlso Delay = 0 Then
If GameState = States.Game Then If GameState = States.Game Then
GameState = States.Memo GameState = States.Memo
ElseIf GameState = States.Memo Then ElseIf GameState = States.Memo Then
@ -753,10 +773,10 @@ Namespace VoltorbFlip
If GameState = States.Memo Then If GameState = States.Memo Then
'Animate opening the Memo window 'Animate opening the Memo window
If MemoWindowX < MemoMenuSize.Width + TileSize.Width / 4 Then If MemoMenuX < MemoMenuSize.Width + TileSize.Width / 4 Then
MemoWindowX = MathHelper.Lerp(MemoMenuSize.Width, MemoWindowX, 0.9F) MemoMenuX = MathHelper.Lerp(CSng(MemoMenuSize.Width + TileSize.Width / 4), MemoMenuX, 0.9F)
If MemoWindowX >= MemoMenuSize.Width Then If MemoMenuX >= MemoMenuSize.Width + TileSize.Width / 4 Then
MemoWindowX = MemoMenuSize.Width MemoMenuX = CInt(MemoMenuSize.Width + TileSize.Width / 4)
End If End If
End If End If
@ -775,199 +795,186 @@ Namespace VoltorbFlip
End If End If
'Set the Memo type to the one under the mouse 'Set the Memo type to the one under the mouse
Dim MemoMenuRectangle As New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoWindowX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height), MemoMenuSize.Width, MemoMenuSize.Height) Dim MemoMenuRectangle As New Rectangle(CInt(BoardOrigin.X + BoardSize.Width - MemoMenuSize.Width + MemoMenuX), CInt(BoardOrigin.Y + MemoMenuSize.Height + TileSize.Height / 2), MemoMenuSize.Width, MemoMenuSize.Height)
If Controls.Accept(True, False, False) = True Then If Controls.Accept(True, False, False) = True Then
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X, MemoMenuRectangle.Y, CInt(MemoMenuRectangle.X / 2), CInt(MemoMenuRectangle.Y / 2))) = True Then If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X, MemoMenuRectangle.Y, CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'Voltorb 'Voltorb
MemoIndex = 0 MemoIndex = 0
End If End If
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X + CInt(MemoMenuRectangle.X / 2), MemoMenuRectangle.Y, CInt(MemoMenuRectangle.X / 2), CInt(MemoMenuRectangle.Y / 2))) = True Then If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X + CInt(MemoMenuRectangle.Width / 2), MemoMenuRectangle.Y, CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'One 'One
MemoIndex = 1 MemoIndex = 1
End If End If
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X + CInt(MemoMenuRectangle.X / 2), MemoMenuRectangle.Y + CInt(MemoMenuRectangle.Y / 2), CInt(MemoMenuRectangle.X / 2), CInt(MemoMenuRectangle.Y / 2))) = True Then If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X, MemoMenuRectangle.Y + CInt(MemoMenuRectangle.Height / 2), CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'Two 'Two
MemoIndex = 2 MemoIndex = 2
End If End If
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X + CInt(MemoMenuRectangle.X / 2), MemoMenuRectangle.Y + CInt(MemoMenuRectangle.Y / 2), CInt(MemoMenuRectangle.X / 2), CInt(MemoMenuRectangle.Y / 2))) = True Then If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X + CInt(MemoMenuRectangle.Width / 2), MemoMenuRectangle.Y + CInt(MemoMenuRectangle.Height / 2), CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'Three 'Three
MemoIndex = 3 MemoIndex = 3
End If End If
End If End If
Else Else
'Animate Closing the Memo window 'Animate Closing the Memo window
If MemoWindowX > 0F Then If MemoMenuX > 0F Then
MemoWindowX = MathHelper.Lerp(0F, MemoWindowX, 0.9F) MemoMenuX = MathHelper.Lerp(0F, MemoMenuX, 0.9F)
If MemoWindowX <= 0F Then If MemoMenuX <= 0F Then
MemoWindowX = 0F MemoMenuX = 0F
End If End If
End If End If
End If End If
Dim QuitQuestionText As String = "Do you want to stop~playing Voltorb Flip?%Yes|No%"
'Quiting Voltorb Flip 'Quiting Voltorb Flip
If Controls.Dismiss(False, True, True) AndAlso GameState = States.Game Then If Controls.Dismiss(False, True, True) AndAlso GameState = States.Game AndAlso Delay = 0 Then
TextBox.Show(QuitQuestionText)
GameState = States.QuitQuestion GameState = States.QuitQuestion
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 Then If Controls.Accept(True, False, False) AndAlso MouseHandler.IsInRectangle(QuitButtonRectangle) AndAlso GameState = States.Game AndAlso Delay = 0 Then
TextBox.Show(QuitQuestionText)
GameState = States.QuitQuestion GameState = States.QuitQuestion
End If End If
Dim QuitQuestionText As String = "Do you want to stop~playing Voltorb Flip?%Yes|No%"
If GameState = States.QuitQuestion And TextBox.Text <> QuitQuestionText Then If GameState = States.QuitQuestion Then
TextBox.Show(QuitQuestionText)
Else
If ChooseBox.readyForResult = True Then If ChooseBox.readyForResult = True Then
If ChooseBox.result = 0 Then If ChooseBox.result = 0 Then
Quit() Quit()
Else Else
Delay = 150 Delay = 15
GameState = States.Game GameState = States.Game
End If End If
End If End If
End If End If
'Flip currently selected Tile 'Flip currently selected Tile
If Controls.Accept(False, True, True) AndAlso GameState = States.Game Then If Controls.Accept(False, True, True) AndAlso GameState = States.Game AndAlso Delay = 0 Then
Dim CurrentTile As Vector2 = GetCurrentTile() Dim CurrentTile As Vector2 = GetCurrentTile()
Board(CInt(CurrentTile.Y))(CInt(CurrentTile.X)).Flip() Board(CInt(CurrentTile.Y))(CInt(CurrentTile.X)).Flip()
End If End If
'Flip the Tile that the mouse is on 'Flip the Tile that the mouse is on
If Controls.Accept(True, False, False) AndAlso GameState = States.Game AndAlso MouseHandler.IsInRectangle(New Rectangle(CInt(BoardOrigin.X), CInt(BoardOrigin.Y), BoardSize.Width, BoardSize.Height)) Then If Controls.Accept(True, False, False) AndAlso GameState = States.Game AndAlso MouseHandler.IsInRectangle(New Rectangle(CInt(BoardOrigin.X), CInt(BoardOrigin.Y), BoardSize.Width, BoardSize.Height)) AndAlso Delay = 0 Then
Dim TileUnderMouse As Vector2 = GetTileUnderMouse() Dim TileUnderMouse As Vector2 = GetTileUnderMouse()
BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y)) BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y))
Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).Flip() Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).Flip()
End If End If
'Adding currently selected Memo to currently selected Tile 'Adding currently selected Memo to currently selected Tile
If Controls.Accept(False, True, True) AndAlso GameState = States.Memo Then If Controls.Accept(False, True, True) AndAlso GameState = States.Memo AndAlso Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).Flipped = False AndAlso Delay = 0 Then
Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).SetMemo(MemoIndex, True) Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).SetMemo(MemoIndex, True)
End If End If
'Adding currently selected Memo to Tile that the mouse is on 'Adding currently selected Memo to Tile that the mouse is on
If Controls.Accept(True, False, False) AndAlso GameState = States.Memo AndAlso MouseHandler.IsInRectangle(New Rectangle(CInt(BoardOrigin.X), CInt(BoardOrigin.Y), BoardSize.Width, BoardSize.Height)) Then If Controls.Accept(True, False, False) AndAlso GameState = States.Memo AndAlso MouseHandler.IsInRectangle(New Rectangle(CInt(BoardOrigin.X), CInt(BoardOrigin.Y), BoardSize.Width, BoardSize.Height)) AndAlso Board(CInt(GetTileUnderMouse.Y))(CInt(GetTileUnderMouse.X)).Flipped = False AndAlso Delay = 0 Then
Dim TileUnderMouse As Vector2 = GetTileUnderMouse() Dim TileUnderMouse As Vector2 = GetTileUnderMouse()
BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y)) BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y))
Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).SetMemo(MemoIndex, True) Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).SetMemo(MemoIndex, True)
End If End If
'Removing currently selected Memo from currently selected Tile 'Removing currently selected Memo from currently selected Tile
If Controls.Dismiss(False, True, True) AndAlso GameState = States.Memo Then If Controls.Dismiss(False, True, True) AndAlso GameState = States.Memo AndAlso Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).Flipped = False AndAlso Delay = 0 Then
Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).SetMemo(MemoIndex, False) Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).SetMemo(MemoIndex, False)
End If End If
'Removing currently selected Memo from Tile that the mouse is on 'Removing currently selected Memo from Tile that the mouse is on
If Controls.Dismiss(True, False, False) AndAlso GameState = States.Memo AndAlso MouseHandler.IsInRectangle(New Rectangle(CInt(BoardOrigin.X), CInt(BoardOrigin.Y), BoardSize.Width, BoardSize.Height)) Then If Controls.Dismiss(True, False, False) AndAlso GameState = States.Memo AndAlso Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).Flipped = False AndAlso MouseHandler.IsInRectangle(New Rectangle(CInt(BoardOrigin.X), CInt(BoardOrigin.Y), BoardSize.Width, BoardSize.Height)) AndAlso Board(CInt(GetTileUnderMouse.Y))(CInt(GetTileUnderMouse.X)).Flipped = False AndAlso Delay = 0 Then
Dim TileUnderMouse As Vector2 = GetTileUnderMouse() Dim TileUnderMouse As Vector2 = GetTileUnderMouse()
BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y)) BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y))
Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).SetMemo(MemoIndex, False) Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).SetMemo(MemoIndex, False)
End If End If
End If End If
End If End If
'Level complete!
If CurrentCoins >= MaxCoins AndAlso GameState = States.Game Then
Dim GameClearText = "Game clear! You received~" & CurrentCoins.ToString & " " & "Coins!"
TextBox.Show(GameClearText)
If Delay = 0 Then
PreviousLevel = CurrentLevel
TotalFlips += CurrentFlips
CurrentFlips = 0
ConsequentWins += 1
If ConsequentWins = 5 AndAlso TotalFlips >= 8 Then
CurrentLevel = MaxLevel + 1
Else
If CurrentLevel < MaxLevel + 1 Then
If CurrentLevel + 1 > MaxLevel Then
CurrentLevel = MaxLevel
Else
CurrentLevel += 1
End If
End If
End If
GameState = States.GameWon
Delay = 5
End If
End If
'Completed the level 'Completed the level
If GameState = States.GameWon Then If GameState = States.GameWon Then
If Core.Player.Coins + TotalCoins > 50000 Then
Dim ResultCoins As Integer TotalCoins = 50000 - Core.Player.Coins
Dim AnimationTotalCoins As Single CurrentCoins = 0
Dim AnimationCurrentCoins As Single TextBox.Show("Your Coin Case can't fit~any more Coins!*You received~" & TotalCoins.ToString & " " & "Coins instead!")
Quit()
Dim GameClearText = "Game clear! You received" & " " & CurrentCoins.ToString & " " & "Coins!" Else
If TextBox.Text <> GameClearText AndAlso AnimationCurrentCoins = Nothing Then TotalCoins += CurrentCoins
TextBox.Show(GameClearText) CurrentCoins = 0
End If End If
If AnimationCurrentCoins = Nothing Then
ResultCoins = TotalCoins + CurrentCoins 'Flip all Tiles to reveal contents
AnimationTotalCoins = TotalCoins Dim ReadyAmount As Integer = 0
AnimationCurrentCoins = CurrentCoins For _row = 0 To GridSize - 1
End If For _column = 0 To GridSize - 1
If AnimationCurrentCoins <> Nothing Then Board(_row)(_column).Reveal()
While TotalCoins < ResultCoins If Board(_row)(_column).FlipProgress = 0 Then
AnimationTotalCoins += 0.05F ReadyAmount += 1
If AnimationTotalCoins >= ResultCoins Then
AnimationTotalCoins = ResultCoins
End If End If
AnimationCurrentCoins -= -0.05F
If AnimationCurrentCoins <= 0 Then
AnimationCurrentCoins = 0
End If
CurrentCoins = CInt(Math.Ceiling(AnimationCurrentCoins))
TotalCoins = CInt(Math.Floor(AnimationTotalCoins))
If Core.Player.Coins + TotalCoins > 50000 Then
ResultCoins = 50000 - Core.Player.Coins
TotalCoins = ResultCoins
TextBox.Show("Your Coin Case can't fit~any more Coins!")
Quit()
End If
End While
'Flip all Tiles to reveal contents
Dim ReadyAmount As Integer = 0
For _row = 0 To GridSize - 1
For _column = 0 To GridSize - 1
Board(_row)(_column).Reveal()
If Board(_row)(_column).FlipProgress = 0 Then
ReadyAmount += 1
End If
Next
Next Next
If Controls.Accept = True AndAlso TextBox.Showing = False Then Next
If ReadyAmount = CInt(GridSize * GridSize) Then
GameState = States.FlipWon If Controls.Accept = True AndAlso TextBox.Showing = False Then
End If If ReadyAmount = CInt(GridSize * GridSize) Then
GameState = States.FlipWon
End If End If
End If End If
End If End If
'Revealed a Voltorb 'Revealed a Voltorb
If GameState = States.GameLost Then If GameState = States.GameLost Then
Dim ResultCoins As Integer
Dim AnimationCurrentCoins As Single
If TextBox.Showing = False AndAlso AnimationCurrentCoins = Nothing Then CurrentCoins = 0
TextBox.Show("Oh no! You get 0 coins")
End If 'Flip all Tiles to reveal contents
If AnimationCurrentCoins = Nothing Then Dim ReadyAmount As Integer = 0
ResultCoins = 0 For _row = 0 To GridSize - 1
AnimationCurrentCoins = CurrentCoins For _column = 0 To GridSize - 1
End If Board(_row)(_column).Reveal()
If Board(_row)(_column).FlipProgress = 0 Then
If AnimationCurrentCoins <> Nothing Then ReadyAmount += 1
While CurrentCoins > ResultCoins
AnimationCurrentCoins -= -0.05F
If AnimationCurrentCoins <= 0 Then
AnimationCurrentCoins = 0
End If End If
CurrentCoins = CInt(Math.Ceiling(AnimationCurrentCoins))
End While
'Flip all Tiles to reveal contents
Dim ReadyAmount As Integer = 0
For _row = 0 To GridSize - 1
For _column = 0 To GridSize - 1
Board(_row)(_column).Reveal()
If Board(_row)(_column).FlipProgress = 0 Then
ReadyAmount += 1
End If
Next
Next Next
Next
If ReadyAmount = CInt(GridSize * GridSize) Then If ReadyAmount = CInt(GridSize * GridSize) Then
If Controls.Accept = True AndAlso TextBox.Showing = False Then If Controls.Accept = True AndAlso TextBox.Showing = False Then
GameState = States.FlipLost PreviousLevel = CurrentLevel
If CurrentFlips < CurrentLevel Then
CurrentLevel = Math.Max(1, CurrentFlips)
Else
CurrentLevel = 1
End If
GameState = States.FlipLost
End If End If
End If End If
End If
End If End If
'Increase Level, reset Tiles 'Increase Level, reset Tiles
@ -982,20 +989,6 @@ Namespace VoltorbFlip
Next Next
Next Next
TotalFlips += CurrentFlips
CurrentFlips = 0
ConsequentWins += 1
If ConsequentWins = 5 AndAlso TotalFlips >= 8 Then
CurrentLevel = MaxLevel + 1
Else
PreviousLevel = CurrentLevel
CurrentLevel += 1
If CurrentLevel > MaxLevel Then
CurrentLevel = MaxLevel
End If
End If
If ReadyAmount = CInt(GridSize * GridSize) Then If ReadyAmount = CInt(GridSize * GridSize) Then
GameState = States.NewLevel GameState = States.NewLevel
End If End If
@ -1013,9 +1006,6 @@ Namespace VoltorbFlip
Next Next
Next Next
PreviousLevel = CurrentLevel
CurrentLevel = CurrentFlips.Clamp(MinLevel, CurrentLevel.Clamp(MinLevel, MaxLevel))
CurrentFlips = 0 CurrentFlips = 0
If ReadyAmount = CInt(GridSize * GridSize) Then If ReadyAmount = CInt(GridSize * GridSize) Then
@ -1039,7 +1029,7 @@ Namespace VoltorbFlip
TextBox.Show("Advanced to Game Lv." & " " & CurrentLevel & "!") TextBox.Show("Advanced to Game Lv." & " " & CurrentLevel & "!")
End If End If
Else Else
Delay = 150 Delay = 15
GameState = States.Game GameState = States.Game
End If End If
End If End If
@ -1049,14 +1039,10 @@ Namespace VoltorbFlip
Dim ResultCoins As Integer = 0 Dim ResultCoins As Integer = 0
Dim AnimationCurrentCoins As Single = CurrentCoins Dim AnimationCurrentCoins As Single = CurrentCoins
While CurrentCoins > ResultCoins If CurrentCoins > ResultCoins Then
AnimationCurrentCoins -= -0.05F
If AnimationCurrentCoins <= 0 Then
AnimationCurrentCoins = 0
End If
CurrentCoins = CInt(Math.Ceiling(AnimationCurrentCoins)) CurrentCoins = 0
End While End If
If _interfaceFade > 0F Then If _interfaceFade > 0F Then
_interfaceFade = MathHelper.Lerp(0, _interfaceFade, 0.8F) _interfaceFade = MathHelper.Lerp(0, _interfaceFade, 0.8F)
@ -1071,8 +1057,8 @@ Namespace VoltorbFlip
End If End If
End If End If
GameOrigin.Y = CInt(windowSize.Height / 2 - GameSize.Height / 2 - _screenTransitionY) GameOrigin.Y = CInt(windowSize.Height / 2 - _screenTransitionY)
BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 128) BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 160)
If _screenTransitionY <= 2.0F Then If _screenTransitionY <= 2.0F Then
SetScreen(PreScreen) SetScreen(PreScreen)
@ -1088,8 +1074,8 @@ Namespace VoltorbFlip
_screenTransitionY = maxWindowHeight _screenTransitionY = maxWindowHeight
End If End If
End If End If
GameOrigin.Y = CInt(windowSize.Height / 2 - GameSize.Height / 2 - _screenTransitionY) GameOrigin.Y = CInt(windowSize.Height / 2 - _screenTransitionY)
BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 128) BoardOrigin = New Vector2(GameOrigin.X + 32, GameOrigin.Y + 160)
If _interfaceFade < 1.0F Then If _interfaceFade < 1.0F Then
_interfaceFade = MathHelper.Lerp(1, _interfaceFade, 0.95F) _interfaceFade = MathHelper.Lerp(1, _interfaceFade, 0.95F)
@ -1101,7 +1087,11 @@ Namespace VoltorbFlip
End Sub End Sub
Public Sub Quit() Public Sub Quit()
CurrentLevel = CurrentFlips.Clamp(MinLevel, CurrentLevel.Clamp(MinLevel, MaxLevel)) If CurrentFlips < CurrentLevel Then
CurrentLevel = Math.Max(1, CurrentFlips)
Else
CurrentLevel = 1
End If
PreviousLevel = CurrentLevel PreviousLevel = CurrentLevel
TextBox.Show("Game Over!~Dropped to Game Lv." & " " & CurrentLevel & "!") TextBox.Show("Game Over!~Dropped to Game Lv." & " " & CurrentLevel & "!")
@ -1139,7 +1129,9 @@ Namespace VoltorbFlip
Public Sub Flip() Public Sub Flip()
If Flipped = False Then If Flipped = False Then
FlipProgress = 3 FlipProgress = 3
VoltorbFlipScreen.CurrentFlips += 1 If Value <> Values.Voltorb Then
VoltorbFlipScreen.CurrentFlips += 1
End If
End If End If
End Sub End Sub
@ -1171,6 +1163,10 @@ Namespace VoltorbFlip
If FlipWidth <= 0F Then If FlipWidth <= 0F Then
FlipWidth = 0F FlipWidth = 0F
If Flipped = False Then If Flipped = False Then
SetMemo(0, False)
SetMemo(1, False)
SetMemo(2, False)
SetMemo(3, False)
Flipped = True Flipped = True
Else Else
Flipped = False Flipped = False
@ -1213,11 +1209,16 @@ Namespace VoltorbFlip
If Flipped = True Then If Flipped = True Then
If Activated = False Then If Activated = False Then
If Me.Value = Values.Voltorb Then If Me.Value = Values.Voltorb Then
Screen.TextBox.Show("Oh no! You get 0 coins!")
VoltorbFlipScreen.GameState = VoltorbFlipScreen.States.GameLost VoltorbFlipScreen.GameState = VoltorbFlipScreen.States.GameLost
Else Else
VoltorbFlipScreen.CurrentCoins *= Me.Value If VoltorbFlipScreen.CurrentCoins = 0 Then
VoltorbFlipScreen.CurrentCoins = Me.Value
Else
VoltorbFlipScreen.CurrentCoins *= Me.Value
End If
Activated = True
End If End If
Activated = True
End If End If
End If End If
End If End If

14
P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb
View File

@ -279,19 +279,22 @@
Case "voltorbflip" Case "voltorbflip"
If Core.Player.Inventory.GetItemAmount(54) > 0 Then If Core.Player.Inventory.GetItemAmount(54) > 0 Then
If Core.Player.Coins < 50000 Then If Core.Player.Coins < 50000 Then
Core.SetScreen(New VoltorbFlip.VoltorbFlipScreen(CurrentScreen)) If VoltorbFlip.VoltorbFlipScreen.TotalCoins = -1 Then
IsReady = True Core.SetScreen(New VoltorbFlip.VoltorbFlipScreen(CurrentScreen))
CanContinue = False End If
If CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then If CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
If VoltorbFlip.VoltorbFlipScreen.TotalCoins > 0 Then If VoltorbFlip.VoltorbFlipScreen.TotalCoins > 0 Then
Screen.TextBox.Show("You've won" & " " & VoltorbFlip.VoltorbFlipScreen.TotalCoins & " " & "Coins!") Screen.TextBox.Show("You've won" & " " & VoltorbFlip.VoltorbFlipScreen.TotalCoins & " " & "Coins!")
Core.Player.Coins += VoltorbFlip.VoltorbFlipScreen.TotalCoins Core.Player.Coins += VoltorbFlip.VoltorbFlipScreen.TotalCoins
VoltorbFlip.VoltorbFlipScreen.TotalCoins = 0 VoltorbFlip.VoltorbFlipScreen.TotalCoins = -1
IsReady = True
Else Else
Screen.TextBox.Show("Too bad, you didn't win~any Coins!*Better luck next time!") Screen.TextBox.Show("Too bad, you didn't win~any Coins!*Better luck next time!")
VoltorbFlip.VoltorbFlipScreen.TotalCoins = -1
IsReady = True
End If End If
End If End If
Else Else
Screen.TextBox.Show("Your Coin Case is already full!") Screen.TextBox.Show("Your Coin Case is already full!")
IsReady = True IsReady = True
@ -300,6 +303,7 @@
Screen.TextBox.Show("You don't have a Coin Case!~Come back when you have one!") Screen.TextBox.Show("You don't have a Coin Case!~Come back when you have one!")
IsReady = True IsReady = True
End If End If
CanContinue = False
Case "skinselection" Case "skinselection"
If Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin <> "" Then If Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin <> "" Then
IsReady = True IsReady = True