rem Autor: _c_ rem Kamera: A720 @title A720 Intervall/ZOOM/USB/LCD @param a Anzahl Bilder (Faktor 100) @default a 0 @param b Anzahl Bilder (Faktor 10) @default b 1 @param c Anzahl Bilder (Faktor 1) @default c 0 @param d Intervall (min) @default d 0 @param e Intervall (sec) @default e 1 @param f LCD aus nach x Bildern @default f 5 get_prop 105 x u=x t=d*60000+e*1000 if a<0 then let a=0 if b<0 then let b=0 if c<0 then let c=0 if t<1000 then let t=1000 s=a*100+b*10+c print "Gesamtzeit:", t*s/60000, "min", t*s%60000/1000, "sec" print "Zoom mit Taster einstellen" sleep 1000 p=0 z=0 while 1 do p=get_usb_power until p>0 while p>0 p=get_usb_power z=z+1 wend sleep 100 if z>15 then goto "intervall" if z>5 then z=0 click "zoom_out" sleep 600 endif if z>0 then z=0 click "zoom_in" sleep 600 endif print "Zoom einstellen" wend :intervall print "Bild 1 von", s shoot for i=2 to s if s<=(f*2) then goto "weiter" if i=(f+1) then do click "display" get_prop 105 u until u=2 endif if i=(s-f+1) then do click "display" get_prop 105 u until u=x endif :weiter print "Warte", d, "min", e, "sec" sleep t print "Bild", i, "von", s shoot next i end