alias proxycheck { 
  if ($1 == $null) { echo 3* Missing parameters: /proxycheck <ip> or to check your own ip /proxycheck localhost }
  else {
    if ($1 == localhost) { 
      echo -a 3* Checking your ip address, Please wait...
      set %checkip $ip
      /proxycheck.progress
      halt
    }
    else {
      echo -a 3* Checking ip address, Please wait...
      set %checkip $1
      /proxycheck.progress
    }
  }
}

alias -l proxycheck.progress {
  .timer 1 1 dnsbl.tornevall.org 
  .timer 1 3 opm.tornevall.org 
  .timer 1 4 dnsbl.dronebl.org
  .timer 1 5 rbl.efnet.org
  .timer 1 6 rbl.efnetrbl.org
  .timer 1 7 dnsbl.cyberlogic.net
  .timer 1 8 all.s5h.net
  .timer 1 9 socks.dnsbl.sorbs.net
  .timer 1 10 tor.dan.me.uk
  .timer 1 11 dnsbl-1.uceprotect.net
  .timer 1 12 dnsbl-2.uceprotect.net
  .timer 1 13 dnsbl-3.uceprotect.net
  .timer 1 14 dnsbl.rizon.net
  .timer 1 15 virbl.dnsbl.bit.nl
  .timer 1 16 rbl.faynticrbl.org
  .timer 1 17 dnsbl.ipocalypse.net
  .timer 1 18 bl.spamcannibal.org
  .timer 1 19 drone.abuse.ch
  .timer 1 20 tor.dnsbl.sectoor.de
}

alias -l dnsbl.tornevall.org {
  set %dbl dnsbl.tornevall.org
  dns $revip(%checkip) $+ .dnsbl.tornevall.org
}
alias -l opm.tornevall.org {
  set %dbl opm.tornevall.org
  dns $revip(%checkip) $+ .opm.tornevall.org
}
alias -l dnsbl.dronebl.org {
  set %dbl dnsbl.dronebl.org
  dns $revip(%checkip) $+ .dnsbl.dronebl.org
}
alias -l rbl.efnet.org {
  set %dbl rbl.efnet.org
  dns $revip(%checkip) $+ .rbl.efnet.org
}
alias -l rbl.efnetrbl.org {
  set %dbl rbl.efnetrbl.org
  dns $revip(%checkip) $+ .rbl.efnetrbl.org
}
alias -l dnsbl.cyberlogic.net {
  set %dbl dnsbl.cyberlogic.net
  dns $revip(%checkip) $+ .dnsbl.cyberlogic.net
}
alias -l all.s5h.net {
  set %dbl all.s5h.net
  dns $revip(%checkip) $+ .all.s5h.net
}
alias -l socks.dnsbl.sorbs.net {
  set %dbl socks.dnsbl.sorbs.net
  dns $revip(%checkip) $+ .socks.dnsbl.sorbs.net
}
alias -l tor.dan.me.uk {
  set %dbl tor.dan.me.uk
  dns $revip(%checkip) $+ .tor.dan.me.uk
}
alias -l dnsbl-1.uceprotect.net {
  set %dbl dnsbl-1.uceprotect.net
  dns $revip(%checkip) $+ .dnsbl-1.uceprotect.net
}
alias -l dnsbl-2.uceprotect.net {
  set %dbl dnsbl-2.uceprotect.net
  dns $revip(%checkip) $+ .dnsbl-2.uceprotect.net
}
alias -l dnsbl-3.uceprotect.net {
  set %dbl dnsbl-3.uceprotect.net
  dns $revip(%checkip) $+ .dnsbl-3.uceprotect.net
}
alias -l tor.dnsbl.sectoor.de {
  set %dbl tor.dnsbl.sectoor.de
  dns $revip(%checkip) $+ .tor.dnsbl.sectoor.de
}
alias -l dnsbl.rizon.net {
  set %dbl dnsbl.rizon.net
  dns $revip(%checkip) $+ .dnsbl.rizon.net
}
alias -l virbl.dnsbl.bit.nl {
  set %dbl virbl.dnsbl.bit.nl
  dns $revip(%checkip) $+ .virbl.dnsbl.bit.nl
}
alias -l rbl.faynticrbl.org {
  set %dbl rbl.faynticrbl.org
  dns $revip(%checkip) $+ .rbl.faynticrbl.org
}
alias -l dnsbl.ipocalypse.net {
  set %dbl dnsbl.ipocalypse.net
  dns $revip(%checkip) $+ .dnsbl.ipocalypse.net
}
alias -l bl.spamcannibal.org {
  set %dbl bl.spamcannibal.org
  dns $revip(%checkip) $+ .bl.spamcannibal.org
}
alias -l drone.abuse.ch {
  set %dbl drone.abuse.ch
  dns $revip(%checkip) $+ .drone.abuse.ch
}
alias -l tor.dnsbl.sectoor.de {
  set %dbl tor.dnsbl.sectoor.de
  dns $revip(%checkip) $+ .tor.dnsbl.sectoor.de
}

on *:DNS:{ 
  if (%dbl == dnsbl.tornevall.org) { 
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  }
  if (%dbl == opm.tornevall.org) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == dnsbl.dronebl.org) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == rbl.efnet.org) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == rbl.efnetrbl.org) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == dnsbl.cyberlogic.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == all.s5h.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == socks.dnsbl.sorbs.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == tor.dan.me.uk) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == dnsbl-1.uceprotect.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == dnsbl-2.uceprotect.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  }
  if (%dbl == dnsbl-3.uceprotect.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl } 
  } 
  if (%dbl == dnsbl.rizon.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  } 
  if (%dbl == virbl.dnsbl.bit.nl) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  } 
  if (%dbl == rbl.faynticrbl.org) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  } 
  if (%dbl == dnsbl.ipocalypse.net) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  } 
  if (%dbl == bl.spamcannibal.org) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  } 
  if (%dbl == drone.abuse.ch) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }
  } 
  if (%dbl == tor.dnsbl.sectoor.de) {   
    if ($iaddress != $null) { 
    echo  -a 4* The IP %checkip has been found in BL zone %dbl }
    else { 
    echo  -a 3* The IP %checkip has not been found in BL zone %dbl }

  }
}

alias revip { tokenize 46 $1 | return $+($4, ., $3, ., $2, ., $1) }