[Jaqen]

Selamlar
nomercy sockbotumuz var sunucuda. giriste herkesden version alsin, versiona cevap vermeyenleri gzline etsin istiyorum. basil bi kod eklemem gerekicek bunun icin ? nomercy kodu asagida

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
if $randmi(%identd) && $randmi($12) {
sw $sockname KILL $12 Server kurallarina uymadiginiz icin serverdan uzaklastirildiniz. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
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. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
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. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
}
}
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
}
}
}
}

Tesekkurler

Saygilarimla