key gKyToucher;
key gKyOwner;
list gLstSubscribers;

integer gIntMenuIdx;
integer gIntListenHandle;
integer gIntListenHandle2;
integer gIntSubscriberListLen;
string gStrMessage;

list buttons = ["Enter Msg", "Send Msg", "Quit"];

string fnStringTrim(string src)
{
    string myTrimmedText;
    myTrimmedText = llDumpList2String(llParseString2List(src, [" "], []), " ");
    return myTrimmedText;
}

fnPopulateListKeys()
{
    if (llGetInventoryType("listkeys") == -1)
    {
        osMakeNotecard("listkeys", gLstSubscribers);
    }
    gLstSubscribers = [];
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "listkeys")
            {
                string notecard;
                notecard = "listkeys";
                integer intNCLength;
                intNCLength=osGetNumberOfNotecardLines(notecard);
                integer q;
                for ( q=0;q<intNCLength;q++)
                {
                    string strThisKey;
                    strThisKey = osGetNotecardLine(notecard,q);
                    strThisKey = fnStringTrim(strThisKey);
                    if ((strThisKey == "") || (strThisKey == " "))
                    {}
                    else
                    {
                        gLstSubscribers =  gLstSubscribers + [osGetNotecardLine(notecard,q)];
                    }
                }           
            }
        }   
    }
}


fnWriteListKeys()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "listkeys")
            {
                llRemoveInventory("listkeys");
            }
        }
        osMakeNotecard("listkeys", gLstSubscribers);   
    }      
}


list gFnOrderButtons(list buttons)
{
    return llList2List(buttons, -3, -1) + llList2List(buttons, -6, -4) +
        llList2List(buttons, -9, -7) + llList2List(buttons, -12, -10);
}

gFnDialogPlus(key avatar, string message, list buttons, integer channel, integer CurMenu)
{
    if (llGetListLength(buttons) >12)
    {
        list lbut = buttons;
        list Nbuttons = [];
        if(CurMenu == -1)
        {
            CurMenu = 0;
            gIntMenuIdx = 0;
        }
        if((Nbuttons = (llList2List(buttons, (CurMenu * 10), ((CurMenu * 10) + 9)) + ["Back", "Next"])) == ["Back", "Next"])
        {
            gFnDialogPlus(avatar, message, lbut, channel, gIntMenuIdx);
        }
        else
        {
            llDialog(avatar, message,  gFnOrderButtons(Nbuttons), channel);
        }
    }
    else
    {
        llDialog(avatar, message,  gFnOrderButtons(buttons), channel);
    }
}

default
{
    
    on_rez(integer c)
    {
        llResetScript();
    }
    
    state_entry()
    {
        gKyOwner = llGetOwner();
        fnPopulateListKeys();

    }
    
    listen(integer channel, string name, key id, string message)
    {
        if (channel == 16000)
        {
            gStrMessage = message;
            llListenRemove(gIntListenHandle2);
        }
        if (message == "Enter Msg")
        {
            gIntListenHandle = llListen(16000, "", gKyOwner, "");
            llTextBox(gKyOwner,"Enter the message to send.",16000);   
        }
        if (message == "Send Msg")
        {
            gIntSubscriberListLen = llGetListLength(gLstSubscribers);
            integer q;
            for (q=0;q<gIntSubscriberListLen;q++)
            {
                llInstantMessage(llList2Key(gLstSubscribers,q), gStrMessage);          
            }
        }
        if (message == "Quit")
        {
            llOwnerSay("Goodbye! \n");
        }
    }
    
    timer()
    {
        llListenRemove(gIntListenHandle);   
        llSetTimerEvent(0);
    }
    
    touch_start(integer p)
    {
        gKyToucher = llDetectedKey(0);
        if (gKyToucher == gKyOwner)
        {
            gIntListenHandle = llListen(8000, "", gKyOwner, "");
            llSetTimerEvent(240);
            gFnDialogPlus(gKyOwner, "Please Enter Message",  buttons, 8000, 0);

        }
        else
        {
            if (~llListFindList(gLstSubscribers,[gKyToucher]))
            {
                llInstantMessage(gKyToucher, "Removing You from the list!\n");  
                integer index = llListFindList(gLstSubscribers,[gKyToucher]);
                gLstSubscribers = llDeleteSubList(gLstSubscribers,index,index);
                fnWriteListKeys(); 
            }
            else
            {
                gLstSubscribers = gLstSubscribers + [gKyToucher];
                fnWriteListKeys();
                llInstantMessage(gKyToucher, "You have been added to the list! \n");
                llSay(0,"Added " + llDetectedName(0) + " to the list!");                
            }            
        }       
    }
}