#-------------INT Variables--------------
SetVar $Idx 1
setVar $file GAMENAME & "_Seconds.txt"
Delete $file
#------------Check to see if we can start-----
:LetsGo
Gettime $StartDaTest
ReplaceText $StartDaTest ":" " "
Getword $StartDaTest $Started 2
SetDelaytrigger EMCPU :EMCPU 100
pause

:EMCPU
Gettime $StartDaTest
ReplaceText $StartDaTest ":" " "
Getword $StartDaTest $Started2 2

If ($Started = $Started2)
 Echo ANSI_15 "* Waiting to go!"
  goto :LetsGo
End
Echo ANSI_12 "* Started The Test!!!!"


GetTime $StartedTest

Gettime $Stop
Replacetext $Stop ":" " "
Getword $Stop $Stoploop 2

#--Change this variable to increase time of test---
Add $Stoploop 10

#------------While Start-------------------
While ($whileloop < $stoploop)
:Start
Send "L 1 * "
Waitfor "There are currently"
Getword CURRENTLINE $Timed 4
Send "q"
Send "L 1 * "
Waitfor "There are currently"
Getword CURRENTLINE $Timed2 4

If ($Idx = 1)
SetVar $StartColo $Timed
end

Send "q"
If ($Timed = $Timed2)
 goto :Start
  else 
   goto :Cont
 end

:Cont
If ($Timed <> $Timed2)
Gettime $start s:zzz
SetVar $Timed3 ($Timed2+1)
 While ($Timed2 <= ($Timed3))
  Send "L 1 * "
   Waitfor "There are currently"
   Getword CURRENTLINE $Timed2 4
  Send "q"
 end
Gettime $stop s:szzz
end

Replacetext $Start ":" " "
Replacetext $Stop ":" " "

Getword $start $SecTimer 1
Getword $start $MilliSecTimer 2
Getword $stop $SecTimer2 1
Getword $stop $MilliSecTimer2 2

setVar $SecDuration ($SecTimer2 - $SecTimer)
SetVar $MilliSecDuration ($MilliSecTimer2 - $MilliSecTimer)
Divide $SecDuration 2
Divide $MilliSecDuration 2
Write $file "Time lapsed " & $SecDuration & ":"  & $MilliSecDuration 
Add $Idx 1

GetTime $Check
Replacetext $check ":" " "
Getword $Check $Whileloop 2
END

#-------------Ended While Loop Spit out the Results---------------------
SetVar $StopColo $Timed2
GetTime $EndedTest
 echo ANSI_15 "* " ($StopColo - $StartColo) " :Total Colos Regened" "*"
 echo ANSI_12 "*" $StartedTest "*" $EndedTest
Halt