SetEnv, PicNum, 0
SetEnv, MouseX, 1
SetEnv, MouseY, 1

Repeat, 0
EnvAdd, PicNum, 1
MouseGetPos, MouseX, MouseY
IfEqual, MouseX, 0, IfEqual, MouseY, 0, Goto, exit
GoSub, TakePicture
GoSub, SavePicture
EndRepeat

exit:
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%
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
LeftClick, 211, 33
LeftClick, 321, 114
WinWaitActive, KODAK DC3400 Camera Controls
SplashTextOn, 300, 100, Picture, Carding picture: %PicNum%
Sleep, 30000
WinClose, KODAK DC3400 Camera Controls
Return

SavePicture:
SplashTextOn, 300, 100, Picture, Saving picture: %PicNum%
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
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
WinClose, Exploring - KODAK DC3400 Camera:\\DCIM\\100K3400
Return