#####################################
default
{
    touch_start(integer n)
    {
        llShout(-6766, "sesame");
    }
}
#####################################
integer power;
integer echo;

sesame(float dir)
{
    float desc = (float)llGetObjectDesc();
    integer i;
    for(i = 0; i < desc; i++)
    {
        llSetLinkPrimitiveParamsFast(LINK_THIS, [PRIM_SIZE, (llGetScale() + <dir, 0.0, 0.0>)]);
        llSleep(0.025);
    }
    state default;
}

default
{
    state_entry()
    {
        if (!power) llSetScale(<0.5, 0.5, 0.5>);
        echo = llListen(-6766, "", "", "");
    }

    listen(integer channel, string name, key id, string message)
    {
        if (message == "sesame")
        {
            llListenRemove(echo);
            state sesame;
        }
    }
}

state sesame
{
    state_entry()
    {
        if (power =! power) sesame(0.1);
        else sesame(-0.1);
    }
}
#####################################