1 ' Svjatoslav Agejenko
\r
4 ' arrow keys - move around
\r
5 ' 2, 6, 4, 8 - look around
\r
11 DECLARE SUB mkkoll ()
\r
12 DECLARE SUB putkol ()
\r
15 DECLARE SUB start ()
\r
16 DIM SHARED npo, nlo, np, nl
\r
17 DIM SHARED px(1 TO 1000)
\r
18 DIM SHARED py(1 TO 1000)
\r
19 DIM SHARED pz(1 TO 1000)
\r
20 DIM SHARED rpx(1 TO 1000)
\r
21 DIM SHARED rpy(1 TO 1000)
\r
22 DIM SHARED orpx(1 TO 1000)
\r
23 DIM SHARED orpy(1 TO 1000)
\r
25 DIM SHARED lin1(1 TO 1000)
\r
26 DIM SHARED lin2(1 TO 1000)
\r
27 DIM SHARED linc(1 TO 1000)
\r
28 DIM SHARED olin1(1 TO 1000)
\r
29 DIM SHARED olin2(1 TO 1000)
\r
31 DIM SHARED myx, myy, myz
\r
32 DIM SHARED myxs, myys, myzs
\r
34 DIM SHARED an1s, an2s
\r
35 DIM SHARED kolx(1 TO 10)
\r
36 DIM SHARED koly(1 TO 10)
\r
37 DIM SHARED kolz(1 TO 10)
\r
38 DIM SHARED kolxs(1 TO 10)
\r
39 DIM SHARED kolys(1 TO 10)
\r
40 DIM SHARED kolzs(1 TO 10)
\r
64 IF a$ = CHR$(0) + "H" THEN
\r
65 myzs = myzs - SIN(an1) / 100
\r
66 myxs = myxs - COS(an1) / 100
\r
68 IF a$ = CHR$(0) + "P" THEN
\r
69 myzs = myzs + SIN(an1) / 100
\r
70 myxs = myxs + COS(an1) / 100
\r
72 IF a$ = CHR$(0) + "M" THEN
\r
73 myzs = myzs + COS(an1) / 100
\r
74 myxs = myxs - SIN(an1) / 100
\r
76 IF a$ = CHR$(0) + "K" THEN
\r
77 myzs = myzs - COS(an1) / 100
\r
78 myxs = myxs + SIN(an1) / 100
\r
81 IF a$ = "6" THEN an1s = an1s - .01
\r
82 IF a$ = "4" THEN an1s = an1s + .01
\r
83 IF a$ = "8" THEN an2s = an2s - .01
\r
84 IF a$ = "2" THEN an2s = an2s + .01
\r
85 IF a$ = "+" THEN myys = myys - .01
\r
86 IF a$ = "-" THEN myys = myys + .01
\r
87 IF a$ = CHR$(27) THEN SYSTEM
\r
157 IF x > 5 THEN xs = -.1
\r
158 IF z > 5 THEN zs = -.1
\r
159 IF x < -5 THEN xs = .1
\r
160 IF z < -5 THEN zs = .1
\r
161 IF y < .5 THEN ys = RND * .2 + .1
\r
284 kolx(a) = RND * 10 - 5
\r
286 kolz(a) = RND * 10 - 5
\r
287 kolxs(a) = RND * .5 - .25
\r
288 kolys(a) = RND * .5 + .1
\r
289 kolzs(a) = RND * .5 - .25
\r
294 'C3& = Cosine&(Deg3): S3& = Sine&(Deg3)
\r
307 x1 = x * s1 - z * c1
\r
308 z1 = x * c1 + z * s1
\r
309 y1 = y * s2 - z1 * c2
\r
310 z2 = y * c2 + z1 * s2
\r
315 rpx(a) = 320 + (x1 / z2 * 400)
\r
316 rpy(a) = 240 - (y1 / z2 * 400)
\r
324 IF orpx(l1) = -1 OR orpx(l2) = -1 THEN ELSE LINE (orpx(l1), orpy(l1))-(orpx(l2), orpy(l2)), 0
\r
327 IF rpx(l1) = -1 OR rpx(l2) = -1 THEN ELSE LINE (rpx(l1), rpy(l1))-(rpx(l2), rpy(l2)), linc(a)
\r
331 FOR a = nl + 1 TO onl
\r
334 IF orpx(l1) = -1 OR orpx(l2) = -1 THEN ELSE LINE (orpx(l1), orpy(l1))-(orpx(l2), orpy(l2)), 0
\r