Repeating Boombox

Written by Kitsune
//BoomBox by Mitz
integer counter;
integer soundCount;
integer listener;
list songs;
list NEXT;
 
GetSongNames()
{
   integer i;
   for(i=0;i < llGetInventoryNumber(INVENTORY_SOUND);i++)
   {
       songs += llGetInventoryName(INVENTORY_SOUND, i);
    }
}
 
default
 
{
    on_rez(integer rez)
    {
        llResetScript();
    }
 
    state_entry()
    {
        counter =0;
        llStopSound();
        GetSongNames();
        //PreLoadSongs();
        soundCount = llGetInventoryNumber(INVENTORY_SOUND);
        llListen(-1, "", llGetOwner(), "");
        NEXT = llList2List(songs, 0, 8);
    }
 
    listen(integer channel, string name, key id, string message)
    {
        if(message != "< Prev" && message != "Stop" && message != "Next >" )
        {
            llLoopSound(message, 1);
        }else{
 
            if(message == "Stop")
            {
                llStopSound();
            }
 
        }
    }
}