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
}
 

Commenting Options