integer LINKED_ITEM_TOP = 20001;
vector  SAVED_PARAMS;

default
{
    state_entry()
    {
        @h@ SAVED_PARAMS = llGetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_TUBE]);
        state active;
    }
    }

state active
    {
    state_entry()
    {
        llSetLinkPrimitiveParams (SAVED_PARAMS);
    }

    link_message(integer send_num, integer num, string str, key id)
    {
        if (num == LINKED_ITEM_TOP && str == "CHANGE STATE")
            state closed;
    }
    }

state closed
    {
    state_entry()
    {
llSetLinkPrimitiveParams([PRIM_TYPE, PRIM_TYPE_TUBE, 0, <0.0, 1.0, 0.0>, 0.0, <0.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, <0.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, <0.0, 0.0, 0.0>, 1.0, 0.0, 0.0]);
    }

    link_message(integer send_num, integer num, string str, key id)
    {
        if (num == LINKED_ITEM_TOP && str == "CHANGE STATE")
            state active;
    }
}