@verb #7171:"kupo moogle mog @kupo @moogle @mog" none none none rxdo #7407
@program #7171:"kupo moogle mog @kupo @moogle @mog" none none none
this:update_usage(verb, player)
kupostr = ""
kupos = {"kupo", "kupopo", "kupo... po", "kuppity kupopo", "kupoppo", "kupop", "kuppio"}
strlength = random(5) + 2
for x in [1..strlength]
  if (x == 1)
    kupostr = $string_utils:capitalize(kupos[random($)]) + " "
  else
    kupostr = kupostr + kupos[random($)] + " "
  endif
endfor
kupostr = kupostr[1..length(kupostr) - 1]
player:tell("You kupo, \"" + kupostr + "!!\"")
player.location:announce(player:title() + " kupo's, \"" + kupostr + "!!\"")
"Last modified by Dax (#789) on Tue Jun  2 14:21:43 1998 EDT."
.