integer totalavis;
integer i;
list info;
key av;

default
{
    state_entry()
    {
        llVolumeDetect(TRUE);

    }

    collision_start(integer total)
    {
       av = llDetectedKey(0);
       info += av;
           totalavis = llGetListLength(info);


        for(i=0;i < totalavis;i++)
        {
             llLoopSound("soundname",1.0);
        }
    }

    collision_end(integer total)
    {
        integer idx;
        av = llDetectedKey(0);
if (~(idx = llListFindList(info, [av]))) {
    info = llDeleteSubList(info,idx,idx); }


       if( info == [])
        {
     llStopSound();
        }
    }

 }