25f
@verb #1034:"bonk" any none none rxdo #8878
@program #1034:"bonk" any none none
"Copied from Cujo (#5975):bonk Jan 24 21:31:36 1998"
"Copied from Chaotic FO (#3232):bonk by Chaos (#6656) Apr 26 15:27:48 1997"
if (!dobjstr)
  return player:tell("Bonk WHO?")
endif
a = $su:match_player(dobjstr)
player:tell("You bonk ", a:title(1), " on the head for being such an UTTER moron.")
player.location:announce_all_but({player, a}, player:title(1) + " bonks ", a:title(1), " on the head for being such an UTTER moron.")
a:tell(player:title(1) + " bonks you on the head for being such an UTTER moron.")
.

0