Sub Process_Globals
Private sp As SoundPool
Private SirenIndex As Int
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If FirstTime Then
sp.Initialize(2)
SirenIndex = sp.Load(File.DirAssets,"Siren0.mp3")
End If
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
If Action = Activity.ACTION_DOWN Then
sp.Play(SirenIndex, 1, 1, 1, 0, 1)
End If
End Sub