linden script for teleport in Second Life.

teleport.lsl

key  teleportee;
 
default
{
    state_entry()
    {
        //llSay(0, "Touch to teleport");
    }
 
    touch_start(integer total_num)
    {
        teleportee = llDetectedKey(0);
        llRequestPermissions(teleportee, PERMISSION_TELEPORT);
    }
 
    run_time_permissions(integer perm)
    {
        if(PERMISSION_TELEPORT & perm)
        {
            llTeleportAgent(teleportee, "", <36,55,22>, <0, 0, 0>);
        }
    }
}