Proxy Scanner Simple by AbangCik

Cara nk guna,

a) Letakkan semua proxy dalam satu notepad pada directory folder mirc tu.
    * Pastikan rename notepad tu jadik ProxyList.txt

b) Letakkan jugak nama bagi bots ni dalam notepad pada directory folder mirc tu.
    * Pastikan rename notepad tu jadik NamaBots.txt
    * kalau nk guna nama yg registered. Tulis nama bots tu mcm kt bawah ni
       (ade space antara nama dan password)

         azizie abc1234
         AbangCik def567
         Ahmad.Albab
         Ahmad.Tingkap
         HambaAllah

c) Connect terus Bots. done

- Bila bots Disconnect, dia akan automatik tukar ke proxy lain
- Setiap kali dia connect, dia akan save IP Proxy, Hostname dan Ping time dalam ProxySuccess.txt
   ade dalam directory folder irc tu.

Please support #islam .Thanks


;<--------------------- Copy From Here---------------------> ;
alias ck {
  if (%random == ON) {
    .set %totalproxy $lines(ProxyList.txt)
    .set %Proxy $read(ProxyList.txt)
    .Proxy on %Proxy
  }
  if (%Line == ON) {
    .inc %kira
    .set %totalproxy $lines(ProxyList.txt)
    if (%kira > %totalproxy) { .unset %kira }
    .set %Proxy $read(ProxyList.txt,%kira)
    .Proxy on %Proxy
  }
  .timerck 0 25 .ck
}

on *:connect: {
  .nick $read(NamaBots.txt)
  .timerck off
  .ctcp $me ping
  .join #islam
  .join %chan1
}
on *:disconnect: { .ck }

on *:join:#: {
  if ($nick == $me) {
    .write ProxySuccess.txt Date: $date(dd.mm.yy) ( $+ $time(hh.mm) $+ ) PROXY: %proxy .Host: $address($me,4) .Ping: %pt .Server $server
  }
}

on *:ctcpreply:PING* {
  if ($2 == $null) halt
  else {
    %pt = $ctime - $2
    if (%pt < 0) { .set %pt 0 }
  }
}

menu status,channel,query {
  -
  Proxy Start
  .Connect to Server:.ck | .server java.webchat.org:7000
  .-
  .Random Read ( %Random ):.set %Random ON | .set %Line OFF
  .Line by Line ( %Line ):.set %Line ON | .set %Random OFF
  -
}