Simple Door Slide

//
// Simple door slider
// BlueWall Information Technologies, LLC (c) 2012
// Licensed under the Apache License, Version 2.0
// http://www.apache.org/licenses/LICENSE-2.0.html
// Door slides along the X axis

default
{
    touch_start(integer _det)
    {
        vector sc = llGetScale();
        vector cp = llGetLocalPos();
        llSetPos(cp + (sc.x) * llRot2Fwd(llGetLocalRot()));
        llSleep(4);
        llSetPos(cp);
    }
}