Listen handles by list

//Test for tracking listen handles by global variable list
//Touch to start/stop the listens.

//Listening object
list glAviListeners;
integer switch;
default{
    touch_start(integer t){
        if (switch = !switch){
            integer liAviChan;
            for (liAviChan=0; liAviChan<10;liAviChan++){
                integer liAviListener = llListen(liAviChan, "", "", "");
                glAviListeners += liAviListener;
            }
            llOwnerSay("on");
            llOwnerSay(llList2CSV(glAviListeners));
        }
        else {
            integer i;
            integer length = llGetListLength(glAviListeners);
            for (i=0;i<length;i++){
                llListenRemove(llList2Integer(glAviListeners, i));
            }
            llOwnerSay("off");
            glAviListeners = [];
        }
    }
    listen( integer ch, string name, key id, string msg ){
        if (msg) llOwnerSay((string) ch + " " + msg);
    }
}

//Test Chat object
//Touch to send several chats on 10 channels [ch 0 will always show in local chat]

default{
    touch_start(integer t){
        llSay(0, "Test 0");
        llSay(1, "Test 1");
        llSay(2, "Test 2");
        llSay(3, "Test 3");
        llSay(4, "Test 4");
        llSay(5, "Test 5");
        llSay(6, "Test 6");
        llSay(7, "Test 7");
        llSay(8, "Test 8");
        llSay(9, "Test 9");
        llSay(10, "Test 10");
    }
}