# Enter the full path and name of the files to be used
$VZFile ="C:\users\public\documents\nfl\nfl.txt"
$ModVZFile ="C:\users\public\documents\nfl\Modnfl.txt"
$lineread=0
# The full path and name of the HTML scrubber program.
$ScrubProg ="c:\users\public\documents\nfl\HTMLScrub.exe"
$gamenotover=0
FileDelete($VZFile) #Clears the file and prevents adding to it needlessly
FileWrite($VZFile,HTTPGet("http://www.nfl.com/liveupdate/scorestrip/ss.xml"))
FileReadClose($ModVZFile)
Sleep(1000)
Exec($ScrubProg) #Modifies $VZFile.txt and creates $VZModFile.txt
Sleep(1000) #May need to be adjusted depending on file size.
FileReadReset($ModVZFile)

FileReadReset($ModVZFile) #Always start from the beginning
$ExitLoop =False
repeatwhile(FileReadEnd($ModVZFile)=0 AND $ExitLoop =False)
  $TheText =FileReadLine($ModVZFile)
  $lineread=$lineread+1
  $gameover=IndexOf($TheText,"Fh=")
  $gamenotover=IndexOf($TheText,"Ph=")
  if ($lineread >4 and $gameover>0)
    $value=IndexOf($TheText,"h= ")
    $home=(Substring($TheText,$value+3,3))
    $nextvalue=IndexOf($TheText,"v= ")
    $visit=(Substring($TheText,$nextvalue+3,3))
    $vpos=IndexOf($TheText,"rz")
    $hscore=(SubString($TheText,$nextvalue-2,2))
    $vscore=(Substring($TheText,$vpos-2,2))
    goto (getname)
    goto (sayscore)
  ELSEif ($lineread>4 and $gamenotover>0)
    $value=IndexOf($TheText,"h= ")
    $home=(Substring($TheText,$value+3,3))
    $nextvalue=IndexOf($TheText,"v= ")
    $visit=(Substring($TheText,$nextvalue+3,3))
    GOTO(getname)
    goto(sayscore)
  endif
ENDrepeatwhile
halt

:getname
if ($home="PIT")
  $homename=("Steelers")
ELSEif ($home="DET")
  $homename=("Lions")
ELSEif ($home="CLE")
  $homename=("Browns")
ELSEif ($home="GBh")
  $homename=("Packers")
ELSEif ($home="NEh")
  $homename=("Patriots")
ELSEif ($home="SEA")
  $homename=("Seahawks")
ELSEif ($home="WAS")
  $homename=("Redskins")
ELSEif ($home="DAL")
  $homename=("Cowboys")
ELSEif ($home="SDh")
  $homename=("Chargers")
ELSEif ($home="TEN")
  $homename=("Titans")
ELSEif ($home="BUF")
  $homename=("Bills")
ELSEif ($home="IND")
  $homename=("Colts")
ELSEif ($home="JAX")
  $homename=("Jaquars")
ELSEif ($home="HOU")
  $homename=("Texans")
ELSEif ($home="DEN")
  $homename=("Broncos")
ELSEif ($home="LAh")
  $homename=("Rams")
ELSEif ($home="PHI")
  $homename=("Eagles")
ELSEif ($home="CIN")
  $homename=("Bengals")
ELSEif ($home="ATL")
  $homename=("Falcons")
ELSEif ($home="OAK")
  $homename=("Raiders")
ELSEif ($home="CHI")
  $homename=("Bears")
ELSEif ($home="MIN")
  $homename=("Vikings")
ELSEif ($home="NYJ")
  $homename=("Jets")
ELSEif ($home="MIA")
  $homename=("Dolphins")
ELSEif ($home=("ARI")
  $homename=("Cardinals")
ELSEif ($home="CAR")
  $homename=("Panthers")
ELSEif ($home="NYG")
  $homename=("Giants")
ELSEif ($home="BAL")
  $homename=("Ravens")
ELSEif ($home="TBh")
  $homename=("Buccaneers")
ELSEif ($home="NOh")
  $homename=("Saints")
ELSEif ($home="SFh")
  $homename=("Forty Niners")
ELSEif ($home="KCh")
  $homename=("Chiefs")
endif

if ($visit="PIT")
  $visitname=("Steelers")
ELSEif ($visit="DET")
  $visitname=("Detroit")
ELSEif ($visit="CLE")
  $visitname=("Browns")
ELSEif ($visit="GBv")
  $visitname=("Packers")
ELSEif ($visit="NEv")
  $visitname=("Patriots")
ELSEif ($visit="SEA")
  $visitname=("Seahawks")
ELSEif ($visit="WAS")
  $visitname=("Redskins")
ELSEif ($visit="DAL")
  $visitname=("Cowboys")
ELSEif ($visit="SDv")
  $visitname=("Chargers")
ELSEif ($visit="TEN")
  $visitname=("Titans")
ELSEif ($visit="BUF")
  $visitname=("Bills")
ELSEif ($visit="IND")
  $visitname=("Cotls")
ELSEif ($visit="JAX")
  $visitname=("Jaquars")
ELSEif ($visit="HOU")
  $visitname=("Texans")
ELSEif ($visit="DEN")
  $visitname=("Broncos")
ELSEif ($visit="LAv")
  $visitname=("Rams")
ELSEif ($visit="PHI")
  $visitname=("Eagles")
ELSEif ($visit="CIN")
  $visitname=("Bengals")
ELSEif ($visit="ATL")
  $visitname=("Falcons")
ELSEif ($visit="OAK")
  $visitname=("Raiders")
ELSEif ($visit="CHI")
  $visitname=("Bears")
ELSEif ($visit="MIN")
  $visitname=("Vikings")
ELSEif ($visit="NYJ")
  $visitname=("Jets")
ELSEif ($visit="MIA")
  $visitname=("Dolphins")
ELSEif ($visit="ARI")
  $visitname=("Cardinals")
ELSEif ($visit="CAR")
  $visitname=("Panthers")
ELSEif ($visit="NYG")
  $visitname=("Giants")
ELSEif ($visit="BAL")
  $visitname=("Ravens")
ELSEif ($visit="TBv")
  $visitname=("Buccaneers")
ELSEif ($visit="NOv")
  $visitname=("Saints")
ELSEif ($visit="SFv")
  $visitname=("Forty Niners")
ELSEif ($visit="KCv")
  $visitname=("Chiefs")
endif
return()

:sayscore
if ($gamenotover >0)
  say("The " + $visitname)
  say("are at the " + $homename)
ELSEif if ($hscore > $vscore)
  say("the"+ $homename + "beat the " + $visitname)
  saywait($hscore +" to "+$vscore)
ELSE
  say("the "+ $visitname + "beat the " + $homename)
  saywait($vscore +" to "+$hscore)
endif

return()