key touchedBy;
list players = ["Dave", "Ed", "Fred", "Alan", "Bob", "Charlie"];

default
{
    touch_start(integer total_number)
    {
        touchedBy = llDetectedKey(0);
        llListen(5, "", touchedBy, "");
        llSetTimerEvent(30);
        llDialog(touchedBy, "Pick one to delete:", players, 5);
    }

    listen(integer ch, string name, key id, string msg)
    {
        llListenRemove(0);
        integer deleteIndex = llListFindList(players, [msg]);
        players = llDeleteSubList(players, deleteIndex, deleteIndex);
    }

    timer()
    {
        llListenRemove(0);
        llOwnerSay("Timeout");
    }
}