| IRC-Dancer | 27 Kasım 2012 17:49 |
Cevap: NoMercy v5 download.
Kod:
on *:SOCKOPEN:chancontrol*: {
%ccnick. [ $+ [ $right($sockname,1) ] ] = Auxv1- $+ $r(100,9999)
sw $sockname NICK %ccnick. [ $+ [ $right($sockname,1) ] ]
sw $sockname USER Ircbook "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo Aux
}
on *:SOCKREAD:chancontrol*: {
var %q
sockread %q
tokenize 32 %q
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper $qoperpass
}
if $2 == 381 {
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] -s
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] +s
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] -s
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] +s
sw $sockname join 0,
sw NoMercy os raw svskill $right($sockname,1) $+ -SunucuAdı- Reconnect
.timer 1 2 sw $sockname NICK $right($sockname,1) $+ -Aux-Kontrol
.timer 1 5 sw $sockname chghost $right($sockname,1) $+ -Aux-Kontrol $+($right($sockname,1),-Ircd.Aux.Security)
}
if $2 == NICK {
if *MuafNick* iswm $right($3,-1) && $left($right($3,-1),1) == $right($sockname,1) {
sw $sockname MODE $right($3,-1) +BH-h
sw $sockname MODE $right($3,-1) +s
sw $sockname MODE $right($3,-1) -s
sw $sockname MODE $right($3,-1) +s
sw $sockname LIST
.timer 1 5 sw $sockname setident Ircbook
.timerlist $+ $sockname 0 50 sw $sockname LIST
.timerkontrolmsgA 0 $r(600,1500) botkontrolA
.timerkontrolmsgL 0 $r(600,1500) botkontrolL
.timerkontrolmsgX 0 $r(600,1500) botkontrolX
.timerkontrolmsgZ 0 $r(600,1500) botkontrolZ
}
}
if $2 == 352 {
sw NoMercy PRIVMSG #Aux : $+ %reklamchan reklam botu: Clonelari: $8
sw $sockname WHOIS $8
}
if $2 == 319 {
var %c $right($5-,-1) , %i 1
while %i <= $numtok(%c,32) {
if % [ $+ [ $delprefix($gettok(%c,%i,32)) ] ] {
if $left($gettok(%c,%i,32),1) != $chr(35) {
sw NoMercy PRIVMSG #Aux : $+ $delprefix($gettok(%c,%i,32)) reklam botu: Inviter clonelarindan $4 $delprefix($gettok(%c,%i,32)) kanalinda $left($gettok(%c,%i,32),1) olarak tespit edildi.
sw NoMercy PRIVMSG #Aux :.kill $4
}
}
inc %i
}
}
if $2 == 322 {
if $5 < 25 {
$+(.timercont,join,$4,$right($sockname,1)) off
}
if i !isincs $6 && s !isincs $6 && O !isincs $6 && $5 >= 25 && $4 != #Aux && $4 != #Opers && $4 != #Operhelp && $4 != #Radyo {
$+(.timercont,join,$4,$right($sockname,1)) 1 $r(10,40) sw $sockname JOIN $4
}
}
if $2 == JOIN && *-Aux-* iswm $remove($gettok($1,1,33),:) && $left($remove($gettok($1,1,33),:),1) == $right($sockname,1) {
$+(.timercont,cycle,$right($3,-1),$right($sockname,1)) -o 1 $r(500,1000) sw $sockname PART $right($3,-1)
$+(.timercont,part,$right($3,-1),$right($sockname,1)) off
}
if $2 == PART && *-Aux-* iswm $remove($gettok($1,1,33),:) && $left($remove($gettok($1,1,33),:),1) == $right($sockname,1) {
$+(.timercont,part,$3,$right($sockname,1)) -o 1 5 sw $sockname JOIN $3
$+(.timercont,join,$3,$right($sockname,1)) off
}
if $2 == PRIVMSG {
if *-Aux-* iswm $3 && *.*.* !iswm $botfnick($1) {
var %::text $remove($gettok($4-,1,33),:)
inc -u5 %qflood. [ $+ [ $+($sockname,($strip(%::text)),32) ] ]
if %qflood. [ $+ [ $+($sockname,($strip(%::text)),32) ] ] == 3 {
sw NoMercy privmsg #Aux : $+ $sockname $+ [ Nick ] : $+ $botfnick($1) $+ [ Mesaj ] : $remove($gettok($4-,1,33),:)
}
}
}
if $2 == PRIVMSG {
if *-Aux-* iswm $3 && *.*.* !iswm $botfnick($1) {
var %::qtext $remove($gettok($4-,1,33),:)
var %deneme $remove($gettok($4-,1,33),:)
if !$oyunnick($botfnick($1)) {
if $len(%::qtext) >= 15 {
if *flood* !iswm %::qtext {
if *girisme*istegi* !iswm %::qtext || *ozel*mesajlarim*kapa* !iswm %::qtext || *ozel*mesajlarim* !iswm %::qtext || *s*l*m* !iswm %::qtext || *s*c*r*i*p*t* !iswm %::qtext || *CouraG* !iswm %::qtext || *Degerlendiriliyor.* !iswm %::qtext || *JAVASCRIPT*nudge* !iswm %::qtext || *Fenerba* !iswm %::qtext || *KaSıRqa ScRipT* !iswm %::qtext || *Veremiyeceqim* !iswm %::qtext {
if *selam*nas?ls?n* !iswm %::qtext {
hinc -mu60 SwatFlood $+($deneme,.,$deneme) 1
if $hget(SwatFlood,$+($deneme,.,$deneme)) == 5 {
sw $sockname spamfilter add ap gzline 1h 2Spam/Reklam_ [ Aux-Swat-System ] $yildiztemizle($strip(%::qtext))
sw NoMercy privmsg #Aux :Swat-System tarafindan spamfilter (gzline) edildi: $yildiztemizle($strip(%::qtext))
hadd -m Spamaddx $r(1000,999999) $yildiztemizle($strip(%::qtext))
hsave -i Spamaddx Spam/Spamaddx.bastard
.hdel -s SwatFlood $+($deneme,.,$deneme))
sw $sockname privmsg Nick'in :Spam mesaji ; $botfnick($1) %::qtext
.timer 1 120 sw $sockname spamfilter del ap gzline 1h 2Spam/Reklam_ [ Aux-Swat-System ] $yildiztemizle($strip(%::qtext))
}
}
}
}
}
}
}
}
if $2 == PRIVMSG || $2 == NOTICE {
if *-Aux-* iswm $3 && *.*.* !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 Bhedee
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
if $4 == :DCC {
_gline $botfnick($1) DCC exploit tespit edilmistir!
}
elseif *serv !iswm $botfnick($1) {
if !$oyunnick($botfnick($1)) {
mesajkontrol $botfnick($1) $strip($right($4-,-1))
if $chr(35) isin $strip($right($4-,-1)) && $botfnick($1) != NoMercy && !$oyunnick($botfnick($1)) {
var %rk $strip($right($4-,-1))
var %i 1
while %i <= $numtok(%rk,32) {
if $left($gettok(%rk,%i,32),1) == $chr(35) {
set -u15 % [ $+ [ $gettok(%rk,%i,32) ] ] 1
set %reklamchan $gettok(%rk,%i,32)
}
inc %i
}
set %reklamsock $sockname
sw NoMercy USERHOST $botfnick($1)
killnick $botfnick($1)
}
}
}
}
}
}
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sanırım bu işini görür , aliaslar kısmını kontrol et , eğer yoksa kanal ve nick'leri kendine göre ayarla tekrar dene hata devam ederse '' PM '' at bi bakalım , hatanın nerde olduğunu bilmediğimden şuanlık birşey diyemem. |
