Sub Process_Globals
Private MediaPlayers As List
End Sub
Sub Service_Create
MediaPlayers = Array(CreateMediaPlayer, CreateMediaPlayer)
Play
End Sub
Private Sub Play
For Each mp As MediaPlayer In MediaPlayers
mp.Load(File.DirAssets, "1.ogg")
Next
Dim index As Int
Do While True
Dim mp1 As MediaPlayer = MediaPlayers.Get(index Mod 2)
Dim mp2 As MediaPlayer = MediaPlayers.Get((index + 1) Mod 2)
index = index + 1
mp1.Play
mp2.Stop
mp2.Load(File.DirAssets, "1.ogg")
Sleep(29970)
Log("complete")
Loop
End Sub
Private Sub CreateMediaPlayer As MediaPlayer
Dim mp As MediaPlayer
mp.Initialize2("mp")
Return mp
End Sub