Untitled

alias c1 { return $+($chr(3),12,$1-) } 
alias c2 { return $+($chr(3),13,$1-) } 
alias c3 { return $+($chr(3),04,$1-) } 

on *:connect:#:{
  if ($sock(newss)) .sockclose newss
  /timer2 0 30 sockopen newss www.runescape.com 80

}
on *:SOCKOPEN:newss: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:newss: {
  if ($sockerr) { halt }
  else {
    var %sockets
    sockread %sockets
    if (*class="newsdate">*</span>*/dt>* iswm %sockets) {
      tokenize 32 $htmlfree($replace($gettok(%sockets,3,34),</span>,$chr(32)))
    }
    if ($readini(news.ini,NEWS,Titel) == $htmlfree($2-)) { halt }
    else {
      /amsg $c3(<) $+ $c2 Rs-nieuws $+ $c3(>) $c2(Date) $+ $c3(:) $+ $c1 $htmlfree($1) $c2(Topic) $+ $c3(:) $+ $c1 $htmlfree($2-) 
      /writeini news.ini NEWS Titel $htmflree($2-)
    }
    if (*<td style="text-align: justify; vertical-align: top;">*</td>* iswm %sockets) {   
      tokenize 32 %sockets
      /amsg $c2(Nieuws) $+ $c3(:) $+ $c1 $htmlfree($gettok(%sockets,3,34)) 
    }
    if (*<div style="margin-top: 0.5em;"><a href="*">* iswm %sockets) {
      tokenize 32 %sockets 
      /amsg $c2(Link) $+ $c3(:) $+ $c1 $gettok(%sockets,4,34)
      unset %newssway
      sockclose newss
    }
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}