Added PokéBall break sound that's different from the open sound and added "Success_Catch" jingle that plays when catching a Pokémon

This commit is contained in:
JappaWakka 2021-10-13 20:27:47 +02:00
parent a654d80a85
commit 3fde479b5a
3 changed files with 7 additions and 7 deletions

Binary file not shown.

Binary file not shown.

View File

@ -146,7 +146,7 @@
SoundManager.PlaySound("Battle\Pokeball\shake") SoundManager.PlaySound("Battle\Pokeball\shake")
AnimationIndex += 1 AnimationIndex += 1
Else Else
SoundManager.PlaySound("Battle\Pokeball\open") SoundManager.PlaySound("Battle\Pokeball\break")
AnimationIndex = 21 AnimationIndex = 21
InBall = False InBall = False
End If End If
@ -229,13 +229,13 @@
p.SetCatchInfos(Me.Ball, "caught at") p.SetCatchInfos(Me.Ball, "caught at")
MusicManager.Stop() MusicManager.Stop()
SoundManager.PlaySound("Battle\Pokeball\catch", False) SoundManager.PlaySound("Battle\Pokeball\catch", False)
SoundManager.PlaySound("success", True) SoundManager.PlaySound("success_catch", True)
MusicManager.Play("wild_defeat", False, 0.2F) MusicManager.Play("wild_defeat", False, 0.2F)
TextBox.Show(s, {}, False, False) TextBox.Show(s, {}, False, False)
End Sub End Sub
Private Sub StorePokemon() Private Sub StorePokemon()
Dim s As String = "" Dim s As String = ""