Revenge Slaps :)

;Revenge slap

;alias to turn revenge slap on/off
alias slap.status {
  set %slap.status $iif(%slap.status,0,1)
}

;channel popup menu
menu channel {
  .$iif(%slap.status,$style(1)) &»Revenge slap«:slap.status
}

;on a slap action event.
on *:action:$(* $+ $me $+ *):#:{
  if (%slap.status) {
    ;get string
    var %action.me = $gettok($1-,1-100,32)
    ;slap him back
    describe $chan $replace(%action.me,$me,$nick)
    ;ignore slaps form $nick for 5 seconds.
    .ignore -u5 $mask($fulladdress,3)  
  }
}