# update Intro.ANS with current time

setVar $intro "c:\program files\epic interactive strategy\twgs\intro.ans"

fileExists $exists $intro

if ($exists = FALSE)
   clientMessage "Please check the path, File Not Found at:"
   clientMessage $intro
   halt
end

goto :ansiTimer
:begin
  setDelayTrigger ansitimer :ansitimer 30000
  pause

:ansitimer

setVar $i 1
read $intro $line $i
while ($line <> EOF)
      setVar $fileLine[$i] $line
      add $i 1
      read $intro $line $i
end
subtract $i 1

setVar $iWrite 1
delete $intro
while ($iWrite <= $i)

      # the line below will write time 2 lines above the "Selection (? for menu):"

      if ($iWrite = ($i - 2))
          getTime $curTime "h:mm:ss am/pm"
          upperCase $curTime

         # The site does not allow me to paste the correct color codes:  Copy the square from an ANSI
         # file (using notepad) and paste it before the [ brackets in the line below

          write $intro "  Server Time: " & $curTime & " Updated every 30 seconds"
          add $iWrite 1
      end
    write $intro $fileLine[$iWrite]
    add $iWrite 1
end

goto :begin