@verb #4980:"rainsert" any any any rxd #9223
@program #4980:"rainsert" any any any
{ssstring, inc, start, ?strip = {"red", "yellow", "green"}} = args
i = 1
while (i < length(ssstring) + 1)
  myinsert = "<z style='color: " + strip[start] + ";'>"
  if (ssstring[i] == " ")
    i = i + 1
    continue
  endif
  if (inc)
    $string_utils:substitute(myinsert, {{"#", tostr(start = start + inc)}})
  endif
  ssstring = ssstring[1..i - 1] + myinsert + ssstring[i..$]
  i = i + length(myinsert) + 1
  if (start > length(strip))
    start = 1
  endif
  ticks_left() < 1000 && suspend(0)
endwhile
return ssstring
"Last modified by Wingy (#9223) on Tue Jan 28 07:50:33 2003 MST."
.