Wikia

CHDK Wiki

UBASIC/Scripts:my first intervalometer

Talk0
565pages on
this wiki

< UBASIC

Is my first script ,please be tolerant ;)

 rem Author 
 rem Written for A710IS
 rem Should be okay on others
 @title My intervalometer
 @param a Start 1st Shot (Mins)
 @default a 0
 @param b Start 1st Shot (10th Secs)
 @default b 1
 @param c Start 1st Shot (Secs)
 @default c 0
 @param d Number of  Shots 
 @default d 1
 @param e Interval (Minutes)
 @default e 0
 @param f Interval (10th Seconds)
 @default f 1
 @param g Interval (Seconds)
 @default g 0 
 if a<0 then a=0
 if b<0 then b=0
 if c<0 then c=0
 if d<0 then d=1
 if e<0 then e=0
 if f<0 then f=0
 if g<0 then g=0
 if d=1 then z=0
 z=(e*60)+f*10+g
 n=(a*60)+b*10+c
 if n>0 then gosub "pause"
 for p=1 to d
 print "Shot", p, "of", d
 shoot
 if p=d then goto "end"
 sleep z
 if z>0 then gosub "interval"
 next p
 end 
 :interval
 for r=1 to z
 x=z-r
 if z>0 then print "Interval:", x/60; "min",    x%60+1; "sec"
 sleep 1000
 cls
 next r
 return
 :pause
 for m=0 to n
 q=n-m
 if q>0 then print "To start:", q/60; "min",   q%60; "sec"
 sleep 1000
 cls
 next m
 return
 :end
 end

Around Wikia's network

Random Wiki