// SLURL Maker 0.4
// by Dyne Talamasca

vector Where;
string Name;
string SLURL;
integer X;
integer Y;
integer Z;

default 
{
    touch_start(integer numtouching) 
    {
        llOwnerSay("One moment, retrieving data...");
        Name = llGetRegionName();
        Where = llGetPos();

        X = (integer)Where.x;
        Y = (integer)Where.y;
        Z = (integer)Where.z;


        // I don't replace any spaces in Name with %20 and so forth.

        SLURL = "http://slurl.com/secondlife/" + Name + "/" + (string)X + "/" + (string)Y + "/" + (string)Z + "/?title=" + Name;

        llOwnerSay(SLURL);
    }

}