1e0
@verb #4909:"hug" any none none rxdo #6319
@program #4909:"hug" any none none
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
dobj = player:my_match_object(dobjstr)
if (dobj == $nothing)
  pstring = "You " + verb + "yourself."
  outstring = "%N " + verb + "s %n~r."
else
  pstring = "You " + verb + " %D."
  outstring = "%N " + verb + "s %D."
endif
this:speak_out(outstring, pstring)
"Last modified by Cecil (#7407) on Mon Aug  5 13:28:14 2002 MDT."
.

0