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.