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