//Created by Anorca Calamari
//Please do not sell this script except as part of a larger creation. You may give it away for free.
//You may modify this script.
string home="NO_HOME";
string homevec="<128,128,100>";
default
{
    state_entry()
    {
        llListen(0,"",llGetOwner(),"");
    }
    
    listen(integer channel,string name,key id,string message)
    {
        string command=llToLower(message);
        if(llSubStringIndex(command,"-tele ") == 0)
        {
            llMapDestination(llDeleteSubString(message,0,5),<128,128,60>,<128,128,160>);
        }
        if(command == "-home")
        {
            if(home == "NO_HOME")
            {
                llOwnerSay("You have not set a home yet.");
            }
            if(home != "NO_HOME")
            {
                llMapDestination(home,(vector)homevec,(vector)homevec);
            }
        }
        if(llSubStringIndex(command,"-sethome ") == 0)
        {
            home=llDeleteSubString(message,0,8);
            llOwnerSay("Home sim set to:" + home);
        }      
        if(llSubStringIndex(command,"-sethomevec ") == 0)
        {
            homevec=llDeleteSubString(message,0,11);
            llOwnerSay("Home vector set to:" + homevec);
        }
        if(command == "-sethomehere")
        {
            home=llGetRegionName();
            homevec=(string)llGetPos();
            llOwnerSay("Home set to here");
        }
    }
}