Allen Kerensky: moved User:Allen Kerensky:Myriad Lite Preview 5:Creator Controller to User:Allen Kerensky/Myriad Lite Preview 5/Creator Controller: move into subsite

2012-02-06T22:44:41Z

moved User:Allen Kerensky:Myriad Lite Preview 5:Creator Controller to User:Allen Kerensky/Myriad Lite Preview 5/Creator Controller: move into subsite

Allen Kerensky: created

2012-02-06T19:53:04Z

created

New page

= Myriad Lite Creator Controller =

== Myriad_Lite_Creator_Controller-v0.0.1-20120203.lsl ==
<nowiki>
// Myriad_Lite_Creator_Controller-v0.0.1-20120203.lsl
// Copyright (c) 2012 By Allen Kerensky (OSG/SL)
// 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-2012 by Allen Kerensky (OSG/SL)
// Baroun's Adventure Machine Copyright (c) 2008-2011 by Baroun Tardis (SL)
// Myriad Lite and Baroun's Adventure Machine licensed under the
// Creative Commons Attribution-Share Alike-Non-Commercial 3.0 Unported
// http://creativecommons.org/licenses/by-nc-sa/3.0/
// You must agree to the terms of this license before making any use of this software.
// If you do not agree to this license, simply delete these materials.
// There is no warranty, express or implied, for your use of these materials.

integer CHANOBJECT;
integer HANDOBJECT;
integer CHANMYRIAD = -999;
integer HANDMYRIAD;
integer CHANCOMMAND = 5;
integer HANDCOMMAND;

string REGION_GENERATOR;

vector OFFSET = <0,0,1.0>;
key POSER; // who is sitting here
string ANIM = "turn_180";
//string ANIM = "SpiceFloat5";

SETUP() {
llSetText("Myriad Lite Character Builder (Prototype)\nSit Here To Begin",<1,0,0>,1);
llSitTarget(OFFSET,ZERO_ROTATION);
llSetSitText("> BUILD <");
// calculate listener channel
CHANOBJECT = (integer)("0x"+llGetSubString((string)llGetKey(),0,6));
// release previous object channel
if ( HANDOBJECT != 0 ) llListenRemove(HANDOBJECT);
// start object-specific listener
HANDOBJECT = llListen(CHANOBJECT,"",NULL_KEY,"");
// release previous Myriad channel
if ( HANDMYRIAD != 0 ) llListenRemove(HANDMYRIAD);
// listen on Myriad region event channel
HANDMYRIAD = llListen(CHANMYRIAD,"",NULL_KEY,"");
// release previous command channel
if ( HANDCOMMAND != 0 ) llListenRemove(HANDCOMMAND);
// listen on Myriad region event channel
HANDCOMMAND = llListen(CHANCOMMAND,"",NULL_KEY,"");
// search all prims for prims to show output on, by name
integer numprims = llGetNumberOfPrims();
integer i;
for ( i=2; i <= numprims; i++) {
llSetLinkPrimitiveParamsFast(i,[PRIM_TEXT,"",<0,0,0>,0]);
}
}

COMMAND(string cmd ) {
if ( cmd == "NEXT CATEGORY" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "PREV CATEGORY" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "NEXT ITEM" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "PREV ITEM" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "BUY ITEM" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "SELL ITEM" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "SAVE" ) { llMessageLinked(LINK_THIS,0,cmd,NULL_KEY); return; }
if ( cmd == "RESET" ) { RESET(); return; }
}

RESET() {
llMessageLinked(LINK_THIS,0,"RESET",NULL_KEY);
key who = llAvatarOnSitTarget();
if ( who != NULL_KEY ) { llUnSit(who); }
llResetScript();
}

default {
state_entry() {
SETUP();
llRegionSay(CHANMYRIAD,"LIST_REGION_SETTINGS");
}

listen(integer channel,string name,key id,string message) {
name = ""; // LSLINT
id = NULL_KEY; // LSLINT
if ( channel == CHANOBJECT ) {
if ( llSubStringIndex(message,"REGION_SETTING") == 0 ) {
// Parse non-comment lines in keyword = value[,value,...] format
list FIELDS = llParseString2List(message,["|"],[]); // break line of text into = delimited fields
string SUBFIELD = llStringTrim(llList2String(FIELDS,1),STRING_TRIM); // field one is the data
list SUBFIELDS = llParseString2List(SUBFIELD,["="],[]);
string CMD = llList2String(SUBFIELDS,0);
string DATA = llList2String(SUBFIELDS,1); // break data field into comma-delimited subfields if needed
if ( CMD == "GENERATORS" ) {
REGION_GENERATOR = llList2String(llCSV2List(DATA),0);
llOwnerSay("REGION_GENERATOR = "+REGION_GENERATOR);
if ( REGION_GENERATOR == "Random" ) {
llSetScriptState("Myriad_Lite_Creator_Random-v0.0.1-20120203.lsl",TRUE);
llSetScriptState("Myriad_Lite_Creator_Template-v0.0.1-20120203.lsl",FALSE);
llSetScriptState("Myriad_Lite_Creator_Points-v0.0.1-20120203.lsl",FALSE);
}
if ( REGION_GENERATOR == "Template" ) {
llSetScriptState("Myriad_Lite_Creator_Random-v0.0.1-20120203.lsl",FALSE);
llSetScriptState("Myriad_Lite_Creator_Template-v0.0.1-20120203.lsl",TRUE);
llSetScriptState("Myriad_Lite_Creator_Points-v0.0.1-20120203.lsl",FALSE);
}
if ( REGION_GENERATOR == "Points-Based" ) {
llSetScriptState("Myriad_Lite_Creator_Random-v0.0.1-20120203.lsl",FALSE);
llSetScriptState("Myriad_Lite_Creator_Template-v0.0.1-20120203.lsl",FALSE);
llSetScriptState("Myriad_Lite_Creator_Points-v0.0.1-20120203.lsl",TRUE);
}
}
return;
}
return;
}
}

changed(integer change) {
if ( change & CHANGED_LINK ) {
POSER = llAvatarOnSitTarget();
if ( POSER != NULL_KEY ) {
llRequestPermissions(POSER,PERMISSION_TRIGGER_ANIMATION);
} else {
RESET();
}
}
}

run_time_permissions(integer perm) {
if ( perm & PERMISSION_TRIGGER_ANIMATION ) {
llStopAnimation("sit");
llStartAnimation(ANIM);
llMessageLinked(LINK_THIS,0,"UPDATE",NULL_KEY);
}
}

touch_start(integer total_number) {
total_number = 0; // LSLINT
string primname = llGetLinkName(llDetectedLinkNumber(0));
COMMAND(primname);
}
}
</nowiki>

User:Allen Kerensky/Myriad Lite Preview 5/Creator Controller - Revision history

Allen Kerensky: moved User:Allen Kerensky:Myriad Lite Preview 5:Creator Controller to User:Allen Kerensky/Myriad Lite Preview 5/Creator Controller: move into subsite

Allen Kerensky: created