Single Prim Double sliding Door

//
// Single prim - double sliding door
//
// BlueWall Information Technologies, LLC (c) 2012
// Licensed under the Apache License, Version 2.0
// http://www.apache.org/licenses/LICENSE-2.0.html
// X Axis Up
// Y Axis Left To Right
// Z Axis front To Back


default
{
    state_entry()
    {
        llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.75, 0.0>, <0.0, 0.0, 0.0>]);llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.5, 0.0>, <0.0, 0.0, 0.0>]);llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.25, 0.0>, <0.0, 0.0, 0.0>]);llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.0, 0.0>, <0.0, 0.0, 0.0>]);
    }

    touch_start(integer total_number)
    {
        state open;
    }

    collision(integer _det) {

        state open;
    }
}


state open {

    state_entry() {
        llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.25, 0.0>, <0.0, 0.0, 0.0>]);
llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.50, 0.0>, <0.0, 0.0, 0.0>]);
llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 0.75, 0.0>, <0.0, 0.0, 0.0>]);
llSetPrimitiveParams([PRIM_TYPE,PRIM_TYPE_BOX, 0, <0.0, 1.0, 0.0>, 95.0, <0.0, 0.0, 0.0>, <1.0, 1.0, 0.0>, <0.0, 0.0, 0.0>]);
        llSleep(3);
        llSetTimerEvent(10);

    }

    touch_start(integer _det) {
        state default;
    }

    timer() {
        state default;
    }
}