35a
@verb #4909:"rofl" any none none rxdo #6319
@program #4909:"rofl" any none none
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
dobj = player:my_match_object(dobjstr)
if (dobj == $nothing)
  outstring1 = "%N falls down and is rolling on the floor laughing!"
  pstring1 = "You fall down and roll on the floor with laughter!"
else
  outstring1 = "%N falls down and is rolling on the floor laughing at %d!"
  pstring1 = "You fall down and roll on the floor laughing at %d!"
endif
outstring2 = "%N gets back up. Ahhhhh, that felt good."
pstring2 = "You get back up, Ahhhhh, that felt good."
if (this:speak_out(outstring1, pstring1))
  "Assume that if the first one works, the others will too."
  suspend(random(4))
  this:speak_out(outstring2, pstring2)
endif
"Last modified by Cecil (#7407) on Mon Aug  5 13:27:21 2002 MDT."
.

0