-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathfinishedcrane.kbs
170 lines (143 loc) · 2.36 KB
/
finishedcrane.kbs
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
clg
start:
K = 5
aa = 280-160
ab = 297-160
ac = 262-160
rem ------------------------
ba = 135
y = 210
z = 170
bb = 190
bc = 200
bd = 200
ea = 120
eb = 120
fa = 135
fb = 190
rem ------------------------
ca = 263
cb = 278
cc = 293
cd = 270.5
ce = 285.5
cf = 278
rem ------------------------
da = 265
db = 260
dc = 255
dim xend(9)
dim yend(9)
dim xstart(9)
dim ystart(9)
dim xstep(9)
dim ystep(9)
xstart={0,159,159,159,49,49,49}
xend={159,159,159,49,49,49,0}
xstep={1,1,1,-1,1,1,-1}
ystart={0,0,50,0,0,50,0}
yend={0,50,0,0,50,0,0}
ystep={1,1,-1,1,1,-1,1}
fastgraphics
for k=0 to 6
for upward=ystart[k] to yend[k] step ystep[k]
for leftward=xstart[k] to xend[k] step xstep[k]
clg
part1:
background:
color darkgray
rect 0,0,300,300
body:
color white
rect 49, 124, 31, 101
rect 50, 125, 31, 101
color gray
rect 50, 125, 30, 100
base:
color gray
rect 15, 225, 101, 26
rect 14, 224, 101, 26
color white
rect 15, 225, 100, 25
hooksupport:
color gray
rect 79, 124, 197, 10
rect 80, 125, 198, 11
color white
rect 80, 125, 197, 10
color gray
rect 0, 124, 49, 10
rect 1, 125, 50, 11
color white
rect 1, 125, 49, 10
light:
rect 61, 115, 7, 10
wheels:
color white
circle 25, 262, 11
color gray
circle 25, 262, 10
color white
circle 65, 262, 11
color gray
circle 65, 262, 10
color white
circle 105, 262, 11
color gray
circle 105, 262, 10
hookcable:
line ea+leftward-3, fa, eb+leftward-3, fb+upward
hook:
dim a(6)
a[0] = aa+leftward-3
a[1] = bb+upward
a[2] = ab+leftward-3
a[3] = bc+upward
a[4] = ac+leftward-3
a[5] = bd+upward
poly a
crate1:
color white
line 247, 270, 297, 270
line 247, 240, 247, 270
line 297, 240, 297, 270
crate2:
color white
line 137, 270, 187, 270
line 137, 240, 137, 270
line 187, 240, 187, 270
balls:
up = 0
left = 0
if k > 1 and k < 5 then up = upward-50
if k > 2 then left=leftward-160 : up=upward-50
if k > 4 then left = -108 : up=0
color white
circle ca+left-4, da+up, 5
color gray
circle ca+left-4, da+up, 4
color white
circle cb+left-4, da+up, 5
color gray
circle cb+left-4, da+up, 4
color white
circle cc+left-4, da+up, 5
color gray
circle cc+left-4, da+up, 4
color white
circle cd+left-4, db+up, 5
color gray
circle cd+left-4, db+up, 4
color white
circle ce+left-4, db+up, 5
color gray
circle ce+left-4, db+up, 4
color white
circle cf+left-4, dc+up, 5
color gray
circle cf+left-4, dc+up, 4
refresh
next leftward
next upward
next k
if k > 4 then left = -108 : up=0