Tekil Mesaj gösterimi
Alt 14 Ekim 2008, 01:06   #1
Çevrimdışı
Swenson
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Özele Bot Koruması




; 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?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet