@verb #242:"!!! peer tip bonk whap tackle wiggle hop lash camel wrap bearhug mmoo wait twiddle worship ponder tickle chin halo sage drool snap" any any any rxd #7788
@program #242:"!!! peer tip bonk whap tackle wiggle hop lash camel wrap bearhug mmoo wait twiddle worship ponder tickle chin halo sage drool snap" any any any
if (verb == "!!!")
  return player:tell("I don't understand that. What are you trying to do to me?")
elseif (!args)
  player:tell($msg:substitute(this.("msg_" + verb)))
  player.location:announce($msg:substitute(this.("msg_o" + verb)))
else
  who = $su:match_player(args[1])
  if (who == #-2)
    return player:tell("Ambiguous: ", argstr)
  elseif (who == #-3)
    return player:tell("Not found: ", argstr)
  endif
  subs = {{"@1", `who:title() ! ANY => who.name'}}
  pfx = who.location != player.location ? tostr("(From ", `player.location:title() ! ANY => player.location.name', "): ") | ""
  pfx2 = pfx ? tostr("(In ", `who.location:title() ! ANY => who.location.name', "): ") | pfx
  player:tell(pfx2, $msg:substitute($su:substitute(this.("msg_p" + verb), subs)))
  who:tell(pfx, $msg:substitute(this.("msg_t" + verb)))
  if (who.location == player.location)
    player.location:announce_all_but({who, player}, $msg:substitute($su:substitute(this.("msg_l" + verb), subs)))
  endif
endif
"Last modified by Leo (#8383) on Fri Mar 19 06:25:55 1999 MST."
.