alias warenhuis-gaming {

  if ($sock(warenhuis-gaming.net)) { echo $colour(info) -ea warenhuis-gaming.net >> /warenhuis-gaming.net.net is already in use! | return }

  if (($1) && ($1 !isnum) && (!$istok(news,$1,32))) { echo $colour(info) -ea warenhuis-gaming.net >> $+(",$1,") is an invalid type. | return }

  set %wnet.type $iif($1 !isnum,$1)

  set %wnet.limit $iif($1 isnum,$1,$2)

  sockopen warenhuis-gaming www.warenhuis-gaming.net 80

}

 

on *:sockopen:warenhuis-gaming: {

  sockwrite -n $sockname GET $+(/v2/rss.php?type=,%wnet.type,&limit=,%wnet.limit) HTTP/1.1

  sockwrite -n $sockname Host: $sock($sockname).ip

  sockwrite -n $sockname Accept: */*

  sockwrite -n $sockname Connection: close

  sockwrite -n $sockname $crlf

}

 

on *:sockread:warenhuis-gaming:{

  var %wnet.data

  sockread %wnet.data

  if ($regex(%wnet.data,/</channel>/i)) set %wnet 1

  if ($regex(%wnet.data,/<title>(.*)</title>/i) && (%wnet)) .signal -n warenhuis-gaming title: $regml(1)

  if ($regex(%wnet.data,/<link>(.*)</link>/i) && (%wnet)) .signal -n warenhuis-gaming url: $+($chr(31),$chr(3),$colour(info),$replace($regml(1),$sock($sockname).ip,www.warenhuis-gaming.net),$chr(15))

  if ($regex(%wnet.data,/<description>(.*)</description>/i) && (%wnet)) .signal -n warenhuis-gaming desc: $regml(1)

  if ($regex(%wnet.data,/</item>/i) && (%wnet)) linesep -a

  ;echo -a mnet -> %mnet.data

}

 

on *:sockclose:warenhuis-gaming:unset %wnet*

on *:signal:warenhuis-gaming:echo $colour(own) -a $signal >> $1-