1 DECLARE SUB playsound (a$)
\r
3 DECLARE SUB turnoff ()
\r
4 DECLARE SUB dispimg (a$)
\r
5 DECLARE SUB turnon ()
\r
6 DECLARE SUB ellips (x!, y!, s!, v!, t!)
\r
7 DECLARE SUB prn (x!, y!, msg$, siz!, col1!)
\r
8 DECLARE SUB timerAdd (element!, time!, value!)
\r
9 DECLARE SUB timerdisp ()
\r
10 DECLARE SUB timerinit ()
\r
11 DECLARE SUB timerprocess ()
\r
12 DECLARE SUB mo (x!, y!, an!, s!, w!)
\r
16 DIM SHARED sh1, sh2, sv1, sv2, hp, vp
\r
17 DIM SHARED timerTime(0 TO 50, 0 TO 100)
\r
18 DIM SHARED timerValue(0 TO 50, 0 TO 100)
\r
20 DIM SHARED timerCplace(0 TO 50)
\r
21 DIM SHARED timerCtime(0 TO 50)
\r
22 DIM SHARED timerCvalue(0 TO 50)
\r
23 DIM SHARED timerLast
\r
28 playsound "luule.mp3"
\r
37 IF timerCtime(0) > 0 THEN
\r
46 IF timerCtime(0) > 1.5 THEN
\r
54 IF timerCtime(0) > 9 THEN
\r
61 IF timerCtime(0) > 17 THEN
\r
68 IF timerCtime(0) > 24 THEN
\r
75 IF timerCtime(0) > 33 THEN
\r
82 IF timerCtime(0) > 41 THEN
\r
90 IF timerCtime(0) > 43 THEN
\r
95 'PRINT timerCtime(0)
\r
102 OPEN a$ FOR INPUT AS #1
\r
109 PSET (x - 1, 200 - y), a
\r
117 SUB ellips (x, y, s, v, t)
\r
122 CIRCLE (x, y), s, v, , , t
\r
132 SHELL "c:\progra~1\winamp\winamp.exe " + a$
\r
138 SUB prn (x, y, msg$, siz, col1)
\r
139 IF x < 0 THEN GOTO prn1
\r
140 IF x > 319 THEN GOTO prn1
\r
144 GET (0, 0)-(100, 7), bck
\r
150 FOR x1 = 0 TO LEN(msg$) * 8 - 1
\r
152 IF POINT(x1, y1) > 0 THEN
\r
155 IF col1 > 100 THEN col = RND * 4 + 10
\r
157 LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, B
\r
159 LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF
\r
161 ' LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF
\r
167 PUT (0, 0), bck, PSET
\r
187 SUB timerAdd (element, time, value)
\r
190 IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3
\r
194 timerTime(element, a) = time
\r
195 timerValue(element, a) = value
\r
203 PRINT timerCplace(a), timerCtime(a), timerCvalue(a)
\r
215 timerAdd 0, 1000, 1000
\r
221 timerCurrent = TIMER
\r
222 timerDiff = timerCurrent - timerLast
\r
223 timerLast = timerCurrent
\r
226 ctim = timerCtime(a) + timerDiff
\r
227 Cplace = timerCplace(a)
\r
229 IF timerTime(a, Cplace + 1) = -1 THEN
\r
233 IF timerTime(a, Cplace + 1) < ctim THEN
\r
234 IF timerTime(a, Cplace + 1) = 0 THEN
\r
235 timerCvalue(a) = timerValue(a, Cplace)
\r
238 Cplace = Cplace + 1
\r
242 v1 = timerValue(a, Cplace)
\r
243 t1 = timerTime(a, Cplace)
\r
244 v2 = timerValue(a, Cplace + 1)
\r
245 t2 = timerTime(a, Cplace + 1)
\r
248 timerCvalue(a) = v1
\r
253 timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1
\r
256 timerCplace(a) = Cplace
\r
257 timerCtime(a) = ctim
\r
265 FOR y = 100 TO 1 STEP -1
\r
267 LINE (160 - x - 5, 90 - y - 5)-(160 + x + 5, 110 + y + 5), 0, B
\r
268 LINE (160 - x - 3, 90 - y - 3)-(160 + x + 3, 110 + y + 3), 3, B
\r
269 LINE (160 - x, 90 - y)-(160 + x, 110 + y), 15, B
\r
276 FOR x = 160 TO 0 STEP -1
\r
278 LINE (160 - x - 5, 90 - 5)-(160 + x + 5, 110 + 5), 0, B
\r
279 LINE (160 - x - 3, 90 - 3)-(160 + x + 3, 110 + 3), 1, B
\r
280 LINE (160 - x, 90)-(160 + x, 110), 15, B
\r
284 playsound "silent.mp3"
\r