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

Sound effects, jingles and some minor fixes

Browse Source
This commit is contained in:
JappaWakka 2023-05-27 15:40:38 +02:00
parent 4aeecc99d1
commit 2314ce6834
6 changed files with 56 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Sounds/VoltorbFlip/LoseGame.wav Normal file
View File

Binary file not shown.

BIN
P3D/Content/Sounds/VoltorbFlip/QuitGame.wav Normal file
View File

Binary file not shown.

BIN
P3D/Content/Sounds/VoltorbFlip/StartGame.wav Normal file
View File

Binary file not shown.

BIN
P3D/Content/Sounds/VoltorbFlip/WinGame.wav Normal file
View File

Binary file not shown.

12
P3D/P3D.vbproj
View File

@ -18035,6 +18035,18 @@
<Content Include="Content\Sounds\OverworldPoison.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\VoltorbFlip\LoseGame.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\VoltorbFlip\QuitGame.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\VoltorbFlip\StartGame.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\VoltorbFlip\WinGame.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Textures\Battle\Flying\Gust.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>

47
P3D/Screens/VoltorbFlipScreen.vb
View File

@ -286,7 +286,7 @@ Namespace VoltorbFlip
'Coins
For ColumnIndex = 0 To GridSize - 1
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(1)(ColumnIndex)
If CoinSumInteger < 10 Then
CoinSumString = "0" & CoinSumInteger.ToString
@ -299,7 +299,7 @@ Namespace VoltorbFlip
'Voltorbs
For ColumnIndex = 0 To GridSize - 1
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(1)(ColumnIndex).ToString
End If
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)
@ -756,8 +756,10 @@ TryAgain:
If KeyBoardHandler.KeyPressed(KeyBindings.RunKey) Or ControllerHandler.ButtonPressed(Buttons.X) Then
If GameState = States.Game Then
GameState = States.Memo
SoundManager.PlaySound("select")
ElseIf GameState = States.Memo Then
GameState = States.Game
SoundManager.PlaySound("select")
End If
End If
@ -766,8 +768,10 @@ TryAgain:
If Controls.Accept(True, False, False) = True AndAlso MouseHandler.IsInRectangle(ButtonRectangle) AndAlso Delay = 0 Then
If GameState = States.Game Then
GameState = States.Memo
SoundManager.PlaySound("select")
ElseIf GameState = States.Memo Then
GameState = States.Game
SoundManager.PlaySound("select")
End If
End If
@ -786,12 +790,14 @@ TryAgain:
If MemoIndex < 0 Then
MemoIndex = 3
End If
SoundManager.PlaySound("select")
End If
If Controls.Right(True, False, True, False, False, False) = True OrElse ControllerHandler.ButtonPressed(Buttons.RightShoulder) Then
MemoIndex += 1
If MemoIndex > 3 Then
MemoIndex = 0
End If
SoundManager.PlaySound("select")
End If
'Set the Memo type to the one under the mouse
@ -800,18 +806,22 @@ TryAgain:
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X, MemoMenuRectangle.Y, CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'Voltorb
MemoIndex = 0
SoundManager.PlaySound("select")
End If
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X + CInt(MemoMenuRectangle.Width / 2), MemoMenuRectangle.Y, CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'One
MemoIndex = 1
SoundManager.PlaySound("select")
End If
If MouseHandler.IsInRectangle(New Rectangle(MemoMenuRectangle.X, MemoMenuRectangle.Y + CInt(MemoMenuRectangle.Height / 2), CInt(MemoMenuRectangle.Width / 2), CInt(MemoMenuRectangle.Height / 2))) = True Then
'Two
MemoIndex = 2
SoundManager.PlaySound("select")
End If
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
MemoIndex = 3
SoundManager.PlaySound("select")
End If
End If
Else
@ -829,6 +839,7 @@ TryAgain:
'Quiting Voltorb Flip
If Controls.Dismiss(False, True, True) AndAlso GameState = States.Game AndAlso Delay = 0 Then
TextBox.Show(QuitQuestionText)
SoundManager.PlaySound("select")
GameState = States.QuitQuestion
End If
@ -836,6 +847,7 @@ TryAgain:
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
TextBox.Show(QuitQuestionText)
SoundManager.PlaySound("select")
GameState = States.QuitQuestion
End If
@ -854,6 +866,9 @@ TryAgain:
'Flip currently selected Tile
If Controls.Accept(False, True, True) AndAlso GameState = States.Game AndAlso Delay = 0 Then
Dim CurrentTile As Vector2 = GetCurrentTile()
If Board(CInt(CurrentTile.Y))(CInt(CurrentTile.X)).Flipped = False Then
SoundManager.PlaySound("select")
End If
Board(CInt(CurrentTile.Y))(CInt(CurrentTile.X)).Flip()
End If
@ -861,11 +876,18 @@ TryAgain:
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()
BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y))
If Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).Flipped = False Then
SoundManager.PlaySound("select")
End If
Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).Flip()
End If
'Adding currently selected Memo to currently selected Tile
If Controls.Accept(False, True, True) AndAlso GameState = States.Memo AndAlso Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).Flipped = False AndAlso Delay = 0 Then
If Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).GetMemo(MemoIndex) = False Then
SoundManager.PlaySound("select")
End If
Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).SetMemo(MemoIndex, True)
End If
@ -873,13 +895,19 @@ TryAgain:
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 Delay = 0 Then
Dim TileUnderMouse As Vector2 = GetTileUnderMouse()
BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y))
If Board(CInt(GetTileUnderMouse.Y))(CInt(GetTileUnderMouse.X)).Flipped = False Then
If Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).Flipped = False Then
If Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).GetMemo(MemoIndex) = False Then
SoundManager.PlaySound("select")
End If
Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).SetMemo(MemoIndex, True)
End If
End If
'Removing currently selected Memo from currently selected Tile
If Controls.Dismiss(False, True, True) AndAlso GameState = States.Memo AndAlso Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).Flipped = False AndAlso Delay = 0 Then
If Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).GetMemo(MemoIndex) = True Then
SoundManager.PlaySound("select")
End If
Board(CInt(GetCurrentTile.Y))(CInt(GetCurrentTile.X)).SetMemo(MemoIndex, False)
End If
@ -887,7 +915,10 @@ TryAgain:
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)) AndAlso Delay = 0 Then
Dim TileUnderMouse As Vector2 = GetTileUnderMouse()
BoardCursorDestination = GetCursorOffset(CInt(TileUnderMouse.X), CInt(TileUnderMouse.Y))
If Board(CInt(GetTileUnderMouse.Y))(CInt(GetTileUnderMouse.X)).Flipped = False Then
If Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).Flipped = False Then
If Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).GetMemo(MemoIndex) = True Then
SoundManager.PlaySound("select")
End If
Board(CInt(TileUnderMouse.Y))(CInt(TileUnderMouse.X)).SetMemo(MemoIndex, False)
End If
End If
@ -897,6 +928,7 @@ TryAgain:
'Level complete!
If CurrentCoins >= MaxCoins AndAlso GameState = States.Game Then
Dim GameClearText = "Game clear! You received~" & CurrentCoins.ToString & " " & "Coins!"
SoundManager.PlaySound("VoltorbFlip\WinGame")
TextBox.Show(GameClearText)
If Delay = 0 Then
PreviousLevel = CurrentLevel
@ -947,6 +979,7 @@ TryAgain:
If Controls.Accept = True AndAlso TextBox.Showing = False Then
If ReadyAmount = CInt(GridSize * GridSize) Then
SoundManager.PlaySound("select")
GameState = States.FlipWon
End If
End If
@ -976,6 +1009,7 @@ TryAgain:
Else
CurrentLevel = 1
End If
SoundManager.PlaySound("select")
GameState = States.FlipLost
End If
End If
@ -1020,6 +1054,7 @@ TryAgain:
'Prepare new Level
If GameState = States.NewLevel Then
If TextBox.Showing = False Then
SoundManager.PlaySound("VoltorbFlip\StartGame")
Board = CreateBoard(CurrentLevel)
If CurrentLevel < PreviousLevel Then
TextBox.Show("Dropped to Game Lv." & " " & CurrentLevel & "!")
@ -1098,6 +1133,7 @@ TryAgain:
End If
PreviousLevel = CurrentLevel
SoundManager.PlaySound("VoltorbFlip\QuitGame", True)
TextBox.Show("Game Over!~Dropped to Game Lv." & " " & CurrentLevel & "!")
CurrentFlips = 0
@ -1213,6 +1249,9 @@ TryAgain:
If Flipped = True Then
If Activated = False Then
If Me.Value = Values.Voltorb Then
If VoltorbFlipScreen.GameState = VoltorbFlipScreen.States.Game Then
SoundManager.PlaySound("VoltorbFlip\LoseGame", True)
End If
Screen.TextBox.Show("Oh no! You get 0 coins!")
VoltorbFlipScreen.GameState = VoltorbFlipScreen.States.GameLost
Else