; Bu yazıyı değiştirmek kodun çalışmamasına sebep olabilir... 
;Bu kod PysCoPaT tarafından yazılmıştır...
on *:open:?:*:{  
  if ( $nick != %ozelson ) {
    unset %ozelkod
    set %ozelyazi $1- 
    set %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) 
    .privmsg $nick 4 Kontrol ediliyorsunuz... 15
    .timer 1 4 .msg $nick 2Selam4 $nick 
    .timer 1 4 .msg $nick 2Bot olmadığınız kanıtlamak için özelime 4 !kod %ozelkod 2 yazınız..
    .timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz zaman mesajlarınızı göremiyeceğim.
    window -m @Özel 
    echo @Özel 1,4 $time(HH:nn.ss) 2 Özel isteği Nick: 4 $nick 
    set %ozelson $nick
    .timer 1 30 unset %ozelson
  }
  closemsg $nick
}
on *:text:!kod *:?:{
  if ( $2  ==  %ozelkod ) {
    clear $nick
    .window -m @Özel
    .echo @Özel 1,4 $time(HH:nn.ss) 2 $nick şifreyi doğru girdiği için özelinize kabul edilmiştir... 
    .timers off
    .q $nick
     .msg $nick 2Şifreniz Doğru. Görüşme talebiniz 4kabul edilmiştir... Not Sadece İlk Yazdığınız $me Nickine ulaşacaktır... 15
    .echo $nick $timestamp < $+ $nick $+ > %ozelyazi
  }
  else {
    .privmsg $nick 2Girdiğiniz kod 4yanlıştır2 30 saniyeliğine bana yazmanız engellenmiştir...15
    .timers off
    .ignore $nick
    .timer 1 30 ignore -r $nick
    .closemsg $nick
    unset %ozelson
    .window -m @Özel
    .echo @Özel 1,4 $time(HH:nn.ss) 2 $nick ile özel görüşme reddedilmiştir... Çünkü kodu yanlış girmiştir. Girmesi gereken kod:7 %ozelkod 2Kod olarak gösterilen yazı:4 $2 
  }
}
}

on *:open:?:*:if $nick != %ozelson { set %ozelyazi $1- | set %ozelkod $+($rand(a,z),$rand(1,9),$rand(a,z)) | .msg $nick 4Kontrol ediliyorsunuz. | .timerq 1 4 .msg $nick 2Selam $+(4,$nick,.) | .timerq2 1 4 .msg $nick 2Bot olmadığınızı kanıtlamak için özelime 4!kod %ozelkod 2yazınız. | .timerq3 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz takdirde, yazdığınız mesajlar kabul edilmeyecektir. | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2-Özel isteği- Nick: $+(4,$nick,.) | set -u30 %ozelson $nick } | else close -m $nick
on *:text:!kod *:?:if $2 == %ozelkod { clear $nick | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2 $nick şifreyi doğru girdiği için özelinize kabul edilmiştir. | query $nick | $iif($timer(q),.timerq off) | $iif($timer(q2),.timerq2 off) | $iif($timer(q3),.timerq3 off) | .msg $nick 2Şifreniz doğru. Görüşme talebiniz kabul edilmiştir. | echo $nick $timestamp $+(<,$nick,>) %ozelyazi | unset %ozelyazi } | else .msg $nick 2Girdiğiniz kod, 4yanlıştır.2Otuz saniyeliğine bana yazmanız engellenmiştir. | .ignore -u30 $nick | $iif(%ozelson,unset %ozelson) | $iif(!$window(@Özel),window -m @Özel) | echo @Özel 1,4 $time 2 $nick $+ , kodu yanlış girdiğinden özel görüşme talebi reddedildi. Kod:7 %ozelkod - 2Kod olarak gösterilen yazı:4 $2