on $*:text:/^[!@.](Weer|Weather)/Si:#rf:{ 
  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
unset %nextline 
} 
if (*Verwachting</div>* iswm %weer.read) { 
set %nextline 1 
%weer.bericht Voor vandaar hebben wet %verwachting 
} 
}
} 
ON *:SOCKCLOSE:weer:{ 
  unset %weer.bericht
  }