bullet_time/super.bas at master · hackerfriendly/bullet_time · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
rem Super USB Remote Shoot script
rem Usage: Select "Enable Remote" in "Remote parameters" and start this script.
@title Super remote
@param c Number of shots
@default c 1
@param b Start shot delay
@default b 0

while 1
    wait_click 1000
    if is_key "shoot_half" then gosub "set_focus"
    if is_key "left" then gosub "focus_mode"
    if is_key "right" then gosub "wb"
    if is_key "up" then gosub "zoom_in"
    if is_key "down" then gosub "zoom_out"
    if is_key "set" then gosub "faster"
    if is_key "menu" then gosub "slower"
    if is_key "remote" then gosub "shoot_nao"
wend

:shoot_nao
    sleep (b * 100)
    for d = 1 to c
        shoot_full
        sleep 100
    next d
    return

:set_focus
    press "shoot_half"
    sleep 2500
    release "shoot_half"
    return

:focus_mode
    click "left"
    click "left"
    sleep 750
    click "set"
    return

:flash_mode
    click "right"
    click "right"
    sleep 750
    click "set"
    return

:zoom_in
    get_zoom a
    a = a + 1
    if a > 6 then b = 6
    set_zoom a
    print "Zoom set to", a
    sleep 500
    return

:zoom_out
    set_zoom 0
    print "Zoom set to 0"
    sleep 500
    return

:wb
    click "set"
    sleep 100
    click "down"
    sleep 100
    click "down"
    sleep 100
    click "down"
    sleep 100
    click "right"
    sleep 500
    click "up"
    sleep 100
    click "up"
    sleep 100
    click "up"
    sleep 100
    click "set"
    return

rem By default this changes the EV
rem In "night mode" this changes the shutter speed
:slower
    click "set"
    sleep 100
    click "down"
    sleep 100
    click "left"
    sleep 750
    click "up"
    sleep 100
    click "set"
    return

:faster
    click "set"
    sleep 100
    click "down"
    sleep 100
    click "right"
    sleep 750
    click "up"
    sleep 100
    click "set"
    return

end