on *:text:!time *:#: {
  set %city $2-
  set %date.nick $nick
  sockopen time timeanddate.com 80
  echo -a Opening Socket
}
on *:sockopen:time:{
  echo -a Socket Open
  sockwrite -n $sockname GET /worldclock/full.html HTTP/1.1
  sockwrite -nt $sockname Host: timeanddate.com $+ $crlf $+ $crlf
  echo -a Data Written to Socket
}
on *:sockread:time:{
  echo -a Sockread Data
  var %temptext
  sockread %temptext
  if $regex(%temptext,/<td><a href="city.html?n=1"> $+ %city $+ </a></td><td class="r">/Si) {
    echo -a Socket IF was true
    notice %date.nick Date is: $remove($regsubex(%temptext,/(^[^<]*>|<[^>]*>|<[^>]*$)/gSi,$null),$chr(9))
    sockclose time
  }
}