Unnamed

on $*:text:/^[!@.](Weer|Weather)/Si:#:{ 
  sockclose weer
  set %weer.bericht $iif($left($1,1) == @, msg $chan, notice $nick) 
  sockopen weer www.knmi.nl 80 
} 
ON *:SOCKOPEN:weer:{ 
  sockwrite -nt $sockname GET / HTTP/1.1 
  sockwrite -nt $sockname Host: www.knmi.nl
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:weer:{ 
  if ($sockerr) {  
    echo -a Error. 
    sockclose $sockname 
    halt 
  } 
    var %weer.read
    sockread %weer.read
        if (*Verwachting</div>* iswm %weer.read) { 
sockread %weer.read
tokenize 32 %weer.read
if (*<p>* iswm $1-) {
sockread %weer.read
tokenize 32 %weer.read
%weer.bericht Verwachting voor vandaag: $1-
    } 
  }
}