#autom on
on  1:sockopen:%sock: {
  sockclose %sock
  echo -0 conexion establecida %proxyIp %proxyPort
  if (%indProxy5 != 0) {
    nick eu $+ [ %indProxy5 ]
    ;firewall off
    firewall -cm5 on %proxyIp %proxyPort
    server -m irc.zolty.net
  }
  else {
    echo -0 fin de la lista
  }
}
on 1:sockclose:Proxy5: {
  echo -0 conexion rechazada %proxyIp %proxyPort
  leerProxy5
}
on 1:CONNECT: {
  echo -0 7
  var %ok.connect = 1
  join #eu
  msg #eu $ip %proxyIp %proxyPort
  ;disconnect
}
on *:ERROR:*: {
  echo -0 7 Error $1-
  leerProxy5
}

on *:*:SIGNAL: { echo -0 7 $signal $1- }

on CONNECTFAIL: {
  echo -0 7 CONNECTFAIL
  leerProxy5
}

on disconnect: {
  echo -0 7 disconnect
  go5
}
raw 465:*: {
  echo -0 7 raw 465
  ;leerProxy5
  halt
}

#autom end

alias leerProxy5 {
  sockclose proxy5
  set %totProxy $lines(socks5.txt)
  var %indProxy5 = 1
  while (%indProxy5 <= %totProxy) {
    var %proxy = $read(socks5.txt,%indProxy5)
    var %proxyIp = $gettok( %proxy ,1, 58)
    var %proxyPort = $gettok( %proxy ,2, 58)
    if (%proxy) {
      if (!%sock) {
        set %sock  1
      }
      sockopen %sock %proxyIp %proxyPort
      inc %sock
    }
    inc %indProxy5
  }
  else {
    var %indProxy5 = 0
  }
}

alias go5 {
  leerProxy5
}