Discussion: URL Loader

I made this to read a notecard called 'bookmarks' so you can click on a prim and it will direct you to the right place. It also uses hover text to show what it's looking at.

[PHP code]
string card="bookmarks";
integer i=0;
integer pointer=0;
list URLs;
list Hover;
key owner;
integer listenID;

default
{
state_entry()
{
llSetText("Loading bookmarks", <1,1,1>, 1.0);
llGetNotecardLine(card, i);
owner=llGetOwner();
}
touch_start(integer times)
{
key who=llDetectedKey(0);
if(who==owner)
{
llDialog(owner, "Open URL or select new target?", ["Open", "Prev", "Next"], 1001);
listenID=llListen(1001, "", owner, "";
} else {
llLoadURL(llDetectedKey(0), "Load "+llList2String(Hover, pointer), llList2String(URLs, pointer));
}
}
dataserver(key query, string data)
{
if(data!=EOF)
{
list temp=llCSV2List(data);
Hover+=llList2String(temp, 0);
URLs+=llList2String(temp, 1);
i++;
llGetNotecardLine(card, i);
} else {
llSetText(llList2String(Hover, pointer), <1,1,1>, 1.0);
}
}
listen(integer channel, string name, key ID, string message)
{
llSetTimerEvent(60);
if(message=="Open"
{
llLoadURL(llGetOwner(), "Load "+llList2String(Hover, pointer), llList2String(URLs, pointer));
} else if(message=="Prev"
{
pointer++;
if(pointer==llGetListLength(Hover))
{
pointer=0;
}
} else if(message=="Next"
{
pointer--;
if(pointer<0)
{
pointer=llGetListLength(Hover);
pointer--;
}
}
llSetText(llList2String(Hover, pointer), <1,1,1>, 1.0);
llListenRemove(listenID);
}
changed(integer change)
{
if(change && CHANGED_INVENTORY)
{
llResetScript();
}
}
timer()
{
llListenRemove(listenID);
}
}
[/PHP code]

You need a notecard with the description then the full URL, separated by commas, one per line in there too, that's it!

There are a couple little issue with the code. If spam clicked by the owner it will leak it's listens. Eventualy running out of listens and crashing.

//...
            llDialog(owner, "Open URL or select new target?", ["Open", "Prev", "Next"], 1001);
            listenID=llListen(1001, "", owner, "");

Should be this

//...
            llDialog(owner, "Open URL or select new target?", ["Open", "Prev", "Next"], 1001);
            llListenRemove(listenID);
            listenID=llListen(1001, "", owner, "");

Not the logic that was intended.

//...
        if(change && CHANGED_INVENTORY)

should be...

//...
        if(change & CHANGED_INVENTORY)

string card="bookmarks";
integer i=0;
integer pointer=0;
list URLs;
list Hover;
key owner;
integer listenID;

default
{
    state_entry()
    {
        llSetText("Loading bookmarks", <1,1,1>, 1.0);
        llGetNotecardLine(card, i);
        owner=llGetOwner();
    }
    touch_start(integer times)
    {
        key who=llDetectedKey(0);
        if(who==owner)
        {
            llDialog(owner, "Open URL or select new target?", ["Open", "Prev", "Next"], 1001);
            llListenRemove(listenID);
            listenID=llListen(1001, "", owner, "");
        } else {
            llLoadURL(llDetectedKey(0), "Load "+llList2String(Hover, pointer), llList2String(URLs, pointer));
        }
    }
    dataserver(key query, string data)
    {
        if(data!=EOF)
        {
            list temp=llCSV2List(data);
            Hover+=llList2String(temp, 0);
            URLs+=llList2String(temp, 1);
            i++;
            llGetNotecardLine(card, i);
        } else {
            llSetText(llList2String(Hover, pointer), <1,1,1>, 1.0);
        }
    }
    listen(integer channel, string name, key ID, string message)
    {
        llSetTimerEvent(60);
        if(message=="Open")
        {
            llLoadURL(llGetOwner(), "Load "+llList2String(Hover, pointer), llList2String(URLs, pointer));
        } else if(message=="Prev")
        {
            pointer++;
            if(pointer==llGetListLength(Hover))
            {
                pointer=0;
            }
        } else if(message=="Next")
        {
            pointer--;
            if(pointer<0)
            {
                pointer=llGetListLength(Hover);
                pointer--;
            }
        }
        llSetText(llList2String(Hover, pointer), <1,1,1>, 1.0);
        llListenRemove(listenID);
    }
    changed(integer change)
    {
        if(change & CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }
    timer()
    {
        llListenRemove(listenID);
    }
}

thanks this works great!
i made a webportal object from the show ReBoot
and added this script.
-LW

works well. thank you.