Çevrimdışı

alias girisip { return Radyo.Adres }
alias port { return PORT }
on *:SOCKOPEN:swatbot: {
%radionick = T4- $+ $r(100,9999)
sw $sockname NICK %radionick
sw $sockname USER Forum "" " $+ $iif($host,$host,$ip) $+ " : $+ Supernova SW
}
alias botfnick {
return $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}

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 Deneme Deneme
}
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,
.timer 1 1 sw HELP os raw svskill $right($sockname,1) $+ -GUARD-SwatBot SwatBots
.timer 1 2 sw $sockname NICK A-GUARD-Swatbot A-Server.Guard.System
.timer 1 2 sw $sockname NICK Z-GUARD-Swatbot Z-Server.Guard.System
.timer 1 2 sw $sockname NICK L-GUARD-Swatbot L-Server.Guard.System
.timer 1 2 sw $sockname NICK X-GUARD-Swatbot X-Server.Guard.System
.timer 1 5 sw $sockname chghost A-GUARD-Swatbot A-Server.Guard.System
.timer 1 5 sw $sockname chghost Z-GUARD-Swatbot Z-Server.Guard.System
.timer 1 5 sw $sockname chghost L-GUARD-Swatbot L-Server.Guard.System
.timer 1 5 sw $sockname chghost X-GUARD-Swatbot X-Server.Guard.System
}
if $2 == NICK {
if *mIRCTR* 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
}
}
if $2 == 352 {
sw HELP 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 HELP 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 HELP PRIVMSG #opers :.kill $4
}
}
inc %i
}
}
if $2 == 322 {
if $5 < 20 {
$+(.timercont,join,$4,$right($sockname,1)) off
}
if i !isincs $6 && s !isincs $6 && O !isincs $6 && $5 >= 20 && $4 != #shell && $4 != #opers && $4 != #darkroom && $4 != #beauty && $4 != #operhelp && $4 != #help && $4 != #globalops {
$+(.timercont,join,$4,$right($sockname,1)) 1 $r(10,40) sw $sockname JOIN $4
}
}
if $2 == JOIN && *mIRCTR* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& $left($remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,1) == $right($sockname,1) {
$+(.timercont,join,$right($3,-1),$right($sockname,1)) -o 1 $r(400,700) sw $sockname PART $right($3,-1)
$+(.timercont,part,$right($3,-1),$right($sockname,1)) off
}
if $2 == PART && *mIRCTR* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& $left($remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,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 || $2 == NOTICE {
if *-mIRCTR-* 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 NoMercy v1.0 by Soulfly
}
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 *HELP* iswm $1- { halt }
if *mIRCTR-Reklam* iswm $1- { halt }
sw $sockname PRIVMSG #spam :Inviter blok: $botfnick($1) < $+ $4- $+ > %rk
mesajkontrol $botfnick($1) $strip($right($4-,-1))
if $chr(35) isin $strip($right($4-,-1)) && $botfnick($1) != oyun && !$oyunnick($botfnick($1)) {
var %rk $strip($right($4-,-1))
sw $sockname PRIVMSG #spam :Yogun Inviter blok: < $+ $1- $+ > %rk
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 HELP USERHOST $botfnick($1)
killnick $botfnick($1)
}
}
}
}
}




Bunu mIRCBot'uma ekliyorum SUnucuya Giriyor ama Nick almıyor Oper Girmiyor Neden Acaba Yardımcı olacak Hocalarımdan yardım istiyorum

 

Çevrimdışı

Konu GünceL.

 

Pm atınız yardımcı oluyum.

 

Çevrimdışı

Pm atıldı Hocam