on *:join:#guvenlik:{
  var %muaf = 1
  var %muafnicks = nick1,nick2,nick3,nick4,nick5
  if %muaf && $istok(%muafnicks,$nick,44) { halt }
  if $nick != $me {
    set %onaykode $rand(100,999)
    write onaykode.txt %onaykode
    .privmsg $chan Sunucumuzda güvenlik nedeni ile bot olarak algılandınız $nick $+ .  60 saniye içersinde Özelime !onay %onaykode yazmalısınız. Aksi halde sunucudan uzaklaştırılacaksınız.
    $+(.timer,$nick) 1 60 zline $nick +0 Bot olarak algılandınız.
    unset %onaykode
  }
  if $lines(onaykode.txt) == 5 {
    write -c onaykode.txt
    write onaykode.txt %onaykode
  }
}
on *:text:*:?:{
  if !onay isin $1 {
    if $read(onaykode.txt,w,$2) {
      privmsg $nick Teşekkürler, güvenlik kodu doğrulandı. Hoş sohbetler dileriz.
      sapart $nick #guvenlik
      unset %onaykode
    }
    if $timer($nick) {
      $+(.timer,$nick) off 
    }
  }
}

on !*:join:#guvenlik:{
  set $+(%,var,$nick) $nick $rand(100,999)
  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 
  }
}