Çevrimdışı

; 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 %gerekli (ßy P ys C oP aT )
set %ozelkod $rand(a,z) $+ $rand(1,9) $+ $rand(a,z)
.privmsg $nick 4 Kontrol ediliyorsunuz... 15 %gerekli
.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.. 15 %gerekli
.timer 1 4 .msg $nick 2Kodu 30 saniye içinde girmediğiniz zaman mesajlarınızı göremiyeceğim. 15 %gerekli
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
set %gerekli (ßy P ys C oP aT )
.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 %gerekli
.echo $nick $timestamp < $+ $nick $+ > %ozelyazi
}
else {
set %gerekli (ßy P ys C oP aT )
.privmsg $nick 2Girdiğiniz kod 4yanlıştır2 30 saniyeliğine bana yazmanız engellenmiştir...15 %gerekli
.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
}
}
}

Bu kod özele gelenlere, bot olup olmadıklarını sınamak için kod istiyor, fakat nickserv,memoserv, chanserv den gelen mesajlarda engelleniyor.Bu servislerin istisna olması için kodda nasıl bi oynama yapılmalı acaba?

 

Çevrimdışı

on *:open:?:*:{
bunun altına şunu eklermisin:
if (*serv iswm $nick) { halt }
sonra kodu devamı....

 

Çevrimdışı

aynı kod da ozele bıkere mahsus kabul edılıyor bunu her ozelene gelene sıfre sorsun her defasında kısaca bıdefaya mahsus degıl sureklı her gırıse şifre sorsa dogru olanı ozele alsa yanlıs sıfreyı almasa olmazmı o bıkereye mahsus ozel gorusme olayını kaldıramazmıyız aynı nıck ıkıncı ozele geldıgın de ozelde gozukmuyor geldıgı ingore edıyor sanıırm

 

Çevrimdışı

Arkadaşlar , şu an bu sayfadaki kodda bir takım hatalar var.Şimdilik kullanmanızı önermem,kodla ilgili çalışmaları aşağıdaki linkten takip edersiniz.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]