Dolmere Talamasca - Second Life "resident"

// For a complete write-up on how to modify the preference card please see the README file in the prim where you found this script.
// Quick note on preference card formatting:

//Preference notecard should be in the format where first line is a comment, second line is the text of the dialog box to be displayed
// 3rd through 14th lines represent the 12 possible buttons
// formatted
// BUTTON_NAME|TYPE|TARGET(inv name or url)

integer CHANNEL = 1000;
integer lisHandle;

// Vars used for reading from the preference notecard
integer TYPE_INV = 0;
integer TYPE_URL = 1;

string prefCard = "Pref:Dialog"; //radio station card - name of a notecard in the object's inventory to read in for radio stations
integer cline = 1; //start on line one when reset, line 0 is reserved for a comment

key prefKey; //the inventory key of our radiostation preference file
key cardQ; // id used to identify notecard line read dataserver queries

string dialog_text = "";
list BUTTON_NAMES = [];
list BUTTON_TYPES = [];
list BUTTON_TARGETS = [];
integer list_setup = 0;

default
{
state_entry()
{
llListenRemove(lisHandle);
lisHandle = llListen(CHANNEL,"", "","");
if (list_setup == 0) {
state READ_NOTECARD;
}
}

on_rez(integer ignored) {
list_setup = 0;
llResetScript();
}

touch_start(integer total_number)
{
llDialog(llDetectedKey(0),dialog_text,BUTTON_NAMES,CHANNEL);
}

listen(integer chan, string name, key speaker, string msg)
{
integer rsl = llListFindList(BUTTON_NAMES, [msg]);
if (rsl != -1) {
if (llList2Integer(BUTTON_TYPES, rsl) == 0) {
// Inventory was requested
llGiveInventory( speaker, llList2String(BUTTON_TARGETS, rsl) );
} else {
// A URL was requested
llLoadURL( speaker, "View the selected website.", llList2String(BUTTON_TARGETS, rsl) );
}
}
}
}

state READ_NOTECARD
{
state_entry()
{
BUTTON_NAMES = [];
BUTTON_TYPES = [];
BUTTON_TARGETS = [];
prefKey = llGetInventoryKey(prefCard);
if (prefKey == NULL_KEY)
{
llOwnerSay("There appears to be no notecard with the name '"+prefCard+". Please check this prim's inventory and try again.");
}
cardQ = llGetNotecardLine(prefCard, cline); // start requesting lines
}

dataserver(key query_id, string data) {
if (query_id == cardQ && data != EOF && cline == 1) {
//a special line was read from the preference card :)
if (data == "") {
dialog_text = "Missing Message";
} else {
dialog_text = data;
}
cline = cline + 1;
cardQ = llGetNotecardLine(prefCard, cline); // request next notecard line
}
else if (query_id == cardQ && data != EOF ) {
// A line was read form our preference notecard
list line = llParseString2List(data, ["|"], []);
string name = llList2String(line, 0);
string type = llList2String(line, 1);
string target = llList2String(line, 2);

if (name == "") {
// llOwnerSay("Could not add a notecard line - missing name, probably incorrectly formatted line: "+data);
cline = cline + 1;
cardQ = llGetNotecardLine(prefCard, cline); // do not record this line, request next notecard line
return;
}
if (type != "0" && type != "1") {
llOwnerSay("Could not add a notecard line - incorrect type, probably incorrectly formatted line: "+data);
cline = cline + 1;
cardQ = llGetNotecardLine(prefCard, cline); // do not record this line, request next notecard line
return;
}
if (type == "1") {
//some error checking on the URL
if (llSubStringIndex(target, "http://") == -1) {
llOwnerSay("Could not add a notecard line - URL not formatted, must start with http:// protocol: "+data);
cline = cline + 1;
cardQ = llGetNotecardLine(prefCard, cline); // start requesting lines
return;
}
}

// This line is useful for debugging, it'll show you what it has read in as it attempts to load the preference notecard. Commented out to reduce spammage when rezzed in normal use.
//llOwnerSay("Line #"+(string)cline+": "+data);

BUTTON_NAMES = llListInsertList( BUTTON_NAMES, [name], llGetListLength(BUTTON_NAMES) );
BUTTON_TYPES = llListInsertList( BUTTON_TYPES, [type], llGetListLength(BUTTON_TYPES) );
BUTTON_TARGETS = llListInsertList( BUTTON_TARGETS, [target], llGetListLength(BUTTON_TARGETS) );
cline = cline + 1;
cardQ = llGetNotecardLine(prefCard, cline); // request next notecard line
} else if (query_id == cardQ && data == EOF) {
//we're done reading from the notecard. we could reset cline here, but just notify the owner for now

// This line is useful for debugging, it'll note that it hit the end as it attempts to load the preference notecard. Commented out to reduce spammage when rezzed in normal use.
// llOwnerSay("Reached end of dialog preference notecard. Cline: "+(string)cline);

The first line is ignored - it's a little comment line informing you to come here for more information. Do not remove this line from your file or the script will misbehave.

The second line in the file is the text to be used as a message in the dialog box that will be displayed. This message must not exceed 512 bytes and must not be empty.

The remaining lines are used to define the buttons that will be offered as options in the dialog menu.

There are 12 potential buttons for a dialog, any lines beyond 12 will be ignored. If a line is empty there will be no button for that line and a slot will remain available.

The format for the dialog option lines is the button name immediately followed by a vertical bar, immediately followed by one of the types immediately followed by another vertical bar, finally immediately followed by the target. Like this:
BUTTON_NAME|TYPE|TARGET

BUTTON_NAME:
This is the text that will appear on the button itself. Note: Button names must be unique or the second instance of a button will never be used. Button text cannot be longer then 24 bytes per button. Otherwise the script will shout an error on DEBUG_CHANNEL.

TYPES:
0 - Type zero is for an item in inventory.
1 - Type one is for a webpage URL you would like to direct someone to.