Need smooth in Cycle Script

I'm using this open source script to make lights blink. The problem I'm having is it's not a smooth cycle. The timer is set but not continuing to the next texture smooth. Any help would be appreciated.
Justin

default
{
state_entry()
{
llSetTimerEvent(5.0);
}
timer()
{
integer number = llGetInventoryNumber(INVENTORY_TEXTURE);
float rand = llFrand(number);
integer choice = (integer)rand;
string name = llGetInventoryName(INVENTORY_TEXTURE, choice);
if (name != ""
llSetTexture(name,4);
}
}