FIFA World Cup Scores Quick Lookup

[chain]

I like this code so decided to add it on here as it was on Hawkee!! Made by:Jethro_

 

!wc

*** Please Wait... The Word Cup Scores Are as Follows...

Italy vs. Paraguay has ended. Final score: 1 - 1

Italy vs. Paraguay Live score: 1 - 1

Goal! Daniele De Rossi scores for Italy. Time: 63'

Italy vs. Paraguay Live score: 0 - 1

Goal! Antolín Alcaraz scores for Paraguay. Time: 39'

Italy vs. Paraguay has started.

The game started at 19:30

Japan vs. Cameroon has ended. Final score: 1 - 0

Japan vs. Cameroon Live score: 1 - 0

Goal! Keisuke Honda scores for Japan. Time: 38'

more...

 

 

>on *:exit:{  $iif($exists(wc.txt),.remove wc.txt)  $iif($exists(wc2.txt),.remove wc2.txt)}on *:text:$($iif(!wc = $strip($1),$1)):#:{  if !%f { inc -u5 %f    .msg # *** Please Wait... The Word Cup Scores Are as Follows...    if $sock(wc) { sockclose wc }    sockopen wc www.rsslivescores.com 80    sockmark wc .play -f5 # wc2.txt 1500  }}on *:sockclose:wc:{  var %x 1  while $read(wc.txt) {    tokenize 124 $discard1($discard($v1))    write wc2.txt $*    inc %x  }  .timerreadwc 1 1 $sock(wc).mark}on *:sockopen:wc:{  if !$sockerr {    $iif($exists(wc.txt),write -c wc.txt)    $iif($exists(wc.txt),write -c wc2.txt)    var %wc sockwrite -n wc    %wc GET /rsswc.aspx HTTP/1.0    %wc Host: $sock(wc).addr    %wc $crlf  }}on *:sockread:wc:{  sockread &wc  bwrite wc.txt -1 -1 &wc}alias -l discard {  return $regsubex($1,/]*>|$&    $+ http://www.rsslivescores.com/worldcup.aspx/gi,$chr(124))}alias -l discard1 {  return $regsubex($1,/\d\d\55\d\d\55\d{4}\s\d\d\72\d\d\72$&    $+ \d\d|The game has ended/gi,)}