Meander testing grounds

[bplus]

I have created a monster....

Seriously though, Thanks for the help. gets me a lot closer to the look and feel I wanted.

OK, I think we are ready for some lightning (do you hear evil laughter?)

[SMcNeill]

This reminds me of the path and lighting generator which I was working on with my little rogue-clone, before life interrupted the start of a nice project.  You guys might want to take a look in it sometime.

https://www.qb64.org/forum/index.php?action=dlattach;topic=1696.0;attach=3795

[bplus]

Hi Steve,

Yes, I remember that project start (don't remember the name) but arrowing around opened up tunnels and rooms. Your link is only downloading a screen shot.

[SMcNeill]

Hi Steve,

Yes, I remember that project start (don't remember the name) but arrowing around opened up tunnels and rooms. Your link is only downloading a screen shot.

Sorry.  Copied the wrong link apparently.  Try this one: https://www.qb64.org/forum/index.php?topic=1696.msg109537#msg109537

CreateMap is the sub which draws our rooms and then meanders our paths for us.  My concept is really simple: Start at point A, and move towards point B, with a chance for the random variance which generates the “meandering”.


For example, say B is 10 steps due East from A...

Start at A:
East
East
North (random change)
North (again, the random change kicked in)
East
East
South (automatic course correction as we move towards B)
West (random kicked in again.)

And so on...

As long as your random variance is less than the chance for direct approach, you’ll eventually reach the goal.

[_vince]

Fascinating! Nice work solving the 1105 rooms problem

[bplus]

And here comes the lightning!

Watch out!

Code: QB64: [Select]

1. _TITLE "Adding some lightning" ' b+ 2020-09-17   so much better in living color!!
2. ' ah much better response on on escape or Q to quit! too.
3.  
4. SCREEN _NEWIMAGE(1024, 620, 32)
5. _DELAY .25
6. _SCREENMOVE _MIDDLE
7. '_FULLSCREEN
8. RANDOMIZE TIMER
9. CONST flashy = &HFFFFFF88
10. TYPE box
11.     x AS SINGLE
12.     y AS SINGLE
13.     w AS SINGLE
14.     h AS SINGLE
15.     K AS _UNSIGNED LONG
16. END TYPE
17.  
18. TYPE move
19.     x AS SINGLE
20.     y AS SINGLE
21.     'd AS INTEGER
22. END TYPE
23.  
24. DIM SHARED beeLineK AS _UNSIGNED LONG, gSize AS INTEGER
25.  
26. REDIM SHARED VS(_WIDTH, _HEIGHT)
27.  
28. DIM backColor AS _UNSIGNED LONG, hc AS INTEGER
29. DO
30.     'whole new set
31.     REDIM VS(_WIDTH, _HEIGHT)
32.     gSize = units(INT(40 * RND) + 11, 5)
33.     nBoxes = INT(SQR(_WIDTH * _HEIGHT) / gSize * RND) + 1
34.     IF nBoxes < 15 THEN nBoxes = 15
35.     IF nBoxes > 100 THEN nBoxes = 100
36.     COLOR &HFFFFFFFF, &HFF000000
37.     PRINT gSize, nBoxes
38.     '_DISPLAY
39.     REDIM b(1 TO nBoxes) AS box 'new box set
40.     FOR i = 1 TO nBoxes
41.         tryAgain:
42.         b(i).x = units(RND * (_WIDTH - 2 * (gSize + 1)) + gSize + 1, gSize) 'get x, y off the edges of screen!
43.         b(i).y = units(RND * (_HEIGHT - 2 * (gSize + 1)) + gSize + 1, gSize)
44.         IF i > 1 THEN
45.             OK = -1
46.             FOR j = 1 TO i - 1
47.                 IF _HYPOT(b(j).x - b(i).x, b(j).y - b(i).y) < 3 * gSize THEN OK = 0: EXIT FOR
48.             NEXT
49.             IF OK = 0 THEN GOTO tryAgain
50.         END IF
51.         b(i).w = gSize + RND * gSize * .5
52.         b(i).h = gSize + RND * gSize * .5
53.         b(i).K = _RGB32(RND * 85 + 170, RND * 85 + 170, RND * 85 + 170)
54.     NEXT
55.     backColor = _RGB32(RND * 65, RND * 65, RND * 65)
56.     hc = maxC(backColor)
57.     IF hc = 1 THEN beeLineK = _RGB32(0, RND * 85 + 85, RND * 85 + 85)
58.     IF hc = 2 THEN beeLineK = _RGB32(RND * 85 + 85, 0, RND * 85 + 85)
59.     IF hc = 3 THEN beeLineK = _RGB32(RND * 85 + 85, RND * 85 + 85, 0)
60.     COLOR , backColor
61.     CLS
62.     drawGrid gSize, gSize, _WIDTH - 1, _HEIGHT - 1, gSize, &HFF404040
63.     'SLEEP
64.     FOR i = 2 TO nBoxes '                                  draw the meanderings
65.         meander2 b(i - 1).x, b(i - 1).y, b(i).x, b(i).y
66.         LINE (b(i).x - b(i).w * .5, b(i).y - b(i).h * .5)-STEP(b(i).w, b(i).h), b(i).K, BF 'draw the boxes
67.         LINE (b(i - 1).x - b(i - 1).w * .5, b(i - 1).y - b(i - 1).h * .5)-STEP(b(i - 1).w, b(i - 1).h), b(i - 1).K, BF 'draw the boxes
68.     NEXT
69.     FOR i = 1 TO nBoxes
70.         LINE (b(i).x - b(i).w * .5, b(i).y - b(i).h * .5)-STEP(b(i).w, b(i).h), b(i).K, BF 'draw the boxes
71.     NEXT
72.  
73.     '  and now for some lightning!!!
74.     grd& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
75.     _PUTIMAGE , 0, grd&
76.     DIM i AS LONG
77.     i = 0
78.     REDIM flash AS box, moves(0) AS move, mItem AS move
79.     r = INT(RND * nBoxes) + 1 'pick a place to strike, light it up
80.     moves(i).x = b(r).x: moves(i).y = b(r).y: flash.w = b(r).w: flash.h = b(r).h: flash.K = flashy
81.     LINE (moves(i).x - .5 * flash.w, moves(i).y - .5 * flash.h)-STEP(flash.w, flash.h), flashy - RND * 150, BF
82.     GOSUB checkoutThePlace
83.     oldUB = 0
84.     circuit:
85.     ub = UBOUND(moves)
86.     IF ub > oldUB THEN
87.         _PUTIMAGE , grd&, 0
88.         FOR i = oldUB TO ub
89.             fcirc moves(i).x, moves(i).y, .33 * gSize, flashy - RND * 150
90.             GOSUB checkoutThePlace
91.         NEXT
92.         oldUB = ub
93.         _DISPLAY
94.         _LIMIT 10
95.         GOTO circuit
96.     END IF
97.     _PUTIMAGE , grd&, 0
98.     BEEP
99.     _FREEIMAGE grd&
100.     _AUTODISPLAY
101.     SLEEP
102.  
103. LOOP UNTIL _KEYDOWN(27) OR UCASE$(INKEY$) = "Q"
104. END
105.  
106. checkoutThePlace:
107. IF moves(i).x + .5 * gSize >= 0 AND moves(i).x + .5 * gSize < _WIDTH THEN
108.     IF VS(moves(i).x + .5 * gSize, moves(i).y) = 1 THEN
109.         mItem.x = moves(i).x + gSize: mItem.y = moves(i).y
110.         sAppend moves(), mItem
111.         VS(moves(i).x + .5 * gSize, moves(i).y) = 0
112.     END IF
113. END IF
114. IF moves(i).y + .5 * gSize >= 0 AND moves(i).y + .5 * gSize < _HEIGHT THEN
115.     IF VS(moves(i).x, moves(i).y + .5 * gSize) = 1 THEN
116.         mItem.x = moves(i).x: mItem.y = moves(i).y + gSize
117.         sAppend moves(), mItem
118.         VS(moves(i).x, moves(i).y + .5 * gSize) = 0
119.     END IF
120. END IF
121. IF moves(i).x - .5 * gSize >= 0 AND moves(i).x - .5 * gSize < _WIDTH THEN
122.     IF VS(moves(i).x - .5 * gSize, moves(i).y) = 1 THEN
123.         mItem.x = moves(i).x - gSize: mItem.y = moves(i).y
124.         sAppend moves(), mItem
125.         VS(moves(i).x - .5 * gSize, moves(i).y) = 0
126.     END IF
127. END IF
128. IF moves(i).y - .5 * gSize >= 0 AND moves(i).y - .5 * gSize < _HEIGHT THEN
129.     IF VS(moves(i).x, moves(i).y - .5 * gSize) = 1 THEN
130.         mItem.x = moves(i).x: mItem.y = moves(i).y - gSize
131.         sAppend moves(), mItem
132.         VS(moves(i).x, moves(i).y - .5 * gSize) = 0
133.     END IF
134. END IF
135. RETURN
136.  
137. SUB meander2 (x1, y1, x2, y2) ' snap to grid!   gSize is shared
138.     startx = x1: starty = y1: endx = x2: endy = y2
139.     x = startx: y = starty
140.     GOSUB dist
141.     IF dist > 100 THEN
142.         time = INT(RND * 8 + 4) ' total amount allowed to move  The More the time the more the meander!!!!
143.     ELSE
144.         time = 3
145.     END IF
146.     startTime = time '       > 20 is too much!!
147.     IF RND < .5 THEN lastmoveX = 0 ELSE lastmoveX = -1
148.     lastx = startx: lasty = starty
149.     DO
150.         GOSUB dist
151.         IF RND < .5 THEN d = -1 ELSE d = 1
152.         IF lastmoveX = 0 THEN
153.             lastx = x
154.             IF time <= 2 THEN
155.                 x = endx
156.             ELSE
157.                 dx = units(d * (.4 * distx * RND + gSize), gSize)
158.                 IF dx = 0 THEN dx = gSize
159.                 IF x + dx > 0 AND x + dx < _WIDTH THEN
160.                     x = x + dx
161.                 ELSE
162.                     x = x + -dx
163.                 END IF
164.             END IF
165.             'LINE (lastx, y)-(x, y)
166.             beeline lastx, y, x, y
167.             lastmoveX = -1
168.         ELSE
169.             lasty = y
170.             IF time <= 2 THEN
171.                 y = endy
172.             ELSE
173.                 dy = units(d * (.3 * disty * RND + gSize), gSize)
174.                 IF dy = 0 THEN dy = gSize
175.                 IF y + dy > 0 AND y + dy < _HEIGHT THEN
176.                     y = y + dy
177.                 ELSE
178.                     y = y + -dy
179.                 END IF
180.             END IF
181.             'LINE (x, lasty)-(x, y)
182.             beeline x, lasty, x, y
183.             lastmoveX = 0
184.         END IF
185.         time = time - 1
186.         '_LIMIT 10
187.     LOOP UNTIL time <= 0
188.     EXIT SUB
189.     dist:
190.     distx = endx - x: disty = endy - y
191.     RETURN
192. END SUB
193.  
194. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
195.     DIM Radius AS INTEGER, RadiusError AS INTEGER
196.     DIM X AS INTEGER, Y AS INTEGER
197.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
198.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
199.     LINE (CX - X, CY)-(CX + X, CY), C, BF
200.     WHILE X > Y
201.         RadiusError = RadiusError + Y * 2 + 1
202.         IF RadiusError >= 0 THEN
203.             IF X <> Y + 1 THEN
204.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
205.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
206.             END IF
207.             X = X - 1
208.             RadiusError = RadiusError - X * 2
209.         END IF
210.         Y = Y + 1
211.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
212.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
213.     WEND
214. END SUB
215.  
216. SUB beeline (x1, y1, x2, y2)
217.     IF x1 = x2 THEN
218.         IF y1 <= y2 THEN FOR y = y1 TO y2: fcirc x1, y, 2, beeLineK: VS(INT(x1), INT(y)) = 1: NEXT
219.         IF y1 > y2 THEN FOR y = y1 TO y2 STEP -1: fcirc x1, y, 2, beeLineK: VS(INT(x1), INT(y)) = 1: NEXT
220.     ELSE
221.         IF x1 <= x2 THEN FOR x = x1 TO x2: fcirc x, y1, 2, beeLineK: VS(INT(x), INT(y1)) = 1: NEXT
222.         IF x1 > x2 THEN FOR x = x1 TO x2 STEP -1: fcirc x, y1, 2, beeLineK: VS(INT(x), INT(y1)) = 1: NEXT
223.     END IF
224. END SUB
225.  
226. FUNCTION maxC (K AS _UNSIGNED LONG)
227.     IF _RED32(K) >= _GREEN32(K) AND _RED32(K) >= _BLUE32(K) THEN maxC = 1: EXIT FUNCTION
228.     IF _GREEN32(K) >= _BLUE(K) THEN maxC = 2 ELSE maxC = 3
229. END FUNCTION
230.  
231. ' this sub needs FUNCTION units (x, unit)
232. SUB drawGrid (x1, y1, x2, y2, gsize, gridClr AS _UNSIGNED LONG) ' grid of square gsize X gsize
233.     ' fit a grid between x1, x2 and  y1, y2
234.     ' x1, y1 top right corner and x2, y2 expected bottom right corner of boundary line
235.  
236.     DIM x AS INTEGER, y AS INTEGER, gx1 AS INTEGER, gy1 AS INTEGER, gx2 AS INTEGER, gy2 AS INTEGER
237.     gx1 = units(x1, gsize): gy1 = units(y1, gsize) 'convert to grid coordinates
238.     gx2 = units(x2, gsize): gy2 = units(y2, gsize)
239.     IF gx1 < x1 THEN gx1 = gx1 + gsize 'stay inside boundarys passed to sub
240.     IF gy1 < y1 THEN gy1 = gy1 + gsize
241.     IF gx1 >= gx2 OR gy1 >= gy2 THEN EXIT SUB 'that's not even a single square!
242.     FOR x = gx1 TO gx2 STEP gsize: LINE (x, gy1)-(x, gy2), gridClr: NEXT
243.     FOR y = gy1 TO gy2 STEP gsize: LINE (gx1, y)-(gx2, y), gridClr: NEXT
244. END SUB
245.  
246. FUNCTION units (x, unit)
247.     units = INT(x / unit) * unit
248. END FUNCTION
249.  
250. SUB sAppend (arr() AS move, addItem AS move)
251.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS move
252.     arr(UBOUND(arr)) = addItem
253. END SUB
254.  
255.  
256.  

EDIT: Oh ha! the lightning had some bugs. ;-))  fixed

[bplus]

Burn out the lights too: 

Code: QB64: [Select]

1. _TITLE "Adding some lightning" ' b+ 2020-09-17   so much better in living color!!
2. ' ah much better response on on escape or Q to quit! too.
3.  
4. SCREEN _NEWIMAGE(1024, 620, 32)
5. _DELAY .25
6. _SCREENMOVE _MIDDLE
7. '_FULLSCREEN
8. RANDOMIZE TIMER
9. CONST flashy = &HFFFFFF00
10. TYPE box
11.     x AS SINGLE
12.     y AS SINGLE
13.     w AS SINGLE
14.     h AS SINGLE
15.     K AS _UNSIGNED LONG
16.     hit AS INTEGER
17. END TYPE
18.  
19. TYPE move
20.     x AS SINGLE
21.     y AS SINGLE
22.     'd AS INTEGER
23. END TYPE
24.  
25. DIM SHARED beeLineK AS _UNSIGNED LONG, gSize AS INTEGER
26.  
27. REDIM SHARED VS(_WIDTH, _HEIGHT)
28.  
29. DIM backColor AS _UNSIGNED LONG, hc AS INTEGER
30. DO
31.     'whole new set
32.     REDIM VS(_WIDTH, _HEIGHT)
33.     gSize = units(INT(20 * RND) + 6, 5)
34.     nBoxes = INT(SQR(_WIDTH * _HEIGHT) / gSize * RND) + 1
35.     IF nBoxes < 40 THEN nBoxes = 40
36.     IF nBoxes > 100 THEN nBoxes = 100
37.     COLOR &HFFFFFFFF, &HFF000000
38.     PRINT gSize, nBoxes
39.     '_DISPLAY
40.     REDIM b(1 TO nBoxes) AS box 'new box set
41.     FOR i = 1 TO nBoxes
42.         tryAgain:
43.         b(i).x = units(RND * (_WIDTH - 2 * (gSize + 1)) + gSize + 1, gSize) 'get x, y off the edges of screen!
44.         b(i).y = units(RND * (_HEIGHT - 2 * (gSize + 1)) + gSize + 1, gSize)
45.         IF i > 1 THEN
46.             OK = -1
47.             FOR j = 1 TO i - 1
48.                 IF _HYPOT(b(j).x - b(i).x, b(j).y - b(i).y) < 3 * gSize THEN OK = 0: EXIT FOR
49.             NEXT
50.             IF OK = 0 THEN GOTO tryAgain
51.         END IF
52.         b(i).w = gSize + RND * gSize * .5
53.         b(i).h = gSize + RND * gSize * .5
54.         b(i).K = _RGB32(RND * 85 + 170, RND * 85 + 170, RND * 85 + 170)
55.     NEXT
56.     backColor = _RGB32(RND * 65, RND * 65, RND * 65)
57.     hc = maxC(backColor)
58.     IF hc = 1 THEN beeLineK = _RGB32(0, RND * 85 + 85, RND * 85 + 85)
59.     IF hc = 2 THEN beeLineK = _RGB32(RND * 85 + 85, 0, RND * 85 + 85)
60.     IF hc = 3 THEN beeLineK = _RGB32(RND * 85 + 85, RND * 85 + 85, 0)
61.     COLOR , backColor
62.     CLS
63.     drawGrid gSize, gSize, _WIDTH - 1, _HEIGHT - 1, gSize, &HFF404040
64.     'SLEEP
65.     FOR i = 2 TO nBoxes '                                  draw the meanderings
66.         meander2 b(i - 1).x, b(i - 1).y, b(i).x, b(i).y
67.         LINE (b(i).x - b(i).w * .5, b(i).y - b(i).h * .5)-STEP(b(i).w, b(i).h), b(i).K, BF 'draw the boxes
68.         LINE (b(i - 1).x - b(i - 1).w * .5, b(i - 1).y - b(i - 1).h * .5)-STEP(b(i - 1).w, b(i - 1).h), b(i - 1).K, BF 'draw the boxes
69.     NEXT
70.     FOR i = 1 TO nBoxes
71.         LINE (b(i).x - b(i).w * .5, b(i).y - b(i).h * .5)-STEP(b(i).w, b(i).h), b(i).K, BF 'draw the boxes
72.     NEXT
73.  
74.     '  and now for some lightning!!!
75.     grd& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
76.     _PUTIMAGE , 0, grd&
77.     DIM i AS LONG
78.     i = 0
79.     REDIM flash AS box, moves(0) AS move, mItem AS move
80.     r = INT(RND * nBoxes) + 1 'pick a place to strike, light it up
81.     moves(i).x = b(r).x: moves(i).y = b(r).y: flash.w = b(r).w: flash.h = b(r).h: flash.K = flashy
82.     LINE (moves(i).x - .5 * flash.w, moves(i).y - .5 * flash.h)-STEP(flash.w, flash.h), flashy, BF
83.     GOSUB checkoutThePlace
84.     oldUB = 0
85.     circuit:
86.     ub = UBOUND(moves)
87.     IF ub > oldUB THEN
88.         _PUTIMAGE , grd&, 0
89.         FOR i = 1 TO nBoxes
90.             IF b(i).hit THEN LINE (b(i).x - b(i).w * .5, b(i).y - b(i).h * .5)-STEP(b(i).w, b(i).h), &HFF551100, BF
91.         NEXT
92.         FOR i = oldUB TO ub
93.             fcirc moves(i).x, moves(i).y, .33 * gSize, flashy - RND * 150
94.             FOR j = 1 TO nBoxes
95.                 IF moves(i).x = b(j).x AND moves(i).y = b(j).y THEN b(j).hit = 1
96.             NEXT
97.             GOSUB checkoutThePlace
98.         NEXT
99.         oldUB = ub
100.         _DISPLAY
101.         _LIMIT 10
102.         GOTO circuit
103.     END IF
104.     _PUTIMAGE , grd&, 0
105.     FOR i = 1 TO nBoxes
106.         IF b(i).hit THEN LINE (b(i).x - b(i).w * .5, b(i).y - b(i).h * .5)-STEP(b(i).w, b(i).h), &HFF551100, BF
107.     NEXT
108.     BEEP
109.     _FREEIMAGE grd&
110.     _AUTODISPLAY
111.     SLEEP
112.  
113. LOOP UNTIL _KEYDOWN(27) OR UCASE$(INKEY$) = "Q"
114. END
115.  
116. checkoutThePlace:
117. IF moves(i).x + .5 * gSize >= 0 AND moves(i).x + .5 * gSize < _WIDTH THEN
118.     IF VS(moves(i).x + .5 * gSize, moves(i).y) = 1 THEN
119.         mItem.x = moves(i).x + gSize: mItem.y = moves(i).y
120.         sAppend moves(), mItem
121.         VS(moves(i).x + .5 * gSize, moves(i).y) = 0
122.     END IF
123. END IF
124. IF moves(i).y + .5 * gSize >= 0 AND moves(i).y + .5 * gSize < _HEIGHT THEN
125.     IF VS(moves(i).x, moves(i).y + .5 * gSize) = 1 THEN
126.         mItem.x = moves(i).x: mItem.y = moves(i).y + gSize
127.         sAppend moves(), mItem
128.         VS(moves(i).x, moves(i).y + .5 * gSize) = 0
129.     END IF
130. END IF
131. IF moves(i).x - .5 * gSize >= 0 AND moves(i).x - .5 * gSize < _WIDTH THEN
132.     IF VS(moves(i).x - .5 * gSize, moves(i).y) = 1 THEN
133.         mItem.x = moves(i).x - gSize: mItem.y = moves(i).y
134.         sAppend moves(), mItem
135.         VS(moves(i).x - .5 * gSize, moves(i).y) = 0
136.     END IF
137. END IF
138. IF moves(i).y - .5 * gSize >= 0 AND moves(i).y - .5 * gSize < _HEIGHT THEN
139.     IF VS(moves(i).x, moves(i).y - .5 * gSize) = 1 THEN
140.         mItem.x = moves(i).x: mItem.y = moves(i).y - gSize
141.         sAppend moves(), mItem
142.         VS(moves(i).x, moves(i).y - .5 * gSize) = 0
143.     END IF
144. END IF
145. RETURN
146.  
147. SUB meander2 (x1, y1, x2, y2) ' snap to grid!   gSize is shared
148.     startx = x1: starty = y1: endx = x2: endy = y2
149.     x = startx: y = starty
150.     GOSUB dist
151.     IF dist > 100 THEN
152.         time = INT(RND * 8 + 4) ' total amount allowed to move  The More the time the more the meander!!!!
153.     ELSE
154.         time = 3
155.     END IF
156.     startTime = time '       > 20 is too much!!
157.     IF RND < .5 THEN lastmoveX = 0 ELSE lastmoveX = -1
158.     lastx = startx: lasty = starty
159.     DO
160.         GOSUB dist
161.         IF RND < .5 THEN d = -1 ELSE d = 1
162.         IF lastmoveX = 0 THEN
163.             lastx = x
164.             IF time <= 2 THEN
165.                 x = endx
166.             ELSE
167.                 dx = units(d * (.4 * distx * RND + gSize), gSize)
168.                 IF dx = 0 THEN dx = gSize
169.                 IF x + dx > 0 AND x + dx < _WIDTH THEN
170.                     x = x + dx
171.                 ELSE
172.                     x = x + -dx
173.                 END IF
174.             END IF
175.             'LINE (lastx, y)-(x, y)
176.             beeline lastx, y, x, y
177.             lastmoveX = -1
178.         ELSE
179.             lasty = y
180.             IF time <= 2 THEN
181.                 y = endy
182.             ELSE
183.                 dy = units(d * (.3 * disty * RND + gSize), gSize)
184.                 IF dy = 0 THEN dy = gSize
185.                 IF y + dy > 0 AND y + dy < _HEIGHT THEN
186.                     y = y + dy
187.                 ELSE
188.                     y = y + -dy
189.                 END IF
190.             END IF
191.             'LINE (x, lasty)-(x, y)
192.             beeline x, lasty, x, y
193.             lastmoveX = 0
194.         END IF
195.         time = time - 1
196.         '_LIMIT 10
197.     LOOP UNTIL time <= 0
198.     EXIT SUB
199.     dist:
200.     distx = endx - x: disty = endy - y
201.     RETURN
202. END SUB
203.  
204. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
205.     DIM Radius AS INTEGER, RadiusError AS INTEGER
206.     DIM X AS INTEGER, Y AS INTEGER
207.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
208.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
209.     LINE (CX - X, CY)-(CX + X, CY), C, BF
210.     WHILE X > Y
211.         RadiusError = RadiusError + Y * 2 + 1
212.         IF RadiusError >= 0 THEN
213.             IF X <> Y + 1 THEN
214.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
215.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
216.             END IF
217.             X = X - 1
218.             RadiusError = RadiusError - X * 2
219.         END IF
220.         Y = Y + 1
221.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
222.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
223.     WEND
224. END SUB
225.  
226. SUB beeline (x1, y1, x2, y2)
227.     IF x1 = x2 THEN
228.         IF y1 <= y2 THEN FOR y = y1 TO y2: fcirc x1, y, 1, beeLineK: VS(INT(x1), INT(y)) = 1: NEXT
229.         IF y1 > y2 THEN FOR y = y1 TO y2 STEP -1: fcirc x1, y, 1, beeLineK: VS(INT(x1), INT(y)) = 1: NEXT
230.     ELSE
231.         IF x1 <= x2 THEN FOR x = x1 TO x2: fcirc x, y1, 1, beeLineK: VS(INT(x), INT(y1)) = 1: NEXT
232.         IF x1 > x2 THEN FOR x = x1 TO x2 STEP -1: fcirc x, y1, 1, beeLineK: VS(INT(x), INT(y1)) = 1: NEXT
233.     END IF
234. END SUB
235.  
236. FUNCTION maxC (K AS _UNSIGNED LONG)
237.     IF _RED32(K) >= _GREEN32(K) AND _RED32(K) >= _BLUE32(K) THEN maxC = 1: EXIT FUNCTION
238.     IF _GREEN32(K) >= _BLUE(K) THEN maxC = 2 ELSE maxC = 3
239. END FUNCTION
240.  
241. ' this sub needs FUNCTION units (x, unit)
242. SUB drawGrid (x1, y1, x2, y2, gsize, gridClr AS _UNSIGNED LONG) ' grid of square gsize X gsize
243.     ' fit a grid between x1, x2 and  y1, y2
244.     ' x1, y1 top right corner and x2, y2 expected bottom right corner of boundary line
245.  
246.     DIM x AS INTEGER, y AS INTEGER, gx1 AS INTEGER, gy1 AS INTEGER, gx2 AS INTEGER, gy2 AS INTEGER
247.     gx1 = units(x1, gsize): gy1 = units(y1, gsize) 'convert to grid coordinates
248.     gx2 = units(x2, gsize): gy2 = units(y2, gsize)
249.     IF gx1 < x1 THEN gx1 = gx1 + gsize 'stay inside boundarys passed to sub
250.     IF gy1 < y1 THEN gy1 = gy1 + gsize
251.     IF gx1 >= gx2 OR gy1 >= gy2 THEN EXIT SUB 'that's not even a single square!
252.     FOR x = gx1 TO gx2 STEP gsize: LINE (x, gy1)-(x, gy2), gridClr: NEXT
253.     FOR y = gy1 TO gy2 STEP gsize: LINE (gx1, y)-(gx2, y), gridClr: NEXT
254. END SUB
255.  
256. FUNCTION units (x, unit)
257.     units = INT(x / unit) * unit
258. END FUNCTION
259.  
260. SUB sAppend (arr() AS move, addItem AS move)
261.     REDIM _PRESERVE arr(LBOUND(arr) TO UBOUND(arr) + 1) AS move
262.     arr(UBOUND(arr)) = addItem
263. END SUB
264.  
265.  

BTW the beep is to remind you to hit the spacebar.