alias fetch_ip {
  if (!$regex(ipcheck, $1-, /<font class\=st>((\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3}))</font>/)) return $null
  var %i = 2,%result = 0
  while (%i <= 5) {
    if ($regml(ipcheck, %i) < 255 && $regml(ipcheck, %i) > 0) { inc %result }
    inc %i
  }
  if (%result == 4) return $regml(ipcheck, 1)
}