After taking the snippet to the clipboard, paste into a new remote file. Right click in the channel and select Slap Punisher. Once it is turned on it will be active in all channels where you have ops. It may seem harsh to kick somebody for slapping, but when they slap on every greeting it gets a little annoying or when they slap otherwise... this just gives you the chance to turn it on and kick without effort :). I know there are a few slap response scripts out there... but every slap deserves a kick or two (heeheee). As for the snippet writing... all comments and constructive feedback will be helpful.

dialog sp {
  title "Slap_Punisher 2.0 by Meliorite"
  size -1 -1 165 50
  option dbu
  button "Turn on", 1, 5 7 25 15, ok
  button "Turn off", 2, 35 7 25 15, cancel
}
on *:DIALOG:sp:sclick:*: {
  if ($did == 1) { enable #slap_punisher | echo -a 4Slap is on }
if ($did == 2) { disable #slap_punisher | echo -a 4Slap is off }
}
menu channel {
  .-
  *** ( Slap Punisher ) ***: {
    if ($dialog(sp) == $null) { dialog -mdie sp sp }
    else { dialog -v sp }
  }
}
#Slap_Punisher on
on *:action:*slap*:#:{
  if ($me isin $1-) && ($me isop $chan) { .kick # $nick $nick $+ , 15,4No slap goes unpunished }
}
#Slap_Punisher end.