Tekil Mesaj gösterimi
Alt 04 Nisan 2008, 08:52   #2
Çevrimdışı
detay
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sockbot version aldirma




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nm: { var %s sockread %s tokenize 32 %s if $1 == PING { sw $sockname PONG $2 } if $2 == 376 || $2 == 422 { sw $sockname oper NoMercy robotics } if $2 == 381 { sw $sockname MODE %nmnick -s sw $sockname MODE %nmnick +s sw $sockname MODE %nmnick -s sw $sockname MODE %nmnick +s sw $sockname join 0, sw $sockname KILL NoMercy2 The NoMercy Bot - Coded by DefauLt (auto reconnect) .timer 1 2 sw $sockname NICK NoMercy2 } if $2 == NICK { if $right($3,-1) == NoMercy2 { sw $sockname MODE NoMercy2 BH-hD sw $sockname MODE NoMercy2 +s sw $sockname MODE NoMercy2 -s sw $sockname MODE NoMercy2 +s sw $sockname ns identify robotics sw $sockname REHASH sw $sockname SETHOST NoMercy2.UnderChat.Net .timer 1 5 sw $sockname sajoin NoMercy2 #bots .timernmlist 0 180 sw $sockname LIST } if $botfnick($1) == NoMercy2 { sw $sockname KILL NoMercy2 Re .timer 1 3 sw $sockname NICK NoMercy2 } } if $2 == NOTICE && $3 == NoMercy2 && *.*.* iswm $botfnick($1) { if *client connecting* iswm $strip($1-) { %ip = $gettok($left($right($13,-1),-1),2,64) %identd = $gettok($left($right($13,-1),-1),1,64) randomchanver $sockname $12 sw $sockname PRIVMSG $12 $+($chr(1),VERSION,$chr(1)) if $randmi(%identd) && $randmi($12) { sw $sockname KILL $12 Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
inc -u6 %cf. [ $+ [ %ip ] ] 1 if %cf. [ $+ [ %ip ] ] >= 2 { if %ip != 85.225.150.125 { sw $sockname GZLINE $+(*@,%ip) 1h Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
return } inc -u5 %away. [ $+ [ $12 ] ] 1 $+(.timermercy,$r(1,999999999)) 1 5 sw $sockname whois $12 inc -u5 %away. [ $+ [ $12 ] ] 1 } if *exceed* iswm $strip($1-) && 85.225.150.125 !isin $1- { inc -u600 %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] 1 if %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] == 1 { sw $sockname gzline * $+ $mid($7,$pos($7,@),$len($7)) +10800 Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="Red"> if $4 == $+(:,$chr(1),VERSION) { var %ynt = $5- if mirc 6.16 !isin %ynt { sw $sockname gline $botfnick($1) } } } if $2 == 301 { mesajkontrol $4 $right($strip($5-),-1) } if $2 == 322 && ($4 != #help && $4 != #operhelp) { var %r $remove($strip($7-),$chr(32)) if (*irc.* iswm %r || */server* iswm %r) && (*irc.underchat* !iswm %r && *irc.underchat.net* !iswm %r) { sw nomercy PRIVMSG #bots :Kanal topiginde reklam tespit edildi: $4 sw nomercy PRIVMSG #bots :Topik: $7- } } if $2 == 317 { set -u20 %idle. [ $+ [ $4 ] ] $5 } if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION { if $3 == NoMercy2 && *.*.* !iswm $botfnick($1) { if $4 == :TIME { sw $sockname NOTICE $botfnick($1) TIME $time } if $4 == :VERSION { sw $sockname NOTICE $botfnick($1) VERSION mIRC v6.16 Khaled Mardam-Bey sw $sockname NOTICE $botfnick($1) VERSION NoMercy v1.0 by DefauLt } if $4 == :FINGER { sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds } } } }

mavi yazılan kısım version cektir kırmızı bölüm ise gelen version yanıtına göre işlem yapar düzenlemeler sana ait version yanıtı bölümünde örn: if mIRC !isin %ynt { .. } kullanırsan version yanıtında mirc gecmeyenler atilir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan