Sub Process_Globals
Dim Sp As SoundPool
End Sub
Sub Globals
Dim Jingle As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Sp.Initialize(1)
Jingle = Sp.Load(File.DirAssets,"Jingle.ogg")
End If
End Sub
Sub Activity_Resume
Sp.Play(Jingle,1,1,1,0,1)
End Sub