;Set up variables
SetEnv, PicNum, 0
SetEnv, MouseX, 1
SetEnv, MouseY, 1

;Close open Explorer windows that can confuse script
begin:
IfWinExist, Exploring, , GoSub, CloseExplorer
IfWinExist, Exploring, , Goto, begin
;Start camera controller and windows explorer
Run, C:\\Program Files\\Kodak\\DC3400\\Controls\\DCCam.exe
WinWait, KODAK DC3400 Camera Controls
WinActivate, KODAK DC3400 Camera Controls
WinMove, KODAK DC3400 Camera Controls,, 0, 0, default, default
Run, C:\\WINDOWS\\Explorer.exe, C:\\temp
WinWait, Exploring - 6_0gig (C:)
WinActivate, Exploring - 6_0gig (C:)
WinMove, Exploring - 6_0gig (C:),, 0, 0, default, default

;Start main program infinite loop
Repeat, 0
EnvAdd, PicNum, 1
;Check if mouse cursor is in upper left of screen.  If so, exit loop.
MouseGetPos, MouseX, MouseY
IfEqual, MouseX, 0, IfEqual, MouseY, 0, Goto, exit
GoSub, TakePicture
GoSub, SavePicture
EndRepeat

exit:
WinClose, Exploring - KODAK DC3400 Camera:\\DCIM\\100K3400
WinClose, KODAK DC3400 Camera Controls
Exit

TestTakePicture:
SplashTextOn, 300, 100, Picture, Taking picture: %PicNum%
Sleep, 1000
Return

TestSavePicture:
SplashTextOn, 300, 100, Picture, Saving picture: %PicNum%
Sleep, 1000
Return

TakePicture:
SplashTextOn, 300, 100, Picture, Taking picture: %PicNum%
WinActivate, KODAK DC3400 Camera Controls
LeftClick, 211, 33
LeftClick, 321, 114
WinWaitActive, KODAK DC3400 Camera Controls
SplashTextOn, 300, 100, Picture, Carding picture: %PicNum%
Sleep, 25000
Return

SavePicture:
SplashTextOn, 300, 100, Picture, Saving picture: %PicNum%
WinActivate, Exploring
Send, !a{UP}{ENTER}^a
Send, {SHIFTDOWN}{F10}{SHIFTUP}{DOWN 2}{RIGHT}{UP}{ENTER}
WinWaitActive, Busy ...
WinWaitActive, Exploring - KODAK DC3400 Camera:\\DCIM\\100K3400
Send, {SHIFTDOWN}{F10}{SHIFTUP}{DOWN 3}{ENTER}
WinWaitActive, Delete Selected File(s)
Send, {ENTER}
WinWaitActive, Exploring - KODAK DC3400 Camera:\\DCIM\\100K3400
Return

CloseExplorer:
WinActivate, Exploring
WinWaitActive, Exploring
WinClose, Exploring
Return