on @*:join:#: {
  var %jnick = $left($nick,-2)
  hinc -mu10 AgresifJoin $+($chan,.,%jnick) 1
  if $hget(AgresifJoin,$+($chan,.,%jnick)) == 3 {
    who $+(%jnick,*)
    set %med_n %jnick | set %med_c $chan | .enable #medcezir
  }
}

#medcezir off
raw 352:*: {
  if $left($6,-2) == %med_n {
    ban -ku1500 %med_c $6 AgresifJoin Saldırı Riski Nedeniyle Uzaklaştırıldınız.
  }
}
raw 315:*: { .unset %med_*  | .disable #medcezir  }
#medcezir end

on *:snotice:*Client connecting*:{
  if !$regex($10,/^(muaf1|muaf2|muaf3|muaf4)$/i) { 
    var %cnick = $left($9,-2) 
    var %cident = $right($gettok($10,1,64),-1)
    hinc -mu10 AgresifConnect $+(%cident,.,%cnick) 1
    if $hget(AgresifConnect,$+(%cident,.,%cnick)) == 3 {
      .gzline $9 Agresif Giriş Saldırı Riski Nedeniyle Uzaklaştırıldınız!
    }
  }
}

F3 /spamfilter add u gline 24h 2A14u7x-2b14Lo7ck (.+! $+ $$?="Yasaklayacağınız Ident?" $+ @.+:.+)$ 
F4 /spamfilter add u gline 24h 2A14u7x-2b14Lo7ck ( $+ $$?="Yasaklayacağınız Nick?" $+ !.+@.+:.+)$ 
F5 /spamfilter add p block - 2A14u7x-2b14Lo7ck $$?="Yasak Özel Sebeb" 
f6  /spamfilter add c block - 2A14u7x-2b14Lo7ck $$?="Yasak Kanal Sebeb"

on *:snotice:*connecting*: {
  if ($regex($9,/(Muaf1|muaf2)/i)) { halt }
  if ($tnick($9)) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick($9)
    if ($hget(tnick,$tnick($9)) >= 3) { 
      gzline $9 +0 Ban sebebin.
    } 
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha { 
      if $len($left($1,$calc(%t - 1))) > 2 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}

alias _ban var %. 1 | while $hmatch(giris,$1,%.) { gline $v1 ban sebebi. | hdel $1 $v1 | inc %. }
on $*:snotice:/connecting/i: {
if ($regex($9,/(Muaf1|muaf2)/i)) { halt }
  if ($regex($9,/(.{3,})-(.{1,})/i)) {
    var %n = $token($9,1,45) $+ -* 
    hadd -mu5 giris $9 _
    if ($hmatch(giris,%n,0) >= 4) {
      _ban %n
    }
  }
}