// Myriad_Lite_Region_Settings_Editor-P7a1-v0.0.0-20130928.lsl // Copyright (c) 2012-2013 by Allen Kerensky (OSG/SL) All Rights Reserved. // This work is dual-licensed under // Creative Commons Attribution (CC BY) 3.0 Unported // http://creativecommons.org/licenses/by/3.0/ // - or - // Modified BSD License (3-clause) // Redistribution and use in source and binary forms, with or without // modification, are permitted provided that the following conditions are met: // * Redistributions of source code must retain the above copyright notice, // this list of conditions and the following disclaimer. // * Redistributions in binary form must reproduce the above copyright notice, // this list of conditions and the following disclaimer in the documentation // and/or other materials provided with the distribution. // * Neither the name of Myriad Lite nor the names of its contributors may be // used to endorse or promote products derived from this software without // specific prior written permission. // // THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY EXPRESS OR // IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES // OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN // NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, // INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT // NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF // THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. // // The Myriad RPG System was designed, written, and illustrated by Ashok Desai // Myriad RPG System licensed under: // Creative Commons Attribution (CC BY) 2.0 UK: England and Wales // http://creativecommons.org/licenses/by/2.0/uk/ // FIXME // Fix button and view prim names to align to functions called // HELP BUTTON to give user manual // WIZARD BUTTON to give guided tour // VERSION CONTROL string VERSION = "0.0.0"; // Allen Kerensky's script version string VERSIONDATE = "20130928"; // Allen Kerensky's script yyyymmdd integer RENDEZVOUS2; // the dynamic rendezvous channel the server will be listening on integer CHANNEL; // our dynamic channel where the server can talk back to us integer HANDLE; // listener control handle string BUTTON; list PRIMS = []; string ASPECT; // singular aspect for record functions list RECORDLIST; integer CURRENTRECORD; // Field names for records string NAME; string GENERATOR; string UPDATER; string STATMIN; string SKILLMIN; string STATMAX; string SKILLMAX; string SUMMARY; string DESCRIPTION; string GENRES; string TYPE; string ACTIVATION; string ACTIONLIST; string BASESTAT; string ACTION; string GPPERLEVEL; string BOONMAX; string FLAWMAX; string STATPOOL; string SKILLPOOL; string PERSKILLS; string SFXPOOL; string HEALTHPOOL; string GPPOOL; string RESOURCES; string GPCOST; string STATLIST; string BOONLIST; string FLAWLIST; string SKILLLIST; string SFXLIST; string ITEMLIST; string RANGE; string DAMAGE; string RPCOST; string PERIOD; string BONUS; string RATING; integer FLAG_DEBUG; // SWITCH USER INTERFACE BUTTONS FOR EACH ASPECT TO EDIT // INPUT: 12 item list of texture names ["button1","button2",...,"button12"] // NOTE: a texture name of "" will remain blank SWITCHBUTTONS(list textures) { integer i = 0; for ( i = 0; i < 11; i++) { llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["BUTTON"+(string)(i+1)]),[PRIM_TEXTURE,2,"Blank",<1,1,1>,<0,0,0>,0.0]); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT"+(string)(i+1)]),[PRIM_TEXT,"",<1,1,1>,1]); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["BUTTON"+(string)(i+1)]),[PRIM_TEXTURE,2,llList2String(textures,i),<1,1,1>,<0,0,0>,0.0]); } } // break down the attribute names and values for each incoming aspect record TOKENPARSE(string msg) { // MSG FORMAT: COMMAND[|ATTRIBUTE=VALUE[|ATTRIBUTE=VALUE[|...]]] list tokens = llParseString2List(msg,["|"],[]); integer tokencount = llGetListLength(tokens); // process each attrib=value pair integer j; for ( j = 0; j <= tokencount; j++) { string currenttoken = llList2String(tokens,j); list attribvalpair = llParseString2List(currenttoken,["="],[]); string attrib = llToLower(llList2String(attribvalpair,0)); string sdata = llList2String(attribvalpair,1); if ( attrib == "name" ) NAME = sdata; if ( attrib == "generator" ) GENERATOR = sdata; if ( attrib == "updater" ) UPDATER = sdata; if ( attrib == "statmin" ) STATMIN = sdata; if ( attrib == "statmax" ) STATMAX = sdata; if ( attrib == "summary" ) SUMMARY = sdata; if ( attrib == "description" ) DESCRIPTION = sdata; if ( attrib == "skillmin" ) SKILLMIN = sdata; if ( attrib == "skillmax" ) SKILLMAX = sdata; if ( attrib == "genres" ) GENRES = sdata; if ( attrib == "type" ) TYPE = sdata; if ( attrib == "activation" ) ACTIVATION = sdata; if ( attrib == "actionlist" ) ACTIONLIST = sdata; if ( attrib == "basestat" ) BASESTAT = sdata; if ( attrib == "action" ) ACTION = sdata; if ( attrib == "gpperlevel" ) GPPERLEVEL = sdata; if ( attrib == "boonmax" ) BOONMAX = sdata; if ( attrib == "flawmax" ) FLAWMAX = sdata; if ( attrib == "statpool" ) STATPOOL = sdata; if ( attrib == "skillpool" ) SKILLPOOL = sdata; if ( attrib == "perskills" ) PERSKILLS = sdata; if ( attrib == "sfxpool" ) SFXPOOL = sdata; if ( attrib == "healthpool" ) HEALTHPOOL = sdata; if ( attrib == "gppool" ) GPPOOL = sdata; if ( attrib == "resources" ) RESOURCES = sdata; if ( attrib == "gpcost" ) GPCOST = sdata; if ( attrib == "statlist" ) STATLIST = sdata; if ( attrib == "boonlist" ) BOONLIST = sdata; if ( attrib == "flawlist" ) FLAWLIST = sdata; if ( attrib == "skilllist" ) SKILLLIST = sdata; if ( attrib == "sfxlist" ) SFXLIST = sdata; if ( attrib == "itemlist" ) ITEMLIST = sdata; if ( attrib == "range" ) RANGE = sdata; if ( attrib == "damage" ) DAMAGE = sdata; if ( attrib == "rpcost" ) RPCOST = sdata; if ( attrib == "period" ) PERIOD = sdata; if ( attrib == "bonus" ) BONUS = sdata; if ( attrib == "rating" ) RATING = sdata; } if ( ASPECT == "STATISTIC" ) UPDATEVIEW([NAME,GENERATOR,UPDATER,STATMIN,STATMAX,SUMMARY,DESCRIPTION,"","","",""]); if ( ASPECT == "SKILL" ) UPDATEVIEW([NAME,GENERATOR,UPDATER,SKILLMIN,SKILLMAX,SUMMARY,GENRES,DESCRIPTION,"","",""]); if ( ASPECT == "EFFECT" ) UPDATEVIEW([NAME,TYPE,ACTIVATION,ACTIONLIST,DESCRIPTION,"","","","","",""]); if ( ASPECT == "RESILIENCE") UPDATEVIEW([NAME,BASESTAT,TYPE,ACTION,DESCRIPTION,"","","","","",""]); if ( ASPECT == "BOON") UPDATEVIEW([NAME,TYPE,GPPERLEVEL,BOONMAX,DESCRIPTION,"","","","","",""]); if ( ASPECT == "FLAW") UPDATEVIEW([NAME,TYPE,GPPERLEVEL,FLAWMAX,DESCRIPTION,"","","","","",""]); if ( ASPECT == "CAMPAIGN") UPDATEVIEW([NAME,STATPOOL,SKILLPOOL,PERSKILLS,SFXPOOL,HEALTHPOOL,GPPOOL,STATMAX,SKILLMAX,RESOURCES,""]); if ( ASPECT == "SPECIE" ) UPDATEVIEW([NAME,GPCOST,STATLIST,BOONLIST,FLAWLIST,SFXLIST,SKILLLIST,ITEMLIST,DESCRIPTION,""]); if ( ASPECT == "BACKGROUND" ) UPDATEVIEW([NAME,GPCOST,STATLIST,BOONLIST,FLAWLIST,SFXLIST,SKILLLIST,ITEMLIST,DESCRIPTION,""]); if ( ASPECT == "CAREER" ) UPDATEVIEW([NAME,GPCOST,STATLIST,BOONLIST,FLAWLIST,SFXLIST,SKILLLIST,ITEMLIST,DESCRIPTION,""]); if ( ASPECT == "ITEM" ) UPDATEVIEW([NAME,TYPE,RANGE,DAMAGE,RPCOST,PERIOD,BONUS,RATING,ACTIVATION,ACTIONLIST,DESCRIPTION]); } // UPDATE HOVERTEXT PRIMS WITH CURRENT VALUES BY RECORD // INPUT: 12 item list of text values ["value1","value2",...,"value12"] // NOTE: use "" for empty values UPDATEVIEW(list values) { integer i = 0; for ( i = 0; i < 11; i++) { llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT"+(string)(i+1)]),[PRIM_TEXT,"",<1,1,1>,1]); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT"+(string)(i+1)]),[PRIM_TEXT,llList2String(values,i),<1,1,1>,1]); } } default { state_entry() { FLAG_DEBUG = FALSE; list details = llGetParcelDetails(<0,0,0>,[PARCEL_DETAILS_ID]); string parcelid = llList2String(details,0); RENDEZVOUS2 = (integer)("0x"+llGetSubString(parcelid,0,7)); llSay(PUBLIC_CHANNEL,"Rendezvous channel is "+(string)RENDEZVOUS2); integer prims = llGetNumberOfPrims(); integer i; for ( i = 0; i <= prims; i++ ) { string name = llList2String(llGetLinkPrimitiveParams(i,[PRIM_NAME]),0); PRIMS = PRIMS + [ name ]; // store name of prim in list to find its prim number fast later llSetLinkPrimitiveParamsFast(i,[PRIM_TEXT,"",<0,0,0>,0]); // clear any set hovertext } CHANNEL = (integer)("0x"+llGetSubString(llGetKey(),0,6)); if ( HANDLE != 0 ) llListenRemove(HANDLE); HANDLE = llListen(CHANNEL,"",NULL_KEY,""); ASPECT = "STATISTIC"; SWITCHBUTTONS(["Statistic_Name","Statistic_Generator","Statistic_Updater","Statistic_Minimum","Statistic_Maximum","Statistic_Summary","Statistic_Description","","","",""]); llRegionSay(RENDEZVOUS2,"LIST_"+ASPECT+"S"); llSay(PUBLIC_CHANNEL,llGetScriptName()+" (version "+VERSION+"-"+VERSIONDATE+") ready."); } //------------------------------------------------------------------------ listen(integer channel,string name,key id,string msg) { if ( FLAG_DEBUG == TRUE ) llSay(PUBLIC_CHANNEL,"DEBUG: channel=["+(string)channel+"] name=["+name+"] id=["+(string)id+"] msg=["+msg+"]"); if ( llGetSubString(msg,0,8) == "RESPONSE=" ) { llSay(PUBLIC_CHANNEL,"RESPONSE: "+llGetSubString(msg,9,-1)); return; } // check for empty list and record messages from server and ignore - this check saves lots of other if thens... list badmsgs = [ "STATISTICS|","STATISTIC|","SKILLS|","SKILL|","EFFECTS|","EFFECT|","RESILIENCES|","RESILIENCE|","BOONS|","BOON|","FLAWS|","FLAW|","CAMPAIGNS|","CAMPAIGN|","SPECIES|","SPECIE|","BACKGROUNDS|","BACKGROUND|","CAREERS|","CAREER|","ITEMS|","ITEM|"]; if ( llListFindList(badmsgs,[msg]) != -1 ) { RECORDLIST = []; CURRENTRECORD = 0; llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,"Empty List",<1,1,1>,1]); return; } if ( llGetSubString(msg,0,10) == "STATISTICS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,11,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nSTATISTIC "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_STATISTIC|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,6) == "SKILLS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,7,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nSKILL "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_SKILL|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,7) == "EFFECTS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,8,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nSFX "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_EFFECT|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,11) == "RESILIENCES|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,12,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nRESILIENCE "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_RESILIENCE|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,5) == "BOONS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,6,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nBOON "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_BOON|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,5) == "FLAWS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,6,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nFLAW "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_FLAW|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,9) == "CAMPAIGNS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,10,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nCAMPAIGN "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_CAMPAIGN|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,7) == "SPECIES|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,8,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nSPECIE "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_SPECIE|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,11) == "BACKGROUNDS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,12,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nBACKGROUND "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_BACKGROUND|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,7) == "CAREERS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,8,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nCAREER "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_CAREER|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } if ( llGetSubString(msg,0,5) == "ITEMS|" ) { RECORDLIST = llCSV2List(llGetSubString(msg,6,-1)); string current = llList2String(RECORDLIST,CURRENTRECORD)+"\nITEM "+((string)(CURRENTRECORD+1))+" of "+(string)llGetListLength(RECORDLIST); llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,current,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_ITEM|"+llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM)); return; } // Break down incoming messages that are individual records if ( llGetSubString(msg,0,9) == "STATISTIC|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,5) == "SKILL|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,6) == "EFFECT|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,10) == "RESILIENCE|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,4) == "BOON|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,4) == "FLAW|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,8) == "CAMPAIGN|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,6) == "SPECIE|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,10) == "BACKGROUND|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,6) == "CAREER|" ) { TOKENPARSE(msg); return;} if ( llGetSubString(msg,0,4) == "ITEM|" ) { TOKENPARSE(msg); return;} // // DELETE // if ( msg == "DELETE" ) { string currecord; list aspectlist = [ "STATISTIC","SKILL","EFFECT","RESILIENCE","BOON","FLAW","CAMPAIGN","SPECIE","BACKGROUND","CAREER","ITEM"]; if ( llListFindList(aspectlist,[ASPECT]) != -1 ) currecord = llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM); if ( currecord != "" ) { llSay(PUBLIC_CHANNEL,"Sending DELETE_"+ASPECT+" command to server:\n"+currecord); llRegionSay(RENDEZVOUS2,"DELETE_"+ASPECT+"|"+currecord); CURRENTRECORD=0; RECORDLIST=[]; } return; } if ( msg == "CLOSE" || msg == "CANCEL" || msg == "NO" ) { return; } if ( msg == "YES" ) { // save = yes string record; if ( ASPECT == "STATISTIC" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|GENERATOR="+GENERATOR+"|UPDATER="+UPDATER+"|STATMIN="+STATMIN+"|STATMAX="+STATMAX+"|SUMMARY="+SUMMARY+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "SKILL" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|GENERATOR="+GENERATOR+"|UPDATER="+UPDATER+"|SKILLMIN="+SKILLMIN+"|SKILLMAX="+SKILLMAX+"|SUMMARY="+SUMMARY+"|GENRES="+GENRES+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "EFFECT" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|TYPE="+TYPE+"|ACTIVATION="+ACTIVATION+"|ACTIONLIST="+ACTIONLIST+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "RESILIENCE" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|BASESTAT="+BASESTAT+"|TYPE="+TYPE+"|ACTION="+ACTION+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "BOON" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|TYPE="+TYPE+"|GPPERLEVEL="+GPPERLEVEL+"|BOONMAX="+BOONMAX+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "FLAW" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|TYPE="+TYPE+"|GPPERLEVEL="+GPPERLEVEL+"|FLAWMAX="+FLAWMAX+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "CAMPAIGN" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|STATPOOL="+STATPOOL+"|SKILLPOOL="+SKILLPOOL+"|PERSKILLS="+PERSKILLS+"|SFXPOOL="+SFXPOOL+"|HEALTHPOOL="+HEALTHPOOL+"|GPPOOL="+GPPOOL+"|STATMAX="+STATMAX+"|SKILLMAX="+SKILLMAX+"|RESOURCES="+RESOURCES; if ( ASPECT == "SPECIE" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|GPCOST="+GPCOST+"|STATLIST="+STATLIST+"|BOONLIST="+BOONLIST+"|FLAWLIST="+FLAWLIST+"|SFXLIST="+SFXLIST+"|SKILLLIST="+SKILLLIST+"|ITEMLIST="+ITEMLIST+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "BACKGROUND" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|GPCOST="+GPCOST+"|STATLIST="+STATLIST+"|BOONLIST="+BOONLIST+"|FLAWLIST="+FLAWLIST+"|SFXLIST="+SFXLIST+"|SKILLLIST="+SKILLLIST+"|ITEMLIST="+ITEMLIST+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "CAREER" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|GPCOST="+GPCOST+"|STATLIST="+STATLIST+"|BOONLIST="+BOONLIST+"|FLAWLIST="+FLAWLIST+"|SFXLIST="+SFXLIST+"|SKILLLIST="+SKILLLIST+"|ITEMLIST="+ITEMLIST+"|DESCRIPTION="+DESCRIPTION; if ( ASPECT == "ITEM" ) record = "REQUEST=CREATE|ASPECT="+ASPECT+"|NAME="+NAME+"|TYPE="+TYPE+"|RANGE="+RANGE+"|DAMAGE="+DAMAGE+"|RPCOST="+RPCOST+"|PERIOD="+PERIOD+"|BONUS="+BONUS+"|RATING="+RATING+"|ACTIVATION="+ACTIVATION+"|ACTIONLIST="+ACTIONLIST+"|DESCRIPTION="+DESCRIPTION; if ( record != "" ) { llSay(PUBLIC_CHANNEL,"Sending CREATE_"+ASPECT+" request to server:\n"+record); llRegionSay(RENDEZVOUS2,record); } return; } if ( msg == "RESET" ) { // reset confirmed llResetScript(); return; } integer i; if ( BUTTON == "BUTTON1" ) { i = llListFindList(PRIMS,["TEXT1"]); NAME = msg; llSay(PUBLIC_CHANNEL,ASPECT+" NAME set to "+NAME); } if ( BUTTON == "BUTTON2" ) { i = llListFindList(PRIMS,["TEXT2"]); if ( ASPECT == "STATISTIC" ) { GENERATOR = llToUpper(msg); if ( GENERATOR != "POINTBUY" && GENERATOR != "TEMPLATE" && GENERATOR != "RANDOM" ) { llSay(PUBLIC_CHANNEL,"Invalid STATISTIC GENERATOR specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"STATISTIC GENERATOR set to "+GENERATOR); } if ( ASPECT == "SKILL" ) { GENERATOR = llToUpper(msg); if ( GENERATOR != "POINTBUY" && GENERATOR != "TEMPLATE" && GENERATOR != "RANDOM" ) { llSay(PUBLIC_CHANNEL,"Invalid SKILL GENERATOR specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"SKILL GENERATOR set to "+GENERATOR); } if ( ASPECT == "EFFECT" ) { TYPE = llToUpper(msg); if ( TYPE != "MORTAL" && TYPE != "SOCIAL" && TYPE != "MAGIC" && TYPE != "VEHICLE" && TYPE != "ITEM" ) { llSay(PUBLIC_CHANNEL,"Invalid EFFECT TYPE specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"EFFECT TYPE set to "+TYPE); } if ( ASPECT == "RESILIENCE" ) { BASESTAT = msg; llSay(PUBLIC_CHANNEL,"RESILIENCE BASESTAT set to "+BASESTAT);} if ( ASPECT == "BOON" ) { TYPE = llToUpper(msg); if ( TYPE != "GENERAL" && TYPE != "RACIAL" ) { llSay(PUBLIC_CHANNEL,"Invalid BOON TYPE specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"BOON TYPE set to "+TYPE); } if ( ASPECT == "FLAW" ) { TYPE = llToUpper(msg); if ( TYPE != "GENERAL" && TYPE != "RACIAL" ) { llSay(PUBLIC_CHANNEL,"Invalid FLAW TYPE specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"FLAW TYPE set to "+TYPE); } if ( ASPECT == "CAMPAIGN" ) { STATPOOL = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN STATPOOL set to "+STATPOOL);} if ( ASPECT == "SPECIE" ) { GPCOST = msg; llSay(PUBLIC_CHANNEL,"SPECIE GPCOST set to "+GPCOST);} if ( ASPECT == "BACKGROUND" ) { GPCOST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND GPCOST set to "+GPCOST);} if ( ASPECT == "CAREER" ) { GPCOST = msg; llSay(PUBLIC_CHANNEL,"CAREER GPCOST set to "+GPCOST);} if ( ASPECT == "ITEM" ) { TYPE = msg; llSay(PUBLIC_CHANNEL,"ITEM TYPE set to "+TYPE);} } if ( BUTTON == "BUTTON3" ) { i = llListFindList(PRIMS,["TEXT3"]); if ( ASPECT == "STATISTIC" ) { UPDATER = llToUpper(msg); if ( UPDATER != "LEVEL" && UPDATER != "GRADUAL" && UPDATER != "RANDOM" ) { llSay(PUBLIC_CHANNEL,"Invalid STATISTIC UPDATER specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"STATISTIC UPDATER set to "+UPDATER); } if ( ASPECT == "SKILL" ) { UPDATER = llToUpper(msg); if ( UPDATER != "LEVEL" && UPDATER != "GRADUAL" && UPDATER != "RANDOM" ) { llSay(PUBLIC_CHANNEL,"Invalid SKILL UPDATER specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"SKILL UPDATER set to "+UPDATER); } if ( ASPECT == "EFFECT" ) { ACTIVATION = msg; llSay(PUBLIC_CHANNEL,"EFFECT ACTIVATION set to "+ACTIVATION);} if ( ASPECT == "RESILIENCE") { TYPE = llToUpper(msg); if ( TYPE != "NONCRITICAL" && TYPE != "CRITICAL" ) { llSay(PUBLIC_CHANNEL,"Invalid RESILIENCE TYPE specified. Please re-enter."); return; } llSay(PUBLIC_CHANNEL,"RESILIENCE TYPE set to "+TYPE); } if ( ASPECT == "BOON" ) { GPPERLEVEL = msg; llSay(PUBLIC_CHANNEL,"BOON GPPERLEVEL set to "+GPPERLEVEL);} if ( ASPECT == "FLAW" ) { GPPERLEVEL = msg; llSay(PUBLIC_CHANNEL,"FLAW GPPERLEVEL set to "+GPPERLEVEL);} if ( ASPECT == "CAMPAIGN" ) { SKILLPOOL = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN SKILLPOOL set to "+SKILLPOOL);} if ( ASPECT == "SPECIE" ){ STATLIST = msg; llSay(PUBLIC_CHANNEL,"SPECIE STATLIST set to "+STATLIST); } if ( ASPECT == "BACKGROUND" ){ STATLIST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND STATLIST set to "+STATLIST); } if ( ASPECT == "CAREER" ){ STATLIST = msg; llSay(PUBLIC_CHANNEL,"CAREER STATLIST set to "+STATLIST); } if ( ASPECT == "ITEM" ) { RANGE = msg; llSay(PUBLIC_CHANNEL,"ITEM RANGE set to "+RANGE);} } if ( BUTTON == "BUTTON4" ) { i = llListFindList(PRIMS,["TEXT4"]); if ( ASPECT == "STATISTIC" ) { STATMIN = msg; llSay(PUBLIC_CHANNEL,"STATISTIC MINIMUM set to "+STATMIN); } if ( ASPECT == "SKILL" ){ SKILLMIN = msg; llSay(PUBLIC_CHANNEL,"SKILL MINIMUM set to "+SKILLMIN); } if ( ASPECT == "EFFECT" ){ ACTIONLIST = msg; llSay(PUBLIC_CHANNEL,"EFFECT ACTIONLIST set to "+ACTIONLIST); } if ( ASPECT == "RESILIENCE" ){ ACTION = msg; llSay(PUBLIC_CHANNEL,"RESILIENCE ACTION set to "+ACTION); } if ( ASPECT == "BOON" ){ BOONMAX = msg; llSay(PUBLIC_CHANNEL,"BOON BOONMAX set to "+BOONMAX); } if ( ASPECT == "FLAW" ){ FLAWMAX = msg; llSay(PUBLIC_CHANNEL,"FLAW FLAWMAX set to "+FLAWMAX); } if ( ASPECT == "CAMPAIGN" ){ PERSKILLS = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN PERSKILLS set to "+PERSKILLS); } if ( ASPECT == "SPECIE" ){ BOONLIST = msg; llSay(PUBLIC_CHANNEL,"SPECIE BOONLIST set to "+BOONLIST); } if ( ASPECT == "BACKGROUND" ){ BOONLIST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND BOONLIST set to "+BOONLIST); } if ( ASPECT == "CAREER" ){ BOONLIST = msg; llSay(PUBLIC_CHANNEL,"CAREER BOONLIST set to "+BOONLIST); } if ( ASPECT == "ITEM" ){ DAMAGE = msg; llSay(PUBLIC_CHANNEL,"ITEM DAMAGE set to "+DAMAGE); } } if ( BUTTON == "BUTTON5" ) { i = llListFindList(PRIMS,["TEXT5"]); if ( ASPECT == "STATISTIC" ) { STATMAX = msg; llSay(PUBLIC_CHANNEL,"STATISTIC MAXIMUM set to "+STATMAX); } if ( ASPECT == "SKILL" ) { SKILLMAX = msg; llSay(PUBLIC_CHANNEL,"SKILL MAXIMUM set to "+SKILLMAX); } if ( ASPECT == "EFFECT" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"EFFECT DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "RESILIENCE" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"RESILIENCE DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "BOON" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"BOON DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "FLAW" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"FLAW DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "CAMPAIGN" ){ SFXPOOL = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN SFXPOOL set to "+SFXPOOL); } if ( ASPECT == "SPECIE" ){ FLAWLIST = msg; llSay(PUBLIC_CHANNEL,"SPECIE FLAWLIST set to "+FLAWLIST); } if ( ASPECT == "BACKGROUND" ){ FLAWLIST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND FLAWLIST set to "+FLAWLIST); } if ( ASPECT == "CAREER" ){ FLAWLIST = msg; llSay(PUBLIC_CHANNEL,"CAREER FLAWLIST set to "+FLAWLIST); } if ( ASPECT == "ITEM" ){ RPCOST = msg; llSay(PUBLIC_CHANNEL,"ITEM RPCOST set to "+RPCOST); } } if ( BUTTON == "BUTTON6" ) { i = llListFindList(PRIMS,["TEXT6"]); if ( ASPECT == "STATISTIC" ) { SUMMARY = msg; llSay(PUBLIC_CHANNEL,"STATISTIC SUMMARY set to "+SUMMARY); } if ( ASPECT == "SKILL" ) { SUMMARY = msg; llSay(PUBLIC_CHANNEL,"SKILL SUMMARY set to "+SUMMARY); } if ( ASPECT == "CAMPAIGN" ){ HEALTHPOOL = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN HEALTHPOOL set to "+HEALTHPOOL); } if ( ASPECT == "SPECIE" ){ SFXLIST = msg; llSay(PUBLIC_CHANNEL,"SPECIE SFXLIST set to "+SFXLIST); } if ( ASPECT == "BACKGROUND" ){ SFXLIST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND SFXLIST set to "+SFXLIST); } if ( ASPECT == "CAREER" ){ SFXLIST = msg; llSay(PUBLIC_CHANNEL,"CAREER SFXLIST set to "+SFXLIST); } if ( ASPECT == "ITEM" ){ PERIOD = msg; llSay(PUBLIC_CHANNEL,"ITEM PERIOD set to "+PERIOD); } } if ( BUTTON == "BUTTON7" ) { i = llListFindList(PRIMS,["TEXT7"]); if ( ASPECT == "STATISTIC" ) { DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"STATISTIC DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "SKILL" ) { GENRES = msg; llSay(PUBLIC_CHANNEL,"SKILL GENRES set to "+GENRES); } if ( ASPECT == "CAMPAIGN" ){ GPPOOL = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN GPPOOL set to "+GPPOOL); } if ( ASPECT == "SPECIE" ){ SKILLLIST = msg; llSay(PUBLIC_CHANNEL,"SPECIE SKILLLIST set to "+SKILLLIST); } if ( ASPECT == "BACKGROUND" ){ SKILLLIST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND SKILLLIST set to "+SKILLLIST); } if ( ASPECT == "CAREER" ){ SKILLLIST = msg; llSay(PUBLIC_CHANNEL,"CAREER SKILLLIST set to "+SKILLLIST); } if ( ASPECT == "ITEM" ){ BONUS = msg; llSay(PUBLIC_CHANNEL,"ITEM BONUS set to "+BONUS); } } if ( BUTTON == "BUTTON8" ) { i = llListFindList(PRIMS,["TEXT8"]); if ( ASPECT == "SKILL" ) { DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"SKILL DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "CAMPAIGN" ){ STATMAX = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN STATMAX set to "+STATMAX); } if ( ASPECT == "SPECIE" ){ ITEMLIST = msg; llSay(PUBLIC_CHANNEL,"SPECIE ITEMLIST set to "+ITEMLIST); } if ( ASPECT == "BACKGROUND" ){ ITEMLIST = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND ITEMLIST set to "+ITEMLIST); } if ( ASPECT == "CAREER" ){ ITEMLIST = msg; llSay(PUBLIC_CHANNEL,"CAREER ITEMLIST set to "+ITEMLIST); } if ( ASPECT == "ITEM" ){ RATING = msg; llSay(PUBLIC_CHANNEL,"ITEM RATING set to "+RATING); } } if ( BUTTON == "BUTTON9" ) { i = llListFindList(PRIMS,["TEXT9"]); if ( ASPECT == "CAMPAIGN" ){ SKILLMAX = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN SKILLMAX set to "+SKILLMAX); } if ( ASPECT == "SPECIE" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"SPECIE DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "BACKGROUND" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"BACKGROUND DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "CAREER" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"CAREER DESCRIPTION set to "+DESCRIPTION); } if ( ASPECT == "ITEM" ){ ACTIVATION = msg; llSay(PUBLIC_CHANNEL,"ITEM ACTIVATION set to "+ACTIVATION); } } if ( BUTTON == "BUTTON10" ) { i = llListFindList(PRIMS,["TEXT10"]); if ( ASPECT == "CAMPAIGN" ){ RESOURCES = msg; llSay(PUBLIC_CHANNEL,"CAMPAIGN RESOURCES set to "+RESOURCES); } if ( ASPECT == "ITEM" ){ ACTIONLIST = msg; llSay(PUBLIC_CHANNEL,"ITEM ACTIONLIST set to "+ACTIONLIST); } } if ( BUTTON == "BUTTON11" ) { i = llListFindList(PRIMS,["TEXT11"]); if ( ASPECT == "ITEM" ){ DESCRIPTION = msg; llSay(PUBLIC_CHANNEL,"ITEM DESCRIPTION set to "+DESCRIPTION); } } llSetLinkPrimitiveParamsFast(i,[PRIM_TEXT,msg,<1,1,1>,1]); } //------------------------------------------------------------------------ touch_start(integer touched) { if ( FLAG_DEBUG == TRUE ) llSay(PUBLIC_CHANNEL,"DEBUG: touched=["+(string)touched+"]"); key touchedby = llDetectedKey(0); integer primnumber = llDetectedLinkNumber(0); string name = llGetLinkName(primnumber); BUTTON = name; // process the aspect buttons if ( name == "STATISTICS" ) { ASPECT = "STATISTIC"; CURRENTRECORD = 0; SWITCHBUTTONS(["Statistic_Name","Statistic_Generator","Statistic_Updater","Statistic_Minimum","Statistic_Maximum","Statistic_Summary","Statistic_Description","","","",""]); llRegionSay(RENDEZVOUS2,"LIST_STATISTICS"); return; } if ( name == "SKILLS" ) { ASPECT = "SKILL"; CURRENTRECORD = 0; SWITCHBUTTONS(["Skill_Name","Skill_Generator","Skill_Updater","Skill_Minimum","Skill_Maximum","Skill_Summary","Skill_Genres","Skill_Description","","",""]); llRegionSay(RENDEZVOUS2,"LIST_SKILLS"); return; } if ( name == "EFFECTS" ) { ASPECT = "EFFECT"; CURRENTRECORD = 0; SWITCHBUTTONS(["SFX_Name","SFX_Type","SFX_Activation","SFX_ActionList","SFX_Description","","","","","",""]); llRegionSay(RENDEZVOUS2,"LIST_EFFECTS"); return; } if ( name == "RESILIENCES" ) { ASPECT = "RESILIENCE"; CURRENTRECORD = 0; SWITCHBUTTONS(["Resilience_Name","Resilience_BaseStat","Resilience_Type","Resilience_Action","Resilience_Description","","","","","",""]); llRegionSay(RENDEZVOUS2,"LIST_RESILIENCES"); return; } if ( name == "BOONS" ) { ASPECT = "BOON"; CURRENTRECORD = 0; SWITCHBUTTONS(["Boon_Name","Boon_Type","Boon_GPperLevel","Boon_Maximum","Boon_Description","","","","","",""]); llRegionSay(RENDEZVOUS2,"LIST_BOONS"); return; } if ( name == "FLAWS" ) { ASPECT = "FLAW"; CURRENTRECORD = 0; SWITCHBUTTONS(["Flaw_Name","Flaw_Type","Flaw_GPperLevel","Flaw_Maximum","Flaw_Description","","","","","",""]); llRegionSay(RENDEZVOUS2,"LIST_FLAWS"); return; } if ( name == "CAMPAIGNS" ) { ASPECT = "CAMPAIGN"; CURRENTRECORD = 0; SWITCHBUTTONS(["Campaign_Name","Campaign_StatPool","Campaign_SkillPool","Campaign_PerSkills","Campaign_SFXPool","Campaign_HealthPool","Campaign_GPPool","Campaign_MaxStat","Campaign_MaxSkill","Campaign_Resources",""]); llRegionSay(RENDEZVOUS2,"LIST_CAMPAIGNS"); return; } if ( name == "SPECIES" ) { ASPECT = "SPECIE"; CURRENTRECORD = 0; SWITCHBUTTONS(["Species_Name","Species_GPCost","Species_StatList","Species_BoonList","Species_FlawList","Species_SFXList","Species_SkillList","Species_ItemList","Species_Description","",""]); llRegionSay(RENDEZVOUS2,"LIST_SPECIES"); return; } if ( name == "BACKGROUNDS" ) { ASPECT = "BACKGROUND"; CURRENTRECORD = 0; SWITCHBUTTONS(["Background_Name","Background_GPCost","Background_StatList","Background_BoonList","Background_FlawList","Background_SFXList","Background_SkillList","Background_ItemList","Background_Description","",""]); llRegionSay(RENDEZVOUS2,"LIST_BACKGROUNDS"); return; } if ( name == "CAREERS" ) { ASPECT = "CAREER"; CURRENTRECORD = 0; SWITCHBUTTONS(["Career_Name","Career_GPCost","Career_StatList","Career_BoonList","Career_FlawList","Career_SFXList","Career_SkillList","Career_ItemList","Career_Description","",""]); llRegionSay(RENDEZVOUS2,"LIST_CAREERS"); return; } if ( name == "ITEMS" ) { ASPECT = "ITEM"; CURRENTRECORD = 0; SWITCHBUTTONS(["Item_Name","Item_Type","Item_Range","Item_Damage","Item_RPCost","Item_Period","Item_Bonus","Item_Rating","Item_Activation","Item_Effects","Item_Description"]); llRegionSay(RENDEZVOUS2,"LIST_ITEMS"); return; } // process list buttons if ( name == "BUTTON_TOP" ) { string current; integer len; string out; CURRENTRECORD = 0; current = llList2String(RECORDLIST,CURRENTRECORD); len = llGetListLength(RECORDLIST); if ( len != 0 ) { out = current + "\n"+ASPECT+" "+((string)(CURRENTRECORD+1))+" of "+(string)len; llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,out,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_"+ASPECT+"|"+current); } return; } if ( name == "BUTTON_PREV" ) { string current; integer len; string out; CURRENTRECORD--; if ( CURRENTRECORD < 0 ) CURRENTRECORD = 0; current = llList2String(RECORDLIST,CURRENTRECORD); len = llGetListLength(RECORDLIST); if ( len != 0 ) { out = current + "\n"+ASPECT+" "+((string)(CURRENTRECORD+1))+" of "+(string)len; llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,out,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_"+ASPECT+"|"+current); } return; } if ( name == "BUTTON_NEXT" ) { string current; integer len; string out; // split lists like this is ugly but needed due to variable length lists for each aspect len = llGetListLength(RECORDLIST); if ( len != 0 ) { CURRENTRECORD++; // add one to current if ( CURRENTRECORD >= len ) CURRENTRECORD = len - 1; // check we didn't run off the end of current list if ( CURRENTRECORD < 0 ) CURRENTRECORD = 0; // now find list item based on updated record value current = llList2String(RECORDLIST,CURRENTRECORD); out = current + "\n"+ASPECT+" "+((string)(CURRENTRECORD+1))+" of "+(string)len; llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,out,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_"+ASPECT+"|"+current); } return; } if ( name == "BUTTON_BOTTOM" ) { string current; integer len; string out; len = llGetListLength(RECORDLIST); if ( len != 0 ) { // now set current record to end of current list CURRENTRECORD = len - 1; // make sure to sanity check the values before looking things up in lists if ( CURRENTRECORD >= len ) CURRENTRECORD = len - 1; if ( CURRENTRECORD < 0 ) CURRENTRECORD = 0; // now that we know the record number, load the specific aspect's record name current = llList2String(RECORDLIST,CURRENTRECORD); out = current + "\n"+ASPECT+" "+((string)(CURRENTRECORD+1))+" of "+(string)len; llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,out,<1,1,1>,1]); llRegionSay(RENDEZVOUS2,"GET_"+ASPECT+"|"+current); } return; } // process action buttons if ( name == "BUTTON_NEW" ) { llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT_LIST"]),[PRIM_TEXT,"CREATING NEW",<1,1,1>,1]); integer count = 11; while ( count-- ) { llSetLinkPrimitiveParamsFast(llListFindList(PRIMS,["TEXT"+(string)count]),[PRIM_TEXT,"",<1,1,1>,1]); } NAME=""; GENERATOR=""; UPDATER=""; STATMIN=""; SKILLMIN=""; STATMAX=""; SKILLMAX=""; SUMMARY=""; DESCRIPTION=""; GENRES=""; TYPE=""; ACTIVATION=""; ACTIONLIST=""; BASESTAT=""; ACTION=""; GPPERLEVEL=""; BOONMAX=""; FLAWMAX=""; STATPOOL=""; SKILLPOOL=""; SFXPOOL=""; HEALTHPOOL=""; GPPOOL=""; RESOURCES=""; GPCOST=""; STATLIST=""; BOONLIST=""; FLAWLIST=""; SKILLLIST=""; SFXLIST=""; ITEMLIST=""; RANGE=""; DAMAGE=""; RPCOST=""; PERIOD=""; BONUS=""; RATING=""; llSay(PUBLIC_CHANNEL,"Ready to start creating a new Myriad Lite record using the buttons to the right."); return; } if ( name == "BUTTON_DELETE" ) { string currecord; currecord = llStringTrim(llList2String(RECORDLIST,CURRENTRECORD),STRING_TRIM); if ( currecord != "" ) { llDialog(touchedby,"Delete "+ASPECT+" "+currecord+"?",["DELETE","CLOSE"],CHANNEL); } return; } if ( name == "SAVE" ) { llDialog(llDetectedKey(0),"Are You Sure?",["YES","NO","CLOSE"],CHANNEL); } if ( name == "RESET" ) { llDialog(llDetectedKey(0),"Are You Sure?",["RESET","CANCEL","CLOSE"],CHANNEL); } // process dynamic buttons if ( name == "BUTTON1" ) { if ( ASPECT == "STATISTIC" ) llTextBox(touchedby,"What Is This Statistic's NAME?",CHANNEL); if ( ASPECT == "SKILL" ) llTextBox(touchedby,"What Is This Skill's NAME?",CHANNEL); if ( ASPECT == "EFFECT" ) llTextBox(touchedby,"What is this Effect's NAME?",CHANNEL); if ( ASPECT == "RESILIENCE") llTextBox(touchedby,"What is this Resilience's NAME?",CHANNEL); if ( ASPECT == "BOON" ) llTextBox(touchedby,"What is this Boon's NAME?",CHANNEL); if ( ASPECT == "FLAW" ) llTextBox(touchedby,"What is this Flaw's NAME?",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's NAME?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' NAME?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's NAME?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's NAME?",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's NAME?",CHANNEL); return; } if ( name == "BUTTON2" ) { if ( ASPECT == "STATISTIC" ) llDialog(touchedby,"How will players GENERATE this Statistic?",["RANDOM","TEMPLATE","POINTBUY"],CHANNEL); if ( ASPECT == "SKILL" ) llDialog(touchedby,"How will players GENERATE this Skill?",["RANDOM","TEMPLATE","POINTBUY"],CHANNEL); if ( ASPECT == "EFFECT" ) llDialog(touchedby,"What TYPE of SFX is this?",["MORTAL","SOCIAL","MAGIC","VEHICLE","ITEM"],CHANNEL); if ( ASPECT == "RESILIENCE") llTextBox(touchedby,"What is this Resilience's BASESTAT?",CHANNEL); if ( ASPECT == "BOON" ) llDialog(touchedby,"What is this Boon's TYPE?",["GENERAL","RACIAL"],CHANNEL); if ( ASPECT == "FLAW" ) llDialog(touchedby,"What is this Flaw's TYPE?",["GENERAL","RACIAL"],CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's STATPOOL?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' GPCOST?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's GPCOST?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's GPCOST?",CHANNEL); if ( ASPECT == "ITEM") llDialog(touchedby,"What is this Item's TYPE?",["WEAPON","ARMOR","ACCESSORY","ESSENTIAL","ENHANCER","SFX"],CHANNEL); return; } if ( name == "BUTTON3" ) { if ( ASPECT == "STATISTIC" ) llDialog(touchedby,"How will players UPDATE this Statistic?",["LEVEL","GRADUAL","RANDOM"],CHANNEL); if ( ASPECT == "SKILL" ) llDialog(touchedby,"How will players UPDATE this Skill?",["LEVEL","GRADUAL","RANDOM"],CHANNEL); if ( ASPECT == "EFFECT" ) llTextBox(touchedby,"What is this Effect's ACTIVATION?",CHANNEL); if ( ASPECT == "RESILIENCE") llDialog(touchedby,"What is this Resilience's TYPE?",["NONCRITICAL","CRITICAL"],CHANNEL); if ( ASPECT == "BOON" ) llTextBox(touchedby,"What is this Boon's GPPERLEVEL?",CHANNEL); if ( ASPECT == "FLAW" ) llTextBox(touchedby,"What is this Flaw's GPPERLEVEL?",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's SKILLPOOL?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' STATLIST (CSV)?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's STATLIST (CSV)?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's STATLIST (CSV)?",CHANNEL); if ( ASPECT == "ITEM") llDialog(touchedby,"What is this Item's RANGE?",["MELEE","SHORT","MEDIUM","LONG"],CHANNEL); return; } if ( name == "BUTTON4" ) { if ( ASPECT == "STATISTIC" ) llTextBox(touchedby,"Type in the MINIMUM allowed value for this new Statistic:\n1 for Myriad",CHANNEL); if ( ASPECT == "SKILL" ) llTextBox(touchedby,"Type in the MINIMUM allowed value for this new Skill:\n1 for Myriad",CHANNEL); if ( ASPECT == "EFFECT" ) llTextBox(touchedby,"What is this Effect's ACTIONLIST (CSV)?",CHANNEL); if ( ASPECT == "RESILIENCE") llTextBox(touchedby,"What is this Resilience's ACTION?",CHANNEL); if ( ASPECT == "BOON" ) llTextBox(touchedby,"What is this Boon's MAXIMUM?",CHANNEL); if ( ASPECT == "FLAW" ) llTextBox(touchedby,"What is this Flaw's MAXIMUM?",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's PERSKILLS?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' BOONLIST (CSV)?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's BOONLIST (CSV)?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's BOONLIST (CSV)?",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's DAMAGE?",CHANNEL); return; } if ( name == "BUTTON5" ) { if ( ASPECT == "STATISTIC" ) llTextBox(touchedby,"Type in the MAXIMUM allowed value for this new Statistic:\n10 for Myriad",CHANNEL); if ( ASPECT == "SKILL" ) llTextBox(touchedby,"Type in the MAXIMUM allowed value for this new Skill:\n5 for Myriad",CHANNEL); if ( ASPECT == "EFFECT" ) llTextBox(touchedby,"What is this Effect's DESCRIPTION?",CHANNEL); if ( ASPECT == "RESILIENCE") llTextBox(touchedby,"What is this Resilience's DESCRIPTION?",CHANNEL); if ( ASPECT == "BOON" ) llTextBox(touchedby,"What is this Boon's DESCRIPTION?",CHANNEL); if ( ASPECT == "FLAW" ) llTextBox(touchedby,"What is this Flaw's DESCRIPTION?",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's SFXPOOL?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' FLAWLIST (CSV)?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's FLAWLIST (CSV)?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's FLAWLIST (CSV)?",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's RPCOST?",CHANNEL); return; } if ( name == "BUTTON6" ) { if ( ASPECT == "STATISTIC" ) llTextBox(touchedby,"Type in a brief SUMMARY of this new Statistic:",CHANNEL); if ( ASPECT == "SKILL" ) llTextBox(touchedby,"Type in a brief SUMMARY of this new Skill:",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's HEALTHPOOL?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' SFXLIST (CSV)?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's SFXLIST (CSV)?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's SFXLIST (CSV)?",CHANNEL); if ( ASPECT == "ITEM") llDialog(touchedby,"What is this Item's PERIOD?",["ARCHAIC","MODERN","FUTURISTIC"],CHANNEL); return; } if ( name == "BUTTON7" ) { if ( ASPECT == "STATISTIC" ) llTextBox(touchedby,"Type in a long DESCRIPTION of this new Statistic:",CHANNEL); if ( ASPECT == "SKILL" ) llTextBox(touchedby,"Which GENRES does this skill belong to?\nGENERAL, MEDIEVAL, MODERN, FUTURISTIC, FANTASY, SCIENCE-FICTION, or HORROR\n(CSV List)",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's GPPOOL?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' SKILLLIST (CSV)?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's SKILLLIST (CSV)?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's SKILLLIST (CSV)",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's BONUS?",CHANNEL); return; } if ( name == "BUTTON8" ) { if ( ASPECT == "SKILL" ) llTextBox(touchedby,"Type in a long DESCRIPTION of this new Skill:",CHANNEL); if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's STATMAX?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' ITEMLIST (CSV)?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's ITEMLIST (CSV)?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's ITEMLIST (CSV)?",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's RATING?",CHANNEL); return; } if ( name == "BUTTON9" ) { if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's SKILLMAX?",CHANNEL); if ( ASPECT == "SPECIE" ) llTextBox(touchedby,"What is this Species' DESCRIPTION?", CHANNEL); if ( ASPECT == "BACKGROUND") llTextBox(touchedby,"What is this Background's DESCRIPTION?",CHANNEL); if ( ASPECT == "CAREER" ) llTextBox(touchedby,"What is this Career's DESCRIPTION?",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's ACTIVATION?",CHANNEL); return; } if ( name == "BUTTON10" ) { if ( ASPECT == "CAMPAIGN" ) llTextBox(touchedby,"What is this Campaign's RESOURCES?",CHANNEL); if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's ACTIONLIST (CSV)?",CHANNEL); return; } if ( name == "BUTTON11" ) { if ( ASPECT == "ITEM") llTextBox(touchedby,"What is this Item's DESCRIPTION?",CHANNEL); return; } } }