RegionSitTeleport

De DigiWiki.

It's a very simple and clean script to make quick sit/unsit teleport to given position based on reading current prim's description.

////////////////////////////////////////////////////////
//             Written by Vincent Nacon
//          Released into the Public Domain
//   I'm sick and tired of WarpPos and <0,0,0> bug.
//                    2/26/2012
////////////////////////////////////////////////////////
 
//What to do?
//Just place position (in vector form) where you want to drop avatar at in the prim's description.
 
default{
    state_entry(){
        llSitTarget(<0,0,0.1>,<0,0,0,1>);
    }
    changed(integer C){
        vector loc= (vector)llGetObjectDesc();
        key ID = llAvatarOnSitTarget();
        if(ID){
            vector Return = llGetPos();
            llSetRegionPos(loc);
            llUnSit(ID);
            llSetRegionPos(Return);
        }
    }
}