integer dChan;
integer dialogID;
integer dMenu;
key user;

kmaDialog(key id,list buttons){
    llListenRemove(dialogID);
    dChan = -llAbs(llRound(llFrand(DEBUG_CHANNEL)));
    dialogID = llListen(dChan,"","","");

    list Menu;
    integer l = llGetListLength(buttons);
    integer i;

    if(dMenu > 0)
        Menu += ["<<"];
    else
        Menu += ["•"];
       if(dMenu)  Menu += ["•Main•"];
       else Menu += ["<(•?•)>"];
    if(dMenu*8+8 < l - 1)
        Menu += [">>"];
    else
        Menu += ["•"];
        i=dMenu*8;
    while( (i <= dMenu*8+8) && (i <= l - 1)){
        Menu += [llGetSubString(llList2String(buttons,i),0,23)];
        i++;
    }
    llDialog(id, "\n\n         (select \"Ignore\" when done.)", Menu, dChan);
}