Anyway...

Code:
on *:text:!serverstatus &:#: checkhost $2

alias checkhost {
  var %sock = $+(checkhost,$ticks,$r(1111,9999))
  sockopen %sock $$1 80
  sockmark %sock $chan $1 ->
}
on *:sockopen:checkhost*:{ 
  var %sock = $sockname
  msg $sock(%sock).mark $iif($sockerr,$false,$true - $sock(%sock).ip) 
  sockclose %sock
}

Gone.