"anti-slap"
By anon (https://pastebin.com/u/anon)

URL: https://pastebin.com/TQFRE8TW
Created on: Thursday 11th of August 2011 08:37:11 PM CDT
Retrieved on: Friday 30 of October 2020 10:36:22 AM UTC


on *:action:*:#: {
  if ($regex($1-,/(slaps|stabs|trounces|throws|decimates|maims||steals|slaughters|humps|scalds|spanks|kicks|burn|shreds|dissects|flattens|wallops|sodomizes|prepares|burns|touches|reams|impales|infects|forces|punishes|kicks|hits|whacks|beats|kills|tortures|bashes|rapes|rams|fucks|smacks|hurts|punches|whips|molests)/i) && $me isin $1- && !$($+(%,noflood,.,$nick),3)) {
    var %antislap kills;bashes;tortures;rams;slaps;whips;strangles;hits;splatters;punishes;whacks;beats the shit out of;obliterates;smacks;hurts;molests
    describe # $gettok(%antislap, $r(1,16),59) $nick with $read(MYscripts/objects.txt,n)
    set -u3 $+(%,noflood,.,$nick,) on
  }
  else { halt }
}
alias slap {
  var %slap kills;bashes;tortures;slaps;rams;whips;strangles;hits;splatters;punishes;whacks;beats the shit out of;obliterates;smacks;hurts;molests
  describe # $gettok(%slap, $r(1,16),59) $1 with $read(MYscripts/objects.txt,n)
}

on *:text:*:?: {
  if ($1 == !additem ) { write MYscripts/objects.txt $2-
    describe $nick would like to note that the item 4,1 $2-  has been 9added to the database
  }
}

menu nicklist,channel {
  -
  SLAP: slap $snicks
  -
}
alias objedit run notepad MYscripts/objects.txt