//UnderX McMillan
 
string escape(string msg)
{
        return llDumpList2String(llParseString2List(msg, [" "], []), "%20");
}
 
string getSLUrl() {
        string nameSim = llGetRegionName();
        vector localPos = llGetPos();
        string slurl = "http://slurl.com/secondlife/";
 
        slurl += escape(nameSim) + "/";
        slurl += (string)llRound(localPos.x) + "/";
        slurl += (string)llRound(localPos.y) + "/";
        slurl += (string)llRound(localPos.z) + "/";
 
        return slurl;
}
 
default
{
        state_entry()
        {
                llListen(12,"",llGetOwner(),"");
        }
 
        listen( integer channel, string name, key id, string message )
        {
                if( id != llGetOwner() ) { return; }
 
                if( llToUpper(message) == "SLURL" )
                {
                        llOwnerSay(getSLUrl());
                }
        }
 
}