1e0
@verb #4909:"cry pleure" any none none rxdo #6319
@program #4909:"cry pleure" any none none
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
dobj = $string_utils:match_player(dobjstr)
if (dobj == $nothing)
  pstring = "You cry."
  outstring = "%N cries."
else
  pstring = "You cry on %d's shoulder."
  outstring = "%N cries on %d's shoulder."
endif
this:speak_out(outstring, pstring)
"Last modified by Raptor (#6319) on Mon Apr 23 23:59:17 2001 MDT."
.

0