Teleport script

key  teleportee;
integer tp;

default
{

    state_entry()
{

   teleportee = llGetOwner();
    llRequestPermissions(teleportee, PERMISSION_TELEPORT);

}
     collision_start(integer num)

    {
        if(tp)
	{
        llTeleportAgent(teleportee, "", <13.0, 38.0, 23.5>, <13.0, 12.0, 23.5>);
	}

    }

    run_time_permissions(integer perm)
    {
        if(PERMISSION_TELEPORT & perm)
        {

		tp = TRUE;

        }
    }
}