Difference between revisions of "User:Chilli Cao/code"
Chilli Cao (talk | contribs) |
Chilli Cao (talk | contribs) |
||
| Line 18: | Line 18: | ||
printlist(list l){integer i;for (i=0;i<llGetListLength(l);i++){s("printlist("+(string)i+"):"+llList2String(l,i));} s("printlist Total:"+(string)llGetListLength(l)+" elements");} | printlist(list l){integer i;for (i=0;i<llGetListLength(l);i++){s("printlist("+(string)i+"):"+llList2String(l,i));} s("printlist Total:"+(string)llGetListLength(l)+" elements");} | ||
//toggle function: to switch something on and off | |||
integer toggle=1;//startup as OFF | integer toggle=1;//startup as OFF | ||
toggleme(integer current){ | toggleme(integer current){ | ||
| Line 40: | Line 41: | ||
toggleme(toggle);//toggle the toggler | toggleme(toggle);//toggle the toggler | ||
//toggleme(0);//force toggle to ON | //toggleme(0);//force toggle to ON | ||
} | } | ||
} | } | ||
| Line 46: | Line 46: | ||
llResetScript(); | llResetScript(); | ||
} | } | ||
changed(integer change){ if(change & CHANGED_OWNER){ | changed(integer change){ if(change & CHANGED_OWNER){llResetScript();} | ||
} | } | ||
link_message(integer sender_number, integer number, string message, key id){ | link_message(integer sender_number, integer number, string message, key id){ | ||
Revision as of 12:02, 24 January 2008
This is a template I use to start scripts from. It includes most commonly used event handlers and some text output wrappers for debuging, such as s() for say (to comment/uncomment the one needed), st() for settext, printlist to dump a list and a toggle function. Its meant to delete in opt-out manner whats not needed instead of looking at LSL API on how to do them.
<lsl> //chc-template 0.1 // posted on my wiki page, basicaly as a wiki-lsl-code test //globals: key owner; integer lchan=0;//or any or DEBUG_CHANNEL integer timer_count=0; float PERIOD=0.0; //timer frequency
//debug/helper wrappers: integer verbose=1;s(string s){if (verbose){llOwnerSay(s);}} //integer verbose=1;s(string s){if (verbose){Say(0,s);}} //integer verbose=1;s(string s){if (verbose){llInstantMessage(owner,s);}} st(string s){llSetText(s, <1,1,1>, 1.0);} printlist(list l){integer i;for (i=0;i<llGetListLength(l);i++){s("printlist("+(string)i+"):"+llList2String(l,i));} s("printlist Total:"+(string)llGetListLength(l)+" elements");}
//toggle function: to switch something on and off integer toggle=1;//startup as OFF toggleme(integer current){ if (current==1) { toggle=0; s("SWICH SOMETHING OFF HERE"); } else {toggle=1; s("SWICH SOMETHING ON HERE"); } }
default{
state_entry() {s("state_entry: Init");
owner=llGetOwner();
llSetTimerEvent(PERIOD);
llListen(lchan,"",NULL_KEY,"");
}
touch_start(integer total_number) {
if(llDetectedKey(0) == owner){
//llMessageLinked(0,1,"some message linked string",NULL_KEY);//or: LINK_SET LINK_THIS LINK_ROOT LINK_ALL_OTHERS
s("touch_start "+(string)total_number);
toggleme(toggle);//toggle the toggler
//toggleme(0);//force toggle to ON
}
}
on_rez(integer start_param){
llResetScript();
}
changed(integer change){ if(change & CHANGED_OWNER){llResetScript();}
}
link_message(integer sender_number, integer number, string message, key id){
s("sendernum:"+(string)sender_number+" num:"+(string)number+" message:"+message+" key:"+(string)id);
}
dataserver(key requested, string data){
s("datakey:"+requested+" data:"+data);
}
listen( integer channel, string name, key id, string message ){
if(id == owner){
list args=llParseString2List(message, [" "], []);
printlist(args);
//string cmd=llList2String(args,0);
//float value1=(float)llList2Float(args,1);
//if(id == owner){s("chan("+(string)channel+"):"+" cmd: "+cmd+" value1: "+(string)value1);}
}
}
timer(){
s("timer called ("+(string)timer_count+")");timer_count++;
}
}
</lsl>