Bardzo dobrze. Ale w skrypcie są błędy, problem był ze zmniejszaniem ogniskowej, poprawiłem:

@title Video with zoom
@param a step zoom+
@default a 7
@param b step zoom-
@default b 7

if a<0 then let a=1
if b<0 then let b=1

print "Half-press shoot button"
print "to stop video recording"
print ""

get_zoom z

click "shoot_full"

:loop
wait_click

is_key k "zoom_in"
if k=1 then set_zoom_rel a
is_key k "zoom_out"
if k=1 then set_zoom_rel -b
is_key k "shoot_half"
if k=1 then goto "end"
goto "loop"

:end
click "shoot_full"
sleep 2000
set_zoom z

end

Teraz działa dobrze. (sprawdzane na A710IS)