@verb #1011:"shat*ner" any any any rxdo #7153
@program #1011:"shat*ner" any any any
"Copied from Argon (#8382):shat Feb 21 13:20:34 1997"
"Do you want to exhibit  your grasp of pause acting? Sure, we all do."
"Usage: Shat*ner <anything>."
this:update_usage(verb)
argwds = $string_utils:words(argstr)
tellstr = argwds[1]
for word in (listdelete(argwds, 1))
  rnd = random(14)
  if (rnd < 5)
    tellstr = tellstr + " .."
    for index in [1..random(6)]
      tellstr = tellstr + "."
    endfor
  elseif (rnd < 7)
    tellstr = tellstr + "... (wide gesture) ..."
  elseif (rnd < 10)
    tellstr = tellstr + "... (pause) ..."
  elseif (rnd < 11)
    tellstr = tellstr + "... (long pause) ..."
  else
    tellstr = tellstr + " "
  endif
  tellstr = tellstr + word
endfor
player.location:announce_all(player:title(), " says dramatically, \"", tellstr, "\"")
"Last modified by Absolute (#7153) on Fri Dec  8 16:47:47 2000 MST."
.