The Alphaville Herald

integer wait_for_conf = FALSE;

integer scanning = FALSE;

integer ownerHandle = 0;
integer anyoneHandle = 0;
integer activeCommand = CMD_NONE;

clearance()
{
llSay(0,”That function may only be issued by Justice League Unlimited personnel.”);
}

string SLTime()
{
float TIMEZONE_ADJUSTMENT = 17.0;

string ampm = “AM”;
float seconds = llGetGMTclock();
float hours = seconds/3600.0;
seconds -= llFloor(hours)*3600.0;
float minutes = llFloor(seconds)/60.0;
seconds -= llFloor(minutes)*60;

// timezone adjustment
hours += TIMEZONE_ADJUSTMENT;
if (hours>24.0) hours -= 24.0;

if (hours>12) {
hours -= 12;
ampm = “PM”;
}

string sHours = (string)((integer)hours);
string sMinutes = (string)((integer)minutes);
string sSeconds = (string)((integer)seconds);

// Padding with leading zeros as needed
if (llStringLength(sHours) ==1) sHours = “0″+sHours;
if (llStringLength(sMinutes)==1) sMinutes = “0″+sMinutes;
if (llStringLength(sSeconds)==1) sSeconds = “0″+sSeconds;

string result = sHours + “:” + sMinutes + “:” + sSeconds + ” ” + ampm + ” SLT”;
return result;
}

string stringnum(integer number, integer digits)
{
string curstring = (string)number;

while(llStringLength(curstring) < digits)
{
curstring = "0" + curstring;
}

return curstring;
}

status()
{
llSay(0,"* * * Brainiac status * * *");
llSay(0,"Current ID is " + (string)llGetKey());
if (scanning) {llSay(0,"Scanning on");} else {llSay(0,"Scanning off");}

}

//Help menu handler
help()
{
llSay(0, "Brainiac help");
integer a;
for(a = 0; a < llGetListLength(commands_help); a++)
{
llSay(0, llList2String(commands, a) + " - " + llList2String(commands_help, a));
}

}

default
{
state_entry()
{
anyoneHandle = llListen(0,"",NULL_KEY,"");
llAllowInventoryDrop(TRUE);
}
changed(integer change)
{
if ((change & CHANGED_INVENTORY) || (change & CHANGED_ALLOWED_DROP))
{
llSay(0,"Contents changed.");
}
}
listen( integer chan, string name, key id, string msg )
{
securityClearance =
( name == "Kalel Venkman" || name == "Kara Timtam" ||
name == "Sen Pixie" || name == "Glitch Braess" ||
name == "Flash Grelling" || name == "Carigorp Mazterath" || name == "Hewee Zetkin" || name == "Ryozu Kojima") ;

if (llGetOwnerKey(id) != id)
return; // This last bit ensures that the speaker is, in fact, an avatar
// and not a device named the same as somebody with security clearance. Note that this will allow owners with proper
// security clearances to speak through objects anyway.

securityClearance = llSameGroup(id);

list parameters = llParseString2List(llToLower(msg),[" ",",",".","?"],[]);
string parm1 = llList2String(parameters,0); // The first parameter had better be "Brainiac"...

if (parm1 == "brainiac" || parm1 == "b" || parm1 == "brainiac" || parm1 == "b," || parm1 == "granddad" || parm1 == "grandpa" || parm1 == "gramps" || parm1 == "grandad")
{
string parm2 = llList2String(parameters,1);
string parm3 = llList2String(parameters,2);
string parm4 = llList2String(parameters,3);
string parm5 = llList2String(parameters,4);
string parm6 = llList2String(parameters,5);

if (parm2 == "reset")
{
if (securityClearance)
{
llMessageLinked(LINK_SET,CMD_RESET,"",NULL_KEY);
llSay(0,"Authorization recognized. System is reset.");
llResetScript();
} else
clearance();

}
if (parm2 == "help") help();
if (parm2 == "is") {llMessageLinked(LINK_SET,CMD_IS,parm3 + " " + parm4 + " " + parm5 + " " + parm6,NULL_KEY);}
if (parm2 == "identify" || parm2 == "id" ) {
if (securityClearance)
llMessageLinked(LINK_SET,CMD_IDENTIFY,parm3 + " " + parm4,NULL_KEY);
else
clearance();
}
if (parm2 == "list") { llMessageLinked(LINK_SET,CMD_LISTALLBYLEVEL,parm3,NULL_KEY);}

if (parm2 == "anthem") { llMessageLinked(LINK_SET,CMD_ANTHEM,"ANTHEM",NULL_KEY);}
if (parm2 == "status") status();
if (parm2 == "thank") { if (parm3 == "you") { llSay(0,"You're welcome.");}}
if (parm2 == "thanks") { llSay(0,"It's nothing.");}

if (parm2 == "time") llSay(0,"It is now " + SLTime() + ".");
// Pass agent name and security code to 'record' script
if (parm2 == "record" || parm2 == "add")
{
// record basic ID record
if (securityClearance)
llMessageLinked(LINK_SET,CMD_RECORD, parm3 + " " + parm4 + " " + parm6, NULL_KEY);
else clearance();
}
if (parm2 == "incident")
{
// We pass the id this time, because only the person who initiated this instruction can complete it.
if (securityClearance)
llMessageLinked(LINK_SET,CMD_INCIDENT, parm3 + " " + parm4, id);
else
clearance();
}
if (parm2 == "remove" | parm2 == "delete" | parm2 == "del")
{
if (securityClearance)
llMessageLinked(LINK_SET,CMD_REMOVE, parm3 + " " + parm4 + " " + parm6, NULL_KEY);
else clearance();

}
if (parm2 == "get")
{
if (securityClearance)
{
llMessageLinked(LINK_SET,CMD_GET, parm3,NULL_KEY);
}
else
clearance();
}

if (parm2 == "scan")
{
if (securityClearance)
{
if (parm3 == "on")
{
if (!scanning)
{
scanning = TRUE;
llSensorRepeat("",NULL_KEY,AGENT,512,TWO_PI,1.0);
llSay(0,"Scanning for life forms.");
}
}
if (parm3 == "off")
{
if (scanning)
{
scanning = FALSE;
llSensorRemove();
llSay(0,"Scanning stopped.");
llSetText("",<0,0,0>,1);
}
}
} else clearance();
}

}
}

http_response(key request_id, integer status, list metadata, string body)
{
integer i;
if (request_id == requestid)
{

//Object-Name: ObjectllParseString2List
//Region: Explorers Rangeland (251904, 270848)
//Local-Position: (101, 202, 233)

//ATTENTION JUSTICE LEAGUE: Kalel Venkman requests emergency assistance 9:07:11 SL time, in Explorers Rangeland
//llSay(0, “Relayed **” + body);
//llSay(0,”String extraction: region is ‘” + regionName +”‘”);
llSay(0,body);
}
//else
// llSay(0,(string)status+” error”);
}
sensor(integer total_number)
{
string text = “”;
integer i;
vector pos = llGetPos();
for (i=0;i float diff = llVecDist(pos,llDetectedPos(i));
integer dist = llRound(diff);
string result = (llDetectedName(i)) + " " + ((string)dist) + "m";
text = text + result + "\n";
}
text = text + "\n\n";
llSetText(text,<0,1,1>,1);
}
timer()
{
// Check for email with any sender or subject
llGetNextEmail(“”,”");
}

no_sensor()
{
llSetText(“Nothing in range.”,<0,1,1>,1);
}

}

state readNotecard
{
state_entry()
{
lineCounter = 0;
dataRequestID = llGetNotecardLine(notecardName, lineCounter);
}
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)
{
dataRequestID = llGetNotecardLine(notecardName, lineCounter);
lineCounter += 1;
if (lastRecipient!=data)
{
llInstantMessage((key)data,completeMessage);
lastRecipient=data;
}
}
else
{
state default;
}
}
}
}