57

j=j*1000

print ">[";a;",";b;"] threshold: ";c x=30000

if j>0 then goto "md_burst" :md_singleshot

press "shoot_half" t=0

do

md_detect_motion a, b, i, x, d, c, 1, t, h, 1, 1, a, f, 0, g, e until t>0

click "shoot_full" goto "md_singleshot"

:md_burst

press "shoot_half" t=0

do

md_detect_motion a, b, i, x, d, c, 1, t, h, 1, 1, a, f, 0, g, e until t>0

press "shoot_full" let X=get_tick_count

:contloop

let U=get_tick_count let V=(U-X)

if V<j then goto "contloop" release "shoot_full"

goto "md_burst"

----------------------------------------------------------------------------------------------------------------------------------------------------

http://chdk.wikia.com/wiki/UBASIC/Scripts:Lightning_script_--_FudgeyAlso see:- FAQ-How do I use scripts? Page 63
and:- Scripting Tutorial Page- http://chdk.wikia.com/wiki/UBASIC/TutorialScratchpad
also:-http://chdk.wikia.com/wiki/UBASIC/Scripts (Excellent)

Tip: For using intervalometer, and long exposure scripts - to save battery and LCD use a piece of ⅛ round plastic in the camera video transfer port and LCD will be off, although not as much saving as when display is turned off (Which may not be possible with some other settings).

----------------------------------------------------------------------------------------------