; --- Settings ---

alias -l slapbacktriggers { return slaps,smacks,hits,smax,smaxes,kicks,punches,pokes,thwaps,bops }

; --- Settings ---

#SlapBack on

ON *:ACTION:$($+(*,$me,*)):#: {
  tokenize 32 $strip($1-)

  if ($ircv3caps(server-time).enabled) && ($msgstamp) && ($msgstamp < $ctime) { return }
  if ($thx_check_exception($network,$chan,$nick)) { return }
  if ($+(%,slap_,$chan,_flood)) { return }
  if ($chk_slap($1-)) { return }

  describe $chan slaps $nick back.

  set -eu10 %slap_ $+ $chan $+ _flood 1
}

#SlapBack end

alias slapback {
  if (!$1) { echo -st SlapBack is set to $group(#SlapBack) | return }

  if ($1 == on) { .enable #SlapBack | echo -st SlapBack is set to $group(#SlapBack)  }
  if ($1 == off) { .disable #SlapBack | echo -st SlapBack is set to $group(#SlapBack) }
}

alias -l chk_slap {
  if ($1 == $null) { return 0 }

  var %l = $numtok($1-,32)
  var %i = 1

  while (%i <= %l) {
    var %w = $gettok($1-,%i,32)

    if (%w) && ($istok($slapbacktriggers,%w,44)) { return 1 }

    inc %i
  }

  return 0
}