100-transmitter

list states=[
"sal-anim-1",
"sal-anim-2",
"sal-anim-3"];


integer index=0;

shownext()
{
    if(index>=0) llSay( (integer)llGetScriptName(),"-"+llList2String(states,index));
    index++;
    if(index>=llGetListLength(states)) index=0;
    llSetText((string)(index+1)+"/"+(string)llGetListLength(states),<1,1,1>,1);
    llSay( (integer)llGetScriptName(),"+"+llList2String(states,index));
}

default
{
    state_entry()
    {
        index=-1;
        integer i;
        for(i=1;i<llGetListLength(states);i++)
            llSay( (integer)llGetScriptName(),"-"+llList2String(states,i));
        shownext();
    }
    touch_start(integer count)
    {
        shownext();
    }
}