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:
parent
a654d80a85
commit
3fde479b5a
Binary file not shown.
Binary file not shown.
|
@ -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 = ""
|
||||
|
|
Loading…
Reference in New Issue