A-SwatBot
merhabalar;
Nomercy v4 ten aldığım bu kodu ben kendi botuma eklemek istiyorum
eklediğimde botlasr girip çıkıcak v.s yardımcı olabilirmisiniz? Kod:
on *:SOCKOPEN:chancontrol*: {
%ccnick. [ $+ [ $right($sockname,1) ] ] = Techv4- $+ $r(100,9999)
sw $sockname NICK %ccnick. [ $+ [ $right($sockname,1) ] ]
sw $sockname USER $qidentdx "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo Swat System
sockmark $sockname chan
}
on *:SOCKREAD:chancontrol*: {
var %q
sockread %q
tokenize 32 %q
window -ze @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %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) $+ -YuzukTR-SwatBot Reconnect
.timer 1 2 sw $sockname NICK $right($sockname,1) $+ -YuzukTR-SwatBot
.timer 1 5 sw $sockname chghost $right($sockname,1) $+ -YuzukTR-SwatBot $+($right($sockname,1),-Server.Guard.System)
}
if $2 == NICK {
if *YuzukTR* 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 TechnicaL
.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 #opers : $+ %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 #opers : $+ $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 #opers :.kill $4
}
}
inc %i
}
}
if $2 == 322 {
if $5 < 15 {
$+(.timercont,join,$4,$right($sockname,1)) off
}
if i !isincs $6 && s !isincs $6 && O !isincs $6 && $5 >= 15 && $4 != #opers && $4 != #kelime && $4 != #girLs && $4 != #beauty && $4 != #burc && $4 != #Haber && $4 != #Gundem && $4 != #operhelp && $4 != #help && $4 != #HelpGame && $4 != #globalops && $4 != #Toplantı && $4 != #Staff && $4 != #S?nav {
$+(.timercont,join,$4,$right($sockname,1)) 1 $r(10,40) sw $sockname JOIN $4
}
}
if $2 == JOIN && *-YuzukTR* 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 && *-YuzukTR* 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 *-YuzukTR-* 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 #Opers : $+ $sockname $+ [ Nick ] : $+ $botfnick($1) $+ [ Mesaj ] : $remove($gettok($4-,1,33),:)
}
}
}
if $2 == PRIVMSG {
if *-YuzukTR-* 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) >= 10 {
if *flood* !iswm %::qtext {
if *g?r??me*iste?i* !iswm %::qtext {
if *selam* !iswm %::qtext || *slm* !iswm %::qtext || *nbr* !iswm %::qtext || *kanalına hoş geldiniz.* !iswm %::qtext {
hinc -mu60 SwatFlood $+($deneme,.,$deneme) 1
if $hget(SwatFlood,$+($deneme,.,$deneme)) == 5 {
sw $sockname spamfilter add ap gzline 1h 2Spam/Reklam_ [ Swat-System ] $yildiztemizle($strip(%::qtext))
sw nomercy privmsg #Opers :Swat-System tarafından spamfilter (gzline) edildi: $yildiztemizle($strip(%::qtext))
hadd -m Spamaddx $r(1000,999999) $yildiztemizle($strip($deneme))
hsave Spamaddx Spam/Spamaddx.bastard
.hdel -s SwatFlood $+($deneme,.,$deneme))
sw $sockname privmsg kiLim :Spam mesajı ; $botfnick($1) %::qtext
}
}
}
}
}
}
}
}
if $2 == PRIVMSG || $2 == NOTICE {
if *-YuzukTR-* 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)
}
}
}
}
}
}
|
