rem Zoom-Steps mit USB-Auslösung, Autor: Gope @title Zoom Stepping USB-Shot a=1 get_zoom z print "Up = Zoom In" print "Down = Zoom Out" print "Zoom = ", z :loop wait_click is_key k "up" if k=1 then goto "in" is_key l "down" if l=1 then goto "out" is_key o "set" if o=1 then goto "usb" goto "loop" end :in cls sleep 20 get_zoom z z=z+a if z>6 then z=6 set_zoom z print "Zoom = ", z print "Set aktiviert USB" sleep 100 goto "loop" return :out cls sleep 20 get_zoom z z=z-a if z<0 then z=0 set_zoom z print "Zoom = ", z print "Set aktiviert USB" sleep 100 goto "loop" return if d<1 then d=100 else d=d*1000 if e<0 then e=0 else e=100*e :usb cls get_zoom z print "Zoom = ", z do until is_key "remote" press "shoot_half" sleep e do until not (is_key "remote") press "shoot_full" sleep d release "shoot_full" release "shoot_half" sleep e goto "usb"