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 
  } 
  else { 
    var %weer.read
    sockread %weer.read
    if (%nextline) && (*<p>* !iswm %weer.read) { 
      set %verwachting %weer.read
      %weer.bericht %verwachting
      unset %nextline %weer.bericht %verwachting
    } 
    if (*Verwachting</div>* iswm %weer.read) { 
      set %nextline 1 
    } 
  }
}