menu * {
  .Giriş Kod Koruması
  ..Açık:.enable #kgiris | .echo -a Giriş Kod Koruması Açıldı.
  ..Kapalı:.disable #kgiris | .echo -a Giriş Kod Koruması Kapatıldı.
}

#kgiris off
on *:join:#kanal:{
  if $nick isin %nick { halt }
  if $nick isin $me { halt }
  set %kod $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
  sapart $nick #kanal
  msg $nick Lütfen 
  msg #kanal Verilen kod => 2  %kod
  msg $nick Lütfen Kanala girebilmek için 4!kode %kod 1yazınız
}
 
on *:text:*:?:{
  if $1 ==  !kode {
    if $2 ==  %kod {
      set %nick $nick
      sajoin $nick #kanal
    }
  }
}
#kgiris End

on *:snotice:*connecting*: {
  ;alt kısımda gelen veriyi ayristirma %ip ve %ident seklinde
  var %ip $left($token($10,2,64),-1), %ident $right($token($10,1,64),-1)
  ;Aşagi kısımda ident1 ident2 gibi yan yana muaf ident belirtebilirsiniz.
  if $istok(ident1 ident2,%ident,32)  || $istok(nick1 nick2,$9,32) { return }
  ;-mu2 yazan kısımdaki 2 saniye olarak ifade ediliyor, isteginize göre ayarlarsınız
  hinc -mu2 ident %ident 1
  ;5 yazan kısım 5 giris anlamina gelir, isteginize gore ayarlarsiniz.
  if $hget(ident,%ident) >= 5 {
    ;Aşagida uygulucak islemi belirtiyor.
    os akill add $+(*@,%ip) +0 Giris Ban.
  }
}

on *:snotice:*:{
  if (*client*connect* iswm $1-) { 
    var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyip %difynick 14Ident: %difyident 02Son Girişi: $+($time,-,$date) 
  }
  elseif (*changed*his*her*nickname* iswm $1-) {
    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))
    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }
    write arsiv.txt %difyzip %difynickz 14Ident: %difyidentz 02Son Girişi: $+($time,-,$date) 
  }
}
;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz
on *:text:!arsiv &:#KANAL:{
  if $regex($2,/^\d+.\d+/) {
    if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 
      msg $chan $2 arşivi listeleniyor 
      filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 
      play $chan depo.txt 750
    }
    else { msg $chan $2 arşivde bulunmuyor }
  }
  if $regex($2,/^[^\d]/) {
    if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 
      msg $chan $2 arşivi listeleniyor 
      filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 
      play $chan depo.txt 750 
    }
    else { msg $chan $2 arşivde bulunmuyor }
  }
}