Sub Process_Globals
.
.
Dim SP As SoundPool
.
.
End Sub
Sub Globals
.
.
Dim LoadDingDong As Int
Dim PlayDingDong As Int
.
.
End Sub
Sub Activity_Create(FirstTime As Boolean)
.
.
If FirstTime Then
.
.
SP.Initialize(4)
LoadDingDong = SP.Load(File.DirAssets,"DingDong.MP3")
.
.
End If
End Sub
Sub CheckConditions
.
.
If Cond1 = True Then
If Cond2 = True Then
If Cond3 = True Then
PlayDingDong = SP.Play(LoadDingDong,1,1,1,0,1)
Result = Msgbox2(message,warning,option1,option2,option3,Null)
Select Result
.
.
End If
End If
End If
End Sub