rem SXIPACK - ein USB-Script, für A610, Autor: gehtnix rem Einzel-/Intervall-Foto, LCD-Abschaltung, Wechsel der Bildgröße/Qualität, rem Wahlweise USB-Zoom und Kamera aus, Steuerung über Tastatur Links, Set, Rechts @title SIXPACK @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 Auflösung (0,1,2) @default f 0 @param g Bildqualität (0,1,2,4,6) @default g 0 @param h USB-Zoom 0=aus 1=ein @default h 0 @param i LCD aus nach x Bildern @default i 5 @param n Kamera aus 0=nein 1=ja @default n 0 @param r Ohne Taster 0=nein 1=ja @default r 0 get_prop 23 l get_prop 24 m rem --- Werte für Taster o=60 y=30 rem --- Korrektur Zeitberechnung-Auslösung < 4 Sekunden if e<4 then q=4 else q=e rem --- Menü while 1 cls print "****** MENÜ ******" print "Kurz < = Einzelfoto" print "Lang > = Intervallfoto" print "Länger = Exit Alt" gosub "taster" cls if p>o then exit_alt if py then gosub "intervall" if p0 then gosub "einzelfoto" endif wend end rem --- einzelfoto :einzelfoto do print "Kurz < = Foto" if h=1 then print "Lang > = Zoom" print "Länger = zum Menü" gosub "taster" cls if py and h=1 then gosub "zoom" p=0 shoot endif if p0 then shoot until p>o cls return rem --- intervallfoto :intervall set_prop 23 f set_prop 24 g if h=1 then gosub "zoom" 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:", (d*60000+q*1000)*s/60000, "min", (d*60000+q*1000)*s%60000/1000, "sec" sleep 1000 print "Bild 1 von", s shoot for j=2 to s if s<=(i*2) then goto "weiter" if j=(i+1) then do click "display" get_prop 181 u until (u=2 or u=3) endif if j=(s-i+1) then do click "display" get_prop 181 u until u=x endif :weiter print "Warte", d, "min", e, "sec" sleep t print "Bild", j, "von", s shoot next j set_prop 23 l set_prop 24 m if n=1 then shut_down return rem --- zoom :zoom cls print "Kurz < = Zoom in" print "Lang > = Zoom out" print "Länger = Fertig" do gosub "taster" if p>o then goto "sprung1" if py then click "zoom_out" if p0 then click "zoom_in" sleep 600 :sprung1 until p>o cls return rem --- taster :taster p=0 if r=1 then gosub "ohnetaster" goto "sprung2" endif do p=get_usb_power until p>0 :sprung2 return rem --- ohnetaster :ohnetaster :wait wait_click is_key k "left" if k=1 then p=y/2 if k=1 then goto "sprung3" is_key k "right" if k=1 then p=((o-y)/2)+y if k=1 then goto "sprung3" is_key k "set" if k=1 then p=o+10 if k=1 then goto "sprung3" goto "wait" :sprung3 k=0 return