User:Allen Kerensky/Myriad Lite Dev/Myriad Lite Rumor Server-v0.0.4-20120317.lsl

= Myriad_Lite_Rumor_Server-v0.0.4-20120317.lsl = // Myriad_Lite_Rumor_Server-v0.0.4-20120317.lsl // The Myriad RPG System was designed, written, and illustrated by Ashok Desai // Myriad RPG licensed under the Creative Commons Attribution 2.0 UK: England and Wales // http://creativecommons.org/licenses/by/2.0/uk/ // Myriad Lite software Copyright (c) 2011 by Allen Kerensky (OSG/SL) // Myriad Lite Module Rumors licensed under the // Creative Commons Attribution-Share Alike-Non-Commercial 3.0 Unported // http://creativecommons.org/licenses/by-nc-sa/3.0/

// !!! CODED TO WORK WITH ANTI-DELAY NODE MANAGER AND ONE OR MORE ANTI-DELAY NODE SCRIPTS !!! // http://wiki.secondlife.com/wiki/AntiDelay_Node

list   ADMINS = [ ]; // list all avatar names of your co-admins here, yourself included - defaults to just owner integer CHAN_MYRIAD = -999; integer HAND_MYRIAD; integer CHAN_SERVER; integer HAND_SERVER; float  MENU_TIMEOUT = 20; string MENU_TITLE = "Myriad Lite Rumor Server"; list   MENU_BUTTONS = ["RUMOR_LIST","RUMOR_MODERATE","RUMOR_CLOSE","RUMOR_RESET"]; vector GREEN = <0,1,0>; vector BLUE = <0,0,1>; vector RED = <1,0,0>; key    MENU_USER; list   TOKENS; string COMMAND; string NAME; string RUMOR; integer RUMOR_TIME = 30; // days list   PENDING; // [ TIME, NAME of Rumor Start, Rumor text with no commas, [ ... ]] list   RUMORS; // [ TIME, NAME of Rumor Start, Rumor text with no commas, [ ... ]] integer TIME; integer LENGTH; integer INDEX; list   TEMP; list   GETTERS; integer FLAG_DEBUG; integer FLAG_RESTART;

string notecardName = "SEED_RUMORS.txt"; integer lineCounter; key    dataRequestID;

CLEAN_RUMOR_LIST { // reset getters queue GETTERS = []; // scan rumor queue and timeout if ( llGetListLength(RUMORS) < 1 ) { return; } else { LENGTH = llGetListLength(RUMORS); for ( INDEX = 0; INDEX < LENGTH; INDEX += 3 ) { TIME = llList2Integer(RUMORS,INDEX); NAME = llList2String(RUMORS,INDEX + 1); RUMOR = llList2String(RUMORS,INDEX + 2); if ( TIME > llGetUnixTime ) TEMP = [ TIME,NAME,RUMOR ] + TEMP; }       RUMORS = [] + TEMP; TEMP = []; } }

DEBUG(string debugmsg) { if ( FLAG_DEBUG == TRUE ) llSay(DEBUG_CHANNEL,"("+llKey2Name(llGetOwner)+") RUMOR SERVER: "+debugmsg); }

SETUP { FLAG_DEBUG = FALSE; FLAG_RESTART = FALSE; if ( llGetListLength(ADMINS) < 1 ) { // if there are no admins listed ADMINS = [llKey2Name(llGetOwner)]; // add the server owner as an admin minimum }   if ( HAND_MYRIAD != 0 ) llListenRemove(HAND_MYRIAD); HAND_MYRIAD = llListen(CHAN_MYRIAD,"",NULL_KEY,""); CHAN_SERVER = (integer)("0x"+llGetSubString((string)llGetKey,0,6)); if ( HAND_SERVER != 0 ) llListenRemove(HAND_SERVER); HAND_SERVER = llListen(CHAN_SERVER,"",NULL_KEY,"");

llMessageLinked(LINK_THIS,-123,(string)llGetOwner+"Restarting Rumor Control and reading seed notecard.","instantmessage");

lineCounter = 0; dataRequestID = llGetNotecardLine(notecardName, lineCounter); }

RESET { llResetScript; } default { state_entry { SETUP; }

changed(integer changes) { if ( changes & CHANGED_INVENTORY ) { // someone changed rumor notecard, restart? if ( FLAG_RESTART == TRUE ) { RESET; }       }    }

dataserver(key queryid, string data) { //Check to make sure this is the request we are making. //Remember that when data comes back from the dataserver, //it goes to *all* scripts in your prim. //So you have to make sure this is the data you want, and //not data coming from some other script. if (dataRequestID) { //If we haven't reached the end of the file //Display the incoming data, then request the next line # if (data != EOF) { if ( llGetSubString(data,0,0) != "#" ) { // skip comment lines list tokens = llParseString2List(data,[","],[]); integer time = (llGetUnixTime + (RUMOR_TIME * 86400)); string rumormonger = llList2String(tokens,0); string rumor = llList2String(tokens,1); if ( llStringLength(rumormonger) > 4 && llStringLength(rumor) > 4 ) { // ignore blank rumor lines in notecard RUMORS = [ time, rumormonger, rumor ] + RUMORS; DEBUG("notecard: time=["+(string)time+"] rumormonger=["+rumormonger+"] rumor=["+rumor+"]"); }               }                dataRequestID = llGetNotecardLine(notecardName, ++lineCounter); } else { llSetColor(GREEN,ALL_SIDES); llMessageLinked(LINK_THIS,-123,(string)llGetOwner+"Restart complete. Now serving rumors.","instantmessage"); }       }    }

listen(integer channel,string name,key id,string msg) { DEBUG("listen: channel=["+(string)channel+"] name=["+name+"] id=["+(string)id+"] message=["+msg+"]");

integer replychan = (integer)("0x"+llGetSubString((string)llList2String(llGetObjectDetails(id,[OBJECT_OWNER]),0),0,6));

//       // Watch the region-wide channel for a HUD looking for the rumor server //       if ( channel == CHAN_MYRIAD ) { if ( msg == "RUMOR_SERVER_FIND" ) { // got a request to locate rumor server llRegionSay(replychan,"RUMOR_SERVER_FOUND"); // reply that we're found to give requester our UUID for calculating a dynamic channel return; }       }

//       // Handle messages sent specifically to the rumor server //       if ( channel == CHAN_SERVER ) { TOKENS = llParseString2List(msg,["|"],[]); // split on | pipe symbols COMMAND = llList2String(TOKENS,0); // first field is the command key who = llList2Key(llGetObjectDetails(id,[OBJECT_OWNER]),0); // who is interacting? string whoname = llKey2Name(who); //           //            if ( msg == "RUMOR_MAIN" ) { //llDialog(MENU_USER,MENU_TITLE,MENU_BUTTONS,MENU_CHANNEL); if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               llMessageLinked(LINK_THIS,-123,(string)who+""+MENU_TITLE+""+llList2CSV(MENU_BUTTONS)+""+(string)CHAN_SERVER,"dialog"); return; }

//           //            if ( msg == "RUMOR_RESET" ) { //llDialog(id,"ERASE EVERYTHING?\nARE YOU SURE?",["YES","NO","MAIN"],MENU_CHANNEL); if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               llMessageLinked(LINK_THIS,-123,(string)who+"ERASE EVERYTHING?\nARE YOU SURE?RUMOR_YES,RUMOR_NO,RUMOR_MAIN"+(string)CHAN_SERVER,"dialog"); return; }

//           //            if ( msg == "RUMOR_YES" ) { if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               RESET; return; }

//           //            if ( msg == "RUMOR_LIST" ) { if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               if ( llGetListLength(RUMORS) < 1 ) { //llInstantMessage(id,"No pending rumors. Start some."); llMessageLinked(LINK_THIS,-123,(string)who+"No active rumors. Start some.","instantmessage"); } else { LENGTH = llGetListLength(RUMORS); for ( INDEX = 0; INDEX < LENGTH; INDEX += 3 ) { // llInstantMessage(id,llList2String(RUMORS,INDEX + 1)+": "+llList2String(RUMORS, INDEX + 2)); llMessageLinked(LINK_THIS,-123,(string)who+""+llList2String(RUMORS,INDEX + 1)+": "+llList2String(RUMORS, INDEX + 2),"instantmessage"); }               }                return; }

//           //            if ( msg == "RUMOR_MODERATE" ) { if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               if ( llGetListLength(PENDING) < 1 ) { //llOwnerSay("No pending rumors. Start some."); llMessageLinked(LINK_THIS,-123,(string)who+"No pending rumors. Start some.","instantmessage"); } else { TIME = llList2Integer(PENDING,0); NAME = llList2String(PENDING,1); RUMOR = llList2String(PENDING,2); //llDialog(id,"Author: "+NAME+"\nRumor: "+RUMOR+"\nApprove Rumor?",["APPROVE","DENY","MAIN"],MENU_CHANNEL); llMessageLinked(LINK_THIS,-123,(string)who+"Author: "+NAME+"\nRumor: "+RUMOR+"\nApprove Rumor?RUMOR_APPROVE,RUMOR_DENY,RUMOR_MAIN"+(string)CHAN_SERVER,"dialog"); }               return; }

//           //            if ( msg == "RUMOR_APPROVE" ) { if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               RUMORS = [ TIME,NAME,RUMOR ] + RUMORS; PENDING = llDeleteSubList(PENDING,0,2); //llInstantMessage(id,"APPROVED: "+NAME+", "+RUMOR); llMessageLinked(LINK_THIS,-123,(string)who+"APPROVED: "+NAME+", "+RUMOR,"instantmessage"); if ( llGetListLength(PENDING) < 1 ) { llOwnerSay("No more rumors. Start some."); } else { TIME = llList2Integer(PENDING,0); NAME = llList2String(PENDING,1); RUMOR = llList2String(PENDING,2); //llDialog(id,"Author: "+NAME+"\nRumor: "+RUMOR+"\nApproved Rumor?",["APPROVE","DENY","MAIN"],MENU_CHANNEL); llMessageLinked(LINK_THIS,-123,(string)who+"Author: "+NAME+"\nRumor: "+RUMOR+"\nApprove Rumor?RUMOR_APPROVE,RUMOR_DENY,RUMOR_MAIN"+(string)CHAN_SERVER,"dialog"); }               return; }

//           //            if ( msg == "RUMOR_DENY" ) { if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               PENDING = llDeleteSubList(PENDING,0,2); //llInstantMessage(id,"DELETED Rumor."); llMessageLinked(LINK_THIS,-123,(string)who+"DELETED Rumor.","instantmessage"); if ( llGetListLength(PENDING) < 1 ) { //llOwnerSay("No more rumors. Start some."); llMessageLinked(LINK_THIS,-123,(string)who+"No more rumors. Start some.","instantmessage"); } else { TIME = llList2Integer(PENDING,0); NAME = llList2String(PENDING,1); RUMOR = llList2String(PENDING,2); //llDialog(id,"Author: "+NAME+"\nRumor: "+RUMOR+"\nApprove Rumor?",["APPROVE","DENY","MAIN"],MENU_CHANNEL); llMessageLinked(LINK_THIS,-123,(string)who+"Author: "+NAME+"\nRumor: "+RUMOR+"\nApprove Rumor?RUMOR_APPROVE,RUMOR_DENY,RUMOR_MAIN"+(string)CHAN_SERVER,"dialog"); }               return; }

//           //            if ( msg == "RUMOR_CLOSE" ) { //llWhisper(PUBLIC_CHANNEL,"Closing menu and resetting."); if ( llListFindList(ADMINS,[whoname]) < 0 ) { //llInstantMessage(MENU_USER,"You are not an Al Raqis Admin."); llMessageLinked(LINK_THIS,-123,(string)who+"You are not a Region Admin.","instantmessage"); MENU_USER = NULL_KEY; return; }               llMessageLinked(LINK_THIS,-123,(string)who+"Closing menu and resetting.","instantmessage"); return; }

//           //            if ( COMMAND == "RUMOR_GET" ) { if ( llGetListLength(RUMORS) < 1 ) { //llInstantMessage(llList2Key(TOKENS,1),"No rumors are circulating. Time to start some!"); llMessageLinked(LINK_THIS,-123,(string)who+"No rumors are circulating. Time to start some!","instantmessage"); return; }               if ( llListFindList(GETTERS,[who]) < 0 ) { if ( llGetFreeMemory < 256 ) GETTERS = []; GETTERS = [who,llGetUnixTime] + GETTERS; } else { if ( llListFindList(ADMINS,[whoname]) < 0 ) {// not an admin integer time = llList2Integer(GETTERS,llListFindList(GETTERS,[who])+1); if ( ( llGetUnixTime - time ) <= 600 ) { //llInstantMessage(who,"Please allow some time to pass before checking for more rumors."); llMessageLinked(LINK_THIS,-123,(string)who+"Please allow some time to pass before checking for more rumors.","instantmessage"); return; }                       }                }                INDEX = (integer)llFrand( (llGetListLength(RUMORS) / 3 ) ); //llInstantMessage(who,llList2String(RUMORS,INDEX + 2)); llMessageLinked(LINK_THIS,-123,(string)who+""+llList2String(RUMORS,(INDEX * 3) + 2),"instantmessage"); return; }

//           //            if ( COMMAND == "RUMOR_PUT" ) { NAME = llList2String(TOKENS,1); RUMOR = llList2String(TOKENS,2); // need a way for quests to add pre-approved rumors - if object adding rumor is owned by admin, pre-approve if ( llListFindList(ADMINS,[llKey2Name(llList2Key(llGetObjectDetails(id,[OBJECT_OWNER]),0))]) != -1 ) { RUMORS = [ (llGetUnixTime + (RUMOR_TIME * 86400)), NAME, RUMOR ] + RUMORS; llMessageLinked(LINK_THIS,-123,(string)llGetOwner+"RUMOR ADDED FOR "+NAME+": "+RUMOR,"instantmessage"); } else { //llOwnerSay("RUMORS: "+NAME+" WAITING FOR YOU TO APPROVE RUMOR: "+RUMOR); PENDING = [ (llGetUnixTime + (RUMOR_TIME * 86400)),NAME,RUMOR ] + PENDING; llMessageLinked(LINK_THIS,-123,(string)llGetOwner+"RUMORS: "+NAME+" WAITING FOR YOU TO APPROVE RUMOR: "+RUMOR,"instantmessage"); llMessageLinked(LINK_THIS,-123,(string)who+"Your rumor is pending approval.","instantmessage"); }           }        }    }

timer { CLEAN_RUMOR_LIST; } }