OK BRO2 SEKALIAN.. TRY LAH LOAD SCRIPT NI KAT MIRC KOSONG
KALAU NAK TENGOK JUMLAH KICK SETIAP PEMAIN WAR..
SCRIPT NI TAK MERABUNKAN MATA DAN BAGUS UNTUK MEMPERBAIKI
MUTU KICK ANDA YANG TAK POWER.. AHAHAH..
THIS SCRIPT MUST LOAD ON EMPTY MIRC.EXE THEN THIS WILL HELP
YOU TO CHECK WHO IS MANY KICK ON CHANNEL.
THIS SCRIPT CAN DETECT BY NAME OR IP FOR CALCULATE
YOUR KICK BY PRESSING F6
OTHER COMMAND (HELP - LOGAT ORANG PUTIH CINCAI JE..)
Press F1 to Load - (WILL RESET YOUR COUNTER)
Press F2 to view Standard Echo temps (ON/OFF)
Press F3 to view High Score Kick By IP or NAME/LOGO
Press F4 to Show IP Address from Kickers (ON/OFF)
Press F5 to Change Detect SCORE By (IP/NAME/LOGO) - (WILL RESET YOUR COUNTER)
Press F6 to RESET Counter Kick - (WILL RESET YOUR COUNTER)
Press F12 To HELP
Press F11 Echo Score
THIS COUNTER WILL AUTO RESET WHEN LIMIT KICK OVER 2000 TIMES.
On *:INPUT:*: {
if ($1 == !resultkick) { f11 }
if ($1 == !scannick) { set %scan true | set %ipcheck $2 }
if ($1 == !scanlogo) { set %scanlogo true | set %ipcheck $2 }
if ($1 == !scanip) { set %scanip true | set %ipcheck $2 }
if ($1 == !scanscore) { set %ipx $2 | msg $chan Your Ranking Ago Is : $matchtok(%score,%ipx,1,32) }
}
On *:TEXT:!resultkick*:#: { f3 }
On *:TEXT:!scannick*:#: { set %scan true | set %ipcheck $2 }
On *:TEXT:!scanlogo*:#: { set %scanlogo true | set %ipcheck $2 }
On *:TEXT:!scanlogo*:#: { set %scanip true | set %ipcheck $2 }
On *:TEXT:!f1*:#: { if ($nick == thepowerkambing) { f1 } }
On *:TEXT:!scanscore*:#: { set %ipx $2 | msg $chan Your Ranking Ago Is : $matchtok(%score,%ipx,1,32) }
On 1:start: { /F12 }
alias profile {
;#### Press F1 after edit this var
set %once true
set %myecho on
set %showip off
set %detect IP
if (!%botnick) { set %botnick GT }
if (!%chan) { set %chan #stom }
if (!%channel) { set %channel #crewz }
if (!%showchan) { set %showchan on }
if (!%myip) { set %myip 203.82.92 }
if (!%nickpass) { set %nickpass kambing_ensem kambingpass }
if (!%limitkick) { set %limitkick 501 }
if (!%proxy) { set %proxy 77.232.120.196 80 }
set %watcher WatcherMan $+ $rand(1000,9999)
;#### Press F1 after edit this var
}
alias F12 {
echo -a -----------------------------------------------------------
echo -a Welcome to use Watcher Script... By Kambing_ensem (ThePowerGoat)
echo -a This script not use for War but for Count your kick On Channel...
echo -a To use this Watcher you must have a proxy like --> (232.244.13.32 8080)
echo -a 1. Set your proxy address and type //set % $+ proxy <Address Port>
echo -a --- If long time no display maybe your proxy problem.
echo -a --- If you dont have try dont set this. Auto proxy already set.
echo -a 2. Set your botnick War name and
echo -a type //set % $+ botnick <Nick-Bot1><space><Nick-Bot2><space><Nick-Bot3>
echo -a --- Exp:- //set % $+ botnick Goldber bob_bru Goldust or
echo -a --- Exp:- //set % $+ botnick Goldber,bob_bru,Goldust and more..
echo -a --- The botnick can half exp <THEPOW> for get half THEPOWERGOAT nick
echo -a --- This will Mark Bold Font on screen when kicked and kicking start
echo -a --- You can also type this command when already Connect to channel
echo -a 3. Set your % $+ chan name and type //set % $+ chan <#Channel-War>
echo -a --- Dont Forget put (#) on Channel War Name
echo -a 4. Set your % $+ channel name and type //set % $+ channel <#Channel-result>
echo -a --- Dont Forget put (#) on Channel Result
echo -a --- This will Auto Speak Result on channel when you kick equal 500
echo -a --- This is not Auto Join to Channel. Connect Manual...
echo -a 5. Set your % $+ nickpass and type //set % $+ nickpass <nick> <password>
echo -a --- This will help you to join War Channel if they set -R (invite)
echo -a --- If you set, you are /Invite #chan. If not you are /Join #chan..
echo -a 6. Finally, Set your % $+ myip and type //set % $+ myip <ip>
echo -a --- This will ignore botnick to mark bold when this set.
echo -a Finally... Press F1 to load... Enjoy War.... Thankssssss...
echo -a -----------------------------------------------------------
echo -a OTHER COMMAND (HELP - LOGAT ORANG PUTIH CINCAI JE..)
echo -a Press F1 to Load - (WILL RESET YOUR COUNTER)
echo -a Press F2 to view Standard Echo temps (ON/OFF)
echo -a Press F3 to view High Score Kick By IP, NAME OR LOGO (Say to Channel)
echo -a Press F4 to Show IP Address from Kickers (ON/OFF)
echo -a Press F5 to Change Detect SCORE By (IP/NAME/LOGO) - (WILL RESET YOUR COUNTER)
echo -a Press F6 to RESET Counter Kick - (WILL RESET YOUR COUNTER)
echo -a Press F12 To HELP
echo -a Press F11 To Echo Result Kick (Same F3 but Echo only)
echo -a THIS COUNTER WILL AUTO RESET WHEN LIMIT KICK OVER 500 TIMES.
echo -a -----------------------------------------------------------
echo -a OTHER COMMAND FOR TRACE PROFILE BOT WAR
echo -a Type !scannick <half-ip-take-from-F3>
echo -a Type !scanlogo <half-ip-take-from-F3>
echo -a Type !scanip <half-nick>
echo -a Type !scanscore <half-ip-take-from-F3>
echo -a -----------------------------------------------------------
}
alias warriortulis {
if ($len(%amikvarx) > 900) { f3 | clr }
set %valuepthx %amikvarx
set %value1x $gettok(%valuex,1,58)
set %valuesetx $gettok(%valuex,2,58)
set %oldvaluex $gettok($matchtok(%amikvarx,%value1x,1,32),1-,58)
set %amikvarx $replace(%amikvarx,%oldvaluex,%valuex)
unset %valuex
}
alias f1 { echo -a --- START JOIN NOW... PLEASE WAIT~... PRESS F2 IF YOU ON CHANNEL WAR | sockclose GOAT | set %myecho2 on | bot2load }
alias f2 { if (%myecho == on) { set %myecho off | echo -a --- ECHO is %myecho | halt } | if (%myecho == off) { set %myecho on | echo -a --- ECHO is %myecho | halt } }
alias f3 {
unset %susunx
unset %logagain
set %jfound $count(%amikvarx,$chr(32))
var %d = 1
set %jfoundx %jfound + 1
while (%d <= %jfoundx) {
set %mk $gettok(%amikvarx,%d,32)
set %susunx $gettok(%mk,2,58) %susunx
inc %d
}
set %susunx2 $sorttok(%susunx,32,n)
set %jfound1 $count(%susunx2,$chr(32))
set %jfoundx %jfound1 + 1
var %dz = 1
while (%dz <= %jfoundx) {
set %mk $chr(58) $+ $gettok(%susunx2,%dz,32)
var %dzz = 1
while (%dzz <= %jfoundx) {
set %mks $gettok(%amikvarx,%dzz,32)
set %mkss $gettok(%mks,1,58)
set %mksa $chr(58) $+ $gettok(%mks,2,58)
if (* $+ %mkss $+ * iswm %logagain) { set %mksa XXXX }
if (%mk == %mksa) { set %logagain %mks %logagain }
inc %dzz
}
inc %dz
}
set %jfoundx $count(%logagain,$chr(32))
set %scoo $replace($replace(%logagain,:,[),$chr(32),] $+ $chr(32)) $+ ]
set %scoo $replace(%scoo,%myip, $+ %myip $+ )
;Buang kalau tak berkenan
set %scoos %scoo
unset %scoooo
var %dzz = 1
set %jfoundxx %jfoundx + 1
while (%dzz <= %jfoundxx) {
set %scooo $gettok($replace(%scoos,],]= $+ %dzz $+ ),%dzz,32)
set %scoooo %scooo %scoooo
inc %dzz
}
set %scoo %scoooo
set %score %scoo
;Buang kalau tak berkenan
if (%showchan == on) {
/msg %channel $timestamp %scoo (Auto Sort Result By %watcher $+ 9 - %jfoundx IP found)
}
if (%showchan == off) {
echo -a %scoo
echo -a Total IP found is %jfoundx
}
}
alias f11 {
set %showchan off
f3
set %showchan on
}
alias f4 { if (%detect == name || %detect == logo) { echo -a --- PRESS F5 First to show IP KICKER | halt } | if (%showip == on) { set %showip off | echo -a --- SHOW IP KICKER is %showip | halt } | if (%showip == off) { set %showip on | echo -a --- SHOW IP KICKER is %showip | halt } }
alias f5 { clr | if (%detect == ip) { set %detect name | echo -a --- IP/NAME/LOGO DETECT is %detect | halt } | if (%detect == name) { set %detect logo | echo -a --- IP/NAME/LOGO DETECT is %detect | halt } | if (%detect == logo) { set %detect ip | echo -a --- IP/NAME/LOGO DETECT is %detect | halt } }
alias f6 { echo -a --- CLEAR COUNTER OK DETECT IS= $+ %detect | clr }
alias clr { unset %babikick | unset %mykick | unset %amikvarx | unset %scoo }
alias windowsx { window -ebk[N] @GOAT MS Sans Serif 6 }
alias bot2load {
set %pth C:\war-mirc\
set %varpth %pth $+ vars.txt
set %amikvar $read(%varpth,1)
profile
clr
windowsx
sockopen GOAT %proxy
}
on *:sockopen:GOAT: {
if ($sockerr) { echo @GOAT Socket failed to open $sock(GOAT).ip $sock(GOAT).port | sockclose GOAT | timerrecon 1 3 bot2load | halt }
sockwrite -n $sockname CONNECT webmaster.webchat.org:7000 HTTP/1.0 $+ $crlf $+ $crlf
sockwrite -tn $sockname nick %watcher
inc %namer
;sockwrite -tn $sockname user G $+ %namer km3 $+ %namer advanced.cia :kambing5 $+ %namer @ THEPOWERGOATz WATCHER $+ %namer
sockwrite -tn $sockname user WXG $+ %namer advanced.cia :GOAT $+ %namer @ TGP $+ %namer
}
alias rejoin {
set %waskick %watcher was KICK BY $remove($gettok(%temps,1,33),:) | echo -a %waskick
sockwrite -tn GOAT join #kandang
timerchannel 1 15 sockwrite -tn GOAT PRIVMSG #kandang %waskick .. Clear Please
;timerrejoinx 1 25 f1
}
on *:sockread:GOAT: {
sockread -f %temps
set %sockname GOAT
if (%myecho2 == on) { echo -a %temps }
if ($gettok(%temps,1,32) == PING) { sockwrite -tn %sockname PONG $gettok(%temps,2,32) }
if ($gettok(%temps,2,32) == 221) { echo -a ............JOIN %chan | sockwrite -tn %sockname JOIN %chan $+ , $+ #kandang | if (%once == true) { set %myecho2 off | /f2 | set %once false } }
if (*:Cannot join channel:* iswm $gettok(%temps,5-,32)) { echo -a INVITE ONLY | sockwrite -tn %sockname nick %nickpass $+ $crlf $+ invite %chan $+ $crlf | timerchangenick 1 10 sockwrite -tn %sockname nick %watherman }
if (%detect == name) { if ($gettok(%temps,4,32) == -o && $mid($remove($gettok(%temps,1,33),:),1,$len(%botnick)) == %botnick) { echo @GOAT %sockname DEOPED - 9,15 $+ $remove($gettok(%temps,1,33),:) DEOPED $gettok(%temps,5,32) } }
if (%detect == ip) { if ($gettok(%temps,4,32) == -o && * $+ %myip $+ * iswm %temps) { echo @GOAT %sockname DEOPED - 9,15 $+ $remove($gettok(%temps,1,33),:) DEOPED $gettok(%temps,5,32) } }
;set %jq on
if ($gettok(%temps,2,32) == JOIN && * $+ %myip $+ * iswm %temps) { set %guestnick $remove($gettok(%temps,1,33),:) | if (%jq == on) { echo @GOAT %sockname JOIN - 0,10 $+ %guestnick } }
if ($gettok(%temps,2,32) == QUIT && * $+ %myip $+ * iswm %temps && %jq == on) { echo @GOAT %sockname QUIT - 9,15 $+ $remove($gettok(%temps,1,33),:) }
if ($gettok(%temps,2,32) == PART && * $+ %myip $+ * iswm %temps && %jq == on) { echo @GOAT %sockname PART - 8,15 $+ $remove($gettok(%temps,1,33),:) }
;if ($gettok(%temps,4,32) == -o) { echo @GOAT %sockname DEOPED - 9,15 $+ $remove($gettok(%temps,1,33),:) DEOPED $gettok(%temps,5,32) }
if ($gettok(%temps,2,32) == KICK) {
timerreload off | timerreload 1 120 f1
if ($mid($gettok(%temps,4,32),1,$len(%watcher)) == %watcher) { rejoin }
;#### COUNT #######
if (%detect == ip) {
set %warrior $gettok($remove($gettok(%temps,2,64),:),1-3,46)
;if ($mid(%warrior,1,1) == $chr(61)) { set %warrior $mid($gettok(%warrior,2-,45),1,12) | goto trs }
if ($mid(%namababi,1,1) == $chr(61)) { set %namababi $right(%namababi,12) | goto trs }
:trs
set %warrior $mid(%warrior,1,12)
}
if (%detect == name) { set %warrior $remove($gettok($mid(%temps,1,6),1,33),:,1) }
if (%detect == logo) { set %warrior $remove($remove($mid($gettok(%temps,5-,32),1,4),:),$chr(32)) }
set %warrior1 $gettok($matchtok(%amikvarx,%warrior,1,32),2,58)
if (* $+ %warrior $+ * !iswm %amikvarx) { set %valuex %warrior $+ :1 | set %amikvarx %valuex %amikvarx }
if (* $+ %warrior $+ * iswm %amikvarx) { inc %warrior1 | set %valuex %warrior $+ : $+ %warrior1 | warriortulis }
:bodohx
if (%scan == true && %detect == ip) { if (* $+ %ipcheck $+ * iswm %warrior || %ipcheck == %warrior) { msg %channel IP %ipcheck ini Kepunyaan $remove($gettok(%temps,1,33),:) | set %scan false } }
if (%scanlogo == true && %detect == ip) { if (* $+ %ipcheck $+ * iswm %warrior || %ipcheck == %warrior) { msg %channel Logo For %ipcheck is $remove($gettok(%temps,5-,32),:) | set %scanlogo false } }
if (%scanip == true && %detect == ip) { if (* $+ %ipcheck $+ * iswm $remove($gettok(%temps,1,33),:) || %ipcheck == $remove($gettok(%temps,1,33),:)) { msg %channel IP For %ipcheck is %warrior | set %scanip false } }
;#### SCORE #######
if (%detect == name) { set %botnicks %botnick }
if (%detect == ip) { set %botnicks %myip }
set %botnicks $replace(%botnicks,$chr(32),$chr(44))
if ($len(%botnicks) > 1) { if ($right(%botnicks,1) != $chr(44)) { set %botnicks %botnicks $+ $chr(44) } }
var %ss = 1 | set %sx $count(%botnicks,$chr(44))
if ($len(%sx) == 0) { set %sx 1 }
while (%ss <= %sx) {
set %botnickss $gettok(%botnicks,%ss,44)
if (%detect == name) {
if ($mid($remove($gettok(%temps,1,33),:),1,$len(%botnickss)) == %botnickss) {
inc %mykick
if (%mykick > %limitkick) { clr | break }
if (%mykick == 500) { f3 | break }
set %myip %warrior
if (%myecho == off) { echo @GOAT %sockname SCORE - 8,2 $+ $remove($gettok(%temps,1,33),:) --> $gettok(%temps,4,32) / KICKED= $+ %babikick / ( $+ %mykick $+ ) | halt }
}
}
if (%detect == ip) {
if (* $+ %botnickss $+ * iswm %temps) {
inc %mykick
if (%mykick > %limitkick) { clr }
if (%mykick == 499) { f3 }
set %myip %warrior
if (%myecho == off) { echo @GOAT %sockname SCORE - 8,2 $+ $remove($gettok(%temps,1,33),:) --> $gettok(%temps,4,32) / ( $+ %mykick $+ ) | halt }
}
}
inc %ss
}
;#### KICKED #######
set %botnicks %botnick
set %botnicks $replace(%botnicks,$chr(32),$chr(44))
if ($len(%botnicks) > 1) { if ($right(%botnicks,1) != $chr(44)) { set %botnicks %botnicks $+ $chr(44) } }
var %ss = 1 | set %sx $count(%botnicks,$chr(44))
if ($len(%sx) == 0) { set %sx 1 }
while (%ss <= %sx) {
set %botnickss $gettok(%botnicks,%ss,44)
if ($mid($gettok(%temps,4,32),1,$len(%botnickss)) == %botnickss || $gettok(%temps,4,32) == %guestnick) {
inc %babikick
;if (%myecho == off) { echo @GOAT %sockname KICKED - 2,8 $+ $remove($gettok(%temps,1,33),:) --> $gettok(%temps,4,32) / ( $+ %warrior1 $+ ) | halt }
if (%myecho == off) { echo @GOAT %sockname KICKED - 2,8 $+ $gettok(%temps,4,32) <-- $remove($gettok(%temps,1,33),:) / ( $+ %warrior1 $+ ) | halt }
}
inc %ss
}
if (%detect == ip) { unset %babikick }
if (%showip == on && %detect == ip) { set %warriorx - IP %warrior }
if (%detect == name || %showip == off) { unset %warriorx }
if (%myecho == off) { echo @GOAT %sockname OTHER - $remove($gettok(%temps,1,33),:) --> $gettok(%temps,4,32) / ( $+ %warrior1 $+ ) %warriorx | halt }
;if (%myecho == on) { echo @GOAT $remove($gettok(%temps,1,33),:) --> $gettok(%temps,4,32) $mid($gettok(%temps,5-,32),2,110) $+ / ( $+ %warrior1 $+ ) / %mykick %warriorx | halt }
if (%myecho == on) { echo @GOAT $remove($gettok(%temps,1,33),:) --> $gettok(%temps,4,32) $gettok(%temps,5-,32) $+ / ( $+ %warrior1 $+ ) / %mykick %warriorx | halt }
}
}
alias f10 {
set %checker $ticks | set %chai 1
:start
if ($calc($ticks - %checker) <= 100) { inc %chai | goto start }
msg $active My Line Connection Speed Is $round($calc((%chai * 3.11) / 100 ),2) 14Kbps
}