Sample Babelswarm Scripts

key requestid;
list letterList = [];
float offset = 1.5;
float upset = 0.6;
float yset = 0.6;
float dilation;
string currentBody = “”;
integer letterPos = 0;
integer letter;
integer rezParam;
integer MASK1 = 0xFF;
integer MASK2 = 0xFF00;
default {
state_entry() {
llShout(0,”Babel Hose Initialising!”);
state pause;
}
on_rez(integer rezno) {
llResetScript();
}
}
//end default
state check {
state_entry() {
llSetTimerEvent(0);
dilation = llGetRegionTimeDilation();
if(dilation<0.91) {
llOwnerSay(“Time dilation is
“+(string) dilation+”, waiting.”);
state wait;
}
requestid =
llHTTPRequest(“http://www.waystowave.com
/adam/secondlife/babelswarm/word
s_retrievedata_random.php”,
[HTTP_METHOD, “POST”,
HTTP_MIMETYPE, “application/xwww-
form-urlencoded”],
“caller=secondlife&words=babelswarm”);
}
http_response(key request_id, integer status, list metadata, string
body) {
if (request_id == requestid) {
currentBody = body;
llShout(0, body);
state babble;
}
}
//end http_request
touch_start(integer num) {
state pause;
}
}
//end state check
state babble {
state_entry(){
letterList=[];
letterPos = 0;
upset*= -1;
yset*= -1;
string newstring = llToLower(currentBody);
integer length = llStringLength(newstring);
integer i;
for(i=0;i<length;i++) {
offset+=0.75;
if(offset>9.75) {
offset = 1.5;
}
string nextLetter =
llGetSubString(newstring,i,i);
letterList = (letterList=[]) +
letterList + [nextLetter];
string thisLetter =
llList2String(letterList,i);
if(thisLetter != “ “) {
letterPos++;
if(thisLetter==”a”){letter=1;} if(thisLetter==”b”){letter=2;}
if(thisLetter==”c”){letter=3;} if(thisLetter==”d”){letter=4;}
if(thisLetter==”e”){letter=5;} if(thisLetter==”f”){letter=6;}
if(thisLetter==”g”){letter=7;} if(thisLetter==”h”){letter=8;}
if(thisLetter==”i”){letter=9;} if(thisLetter==”j”){letter=10;}
if(thisLetter==”k”){letter=11;} if(thisLetter==”l”){letter=12;}
if(thisLetter==”m”){letter=13;} if(thisLetter==”n”){letter=14;}
if(thisLetter==”o”){letter=15;} if(thisLetter==”p”){letter=16;}
if(thisLetter==”q”){letter=17;} if(thisLetter==”r”){letter=18;}
if(thisLetter==”s”){letter=19;} if(thisLetter==”t”){letter=20;}
if(thisLetter==”u”){letter=21;} if(thisLetter==”v”){letter=22;}
if(thisLetter==”w”){letter=23;} if(thisLetter==”x”){letter=24;}
if(thisLetter==”y”){letter=25;} if(thisLetter==”z”){letter=26;}
if(thisLetter==”0”){letter=27;} if(thisLetter==”1”){letter=28;}
if(thisLetter==”2”){letter=29;} if(thisLetter==”3”){letter=30;}
if(thisLetter==”4”){letter=31;} if(thisLetter==”5”){letter=32;}
if(thisLetter==”6”){letter=33;} if(thisLetter==”7”){letter=34;}
if(thisLetter==”8”){letter=35;} if(thisLetter==”9”){letter=36;}
if(thisLetter==”‘”){letter=37;} if(thisLetter==”,”){letter=38;}
if(thisLetter==”!”){letter=39;} if(thisLetter==”.”){letter=40;
}
if(thisLetter==”?”){
letter=41;
}
rezParam = (MASK1 &
letter) + (MASK2 & (letterPos << 8));
llRezObject(“letterPrim_geyser”,llGetPos
()+<offset,yset,upset>,ZERO_VECTO
R,ZERO_ROTATION,rezParam);
}
else {
letterPos = 0;
llRezObject(“space”,llGetPos()+<2,0,0>,
ZERO_VECTOR,ZERO_ROTATION,0);
}
}
//end for loop
letterList=[];
state check;
}
//end state_entry
on_rez(integer rezno) {
llResetScript();
}
touch_start(integer num) {
state pause;
}
}
//end state babble
state pause {
state_entry(){
llSetTimerEvent(0);
llShout(0,”Babel Geyser Off!”);
}
on_rez(integer rezno) {
llResetScript();
}
touch_start(integer num){
llShout(0,”Babel Geyser On!”);
state check;
}
}
state wait {
state_entry() {
llSetTimerEvent(10);
}
timer() {
state check;
}
on_rez(integer rezno) {
llResetScript();
}
touch_start(integer num) {
state pause;
}
}

list letterList = [];
list users = [];
float offset = 1.5;
float upset = 0.6;
float yset = 0.6;
float dilation;
string currentBody = “”;
string userName;
string chat;
integer letterPos = 0;
integer letter;
integer letterColour;
integer tempColour;
integer rezParam;
integer MASK1 = 0xFF;
integer MASK2 = 0xFF00;
integer MASK3 = 0xFF0000;
integer count=0;
integer findUser;
integer colourSearch;
key user;
key requestid;
default {
state_entry() {
llShout(0, “Chat Listener Off”);
users=[];
}
touch_start(integer total_number) {
state listening;
}
on_rez(integer rezno) {
llResetScript();
}
}
state listening {
state_entry() {
//llShout(0, “Chat Listener On”);
//users=[];
llListen(-99,”chat_relay”,
NULL_KEY,”“);}
listen(integer chan,string name,key id,string msg) {
user = (key) llGetSubString(msg,0,35);
userName = llKey2Name((user));
findUser = llListFindList( users,
[user] );
if(findUser<0) {
users = (users=[]) + users + [user];
//this is ‘voodoo magic’ from wiki to
improve memory usage
@tryAgain;
tempColour=llFloor(llFrand(10));
colourSearch =
llListFindList(users,[tempColour]);
if(colourSearch<0) {
users =
(users=[])+users+[tempColour];
letterColour=tempColour;
}
else {
jump tryAgain;
}
}
else {
integer userColour =
llList2Integer(users,findUser+1);
letterColour = userColour;
}
//llShout(0, “Users: “+llDumpList2String(users,”,”));
chat = llGetSubString(msg,36,llStringLength
(msg));
//llShout(0, userName+” said: “+chat);
requestid =
llHTTPRequest(“http://www.waystowave
.com/adam/secondlife/babelswarm/inwo
rld_chat_data.php”,
[HTTP_METHOD, “POST”,
HTTP_MIMETYPE, “application/xwww-
form-urlencoded”],
“username=”+userName+”&message=”
+chat);
currentBody = chat;
state babble;
}
touch_start(integer total_number) {
llResetScript();
}
on_rez(integer rezno) {
llResetScript();
}
}
state babble {
state_entry(){
letterList = [];
dilation = llGetRegionTimeDilation();
if(dilation<0.91) {
state wait;
}
//llShout(0,currentBody);
letterPos = 0;
upset*= -1;
yset*= -1;
string newstring = llToLower(currentBody);
integer length = llStringLength(newstring);
integer i;
for(i=0;i<length;i++) {
offset+=1.25;
if(offset>10) {
offset = 1.5;
}
string nextLetter =
llGetSubString(newstring,i,i);
letterList = (letterList=[]) +
letterList + [nextLetter];
string thisLetter =
llList2String(letterList,i);
if(thisLetter != “ “) {
letterPos++;
if(thisLetter==”a”){letter=1;} if(thisLetter==”b”){letter=2;}
if(thisLetter==”c”){letter=3;} if(thisLetter==”d”){letter=4;}
if(thisLetter==”e”){letter=5;} if(thisLetter==”f”){letter=6;}
if(thisLetter==”g”){letter=7;} if(thisLetter==”h”){letter=8;}
if(thisLetter==”i”){letter=9;} if(thisLetter==”j”){letter=10;}
if(thisLetter==”k”){letter=11;} if(thisLetter==”l”){letter=12;}
if(thisLetter==”m”){letter=13;} if(thisLetter==”n”){letter=14;}
if(thisLetter==”o”){letter=15;} if(thisLetter==”p”){letter=16;}
if(thisLetter==”q”){letter=17;} if(thisLetter==”r”){letter=18;}
if(thisLetter==”s”){letter=19;} if(thisLetter==”t”){letter=20;}
if(thisLetter==”u”){letter=21;} if(thisLetter==”v”){letter=22;}
if(thisLetter==”w”){letter=23;} if(thisLetter==”x”){letter=24;}
if(thisLetter==”y”){letter=25;} if(thisLetter==”z”){letter=26;}
if(thisLetter==”0”){letter=27;} if(thisLetter==”1”){letter=28;}
if(thisLetter==”2”){letter=29;} if(thisLetter==”3”){letter=30;}
if(thisLetter==”4”){letter=31;} if(thisLetter==”5”){letter=32;}
if(thisLetter==”6”){letter=33;} if(thisLetter==”7”){letter=34;}
if(thisLetter==”8”){letter=35;} if(thisLetter==”9”){letter=36;}
if(thisLetter==”‘”){letter=37;} if(thisLetter==”,”){letter=38;}
if(thisLetter==”!”){letter=39;} if(thisLetter==”.”){letter=40;
}
if(thisLetter==”?”){
letter=41;
}
rezParam = (MASK1 &
letter) + (MASK2 & (letterPos <<
8)) + (MASK3 & (letterColour <<
16));
llRezObject(“letterPrim_chat”,
llGetPos()-<offset,yset,upset>,
ZERO_VECTOR, ZERO_ROTATION,
rezParam);
}
else {
letterPos = 0;
llRezObject(“space”,llGetPos()-
<offset,yset,upset>,ZERO_VECTOR,
ZERO_
ROTATION,0);
}
}
//end for loop
letterList=[];
state listening;
}
//end state_entry
on_rez(integer rezno) {
llResetScript();
}
touch_start(integer touchno) {
llResetScript();
}
}
//end state babble
state wait {
state_entry() {
llSetTimerEvent(10);
}
timer() {
state babble;
}
}