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

DialogPlus (key avatar, string message, list buttons, integer channel, integer CurMenu) 
{
    if (12 < llGetListLength (buttons)) 
    {
        list lbut;
        lbut = buttons;
        list Nbuttons;
        Nbuttons = [];
        if (CurMenu == -1) 
        {
            CurMenu = 0;
            g_menu_idx = 0;
        }
        if ((Nbuttons = (llList2List (buttons, (CurMenu * 10), ((CurMenu * 10) + 9)) + ["Back", "Next"])) == ["Back", "Next"]) 
        {
            DialogPlus (avatar, message, lbut, channel,  0);
        } 
        else 
        {
            llDialog (avatar, message,  order_buttons (Nbuttons), channel);
        }
    } 
    else 
    {
        llDialog (avatar, message,  order_buttons (buttons), channel);
    }
}
integer gIntMemAlert;
integer gIntSimMemory;
integer gIntOrigSimMemory;
integer gIntListenHandle;
integer gIntListenHandle2;
integer gIntListenHandle3;
integer gIntListenHandle7;
integer gIntListenHandle8;
integer gIntListenHandle9;
integer gIntListenHandle10;
integer gIntListenHandle12;
integer gIntListenHandle15;
integer gIntListenHandle16;
integer gIntListenHandle17;
integer gIntListenHandle18;
integer gIntListenHandle19;
integer gIntListenHandle20;
integer gIntListenHandle21;
integer gIntMinAge;
integer gIntMinHeight;
integer gIntMaxHeight;
integer gIntMaxScriptNum;
integer gIntMaxScriptMem;
integer gIntOkFly;
integer gIntScanTime;
integer gIntSwitch;
integer gIntRegionAgentCount;
integer gIntLstLenPeopleHere;
integer menuindex;
float agelimit;
string surl;
string squeryBorn;
list gLstConfig;
list gLstPeopleHere;
list gLstGridBanList;
list gLstBanListIP;
list gLstBanListKey;
list gLstBanListName;
list gLstWhiteList;
list gLstLogList;
list buttons;
list buttons2;
list buttons3;
list gLstButtons;
string gStrSendTo ;
vector LandingPoint; 
vector LookAt;
key gKyOid;
key kDetect;
key kyThisAgent;
vector sitPosition = <.5,0,.5> ; 
vector sitRotation = <0,0,0> ; 
key avatar ;
key sitter = NULL_KEY ;
string url;
list lhttp_request;
string fnStringTrim(string src)
{
    string myTrimmedText;
    myTrimmedText = llDumpList2String(llParseString2List(src, [" "], []), " ");
    return myTrimmedText;
}

FnConfigDialog()
{
    string notecard;
    notecard = "autoConfig";
    integer intNCLength;
    intNCLength=osGetNumberOfNotecardLines(notecard);
    integer q;
    for ( q=0;q<intNCLength;q++)
    {
        gLstConfig =  gLstConfig + [osGetNotecardLine(notecard,q)];
    }
    gIntMinAge = llList2Integer(gLstConfig,0);   
    gIntMinHeight = llList2Integer(gLstConfig,1);
    gIntMaxHeight = llList2Integer(gLstConfig,2);
    gIntMaxScriptNum = llList2Integer(gLstConfig,3);
    gStrSendTo = llList2String(gLstConfig,4);                               
    gIntMaxScriptMem = llList2Integer(gLstConfig,5);
    gIntScanTime = llList2Integer(gLstConfig,6);  
    string strDialogInfo = "Minimum Age: " + (string)gIntMinAge + "\n" + "Minimum Height:  " + (string)gIntMinHeight + "\n" + "Maximum Height:  " + (string)gIntMaxHeight + "\n" + "Max # of Scripts:  " + (string)gIntMaxScriptNum + "\n" + "Bandits Go To:  " + (string)gStrSendTo + "\n" + "Max Script Memory:  " + (string)gIntMaxScriptMem + "\n" + "Scan Interval:  " + (string)gIntScanTime;
    llDialog(gKyOid,strDialogInfo,[],0);
}

fnExileAgent(key kyThisAgent)
{
    llAddToLandBanList(kyThisAgent,0);
    llTeleportAgentHome(kyThisAgent);
    osTeleportAgent(kyThisAgent,gStrSendTo,LandingPoint,LookAt);
    osKickAvatar(kyThisAgent,"Kicked.");
}

fnWriteConfig()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
       // llSay(0,llDumpList2String(gLstConfig,""));
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount ++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "autoConfig")
            {
                llRemoveInventory("autoConfig");
            }
        }
        osMakeNotecard("autoConfig", gLstConfig);  
    }
}

fnWriteBanListGrid()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount ++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "banlistgrid")
            {
                llRemoveInventory("banlistgrid");
            }
        }
        osMakeNotecard("banlistgrid", gLstGridBanList);   
    }
}

fnWriteBanListIP()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "banlistip")
            {
                llRemoveInventory("banlistip");
            }
        }
        osMakeNotecard("banlistip", gLstBanListIP);   
    }
}

fnWriteBanListName()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "banlistname")
            {
                llRemoveInventory("banlistname");
            }
        }
        osMakeNotecard("banlistname", gLstBanListName);   
    }   
}

fnWriteBanListKey()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "banlistkey")
            {
                llRemoveInventory("banlistkey");
            }
        }
        osMakeNotecard("banlistkey", gLstBanListKey);   
    }      
}

fnWriteLog()
{
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "log")
            {
                llRemoveInventory("log");
            }
        }
        osMakeNotecard("log", gLstLogList);   
    }   
}

fnPopulateConfigList()
{
    gLstConfig = [];
    if (llGetInventoryType("autoConfig") == -1)
    {
        gLstConfig = [4,140,180,25,"hg.osgrid.org:80:Lbsa Plaza",400000,5];
        osMakeNotecard("autoConfig", gLstConfig);
    }
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "autoConfig")
            {
                string notecard;
                notecard = "autoConfig";
                integer intNCLength;
                intNCLength=osGetNumberOfNotecardLines(notecard);
                integer q;
                for ( q=0;q<intNCLength;q++)
                {
                    gLstConfig += [osGetNotecardLine(notecard,q)];
                }
                gIntMinAge = llList2Integer(gLstConfig,0);   
                gIntMinHeight = llList2Integer(gLstConfig,1);
                gIntMaxHeight = llList2Integer(gLstConfig,2);
                gIntMaxScriptNum = llList2Integer(gLstConfig,3);
                gStrSendTo = llList2String(gLstConfig,4);                               
                gIntMaxScriptMem = llList2Integer(gLstConfig,5);
                gIntScanTime = llList2Integer(gLstConfig,6);  
               //llSay(0, llDumpList2String(gLstConfig,""));                      
            }
        }   
    }   
}

fnPopulateLogList()
{
    gLstLogList = [];
    if (llGetInventoryType("log") == -1)
    {
        osMakeNotecard("log", gLstLogList);
    }
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "log")
            {
                string notecard;
                notecard = "log";
                integer intNCLength;
                intNCLength=osGetNumberOfNotecardLines(notecard);
                integer q;
                for ( q=0;q<intNCLength;q++)
                {
                    gLstLogList += [osGetNotecardLine(notecard,q)];
                }           
            }
        }   
    }   
}

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

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

fnPopulateBanListKeys()
{
    if (llGetInventoryType("banlistkey") == -1)
    {
        osMakeNotecard("banlistkey", gLstBanListKey);
    }
    gLstBanListKey = [];
    integer intInvNum;
    intInvNum = llGetInventoryNumber(INVENTORY_NOTECARD);
    if (intInvNum != 0)
    {
        integer intCount;
        for (intCount = 0; intCount < intInvNum;intCount++)
        {
            if (llGetInventoryName(INVENTORY_NOTECARD, intCount) == "banlistkey")
            {
                string notecard;
                notecard = "banlistkey";
                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
                    {
                        gLstBanListKey += [osGetNotecardLine(notecard,q)];
                    }
                }           
            }
        }   
    }
}

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

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


fnPeople()
{
    gLstPeopleHere = osGetAvatarList();

    gIntLstLenPeopleHere = llGetListLength(gLstPeopleHere); 
    if (gIntLstLenPeopleHere == 0) { return; }


    integer q;
    for (q=2;q<gIntLstLenPeopleHere;q=q+3)
    {
        kyThisAgent = llList2Key(gLstPeopleHere,q-2);
        if (osIsNpc(kyThisAgent)==1)
        {
            gLstPeopleHere = llDeleteSubList(gLstPeopleHere,q-2,q);            
        }
    }
    gIntLstLenPeopleHere = llGetListLength(gLstPeopleHere); 
    if (gIntLstLenPeopleHere == 0) { return; }
    for ( q=2;q<gIntLstLenPeopleHere;q=q+3)
    {
        kyThisAgent = llList2Key(gLstPeopleHere,q-2);
        string strThisAgent;
        strThisAgent = llList2String(gLstPeopleHere,q);
        integer intF;
        intF = llSubStringIndex(strThisAgent,".");
        if (intF != -1)
        {   //a hypergrid agent
            // Is hypergrid agent below minimum age to be here?
            llMessageLinked(LINK_THIS,10,strThisAgent,kyThisAgent);            
            // break up their name into parts.
            integer intFNPos;
            intFNPos = llSubStringIndex(strThisAgent,".");
            string strFirstName;
            strFirstName = llGetSubString(strThisAgent,0,intFNPos -1);
            integer intATLoc;
            intATLoc = llSubStringIndex(strThisAgent,"@");
            string strLastName;
            strLastName = llGetSubString(strThisAgent,intFNPos +1,intATLoc-2);
            integer intStrLength;
            intStrLength = llStringLength(strThisAgent);
            string strGridName;
            strGridName = llGetSubString(strThisAgent,intATLoc +1,intStrLength);
            // we have their grid name! yay!
            // check to see if their grid name matches a name in the grid ban list!
            integer intGBLL;
            intGBLL = llGetListLength(gLstGridBanList);
            integer s;
            for ( s=0;s<intGBLL;s++)
            {
                string strGridSource;
                strGridSource = llList2String(gLstGridBanList,s);
                if (llSubStringIndex(strGridName, strGridSource) != -1)
                {
                    //They are on the ban list, get rid of them!
                    llInstantMessage(kyThisAgent,"\n Your grid is banned from my region.");
                    fnExileAgent(kyThisAgent);
                    llInstantMessage(gKyOid, strFirstName + " : " + strLastName + " : " + strGridName + " was grid banned. and matched " + strGridSource);
                    gLstLogList =  gLstLogList + strFirstName + " : " + strLastName + " : " + strGridName + " was grid banned. and matched " + strGridSource;
                    fnWriteLog();
                }
            }                                          
        }
        //not a HyperGrid Agent
        //Are they below the minimum age?
        else
        {
            llRequestAgentData(kyThisAgent, DATA_BORN);
        }
        //**************************************************************
        //  Is there name on the ban list?
        integer intBNLL;
        intBNLL = llGetListLength(gLstBanListName);
        integer st;
        for ( st=0;st<intBNLL;st++)
        {
            string strNameSource;
            strNameSource = llList2String(gLstBanListName,st);
            strNameSource = llToLower(strNameSource);
            string strLCAgent;
            strLCAgent = llToLower(strThisAgent);
            if (llSubStringIndex(strLCAgent, strNameSource) != -1)
            {
                //They are on the ban name list, get rid of them!
                llInstantMessage(kyThisAgent,"Your name is on the name ban list. " + strThisAgent);
                fnExileAgent(kyThisAgent);
                llInstantMessage(gKyOid, strThisAgent + " was name banned. and matched " + strNameSource);
                gLstLogList += [strThisAgent + " was name banned. and matched " + strNameSource];
                fnWriteLog();
            }
        }            
        //****************************************************************
        //  Is their key on the ban list?
        integer intBKLL;
        intBKLL = llGetListLength(gLstBanListKey);
        integer stt;
        for ( stt=0;stt<intBKLL;stt++)
        {
            key kyBanListKey;
            kyBanListKey = llList2Key(gLstBanListKey,stt);
            if (kyBanListKey == kyThisAgent)
            {
                //They are on the ban name list, get rid of them!
                 llInstantMessage(kyThisAgent, " \n Your Agent Key is on the Key Ban List " + (string)kyBanListKey);
                fnExileAgent(kyThisAgent);
                llInstantMessage(gKyOid, strThisAgent + " was key banned. and matched " + (string)kyBanListKey);
                gLstLogList += [strThisAgent + " was key banned. and matched " + (string)kyBanListKey];
                fnWriteLog();
            }
        }
         //****************************************************************
        //  Is their ip on the ban list?
        integer intBIPLL;
        intBIPLL = llGetListLength(gLstBanListIP);
        integer sr;
        for ( sr=0;sr<intBIPLL;sr++)
        {
            kyThisAgent = llList2Key(gLstPeopleHere,q-2);
            string strBLIP;
            strBLIP = llList2String(gLstBanListIP,sr);
            string strAgentIP;
            strAgentIP = osGetAgentIP(llList2Key(gLstPeopleHere,q-2));
            
            if (strBLIP == strAgentIP)
            {
                //They are on the ban ip list, get rid of them!
                 llInstantMessage(kyThisAgent,"\n Your IP is on the IP ban list. " + strBLIP);
                fnExileAgent(kyThisAgent);
                llInstantMessage(gKyOid, strThisAgent + " was ip banned. and matched " + strBLIP);
                gLstLogList += [strThisAgent + " was ip banned. and matched " + strBLIP];
                fnWriteLog();
            }
        }
       //*******************************************************************
       //  white list for dinkies & fairies
       integer intWLL;
       intWLL = llGetListLength(gLstWhiteList);
       integer sp;
       for ( sp=0;sp<intWLL;sp++)
       {
            string strNameSource;
            strNameSource = llList2String(gLstWhiteList,sp);
            if (llSubStringIndex(strThisAgent, strNameSource) == -1)
            {
                //********************************************************************
                vector size = <0, 0, 0>;
                integer retries = 0;
                integer maxRetries = 10;
                integer heightChecked = FALSE;
                while (retries < maxRetries && !heightChecked)
                {
                    size = llGetAgentSize(kyThisAgent);
                    if (size.z >= 0.3)
                    {
                        float heightCM = size.z * 100.0;
                        if (gIntMinHeight > 0 && heightCM < (float)gIntMinHeight)
                        {
                            llInstantMessage(gKyOid, strThisAgent + " was height banned too short at: " + (string)size.z);
                            llInstantMessage(kyThisAgent, "\nYou were banned for being too short at: " + (string)size.z);
                            gLstLogList += [strThisAgent + " was height banned too short at: " + (string)size.z];
                            fnWriteLog();
                            fnExileAgent(kyThisAgent);
                        }
                        else if (gIntMaxHeight > 0 && heightCM > (float)gIntMaxHeight)
                        {   
                            llInstantMessage(gKyOid, strThisAgent + " was height banned too tall at: " + (string)size.z);
                            llInstantMessage(kyThisAgent, "\nYou were banned for being too tall at: " + (string)size.z);
                            gLstLogList += [strThisAgent + " was height banned too tall at: " + (string)size.z];
                            fnWriteLog();
                            fnExileAgent(kyThisAgent);
                        }
                        heightChecked = TRUE;
                    }
                    else
                    {
                        llSleep(0.5);
                        retries++;
                    }
                }
                if (!heightChecked)
                {
                    gLstLogList += [strThisAgent + " height check failed after " + (string)maxRetries + " tries. Skipped height ban."];
                    fnWriteLog();
                } 
            }
            //**********************************************************************
            //  Running too many scripts? 
        
            list lstScriptData;
            lstScriptData = llGetObjectDetails(kyThisAgent, [OBJECT_RUNNING_SCRIPT_COUNT, OBJECT_SCRIPT_MEMORY]);
            integer intNumScripts;
            intNumScripts = llList2Integer(lstScriptData,0);
            if (0 < gIntMaxScriptNum && intNumScripts > gIntMaxScriptNum) 
            {
                llInstantMessage(gKyOid, strThisAgent + " was running " + (string)intNumScripts + " scripts and was banned.");
                gLstLogList += [strThisAgent + " was running " + (string)intNumScripts + " scripts and was banned."];
                llInstantMessage(kyThisAgent,"\n You have been banned for running too many scripts: " + (string)intNumScripts);
                fnWriteLog();
                fnExileAgent(kyThisAgent);
            }
            integer intScriptMem;
            intScriptMem = llList2Integer(lstScriptData,1);
            if (0 < gIntMaxScriptMem && intScriptMem > gIntMaxScriptMem)
            {
                llInstantMessage(gKyOid, strThisAgent + " was using " + (string)intScriptMem + " bytes of ram and was banned.");
                gLstLogList += [strThisAgent + " was using " + (string)intScriptMem + " bytes of ram and was banned."];
                llInstantMessage(kyThisAgent, "\n You have been banned for using too much RAM memory: " + (string)intScriptMem);
                fnWriteLog();
                fnExileAgent(kyThisAgent);
            }
            //*************************************************************************
            //  Is Agent Flying?
            /*
            integer intFlyCheck;
            intFlyCheck = llGetAgentInfo(kyThisAgent);
            if ((intFlyCheck & AGENT_FLYING) && (gIntOkFly == 0)) 
            {
                llInstantMessage(gKyOid, strThisAgent + " was flying and it's not allowed and was banned.");
                gLstLogList +=  [strThisAgent + " was flying and it's not allowed and was banned."];
                llInstantMessage(kyThisAgent, "\n You were banned for flying.");
                fnWriteLog();
                fnExileAgent(kyThisAgent);
            }*/            
        }            
    }   
}

integer f_daysSince(string input)
{   list l;
    l = llParseString2List(input, ["-"],[]);
    integer Y;
    Y = (integer)llList2String(l,0);
    integer M;
    M = (integer)llList2String(l,1);    
    integer D;
    D = (integer)llList2String(l,2);
    if(M==1 || M==2)
    {   --Y;
        M+=12;
    }
    integer A;
    A = Y/100;
    integer B;
    B = A/4;
    integer C;
    C = 2-A-B; //(or C=0 if you're using the Julian calendar)
    float E;
    E = 365.25*(Y+4716);
    float F;
    F = 30.6001*(M+1);
    integer age;
    age = C+D+(integer)E+(integer)F-1524;
    l = llParseString2List(llGetDate(), ["-"],[]);
    Y = (integer)llList2String(l,0);
    M = (integer)llList2String(l,1);    
    D = (integer)llList2String(l,2);
    if(M==1 || M==2)
    {   --Y;
        M+=12;
    }
    A = Y/100;
    B = A/4;
    C = 2-A-B; //(or C=0 if you're using the Julian calendar)
    E = 365.25*(Y+4716);
    F = 30.6001*(M+1);
    return C+D+(integer)E+(integer)F-1524-age; 
}

fnInit()
{
    gIntSwitch = 1;
    fnPopulateConfigList();
    fnPopulateBanListGrid();
    fnPopulateBanListIP();
    fnPopulateBanListKeys();
    fnPopulateBanListName();        
    fnPopulateWhiteList();
    llSetTimerEvent(gIntScanTime);
    llSetText("Overwatch Sentry Server ON",<1,0,0>,1.0);
    llSetColor (<1,0,0>,0);
    llOwnerSay("On");
    fnPopulateLogList();
    llMessageLinked(LINK_SET, 0, "on", "on");
}

default
{
    on_rez(integer p) 
    {
        llResetScript();
    }
    
    changed(integer c) 
    {
        if (CHANGED_OWNER & c) 
        {
            llResetScript();
        }  
        else if (CHANGED_INVENTORY & c & gIntSwitch)
        {
            llResetScript();
        }
        else if (CHANGED_REGION_START & c)
        {
            llResetScript();
        }
        else if(c & CHANGED_LINK) 
        {
            avatar = llAvatarOnSitTarget();
            if ( avatar ) 
            {
                llRequestPermissions(avatar,PERMISSION_TRIGGER_ANIMATION);
            } 
            else 
            {
                if ( sitter ) 
                {
                    llUnSit(sitter);
                    sitter = NULL_KEY ;
                } 
                else 
                {
                }
            }
        }      
    }
   
    state_entry()
    {
        sitRotation = sitRotation*DEG_TO_RAD;
        rotation rot = llEuler2Rot(sitRotation);
        llSitTarget(sitPosition, rot);
        sitter = NULL_KEY ;
        buttons = ["On", "Off", "Reset", "Ban by", "Setup", "Log File"];
        buttons2 = ["Radar", "Name", "Key", "IP Address", "Grid"];
        buttons3 = ["Max Scripts", "Min Height", "Min Age", "Max Height", "Send To", "Script Mem", "Scan Time","Show Config"];
        agelimit=0;
        menuindex = 0;
        LandingPoint = <128,128,50>;
        LookAt = <0,1,0>;
        gIntMemAlert = 0;
        gIntSimMemory = osGetSimulatorMemory();
        gIntOrigSimMemory = gIntSimMemory;
        gKyOid = llGetOwner();
        gStrSendTo = llGetObjectDesc();        
        fnInit();
    }
    
    run_time_permissions(integer perm)
    {
        if(perm & PERMISSION_TRIGGER_ANIMATION)
        {
            sitter = avatar ;
            llStopAnimation("sit");
            llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));
        } 
        else 
        {
            llUnSit(sitter);
            sitter = NULL_KEY ;
        }
    }
    touch_start(integer p)
    {
        if (llDetectedKey(0) == gKyOid)
        {
            llSetTimerEvent(120);
            gIntListenHandle = llListen(5000, "", "", "");
            DialogPlus (gKyOid, "Main Controls", buttons, 5000,0);
        }
        else
        {
            osForceOtherSit(llDetectedKey(0));
            llInstantMessage(gKyOid,llKey2Name(llDetectedKey(0)) + " is messing with your security orb. "); 
            gLstLogList +=  [llKey2Name(llDetectedKey(0))+ " was banned for messing with the security orb."];
            fnWriteLog();
            fnExileAgent(llDetectedKey(0));
        }
    }
    
    dataserver(key queryid, string data) 
    {
        //check to see if agent is below minimum age.
        //  llSay(0, "You were born on: " + data);
        integer age;
        age = f_daysSince(data);
        if (age < gIntMinAge)
        {
            string strAgentName = llKey2Name(kyThisAgent);
            llInstantMessage(gKyOid, strAgentName + " is  " + (string)age + " days old and was banned.");
            gLstLogList += [strAgentName + " is " + (string)age + " days old and was banned."];
            llInstantMessage(kyThisAgent,"\n You have been banned.  You must be " + (string)gIntMinAge);
            fnWriteLog();
            fnExileAgent(kyThisAgent);
        }        
    }
    
    link_message(integer sender_num, integer iage, string snme, key id)
    {
        if (id != llGetOwner())
        {
            if( iage==-999999)
            {
                llResetScript();
            }
            if(iage==0 || snme=="" || llKey2Name(id)=="" )
            {
                return;
            }
            agelimit=llSqrt(iage*iage);
            surl= llGetSubString(snme,llSubStringIndex(snme,"@")+1,-1)+"/";
            squeryBorn="<?xml version=\"1.0\" encoding=\"utf-8\"?><methodCall><methodName>get_user_info</methodName><params><param><value><struct><member><name>userID<\name><value><string>"+(string) id+"</string></value></member></struct></value></param></params></methodCall>";
            lhttp_request = lhttp_request+llHTTPRequest("http://"+surl, [HTTP_METHOD, "POST"],squeryBorn);
            lhttp_request=lhttp_request+id;
        }
    }
    
    http_response(key request_id, integer status, list metadata, string body)
    {
        string txt;
        integer age;
        integer iRequest;
        iRequest=llListFindList(lhttp_request,[request_id]);
        if( iRequest==-1) return ; 
        kDetect=llList2Key(lhttp_request,iRequest+1);
        lhttp_request=llDeleteSubList(lhttp_request,iRequest,iRequest+1);
        if (status != 200 ) 
        { 
            llMessageLinked( 1,-333,"-1" ,NULL_KEY);
             return ;
        }
        txt =llGetSubString(body,llSubStringIndex(body,"<i4>1")+4,-1);
        txt=llGetSubString(txt,0,llSubStringIndex(txt,"</i4>")-1);
        if(llStringLength(txt)>9 ) 
        {
            age=llGetUnixTime( )- (integer)txt;
            age=age/86400;
            llSetText("Age "+ (string) (age),<1.,1.,1.>,1.0);
            if((age<gIntMinAge && age>-1) | (age > 9999))
            {
                string strAgentName = llKey2Name(kyThisAgent);
                llInstantMessage(gKyOid, strAgentName + " is  " + (string)age + " days old and was banned.");
                gLstLogList += [strAgentName + " is " + (string)age + " days old and was banned."];
                llInstantMessage(kyThisAgent,"\n You have been banned.  You must be " + (string)gIntMinAge);
                fnWriteLog();
                fnExileAgent(kyThisAgent);
            }
        }
    }
    
    listen(integer channel, string name, key id, string message)
    {
        if (channel == 3000)
        {
            string gNameSelected;
            gNameSelected = message;
            if (gNameSelected !="" && gNameSelected != "Next" && gNameSelected != "Back")
            {
                integer q;
                for (q=2;q<gIntLstLenPeopleHere;q=q+3)
                {
                    integer intGnameSelectedLen;
                    intGnameSelectedLen = llStringLength(gNameSelected);
                    string strTempName;
                    strTempName = llList2String(gLstPeopleHere,q);
                    string strShortTempName;
                    strShortTempName = llGetSubString(strTempName,0,intGnameSelectedLen-1);
                    if (gNameSelected == strShortTempName)
                    {
                        key keyName;
                        keyName = llList2Key(gLstPeopleHere,q-2);
                        llEjectFromLand(keyName);
                        llAddToLandBanList(keyName,0);
                        gLstBanListKey += [keyName];
                        gLstBanListName += [llKey2Name(keyName)];
                        gLstBanListIP += [osGetAgentIP(keyName)];
                        fnWriteBanListKey();
                        fnWriteBanListName();
                        fnWriteBanListIP();                        
                    }
                }
            }
        }
        else if (channel == 4000)
        {
            if (message == "Name")
            {
                llTextBox(gKyOid, "Please Enter the name to ban...", 7000);
                gIntListenHandle7 = llListen( 7000, "", "", "");     
            }
            else if (message == "IP Address")
            {
                llTextBox(gKyOid, "Please Enter the name to ban...", 8000);
                gIntListenHandle8 = llListen(8000,"","","");
            }
            else if (message == "Key")
            {
                llTextBox(gKyOid, "Please Enter the name to ban...", 9000);
                gIntListenHandle9 = llListen(9000,"","","");          
            }
            else if (message == "Grid")
            {
                llTextBox(gKyOid, "Please Enter the grid to ban...", 10000);
                gIntListenHandle10 = llListen(10000,"","","");
            }
            else if (message == "Radar")
            {
                gLstPeopleHere = osGetAvatarList();
                integer i;
                i=0;
                integer q;
                for (q=2;q<gIntLstLenPeopleHere;q=q+3)
                {
                    integer intF;
                    intF = llSubStringIndex(llList2String(gLstPeopleHere,q),"@");
                    if (intF == -1)
                    {
                        gLstButtons += [llList2String(gLstPeopleHere,q)];
                        i=i+1;
                    }
                    else
                    {
                        string strName;
                        strName = llGetSubString(llList2String(gLstPeopleHere,q),0,intF - 1);
                        gLstButtons += [strName];
                        i=i+1;                        
                    }
                }           
                gIntListenHandle3 = llListen(3000,"","","");
                llSetTimerEvent(120);
                DialogPlus(gKyOid," \n",gLstButtons,3000,0);
            }
        }
        else if (channel == 5000)
        {
            fnPopulateBanListGrid();
            fnPopulateBanListIP();
            fnPopulateBanListKeys();
            fnPopulateBanListName();        
            if (message == "Log File")
            {
                llGiveInventory(gKyOid,"log");                
            }
            else if (message == "Ban by")
            {
                llSetTimerEvent(120);
                gIntListenHandle2 = llListen(4000, "", "", "");
                DialogPlus (gKyOid, "Ban by", buttons2, 4000,0);
            }
            else if (message == "Setup")
            {
                llSetTimerEvent(120);
                gIntListenHandle12 = llListen(12000,"","","");
                DialogPlus (gKyOid, "Please Set Values:", buttons3,12000,0);
            }
            else if (message == "Reset")
            {
                llResetScript();
            }
            
            else if (message == "Off")
            {
                gIntSwitch = 0;
                llSetTimerEvent(0);
                llSetColor(<0,0,1>,0);
                llSetText("Overwatch Sentry Server OFF",<0,0,1>,1.0);
                llOwnerSay("Off");
                fnWriteLog();
                llMessageLinked(LINK_SET, 0, "off", "off");
            }
            else if (message == "On")
            {
                gIntSwitch = 1;
                llSetTimerEvent(gIntScanTime);
                llSetText("Overwatch Sentry Server ON",<1,0,0>,1.0);
                llSetColor (<1,0,0>,0);
                fnInit();
                llMessageLinked(LINK_SET, 0, "on", "on");
            }
        }
        else if (channel == 7000)
        {
             gLstBanListName += [message];
             fnWriteBanListName();
        }
        else if (channel == 8000)
        {
            gLstBanListIP += [message];
            fnWriteBanListIP();            
        }
        else if (channel == 9000)
        {
            gLstBanListKey += [message];
            fnWriteBanListKey();
        }
        else if (channel == 10000)
        {
            gLstGridBanList += [message];
            fnWriteBanListGrid();
        }
        else if (channel == 12000)
        {
            if (message == "Min Age")
            {
                llTextBox(gKyOid,"Please Enter Min Age in days. \n Current Value: "+(string)gIntMinAge,15000);
                 gIntListenHandle15 = llListen( 15000, "",gKyOid, "");    
            }
            else if (message == "Min Height")
            {
                llTextBox(gKyOid,"Please Enter Min Height in CM.  Ex: 100 - 180\n Current Value: "+(string)gIntMinHeight,16000);
                 gIntListenHandle16 = llListen( 16000, "", gKyOid, "");       
            }
            else if (message == "Max Height")
            {
                llTextBox(gKyOid,"Please Enter Max Height in CM.  Ex: 180-250\n Current Value: "+(string)gIntMaxHeight,17000);
                 gIntListenHandle17 = llListen( 17000 ,"",gKyOid, "");    
            }
            else if (message == "Show Config")
            {
                FnConfigDialog();
            }
            else if (message == "Max Scripts")
            {
                llTextBox(gKyOid,"Please Enter Max Num of Scripts.\n Current Value: "+(string)gIntMaxScriptNum, 18000);
                 gIntListenHandle18 = llListen( 18000, "",gKyOid, "");    
            }
            else if (message == "Send To")
            {
                llTextBox(gKyOid,"Where To Send Bandits?  ex: hg.osgrid.org:8002\n Current: "+gStrSendTo,19000);
                 gIntListenHandle19 = llListen( 19000, "",gKyOid, "");    
            }
            else if (message == "Script Mem")
            {
                llTextBox(gKyOid,"How Much Memory Agent Can Use?  ex: 400000\n Current Value: "+gIntMaxScriptMem,20000);
                 gIntListenHandle20 = llListen( 20000, "", gKyOid, "");    
            }
            else if (message == "Scan Time")
            {
                llTextBox(gKyOid,"How Fast Should I Scan In Seconds?  ex: 5 \n Current Value: "+(string)gIntScanTime,21000);
                 gIntListenHandle21 = llListen( 21000, "", gKyOid, "");    
            }
        }
        else if (channel == 15000)
        {
            gIntMinAge = (integer)message;
            gLstConfig = llListInsertList(gLstConfig,[gIntMinAge],0);
            gLstConfig = llDeleteSubList(gLstConfig,1,1);
            fnWriteConfig();
        }
        else if (channel == 16000)
        {
            gIntMinHeight = (integer)message;
            gLstConfig = llListInsertList(gLstConfig,[gIntMinHeight],1);
            gLstConfig = llDeleteSubList(gLstConfig,2,2);
            fnWriteConfig();
        }
        else if (channel == 17000)
        {
            gIntMaxHeight = (integer)message;
            gLstConfig = llListInsertList(gLstConfig,[gIntMaxHeight],2);
            gLstConfig = llDeleteSubList(gLstConfig,3,3);
            fnWriteConfig();
        }
        else if (channel == 18000)
        {
            gIntMaxScriptNum = (integer)message;
            gLstConfig = llListInsertList(gLstConfig,[gIntMaxScriptNum],3);
            gLstConfig = llDeleteSubList(gLstConfig,4,4);
            fnWriteConfig();
        }
        else if (channel == 19000)
        {
            llSetObjectDesc(message);
            gLstConfig = llListInsertList(gLstConfig,[message],4);
            gLstConfig = llDeleteSubList(gLstConfig,5,5);
            fnWriteConfig();
        }
        else if (channel == 20000)
        {
            gIntMaxScriptMem = (integer)message;
            gLstConfig = llListInsertList(gLstConfig,[gIntMaxScriptMem],5);
            gLstConfig = llDeleteSubList(gLstConfig,6,6);
            fnWriteConfig();
        }
        else if (channel == 21000)
        {
            gIntScanTime = (integer)message;
            gLstConfig = llListInsertList(gLstConfig,[gIntScanTime],6);
            gLstConfig = llDeleteSubList(gLstConfig,7,7);
            fnWriteConfig();
        }
    } 
    
    timer()
    {
        fnPeople();
        if (gIntListenHandle)
        {
            llListenRemove(gIntListenHandle);
        }
        else if (gIntListenHandle2)
        {
            llListenRemove(gIntListenHandle2);
        }
        else if (gIntListenHandle3)
        {
            llListenRemove(gIntListenHandle3);
        }
        else if (gIntListenHandle7)
        {
            llListenRemove(gIntListenHandle7);
        }
        else if (gIntListenHandle8)
        {
            llListenRemove(gIntListenHandle8);
        }
        else if (gIntListenHandle9)
        {
            llListenRemove(gIntListenHandle9);
        }
        else if (gIntListenHandle10)
        {
            llListenRemove(gIntListenHandle10);
        }
        else if (gIntListenHandle12)
        {
            llListenRemove(gIntListenHandle12);
        }
        else if (gIntListenHandle15)
        {
            llListenRemove(gIntListenHandle15);
        }
        else if (gIntListenHandle16)
        {
            llListenRemove(gIntListenHandle16);
        }
        else if (gIntListenHandle17)
        {
            llListenRemove(gIntListenHandle17);
        }
        else if (gIntListenHandle18)
        {
            llListenRemove(gIntListenHandle18);
        }
        else if (gIntListenHandle19)
        {
            llListenRemove(gIntListenHandle19);
        }
        else if (gIntListenHandle20)
        {
            llListenRemove(gIntListenHandle20);
        }
        else if (gIntListenHandle21)
        {
            llListenRemove(gIntListenHandle21);
        }
    }
}
//****** END