@title stereocam
do
    do
        a = get_usb_power
    until a>0
    print a

    if a < 3 then gosub "shootpic" else gosub "zoom"

until 0
end

:shootpic
    rem print "shooting"
    shoot
    sleep 500
    return

:zoom
    if a < 6 then gosub "zoomin" else gosub "zoomout"
    sleep 400
    return

:zoomin
    rem print "zooming in"
    click "zoom_in"
    return

:zoomout
    rem print "zooming out"
    click "zoom_out"
    return