rem Airwolf by gehtnix 10.02.2010 rem Intervall/Serienbilder besonders für Flieger rem Nur mit USB-Taster zu Bedienen! @title Airwolf @param e Intervall (sek) @default e 5 @param f Bild-Kompression (0,1,2) @default f 0 @param g Bild-Pixel (0,1,2,4,6,8) @default g 0 @param p Sleep f. Backlight (x10ms) @default p 25 @param j AkkuStop bei mV @default j 4560 @param m AkkuStop 0=aus 1=ein @default m 0 @param z Tasten Sleep 1/100 @default z 15 if m=0 then j=0 cls L=get_quality M=get_resolution set_quality f set_resolution g rem --- Intervall R=e*1000 if R<1000 then R=1000 rem --- Werte für USB-Taster Y=15 O=100 rem --- Tastensleep z=z*10 rem --- USB-Menü :menue cls print "****** MENÜ ******" print "Kurz = Intervall" print "Lang = Reihen" print "Länger = Abschalten" gosub "taster" cls select P case 0 to Y; gosub "intervall" case Y to O; gosub "reihen" case_else goto "restore" end_select goto "menue" end :intervall N=get_tick_count P=0 gosub "schleife" return :schleife if get_vbatt=N or P>0 if P>0 then return goto "schleife" return :reihen click "set" sleep z click "down" sleep z click "down" sleep z click "right" sleep z press "shoot_full" gosub "taster" release "shoot_full" sleep p*10 set_backlight 0 sleep 1000 click "left" sleep z click "up" sleep z click "up" sleep z click "set" sleep z return :taster P=0 do P=get_usb_power until P>0 return :restore cls print "************************" print "Benutzerabbruch" set_quality L set_resolution M set_raw 0 set_aflock 0 shut_down sleep 3000 exit_alt end return