'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'  UTILITY - Video Manager & skipper
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
'\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X
'

    dim currentqueue
    dim cineon:cineon = 0
    dim skipped:skipped = 0

    'example playmedia "hs.mp3","audiomultiballs",pAudio,0,"",1,1
    sub playmedia(name,playlist,channel,cinematic,length,nextitem,audiolevel,priority)
        if audiolevel = 1 Then
            if channel = pBackglass Then
                audiolevel = vsvol
            Elseif channel = pCallouts Then
                audiolevel = vovol
            Elseif channel = pMusic Then
                audiolevel = sndtrkvol
            end If
        end If

        PuPlayer.playlistplayex channel,playlist,name,audiolevel,priority

        If cinematic = 1 Then
            dim time:time = length / 1000
            PuPlayer.playpause 4 ' stop then resume the music
            looktimer = looktimer - time ' stop the machine looking for balls
            GiOff
            cineon = 1
            vpmtimer.addtimer length, "nextitems '"
            currentqueue = nextitem
        end If
    end sub

    sub nextitems
        if skipped = 0 Then
            PuPlayer.playresume 4
            gion
            currentqueue
            currentqueue = ""
            cineon = 0
            looktimer = 0
        Else
            skipped = 0
            exit Sub
        end If
    end Sub

    sub vidskipper_timer
        if cineon = 1 Then
            if ldown = 1 and rdown = 1 Then
                nextitems
                skipped = 1
            end If
        end If
    end Sub