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