@title Warnblinker rem IXUS 60, Warnblinker mittels Focus-Hilfslicht, by Sinter August 2009 rem TODO: Stromspannungsabfrage rem TODO: Display DUNKEL in Videomodus und PlayModus falls Skript in diesen Modi fkt rem Dank Tipp von msl nun mit Anleihen aus rem Lehrmeister Gehtnix´ SevenUp-Skripten fuer die Display-Schaltung. Danke! @param b Leuchtdauer (in 1/100 Sek.) @default b 1 b=b-1 if b<0 then let b=0 b=b*10 @param p Blinkpause (in Sekunden) @default p 1 @param d Dauerbetrieb 0=off 1=on @default d 1 @param h Display 0=off 1=on @default h 0 rem start nur wenn im Fotomodus sleep 30 a=get_mode rem print a rem sleep 1000 if a=0 then rem zukuenftig evtl. sofort beim Einschalten ablaufen lassen rem set_autostart 1 rem Merke den Display-Mode X=get_display_mode rem Display stromsparend ausschalten? if h=0 then gosub "dispaus" print "Warnblinker EIN" do set_led 9 1 sleep b set_led 9 0 for i=1 to p sleep 1000 next i until d=0 if h=0 then gosub "dispein" endif if a<>0 then print "Bitte Fotomodus" print "EINschalten und" print "Skript nochmals starten." sleep 3000 end endif rem exit_alt einfuegen falls Alt-Modus am Ende verlassen werden soll end :dispaus do click "display" U=get_display_mode sleep 200 until (U=2 or U=3) return :dispein do click "display" U=get_display_mode sleep 200 until U=X return :restore set_led 9 0 gosub "dispein" end