rem Für Kameras ohne Tv-Modus DigicIII rem Original von MP9SIT 20080415 @title Tv-Modus @param a Tv @default a 0 t=a if t=-19 then s=-576 if t=-18 then s=-544 if t=-17 then s=-512 if t=-16 then s=-480 if t=-15 then s=-448 if t=-14 then s=-416 if t=-13 then s=-384 if t=-12 then s=-384 if t=-11 then s=-352 if t=-10 then s=-320 if t=-9 then s=-288 if t=-8 then s=-256 if t=-7 then s=-224 if t=-6 then s=-192 if t=-5 then s=-160 if t=-4 then s=-128 if t=-3 then s=-96 if t=-2 then s=-64 if t=-1 then s=-32 if t=0 then s=0 if t=1 then s=32 if t=2 then s=64 if t=3 then s=96 if t=4 then s=128 if t=5 then s=160 if t=6 then s=192 if t=7 then s=224 if t=8 then s=256 if t=9 then s=288 if t=10 then s=320 if t=11 then s=352 if t=12 then s=384 if t=13 then s=416 if t=14 then s=448 if t=15 then s=480 if t=16 then s=512 if t=17 then s=544 if t=18 then s=576 if t=19 then s=608 if t=20 then s=640 if t=21 then s=672 if t=22 then s=704 if t=23 then s=736 if t=24 then s=768 if t=25 then s=800 if t=26 then s=832 if t=27 then s=864 if t=28 then s=896 if t=29 then s=928 if t=30 then s=960 if t=31 then s=992 if t=32 then s=1021 if t=33 then s=1053 if t=34 then s=1088 if t=35 then s=1120 if t=36 then s=1152 if t=37 then s=1184 if t=38 then s=1216 if t=39 then s=1248 if t=40 then s=1280 if t=41 then s=1312 if t=42 then s=1344 if t=43 then s=1376 if t=44 then s=1408 if t=45 then s=1440 if t=46 then s=1472 if t=47 then s=1504 if t=48 then s=1536 if t=49 then s=1568 if t=50 then s=1600 print "Menu für Fokus" print "Display für Shoot" print "links für Makro" do wait_click if is_key "menu" then gosub "half" if is_key "display" then gosub "full" if is_key "left" then gosub "macro" until is_key "set" goto "the_end" rem Propcase 6 Fokus-Modus 0=normal 1=Makro :macro set_prop 6 m if m=0 then m=1 print "Makro-Modus" else m=0 print "Normaler Modus" endif set_prop 6 m return :half press "shoot_half" sleep 1500 release "shoot_half" return :full press "shoot_half" sleep 500 get_av96 h get_bv96 i release "shoot_half" rem exposure shift get_prop 107 e if e>65000 then e=65536-e endif z=h+s-i-e if z>759 then z=759 set_led 8 1 endif press "shoot_half" sleep 1500 rem Tv set_prop 262 s rem Sv market set_prop 247 z press "shoot_full" release "shoot_full" set_led 8 0 release "shoot_half" return :the_end end