Unnamed

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

on *:connect:{
  timer 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-)) { //echo geen nieuwe rsupdate }
      else { /amsg $c3(<) $+ $c2 NEW RS UPDATE $c3(>) $c2(Date) $+ $c3(:) $+ $c1 $htmlfree($1) $c2(Topic) $+ $c3(:) $+ $c1 $htmlfree($2-) 
        /writeini news.ini NEWS Titel $htmlfree($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 
}