;
; Author:         jgpaiva
;
; Script Function:
;	Randomly run a program from a selected folder
;

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#persistent
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.

nargs = %0%

if (nargs <> 2)
{
  msgbox,please run this program like this:`nRandomRun.exe <folder> <time>
}

Folder = %1%
Time = %2%
Time := time * 1000
Folder := regexreplace(Folder,"/\s*$","")

Random,randomNumber,0,%time%
Settimer,StartProg,-%randomNumber%
return

StartProg:
  Random,randomNumber,0,%time%
  Settimer,StartProg,-%randomNumber%

  count := 0
  Loop,%folder%/*.exe
  {
    count +=1
  }

  Random,newRandomNumber,0,%count%
  count = 0
  Loop,%folder%/*.exe
  {
    count +=1
    if (newRandomNumber = count)
      Run,%folder%/%A_LoopFileName%
  }
  return