/*
                    Workpad Creator
                    Copylefted Mar/28/2019 - Logan "Smexypants" Stargazer

                    Rez a prim, drop this script onto it then sit on the prim.
                    You will be transported to 256 256 4000 (The center of a 2x2 sim
                    and 4000 meters up). The prim will be renamed, sized to 20 meters
                    square and unsit you. Then the script will self-delete.
                    You now have a workpad in the sky.

                    The NewPos variable contains the location to rez the pad.
                    The center of a single sim is 128,128
                    A 2x2 is 256,256
                    A 4x4 is 512,512
                    You can change that 4000 as well but IMHO 4000 meters is a
                    nice safe altitude at which to work. 
*/

SetRegionPosition(vector destination)
{
  llSetRegionPos(destination);
  if(llGetPos() != destination) llSetPos(destination);
}

vector NewPos = <256,256,4000>;

default
{
    state_entry()
    {
      llSitTarget(<0.0,0.0,0.5>, ZERO_ROTATION);
      llSetText("Sit on it",<1,1,0>,1.0);
      llSetObjectName(llKey2Name(llGetOwner())  + "'s Workpad");  
    }

    changed(integer change)
    {
        if (change & CHANGED_LINK)
        {
            key av = llAvatarOnSitTarget();
            if (av)
            {
                SetRegionPosition(NewPos);
                llSetScale(<20,20,0.1>);
                llUnSit(av);
                llSetText("",<1,1,0>,1.0);
                llRemoveInventory(llGetScriptName());  
            }
        }    
    }
}