Circular maze from SierraKen + Bplus ball program = this program.

[Petr]

Code: QB64: [Select]

1. 'idea, based on SierraKen's Circle maze and Bplus's upgrade
2.  
3. Circles = 13
4. StepsToCircle = 50
5. DIM SHARED B AS LONG
6.  
7. TYPE circles
8.     Exit AS SINGLE '            value in radians
9.     Radius AS INTEGER
10.     Kolor AS _UNSIGNED _BYTE
11.     Wall AS SINGLE
12. END TYPE
13.  
14. DIM C(1 TO Circles) AS circles
15.  
16. FOR Fill = 1 TO Circles
17.     C(Fill).Exit = _PI(2) / 100 * (RND * 100)
18.     C(Fill).Wall = C(Fill).Exit - _PI(2) / 8 - _PI(2) / 50 * (RND * 50)
19.     C(Fill).Radius = 30 * Fill
20.     C(Fill).Kolor = 20 + RND * 75
21. NEXT
22.  
23. B = Ball
24. Xb = 400
25. Yb = 413
26. memY = 400
27. Level = 1
28.  
29. SCREEN _NEWIMAGE(800, 800, 256)
30.  
31. DO UNTIL _KEYHIT = 27
32.     CLS
33.     PB Xb, Yb
34.     FOR D = 1 TO Circles - 1
35.         radius = C(D).Radius
36.         Doo = _PI(2) / StepsToCircle
37.         Doors = _PI(2) / radius * 4
38.         W = C(D).Wall
39.  
40.         RotP = RotP + .005
41.  
42.         FOR K = C(D).Exit + Doors TO C(D).Exit + _PI(2) - Doors STEP Doo
43.             X1 = 400 + COS(K + RotP) * radius
44.             Y1 = 400 + SIN(K + RotP) * radius
45.             X2 = 400 + COS(K + Doo + RotP) * radius
46.             Y2 = 400 + SIN(K + Doo + RotP) * radius
47.             LINE (X1, Y1)-(X2, Y2), C(D).Kolor
48.         NEXT K
49.  
50.         'calculate door line
51.         FOR K = 1 TO Circles - 1
52.             Crad = C(K).Radius
53.             D30 = (_PI(2) / Crad) * 4
54.             KX1 = 400 + COS(C(K).Exit + D30 + RotP) * Crad
55.             KY1 = 400 + SIN(C(K).Exit + D30 + RotP) * Crad
56.             KX2 = 400 + COS(C(K).Exit - D30 + RotP) * Crad
57.             KY2 = 400 + SIN(C(K).Exit - D30 + RotP) * Crad
58.  
59.             'LINE (KX1, KY1)-(KX2, KY2)
60.  
61.             IF KY1 >= Yb AND KY2 >= Yb THEN 'vyrez dveri je pod kulickou
62.                 IF KX1 < Xb - 6 AND KX2 > Xb - 12 THEN
63.                     IF K = Level THEN
64.                         IF Kolide <= 0 THEN
65.                             FOR AllXs = Xb - 6 TO Xb + 6
66.                                 Kolide = IL(KX1, KY1, KX2, KY2, AllXs)
67.                             NEXT
68.                             IF Kolide THEN memY = Yb
69.                         END IF
70.                         OYb = Yb
71.                     END IF
72.                 END IF
73.             END IF
74.         NEXT K
75.  
76.         IF Kolide THEN
77.             Yb = Yb + .5
78.         END IF
79.  
80.         IF memY THEN
81.             IF Yb - 400 > C(Level + 1).Radius - 16 THEN Yb = C(Level + 1).Radius + 400 - 16: memY = 0: Level = Level + 1: Kolide = 0
82.         END IF
83.         PB Xb, Yb
84.     NEXT D
85.     _DISPLAY
86.     _LIMIT 20
87. LOOP
88.  
89. FUNCTION Ball
90.     Ball = _NEWIMAGE(24, 24, 256)
91.     D = _DEST
92.     _DEST Ball
93.     CLS , 128
94.     FOR C = 12 TO 0 STEP -1
95.         CIRCLE (12, 12), C, 16 + e
96.         PAINT (12, 12), 16 + e, 16 + e
97.         e = e + 1
98.     NEXT
99.     _DEST D
100.     _CLEARCOLOR 128, Ball
101. END FUNCTION
102.  
103. SUB PB (X, Y)
104.     _PUTIMAGE (X - 12, Y - 12), B
105. END SUB
106.  
107. FUNCTION IL (Xb, Yb, Xe, Ye, P)
108.     IF Xb > Xe THEN '
109.         SWAP Xb, Xe
110.         SWAP Yb, Ye
111.     END IF
112.     IF P >= Xb AND P <= Xe THEN
113.         IF Xb = Xe THEN IL = -1: EXIT FUNCTION 'error
114.         IF Yb = Ye THEN
115.             IL = Yb
116.         ELSE
117.             Lenx = Xb - Xe
118.             LenY = Yb - Ye
119.             Ratio = LenY / Lenx
120.             IL = INT(Yb + (P - Xb) * Ratio)
121.         END IF
122.     ELSE
123.  
124.     END IF
125. END FUNCTION
126.  
127.  

[bplus]

Oh fun! :)

[SierraKen]

LOL That is so cool! That reminds me of the old arcade game Star Castle where you shoot the turning circle segments, which are barriers around the middle enemy.

[bplus]

We have a squirrel that sounds like that. :-))

[SierraKen]

LOL a squirrel. I was wondering, have any of you experimented with liquid effects on QB64? Besides the water waves and last year's lava lamps, I'm wondering if liquid can be made with particles. Set a particle its own array and use semi-realistic gravity for each one, maybe find a way to keep them clumped together too. I think I'll see what I can figure out.