rem Autor: gehtnix rem Kamera: A610 + DIGI II rem Intervall-Foto Skript mit automatischer LCD-Abschaltung+USB @title Intervall-Foto - 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 181 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 while 1 do p=get_usb_power until p>0 sleep 100 if p>100 then goto "intervall" if p>50 then p=0 click "zoom_out" sleep 600 endif if p>0 then p=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 181 u until u=2 endif if i=(s-f+1) then do click "display" get_prop 181 u until u=x endif :weiter print "Warte", d, "min", e, "sec" sleep t print "Bild", i, "von", s shoot next i end