Not my place, but to Cheiron:

;;;;;;;;;;;;;;;;;;
;; Port Checker ;;
;; By Jonesy44  ;;
;;;;;;;;;;;;;;;;;;

alias pc {
  set %pc.addr $$input(Enter the Address/IP and port of the server you want to check (IP:Port),eq,Port Check - Input Information)
  if ($sock(pc)) { .sockclose pc }
  if (%pc.addr) {
  window @Ports
    aline @Ports 2Port Check; $str(-,50)
    aline @Ports  2Port Check; Checking address $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) Please wait..
    .sockopen pc $iif(: isin %pc.addr,$replace(%pc.addr,$chr(58),$chr(32)),%pc.addr 80)
    set %pc.timeout 5
    .timerpc1 0 1 pc.timeout
  }
}
alias pc.timeout {
  if (%pc.timeout <= 0) {
    aline @Ports 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80))
    aline @Ports 2Port Check; $str(-,50) 
    .sockclose pc
    .timerpc1 off
    unset %pc.addr
  }
  else { dec %pc.timeout }
}
on *:SOCKOPEN:pc: {
  if ($sockerr) { aline @Ports 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) }
  else { aline @Ports 3Port Check: Connected succesfully to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) }
  aline @Ports 2Port Check; $str(-,50) 
  unset %pc.addr
  .sockclose pc
  .timerpc1 off
}

Just made it work with a @window (@Ports) instead of echoing to the active..Bored.

Nice btw :P