Untitled

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