menu status,menubar,channel {
  .-
  .» Clone Koruması 
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı.  
  .-
}
#Clone on
on @*:join:#:{
  if ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i)) { halt }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    var %e = 0
    while (%e < %Cnk) {
      inc %e
      var %nick = $ialchan($wildsite,#,%e).nick
      var %nickler = $addtok(%nickler,%nick,32)
      if (%nick !== $me) {
        .mode $chan +b $mask($fulladdress,2)
        .kick $chan %nick 2 Kill clones 2 $+ %e
        .unset %nick
      }
    }
  }
}
#Clone end

menu status,menubar,channel {
  .-
  .» Clone Koruması 
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı.  
  .-
}
#Clone on
on *:join:#:{
  if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i))  { halt }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    var %e = 0
    while (%e < %Cnk) {
      inc %e
      var %nick = $ialchan($wildsite,#,%e).nick
      var %nickler = $addtok(%nickler,%nick,32)
      if (%nick !== $me) {
        os killclones $nick
        .unset %nick
      }
    }
  }
}
#Clone end

menu status,menubar,channel {
  .-
  .ı|ı C-Flood
  ..Açık:.enable #C-Flood | .echo -a   #C-Flood  KSC Kontrol Açıldı  
  ..Kapalı:.disable #C-Flood  | .echo -a #C-Flood KSC Kontrol Kapatıldı  
  .-
}

#C-Flood off
on *:snotice:*client connecting*: {
  if $nick == irc.Sunucuismi.com { 
    %::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1) 
    cf %::Con.nick.on %::Con.ident.on %::Con.ip.on 
  }
}
#C-Flood end
alias cf { 
  ;Connect Flood -1-
  hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3) 
  if %t == 2 {
    gline $+(*@,$3) :  Ban Sebebin
    msg #Security 1 2[RPR] -4Connect Flood -1-5Atilan Mask:3 $+($1,!,$2,@,$3)
    halt
  }
  ;Connect Flood -2-
  hinc -mu2 cf $3 1 | var %t $hget(cf,$3) 
  if %t == 3 { 
    gline $+(*@,$3) :   Ban Sebebin 
    msg #Security 1 2[RPR] -4Connect Flood -2-5Atilan Mask:3 $+($1,!,$2,@,$3) 
    halt
  }
  ;Connect Flood -3- 
  hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3) 
  if %t == 3 { 
    gline $+(*@,$3) :  Ban Sebebin
    msg #Security 1 2[RPR] -4Connect Flood -3-5Atilan Mask:3 $+($1,!,$2,@,$3) 
    halt
  }

on *:snotice:*connecting*: {
  var %ident $token($token($10,1,64),1,40)
  if $istok(Ident1 Ident2 Ident3 ,%ident,32) { return }
  hinc -mu5 ident %ident 1
  if ($hget(ident,%ident) >= 2) { gzline $9 +0 Ban mesaj'ın | hdel -m ident %ident }
}