menu * { 
  -----------
  Tray:showmirc -t
  dialog:dialog -m p.cloning p.cloning
}

; mIRC Proxy checker by Neo 
; Checks the proxy for the mIRC from a txt list. 
; To work this shit, just type /proxy.check <file.txt> 
; And /stopscan to stop it. 
; A window will pop out "@ProxyCheckNeo", and from there u can see all the scan stuff. 
; Please, don`t abuse that script in any way, its just a tool for checking active Proxy`s(Not Socks!) for mIRC. 
; The socket is trying to connect to the mIRCx server, thrue the given proxy in the file text. 
; If it is sucsefull, it is stored in a file called "mircprox.txt" located in your mIRC directory. 

; Written by Neo, change whatever u like, but leave this credit. (C) (mIRCx.co.il) 


alias ed.wind { echo @ProxyCheckNeo $1- } 
alias proxy.check {  
  stopscan 
  set %org.proxy $1 
  window @ProxyCheckNeo 
  .timerover 0 1 dodacheck 
  set %proxy.found 0 
  ;sockopen Proxy.check $1 $2 | ;timeridle 1 14 checkproxynow $1 
  set %daline $lines(%org.proxy) 
  ed.wind Scan is started for %org.proxy with %daline Lines in it. 
  %i = 1 
  while (%i <= %daline) { 
    sockopen Proxy.check. $+ %i $gettok($read(%org.proxy,%i),1,58) $gettok($read(%org.proxy,%i),2,58) 
    inc %i 
  } 
} 
alias dodacheck { 
  if (!$sock(Proxy.check.*)) { 
    .timerover off 
    ed.wind $chr(3) $+ 10 $+ *Proxy* The scan on %proxy.file is over! $+ $chr(3) 
    ed.wind $chr(3) $+ 10 $+ *Proxy* Totally found %proxy.found Proxys! $+ $chr(3) 
    ed.wind $chr(3) $+ 10  $+ *Proxy* //run mircprox.txt - to see them! $+ $chr(3) 
    halt 
  } 
} 
alias checkproxynow { 
  if ($sock($1)) { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is not avalible $+ $chr(3) | sockclose $sockname } 
} 
on *:sockopen:Proxy.check.*: { 
  if ($sockerr == 0) { 
    sockwrite $sockname CONNECT irc.mircx.co.il $+ : $+ 6667 HTTP/1.0 $+ $crlf $+ $crlf 
    sockwrite $sockname $crlf 
    ed.wind $chr(3) $+ 4 $+ *Proxy* $sock($sockname).ip Data sent. $+ $chr(3) 
  } 
  else { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is not responding $+ $chr(3) } 
} 
on *:sockread:Proxy.check.*: { 
  sockread %pc.read 
  if (%pc.read) { 
    if ($gettok(%pc.read,3-4,32) == Connection established) { ed.wind $chr(3) $+ 12 $+ *Proxy* $sock($sockname).ip $+ : $+ $sock($sockname).port Proxy is ok with mIRC, writing to file and closing. $+ $chr(3) | write mircprox.txt $sock($sockname).ip $sock($sockname).port | inc %proxy.found | sockclose $sockname } 
    elseif (*400 Bad Request* iswm %pc.read || Connection: Close iswm %pc.read) { ed.wind $chr(3) $+ 4 $+ *Proxy* $sockname is not ok with mIRC $+ $chr(3) | sockclose $sockname } 
    ; echo -a %pc.read 
  } 
} 
on *:sockclose:Proxy.check: { ed.wind $chr(3) $+ 4 $+  *Proxy* $sockname is closed.$+ $chr(3) } 
alias stopscan { sockclose Proxy.check.* } 

; Written by Neo, change whatever u like, but leave this credit. (C) (mIRCx.co.il)