205
@verb #4909:"sh*akehead" any none none rxdo #6319
@program #4909:"sh*akehead" any none none
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
dobj = player:my_match_object(dobjstr)
if (dobj == $nothing)
  o = "%n shakes %p head."
  p = "You shake your head."
  this:speak_out(o, p)
else
  o = "%n shakes %p head at %d."
  p = "You shake your head at %d."
  d = "%n shakes %p head at you."
  this:speak_out(o, p, d)
endif
"Last modified by Cecil (#7407) on Mon Aug  5 13:29:26 2002 MDT."
.

0