Miscellany

on $*:TEXT:/^[@!]weather/Si:#:{ 
  set %weather.dest $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) { %weather.dest Sorry, you didn't specify a Zip Code. | unset %weather.dest | halt } 
  set %weather.zip $2
  sockopen weather www.degraeve.com 80
}
on *:SOCKOPEN:weather:{ 
  sockwrite -n weather GET /weather.php?zip= $+ %weather.zip  HTTP/1.1
  sockwrite -n weather Host: www.degraeve.com $+ $crlf $+ $crlf
} 
on *:SOCKREAD:weather:{ 
  if ($sockerr) { %weather.dest $sockerror | sockclose weather }    
  var %result | sockread -f %result
  set %weather.result $remove($htmlfree(%result),$chr(9))
  tokenize 32 %weather.result
  if ($1-2 == weather for) { %weather.dest $1- }
  if (now* iswm $1) { %weather.dest Temperature: $+($replace($1,now,$chr(2),&deg,$chr(176)),$chr(2)) Humidity: $+($chr(2),$3) | sockclose $sockname | unset %weather.*  | halt }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}