@verb #7171:"@laugh klaugh kefka" any any any rxdo #7407
@program #7171:"@laugh klaugh kefka" any any any
this:update_usage(verb, player)
match = player:my_match_object(argstr)
if (valid(match))
  mainlaugh = {"laugh at " + match:title() + ", \"", "laughs at " + match:title() + ", \""}
  argstr = ""
else
  mainlaugh = {"laugh, \"", "laughs, \""}
endif
break_ = 0
if (!argstr)
  laughs = {"heehee", "haha", "heh heh", "hehe"}
  argstr = laughs[random(length(laughs))]
endif
laughstr = ""
firstchar = argstr[1]
for chr in [2..length(argstr)]
  if (!(argstr[chr] == firstchar) && !break_)
    laughstr = laughstr + argstr[chr]
  else
    break_ = 1
  endif
endfor
laughpfx = random(2) - 1 ? "Mw" | "Uw"
final = laughpfx + laughstr + argstr
player.location:announce(player:title() + " " + mainlaugh[2] + final + "!!!\"")
player:tell("You " + mainlaugh[1] + final + "!!!\"")
"Last modified by Dax (#789) on Tue Jun  2 14:21:42 1998 EDT."
.