Untitled

;UPDATED WITH BETTER LEECHER
;INSTRUCTIONS
;Just do these easy steps to get the scanner working.
;-
;1.) Download mIRC from http://www.mIRC.com version does not matter.
;2.) Open mIRC.
;3.) Press ALT + R to open the remote tab.
;4.) Then copy paste the code located below into mIRC remotes.
;5.) Click Ok. Then type /scan.win to open the scanners windows.
;6.) Type /leech to leech the web for proxies; Do not worry if mIRC freezes or hangs, this means the script is working to import proxies into temporary files which will be scanned onward.
;7.) Do not forget you can open the menu of the scanners windows by right-clicking on them.
;8.) To scan custom proxies you can 1. ) Save your proxies into files (.txt) and click scan multiple files. OR 2.) Copy some proxies with (CTRL +C) paste them into the edit box (CTRL + V) .
;Remember: You can always open the scanners window by typing: /scan.win or by accessing it from the menu.
ALIAS DEF.S { %z = $r(0,1) | if (%z) return %def.s | else return %def.s2 }
alias getiphost2 {
  %var = /\b((?:(?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((?:(?:(25[0-5]|2[0-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i
  if $regex(ip,$remove($1-,$chr(9)),%var) {
    return $replace($regml(ip,1),:,$chr(32))
  }
}
on 1:START:scan.win
alias getsource {
  var %i $iif(http://* !iswm $1,http://) $+ $1, $&
    %comName leech. $+ $ticks, $&
    %fname $qt($mircdir $+ %comName $+ .txt)
  .comopen %comName MSScriptControl.ScriptControl
  var %v = $&
    Set xmlhttp = CreateObject("msxml2.xmlhttp") $lf $&
    xmlhttp.open "GET", $qt(%i) , false $lf $&
    xmlhttp.send $lf $&
    Set fso = CreateObject("Scripting.FileSystemObject") $lf $&
    fso.CreateTextFile( %fname ) $lf $&
    Set file = fso.OpenTextFile( %fname , 8, True) $lf $&
    file.WriteLine(xmlhttp.responseText) $lf $&
    file.Close

  noop $com(%comName,Language,4,bstr,VBScript) $com(%comName,ExecuteStatement,1,bstr,%v)
  .comclose %comName
  return %fname
  :error
  if ($com(%comName)) .comclose %comName
}
alias leech {
  scan.win
  if (!%interval) %interval = 50
  echo @proxyscan 4 $+ $timestamp * Now leeching proxy-lists over the web, mIRC might freeze (if so use CTRL + BREAK)
  .s4file $getsource(http://sockproxy.blogspot.ca/) %interval
  .timerpl.1 1 1 .s5file %fname %interval
  .timerpl.2 1 2 .pxyfile $getsource(http://freeproxy-all.blogspot.ca/) %interval
  .timerpl.3 1 3 .pxyfile $getsource(http://web.unideb.hu/aurel192/proxylist.txt) %interval
  .timerpl.4 1 4 .pxyfile $getsource(http://www.rmccurdy.com/scripts/proxy/good.txt) %interval
  .timerpl.5 1 5 .pxyfile $getsource(http://www.planetnana.co.il/adirbuskila//vips.txt) %interval
  .timerpl.6 1 6 .pxyfile $getsource(http://www.datinget.com/filteredprox.txt) %interval
  .timerpl.7 1 7 .pxyfile $getsource(http://datinget.com/pubprox.txt) %interval
  .timerpl.8 1 8 .pxyfile $getsource(http://webanet.ucoz.ru/freeproxy/proxylist_at_05.02.2014.txt) %interval
  .timerpl.9 1 9 .pxyfile $getsource(http://webanet.ucoz.ru/freeproxy/proxylist_at_21.02.2014.txt) %interval
  .timerpl.10 1 10 .pxyfile $getsource(http://skidd.in/proxy.txt) %interval
  .timerpl.11 1 11 .pxyfile $getsource(http://www.ipdizhi.com/20140228-all-ip.txt) %interval
  .timerpl.12 1 12 .pxyfile $getsource(http://rslab.su/proxy/PROXY.txt) %interval
  .timerpl.13 1 13 .pxyfile $getsource(http://proxy4cracking.blogspot.ca/) %interval
  .timerpl.14 1 14 .s5file $getsource(http://socks5proxyus.blogspot.ca/) %interval
  .timerpl.15 1 15 .pxyfile $getsource(http://fasthttpproxy.blogspot.ca/) %interval
  .timerpl.16 1 16 .pxyfile $getsource(http://transparentproxylist.blogspot.ca/) %interval
  .timerpl.17 1 17 .s5file $getsource(http://sock5us.blogspot.ca/) %interval
  .timerpl.18 1 18 .pxyfile $getsource(http://tophacksavailable.blogspot.ca/) %interval
  .timerpl.19 1 19 .pxyfile $getsource(http://proxypremium.blogspot.ca/) %interval
  .timerpl.20 1 20 .pxyfile $getsource(http://chinaproxies.blogspot.ca/) %interval
  .timerpl.21 1 21 .pxyfile $getsource(http://proxyhighanonymity.blogspot.ca/2014/03/05-03-14-ip-high-anonymous-proxy-1178.html) %interval
  .timerpl.22 1 22 .pxyfile $getsource(http://www.proxyworld.us/index.php?threads/2037-anonymous-proxy-05-03-2013.8524/) %interval
  .timerpl.23 1 23 .pxyfile $getsource(http://www.proxyworld.us/index.php?threads/04-03.8517/) %interval
  .timerpl.24 1 24 .s4file $getsource(http://www.proxyworld.us/index.php?threads/04-03.8504/) %interval
  .timerpl.25 1 25 .s5file %fname %interval
}
alias sc5nfile { s5.scan $1- }
alias sc4nfile { s4.scan $1- }
alias sc4n {
  if (*.*.*.*  iswm $1-) && ($1 != x) && ($2)  {
    if ($read($pxy,w,* $+ $1 $+ *) != $null) { echo @proxyscan $1 $2 Already in list, halted scan. | return }
    echo @proxyscan  Scanning: $1 $2
    sockopen scan $+ $r(0,99999999999999) $1 $2
    return
  }
  if ($getiphost2($1-)) {
    if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { echo @proxyscan $1 $+ : %+ $2 Already in list, halted scan. | goto next }
    echo @proxyscan  Scanning: $getiphost2($1-)
    sockopen scan $+ $r(0,99999999999999) $getiphost2($1-)
    goto next
  }
  if (*.*.*.* !iswm $1-) goto next
  if ($read($pxy,w,* $+ $wildtok($1-,*.*.*.*,1,32) $+ *) != $null) { echo @proxyscan $wildtok($1-,*.*.*.*,1,32) Already in list, halted scan. | goto next }
  :next
}
alias setinterval {
  echo -a Set interval in milliseconds to wait between each threads.
  echo -a To run the script without problem try an interval between 1 and 1000 use larger value if connection is slow.
  :restart
  %interval = $?="Enter interval in milliseconds, 1 to 1000 "
  if (!$!) || ($! >= 1000) goto restart
}
alias defaultset { %interval = 50 | %def.s = 184.161.67.182 | %def.s2 = 173.176.239.242 | %def.p = 6667 | %fldchan = #elite-team }
alias scan.win { inc %scan.start | if (%scan.start == 1) defaultset | if (%interval == $null) setinterval | if ($window(@proxyscan) == $null) { window -e @proxyscan | window -e @sock4 | window -e @sock5 } }
alias selectmultiplefile { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE PROXY FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /pxyfile $shortfn($msfile(%sinc)) %interval | goto incthat }
menu @proxyscan,menubar {
  [-Proxy Scan-]
  .play central:play
  .Show window: scan.win | window -e @proxyscan | echo @proxyscan Paste your proxies here
  .Leech Proxy Now!:leech
  .-
  .Settings
  ..Default Setting: defaultset
  ..Set interval of scan ( $+ %interval $+ ): setinterval
  ..Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel"
  ..Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)"
  ..Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)"
  ..
  .-
  .Show good proxies: /run $pxy
  .Sort proxy list: /filterfile $pxy
  .-
  .Scan multiple proxy files: selectmultiplefile
  .-
  .Abort scanning: abord | /SOCKCLOSE SCAN*
  .Clear window: /clear
  .Hide window: window -h @proxyscan
  .-
  .Proxy lists
  ..My-Proxy forum: run http://forum.my-proxy.com/?from=menu
  ..Xorum: run http://www.xroxy.com/xorum/
  ..Proxy4Free: run http://www.proxy4free.com
  ..PublicProxyServers:run http://www.publicproxyservers.com/page1.html
  ..AnonymityChecker:run http://www.anonymitychecker.com/page1.html
  ..Proxz:run http://www.proxz.com/
  ..MultiProxy:run http://www.multiproxy.org/anon_proxy.htm
  ..Samair:run http://www.samair.ru/proxy/
  ..HighAnonimity: run http://highanonymity.com/
}

alias pxy return ValidProxy.txt
alias abord { play stop | .timerleech off | timerpl.* off }
on *:INPUT:@Proxyscan:{
  if (/ !isin $1) && ($getiphost2($1-)) {
    write temp $getiphost2($1-)
    .timerscanfile 1 1 .pxyfile temp %interval
    .timerscanfileoff 1 2 .remove temp
    return
  }
  if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32)
}
alias sk {
  write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port
  set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *)
  if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port
}
on *:sockopen:scan*:{
  if ($sockerr > 0) { echo @proxyscan 14,15 $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) | return }
  if (_ !isin $sockname) {
    sockmark $sockname $ticks
    sockwrite -n $sockname CONNECT $def.s $+ : $+ %def.p HTTP/1. $+ $r(0,1) $+ $crlf
    sockwrite -n $sockname $crlf
    sockwrite -n $sockname $crlf
    return
  }
}
alias success { echo @proxyscan $1- | sk }
alias allpxy return ALL.txt
alias portclose { sockclose $1 }
on *:SOCKREAD:scan*:{
  sockread %scan
  if (ERROR* iswm $gettok(%scan,1,32)) { Echo @proxyscan 6* $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! (but banned on %def.s $+ ) Lag: $calc($ticks - $sock($sockname).mark) ms }
  if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($gettok(%scan,2,32),:)
  if (HTTP/* iswm $gettok(%scan,1,32)) {
    if ($gettok(%scan,2,32) > 200) { echo @proxyscan 4,5 Bad: $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $iif(Method not allowed iswm $gettok(%scan,3-,32),CoDeeN Proxy,$gettok(%scan,3-,32)) $+ ) | sockclose $sockname | return }
    if ($gettok(%scan,2,32) == 200) {
      echo @proxyscan 3 $sock($sockname).ip $+ : $+ $sock($sockname).port is connecting... | sockwrite -n $sockname $crlf | sockwrite -n $sockname $crlf
    }
  }
  if (*NOTICE AUTH* iswmcs $gettok(%scan,1-3,32)) {
    set -u1 %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *)
    if (%readi == $null) {
      success 9,3* $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms
      sockrename $sockname fld $+ $sockname
    }
    sockwrite -n $sockname USER $read(users.txt) "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999)
    sockwrite -n $sockname NICK $read(users.txt)
    sockwrite -n $sockname JOIN %fldchan

  }
}

on 1:sockclose:scan*:echo @proxyscan 4,5 $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated.
alias pb return echo @proxyscan
alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) }
alias pxyfile { play -a scanfile @proxyscan $1 $2 }
alias range {
  unset %range*
  set %range1 $gettok($1,1,46)
  set %range2 $gettok($1,2,46)
  set %range3 $gettok($1,3,46)
  .timerRANGEr -om 0 %interval next $2-
  privmsg %fldchan Starting at $1 on Port $2 Sv $+ $3
}
menu menubar {
  Open Socks Scanner: scan.win
}
alias next {
  :START
  set %temp $r(0,999999999999)
  if ($sock(s $+ $2 $+ chk $+ %temp).name != $null) goto START
  inc %range4
  sockopen s $+ $2 $+ chk $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 $1
  goto next
  :NEXT
  if (%range4 >= 255) { inc %range3 | set %range4 0 }
  if (%range3 >= 255) { inc %range2 | set %range3 0 }
  if (%range2 >= 255) { unset %range* |  PRIVMSG : $+ $chr(35) $+ $gettok(%def.c,1,32) Scan halted. | .timerRANGE off | halt }
}
on *:INPUT:@sock5:{
  write temp.s5  $getiphost2($1-)
  .timerscans5file 1 1 .s5file temp.s5 %interval
  .timerscans5fileoff 1 2 .remove temp.s5
}
on *:INPUT:@sock4:{
  write temp.s4  $getiphost2($1-)
  .timerscans4file 1 1 .s4file temp.s4 %interval
  .timerscans4fileoff 1 2 .remove temp.s4
}
alias s5.scan {
  if (!$1) goto END
  window -e @sock5
  if ($read(sock5.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock5 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list. | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s5chk $+ $r(0,9999999) $1 $2
      echo @sock5 Scanning: $1 $2
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null)  {
    sockopen s5chk $+ $r(0,9999999) $getiphost2($1-)
    echo @sock5 Scanning: $getiphost2($1-)
  }
  :END
}
menu @sock5 {
  play central:play
  Show window: scan.win | window -e @proxyscan | echo @proxyscan Paste your proxies here
  Leech Proxy Now!:leech
  -
  Settings
  .Default Setting: defaultset
  .Set interval of scan ( $+ %interval $+ ): setinterval
  .Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel"
  .Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)"
  .Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)"
  -
  Scan SOCK5 IP range:range $?="IP: 59.90.0.0" $?="Port" 5
  -
  Check current SOCK5 list: /run sock5.txt
  Sort file: /filterfile sock5.txt
  -
  Set interval of scan:setinterval
  Scan multiple SOCK5 files: selectmultiplefiles5
  -
  ABORT SCANS: abord
  Clear: /clear
}
alias selectmultiplefiles5 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK5 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s5file $shortfn($msfile(%sinc)) %interval | goto incthat }
alias selectmultiplefiles4 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK4 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s4file $shortfn($msfile(%sinc)) %interval | goto incthat }
menu @sock4 {
  play central:play
  Show window: scan.win | window -e @proxyscan | echo @proxyscan Paste your proxies here
  Leech Proxy Now!:leech
  -
  Settings
  .Default Setting: defaultset
  .Set interval of scan ( $+ %interval $+ ): setinterval
  .Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel"
  .Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)"
  .Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)"
  -
  Scan SOCK4 IP range:range $?="IP: 59.90.0.0" $?="Port" 4
  -
  Check current SOCK4 list: /run sock4.txt
  Sort list: /filterfile sock4.txt
  -
  Set interval of scan: setinterval
  Scan multiple SOCK4 files: selectmultiplefiles4
  -
  ABORT SCANS: .play stop | .timerranger off | sockclose *chk*
  Clear: clear
}
alias s4.scan {
  if (!$1) goto END
  window -e @sock4
  if ($read(sock4.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock4 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list | goto END }
  if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) {
    if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) {
      sockopen s4chk $+ $r(0,9999999) $1 $2
      echo @sock4 Scanning: $1 $2
    }
  }
  elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) {
    sockopen s4chk $+ $r(0,9999999) $getiphost2($1-)
    echo @sock4 Scanning: $getiphost2($1-)
  }
  :END
}
on *:sockopen:s5chk*:{
  if ($sockerr) { echo @sock5 15,14* Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return }
  .bset &bvar5 1 5 1 0
  .sockwrite -n $sockname &bvar5
  .bunset &bvar5
  return
}
on *:sockread:s5chk*:{
  if ($sockbr) { return }
  .sockread &bsocks5
  if ($bvar(&bsocks5,1,2) != 5 0) { echo @sock5 4,5Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks5,2-) | return }
  if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) {
    sockmark $sockname $ticks
    bset &socks5  1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46)
    .sockwrite -n $sockname &socks5
    .bunset &socks5
    sockrename $sockname chks5 $+ $remove($sockname,s5chk)

  }
}
on 1:SOCKREAD:chks5*:{
  sockread %socks5
  if (*NOTICE AUTH* iswmcs $gettok(%socks5,1-3,32)) {
    window -e @sock5
    suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms
    sockrename $sockname fld $+ $sockname
  }
}
alias suces4 { echo @sock4 9,3* $1- | sk4 }
alias suces5 { echo @sock5 9,3* $1- | sk5 }
alias sk4 {
  set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
}
alias sk5 {
  set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *)
  if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
}
on *:sockopen:s4chk*:{
  if ($sockerr) { echo @sock4 14,15* Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return }
  sockmark $sockname $ticks
  .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace($def.s,.,$chr(32)) 0
  .sockwrite $sockname &bvar4
  .bunset &bvar4
}
ON *:SOCKREAD:s4chk*:{
  if ($sockbr) { return }
  .sockread &bsocks4
  if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return }
  if ($bvar(&bsocks4,2) == 90) {
    window -e @sock4
    suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms
    sockrename $sockname fld $+ $sockname
  }
}
on 1:SOCKCLOSE:s5*:{ echo @sock5 4,5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return }
on 1:SOCKCLOSE:s4*:{ echo @sock4 4,5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return }
alias scans4file { s4.scan $getiphost2($1-) }
alias s4file { play -a scans4file @sock4 $1- }
alias scans5file { s5.scan $getiphost2($1-) }
alias s5file { play -a scans5file @sock5 $1- }
alias logo return psyBNC2.3.1d
on 1:SOCKREAD:fld*:{
  if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime
  sockread %fld
  if ($gettok(%fld,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%fld,2,32),:) }
  if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!own) { sockwrite -n $sockname NOTICE $remove($gettok($gettok(%fld,1,32),1,33),:) : I am connecting from $sock($sockname).ip $+ : $+ $sock($sockname).port }
  if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!up) {  %up = $ctime - $sock($sockname).mark |  sockwrite -n $sockname NOTICE $remove($gettok($gettok(%fld,1,32),1,33),:) : Uptime:  $+ $duration($calc(%up)) $+    }
  if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!kill) { sockwrite -n $sockname QUIT : $+ $gettok(%fld,5,32) }
  if (*NOTICE AUTH* iswm $gettok(%fld,1-3,32)) || (451 == $gettok(%fld,2,32)) || (43* iswm $gettok(%fld,2,32)) {
    sockmark $sockname $ctime
    .timerNICK $+ $sockname 1 1 sockwrite -n $sockname NICK $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9)
    .timerUSR $+ $sockname 1 1 sockwrite -n $sockname USER $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9)  "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9)
    .timerJOIN $+ $sockname 1 2 $iif(%fldchan != $null,sockwrite -n $sockname JOIN %fldchan)
  }
}