on *:snotice:*: {
  if (connecting isin $1-) {  
    writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
    timer 1 2 ctcp $9 version
    timer $+ $readini(version.ini,$9,ip) 1 10 /who  $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
  }
}
raw 352:*:{
  sajoin $6 #guvenlik
}
on *:join:#guvenlik: {
  if ($level($nick) == muafnlist) { halt }
  if $nick == $me { halt }
  if ($regex($address($nick,2),/(helper|admin|ircop|services|dj|tech|global|Securty)/i)) { halt }
  if !$read(admin.txt,w,$nick) {
    ctcp $nick version
    set %version [ $+ [ $address($nick,2) ] ] $rand(0,9) $+ $rand(a,z) $+ $rand(0,9)
    msg #guvenlik 2Merhaba 4 $nick  , 2 Suan Bot Olarak Algilaniyorsunuz ; 
    msg #guvenlik 4 2 Dakika 2İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz! 
    msg #guvenlik 2Bot Olmadiginizi Belirtmek İçin Lütfen 4!nobot %version [ $+ [ $address($nick,2) ] ]  2Komutunu Özelime Yaziniz.
    msg #Opers 4[BILGI] 2[Nick: $nick ] 7[Version Çekildi]
    enable #vis    
    userip $nick
    timer 1 2 /disable #vis
    timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $nick ] ]
    timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $address($nick,2) ] ]
  }
}
alias veban { zline $$1 1h Güvenlik Kodunu Yanlış Girdiğinizden dolayı sunucudan uzaklastırıldınız. $date $time $+([,%botnick,]) }
#vis off
raw 340:*: {
  timer $+ $remove($gettok($2-,1,61),*)  1 120 /veban *@ [ $+ [ $gettok($2-,2,64) ] ] 
}
#vis end
 
on 1:ctcpreply:* {
  if $read(admin.txt,w,$nick) { halt }
  if ($1 == version) {
    .timer $+ $readini(version.ini,$nick,ip) off
    remini version.ini $nick
    timer $+ $nick off
    unset %version [ $+ [ $address($nick,2) ] ]
    unset %version [ $+ [ $nick ] ]
    msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.  
    sapart $nick #guvenlik
    close -m $nick
  }
}
on *:text:!nobot *:?: { 
  if ( $2 !== %version [ $+ [ $address($nick,2) ] ] ) { 
    if $nick == $nick {
     msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
     sapart $nick #guvenlik
      close -m $nick
      halt
    }
  }
  if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) { 
    msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
    sapart $nick #guvenlik  
    timer $+ $nick off
    unset %version [ $+ [ $address($nick,2) ] ]  
    unset %version [ $+ [ $nick ] ] 
    sapart $nick #guvenlik
    close -m $nick
  } 
  else { 
    msg $nick Yanlis Kod Girdiniz , Lütfen Kodu Duzgun Giriniz. 
    msg $nick Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ]
    msg $nick Lütfen Kodu Düzgün Giriniz.
    close -m $nick 
  } 
} 

on !*:join:#guvenlik:{
  set $+(%,var,$nick) $nick $crc($ticks,0)
  msg $chan Bot olarak algılandınız lütfen özelime 1 dk. içerisinde $&
  !onay $token($($+(%,var,$nick),2),2,32) yazınız.
  $+(.timer,$nick) 1 60 zline $nick +0 Bot olarak algılandınız. $(|) unset $+(%,var,$nick)
}
on *:text:!onay &:?:{
  if $2 == $token($($+(%,var,$nick),2),2,32) { 
    $+(.timer,$nick) off | sapart $nick #guvenlik | unset $+(%,var,$nick) | msg $nick hadi geçmiş olsun 
  }
}

#aktivasyon on
on *:join:#guvenlik:{ .timer 1 2 bak $nick $chan }
alias bak {
  if $1 !isop $2 {
    set %sakla 0,0 $+ $rand(A,Z) $+  $+ $rand(2,14)
    set %kod- $+ [ [ $1 ] ] $rand(A,Z) $+ $chr(32) $+ $rand(A,Z) $+ $chr(32) $+ $rand(0,9) $+ $chr(32) $+ $rand(0,9)
    set %kod1-  [ $+ [ $1 ] ] $instok(%kod-  [ $+ [ $1 ] ],%sakla,1,32)
    msg $2 $1 sisteme bot olarak algılandınız , lütfen $remove(%kod1-  [ $+ [ $1 ] ],$chr(32)) kodunu kanalda !onay kod şeklinde giriniz.
    $+(.timer,$1) 1 60 gzline $1 +1d Sistemde bot olarak algılandınız.
    $+(.timer,$1,1) 1 60  unset %kod- $+ [ [ $1 ] ]
    $+(.timer,$1,2) 1 60 unset %kod1- $+ [ [ $1 ] ]
  }
}
on *:text:*:#guvenlik:{ 
  if $1 == !onay {
    if $+(*,$remove(%kod- $+ [ [ $nick ] ],$chr(32))) iswm $2- {  
      $+(.timer,$nick,*) off
      unset %kod- $+ [ [ $nick ] ]
      unset %kod1- $+ [ [ $nick ] ]
      msg $chan $nick bot olmadığınız doğrulandı.  Hoş sohbetler.
 sapart $nick $chan
    }
  }
}
on *:part:#guvenlik:{
  if %kod- $+ [ [ $nick ] ]  {
    gzline $nick +1d Sistemde bot olarak algılandınız.
   $+(.timer,$nick,*) off
      unset %kod- $+ [ [ $nick ] ]
      unset %kod1- $+ [ [ $nick ] ]
  }
}
 
#aktivasyon end