Search-Man Game

[SierraKen]

After working incredibly hard on this game, I have come to a point where I just don't know any more programming to make it better. But I think it's still a cute game to play. Search-Man is a little bit like Pac-Man but the mazes are much more complex and different every level. They also change colors. You eat round orange candy (like pellets in Pac-Man) all through the maze. Every level also has different sizes of hallways, so some mazes are much harder than others. The size of your guy depends on the width of the hallways on that specific level.  You move around a guy that chomps down on them. You see his white teeth when you eat one. You control with the arrow keys. The game is also a lot more random than Pac-Man in that you don't get chased by ghosts or anything, instead 4 random bombs appear in random places on the screen. If you touch one you explode. I experimented with making it a little easier to have them slowly appear to give you time to get away, but it was kinda hard and also the more I think about it, the game would just get a lot more easier and less exciting. To make the bombs go away for 20 seconds, you need to find a rectangular lever, which there are 5 or so scattered around. You get to the next level when a certain amount of points have been made. I tried to make it so you have to get all the candy, but either I had candy directly under other candy, or it was detecting the same one before it disappeared more than once. I might look more into that. But I can't promise anything. You start out with 3 players. The splash screen shows your guy up close for a few seconds. Oh and please don't be overly critical, it took me around 30 hours total to make this game and it's the best maze-type game I've ever made. But also don't expect too much. :) Enjoy.
Oh also, there are times when your guy explodes when you don't see any bombs, I believe that is when the bombs are about to appear but haven't yet and your guy is there first. I am also looking into that somewhat.

Code: QB64: [Select]

1. _TITLE "Search-Man"
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _LIMIT 3000
4. xx = 350: yy = 300: h = 200
5. splashscreen:
6. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
7. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
8. ex1 = (xx + (INT(h / 3) / 2) / 2)
9. ex2 = (xx + (INT(h / 3) / 2) / .65)
10. ey = (yy + (INT(h / 3) / 2) / 2)
11. mx = (xx + (INT(h / 3) / 2))
12. my = (yy + (INT(h / 2.2) / 2))
13. ny = (yy + (h / 2.85) / 2)
14. FOR sz = .25 TO 2 STEP .25
15.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
16.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
17. NEXT sz
18. FOR sz = .25 TO 2.5 STEP .25
19.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
20. NEXT sz
21. FOR sz = .25 TO 1.5 STEP .25
22.     CIRCLE (mx, ny), sz, _RGB32(0, 0, 0)
23. NEXT sz
24. mouth:
25. m = m + 1
26. IF m > 9 THEN GOTO begin:
27. IF m = 1 THEN mouth = 0
28. IF m = 2 THEN mouth = 1
29. IF m = 3 THEN mouth = 0
30. IF m = 4 THEN mouth = 1
31. IF m = 5 THEN mouth = 0
32. IF m = 6 THEN mouth = 1
33. IF m = 7 THEN mouth = 0
34. IF m = 8 THEN mouth = 1
35. IF m = 9 THEN mouth = 0
36. IF mouth = 1 THEN
37.     FOR sz = .25 TO 2.5 STEP .25
38.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
39.     NEXT sz
40. END IF
41. IF mouth = 0 THEN
42.     FOR sz = .25 TO 1.5 STEP .25
43.         CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
44.     NEXT sz
45. END IF
46. _DELAY .5
47. GOTO mouth:
48. begin:
49. CLS
50. PRINT: PRINT
51. PRINT "                                     Search-Man"
52. PRINT: PRINT: PRINT
53. PRINT "                                     by  Ken G."
54. PRINT: PRINT: PRINT
55. PRINT
56. PRINT
57. PRINT "                - Use the arrow keys to guide your green guy around the maze"
58. PRINT "                  to eat the orange candy."
59. PRINT "                - Levels change when a certain amount of points have been reached."
60. PRINT "                - Avoid hitting the randomly placed red bombs."
61. PRINT "                - Get the green levers to delete the bombs for 20 seconds."
62. PRINT "                - You start out with 3 players, Good Luck!"
63. PRINT: PRINT: PRINT
64. PRINT: PRINT: PRINT
65. INPUT "                               Press Enter To Begin.", a$
66. level = 1
67. sc = 0
68. players = 3
69. level$ = STR$(level)
70.  
71. 'Start a new level here.
72. level:
73. DIM t AS LONG
74. DIM candyx(500), candyy(500)
75. DIM leverx(200), levery(200)
76. x = 400: y = 300
77. t = 0
78. c = 0
79. drx = 0: dry = 0
80. lv = 0: slv = 0: bombs = 0
81. lev = 0
82. mouth = 0
83. RANDOMIZE TIMER
84. h = INT(RND * 60) + 40
85.  
86. 'Randomly choose a wall color.
87. RANDOMIZE TIMER
88. col = INT(RND * 8) + 1
89. 'green
90. IF col = 1 THEN
91.     col1 = 33: col2 = 230: col3 = 7
92. END IF
93. 'purple
94. IF col = 2 THEN
95.     col1 = 152: col2 = 7: col3 = 230
96. END IF
97. 'yellow
98. IF col = 3 THEN
99.     col1 = 247: col2 = 255: col3 = 8
100. END IF
101. 'orange
102. IF col = 4 THEN
103.     col1 = 255: col2 = 156: col3 = 8
104. END IF
105. 'red
106. IF col = 5 THEN
107.     col1 = 255: col2 = 8: col3 = 8
108. END IF
109. 'blue
110. IF col = 6 THEN
111.     col1 = 8: col2 = 131: col3 = 255
112. END IF
113. 'white
114. IF col = 7 THEN
115.     col1 = 255: col2 = 255: col3 = 255
116. END IF
117. 'greenish-blue
118. IF col = 8 THEN
119.     col1 = 10: col2 = 240: col3 = 201
120. END IF
121.  
122. 'Make the walls.
123. CLS
124. DO
125.     _LIMIT 3000
126.     again:
127.     t = t + 1
128.     IF t = 30000000 THEN EXIT DO
129.     oldx = x
130.     oldy = y
131.     oldd = d
132.     RANDOMIZE TIMER
133.     d = INT(RND * 4) + 1
134.     IF d = oldd THEN GOTO again:
135.     IF d = 1 THEN x = x + h
136.     IF d = 2 THEN x = x - h
137.     IF d = 3 THEN y = y + h
138.     IF d = 4 THEN y = y - h
139.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
140.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
141.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
142. LOOP
143. t = 0
144. FOR tt = 1 TO INT(1000 / h)
145.     RANDOMIZE TIMER
146.     x2 = INT(RND * 800) + 1
147.     y2 = INT(RND * 600) + 1
148.     d2 = INT(RND * 2) + 1
149.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
150.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
151. NEXT tt
152.  
153. 'Setup the candy.
154. DO
155.     candy:
156.     RANDOMIZE TIMER
157.     candyx = INT(RND * 750) + 25
158.     candyy = INT(RND * 550) + 25
159.     FOR cx = -7 TO 7
160.         FOR cy = -7 TO 7
161.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
162.         NEXT cy
163.     NEXT cx
164.     FOR cs = .25 TO 3 STEP .25
165.         CIRCLE (candyx, candyy), cs, _RGB32(255, 161, 0)
166.     NEXT cs
167.     c = c + 1
168.     candyx(c) = candyx: candyy(c) = candyy
169.     IF c = 300 THEN EXIT DO
170. LOOP
171.  
172. 'Setup the levers
173. DO
174.     levers:
175.     RANDOMIZE TIMER
176.     leverx = INT(RND * 750) + 25
177.     levery = INT(RND * 550) + 25
178.     FOR cx = -2 TO 7
179.         FOR cy = -2 TO 17
180.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
181.         NEXT cy
182.     NEXT cx
183.     FOR cx = -5 TO 5
184.         FOR cy = -5 TO 5
185.             IF POINT(leverx + cx, levery + cy) = _RGB32(255, 161, 0) THEN GOTO levers:
186.         NEXT cy
187.     NEXT cx
188.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
189.     lev = lev + 1
190.     leverx(lev) = leverx: levery(lev) = levery
191.     IF lev = 5 THEN EXIT DO
192. LOOP
193.  
194. 'You are coords xx and yy.
195. xx = 400
196. yy = 594
197. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
198.  
199. 'The Main Loop
200. DO
201.     _LIMIT 3000
202.     a$ = INKEY$
203.     IF a$ = CHR$(0) + CHR$(72) THEN
204.         dry = -1
205.         drx = 0
206.     END IF
207.     IF a$ = CHR$(0) + CHR$(80) THEN
208.         dry = 1
209.         drx = 0
210.     END IF
211.     IF a$ = CHR$(0) + CHR$(77) THEN
212.         drx = 1
213.         dry = 0
214.     END IF
215.     IF a$ = CHR$(0) + CHR$(75) THEN
216.         drx = -1
217.         dry = 0
218.     END IF
219.     IF a$ = CHR$(27) THEN END
220.     IF a$ = "q" OR a$ = "Q" THEN END
221.     GOSUB you:
222.     GOSUB candy2:
223.     GOSUB lev:
224.     GOSUB circles:
225. LOOP
226.  
227. lev:
228. _LIMIT 3000
229. FOR wy = -1 TO INT(h / 3) + 15
230.     FOR wx = -1 TO INT(h / 3) + 5
231.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
232.             GOTO deletelever:
233.         END IF
234.     NEXT wx
235. NEXT wy
236. RETURN
237.  
238. 'Check the area around you to delete the lever.
239. deletelever:
240. _LIMIT 3000
241. FOR wyy = -1 TO INT(h / 3) + 15
242.     FOR wxx = -1 TO INT(h / 3) + 5
243.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
244.             FOR cc = 1 TO lev
245.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
246.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
247.                     FOR snd = 450 TO 550 STEP 25
248.                         SOUND snd, .15
249.                     NEXT snd
250.                     rr = 0
251.                     lv = 1
252.                     oldsecond = TIMER
253.                 END IF
254.             NEXT cc
255.         END IF
256.     NEXT wxx
257. NEXT wyy
258. RETURN
259.  
260. 'The Random Red Bombs
261. circles:
262. _LIMIT 3000
263. IF lv = 1 THEN
264.     second = TIMER
265.     IF second - oldsecond > 20 THEN lv = 0: slv = 0: GOTO nexone:
266.     IF slv = 1 THEN RETURN
267.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
268.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
269.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
270.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
271.     slv = 1
272.     RETURN
273. END IF
274. nexone:
275. _LIMIT 3000
276. IF rr = 1 THEN GOTO skip:
277. RANDOMIZE TIMER
278. rl = INT(RND * 1000) + 1
279. IF rl > 975 AND rr = 0 THEN
280.     RANDOMIZE TIMER
281.     lx = INT(RND * 750) + 1
282.     ly = INT(RND * 500) + 1
283.     lx2 = INT(RND * 750) + 1
284.     ly2 = INT(RND * 500) + 1
285.     lx3 = INT(RND * 750) + 1
286.     ly3 = INT(RND * 500) + 1
287.     lx4 = INT(RND * 750) + 1
288.     ly4 = INT(RND * 500) + 1
289.     rr = 1
290. END IF
291. IF rr = 0 THEN RETURN
292. skip:
293. _LIMIT 3000
294. IF bombs = 1 THEN GOTO skip2:
295. CIRCLE (lx, ly), 15, _RGB32(255, 0, 0)
296. CIRCLE (lx2, ly2), 15, _RGB32(255, 0, 0)
297. CIRCLE (lx3, ly3), 15, _RGB32(255, 0, 0)
298. CIRCLE (lx4, ly4), 15, _RGB32(255, 0, 0)
299. bombs = 1
300. skip2:
301. _LIMIT 3000
302. IF xx > lx - h / 3 AND xx < lx + h / 3 AND yy > ly - h / 3 AND yy < ly + h / 3 THEN GOSUB KABOOM:
303. IF xx > lx2 - h / 3 AND xx < lx2 + h / 3 AND yy > ly2 - h / 3 AND yy < ly2 + h / 3 THEN GOSUB KABOOM:
304. IF xx > lx3 - h / 3 AND xx < lx3 + h / 3 AND yy > ly3 - h / 3 AND yy < ly3 + h / 3 THEN GOSUB KABOOM:
305. IF xx > lx4 - h / 3 AND xx < lx4 + h / 3 AND yy > ly4 - h / 3 AND yy < ly4 + h / 3 THEN GOSUB KABOOM:
306. RANDOMIZE TIMER
307. rl2 = INT(RND * 10000) + 1
308. IF rl2 > 9985 THEN
309.     rr = 0
310.     bombs = 0
311.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
312.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
313.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
314.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
315. END IF
316. RETURN
317.  
318. KABOOM:
319. _AUTODISPLAY
320. players = players - 1
321. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
322. CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
323. CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
324. CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
325. CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
326. FOR sz = 1 TO 30 STEP 2
327.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
328.     SOUND 100, .25
329.     _DELAY .1
330. NEXT sz
331. FOR sz = 1 TO 30 STEP .25
332.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
333.     _DELAY .01
334. NEXT sz
335. xx = 400
336. yy = 594
337. rr = 0
338. players$ = STR$(players)
339. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
340. IF players = 0 THEN
341.     LOCATE 15, 45: PRINT "G A M E   O V E R"
342.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
343.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
344.     END
345. END IF
346. RETURN
347.  
348. 'Check to see if you got a candy.
349. candy2:
350. _LIMIT 3000
351. FOR wy = -5 TO INT(h / 3) + 5
352.     FOR wx = -5 TO INT(h / 3) + 5
353.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
354.             sc = sc + 10
355.             sc$ = STR$(sc)
356.             players$ = STR$(players)
357.             _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
358.             GOTO deletecandy:
359.         END IF
360.     NEXT wx
361. NEXT wy
362. RETURN
363.  
364. 'Check the area around you to delete the candy.
365. deletecandy:
366. _LIMIT 3000
367. FOR wyy = -5 TO INT(h / 3) + 5
368.     FOR wxx = -5 TO INT(h / 3) + 5
369.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
370.             FOR cc = 1 TO c
371.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
372.                     FOR sz = .25 TO 3 STEP .25
373.                         CIRCLE (candyx(cc), candyy(cc)), sz, _RGB32(0, 0, 0)
374.                     NEXT sz
375.                     SOUND 100, .5
376.                     co = co + 1
377.                     mouth = 1
378.                     oldmsec = TIMER
379.                 END IF
380.             NEXT cc
381.         END IF
382.     NEXT wxx
383. NEXT wyy
384. IF co > 250 THEN
385.     level = level + 1
386.     co = 0
387.     level$ = STR$(level)
388.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
389.     GOTO level:
390. END IF
391. RETURN
392.  
393. you:
394. _LIMIT 3000
395. oldxx = xx
396. oldyy = yy
397. xx = xx + drx
398. yy = yy + dry
399.  
400. IF xx < 5 THEN xx = 5
401. IF xx > 795 THEN xx = 795
402. IF yy < 15 THEN yy = 15
403. IF yy > 595 THEN yy = 595
404.  
405. 'Check to see if you hit the walls.
406. FOR wx = -1 TO INT(h / 3)
407.     FOR wy = -1 TO INT(h / 3)
408.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
409.             yy = oldyy: xx = oldxx
410.             RETURN
411.         END IF
412.     NEXT wy
413. NEXT wx
414.  
415. 'Erase and draw you.
416. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
417. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
418. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
419.  
420. ex1 = (xx + (INT(h / 3) / 2) / 2)
421. ex2 = (xx + (INT(h / 3) / 2) / .65)
422. ey = (yy + (INT(h / 3) / 2) / 2)
423. mx = (xx + (INT(h / 3) / 2))
424. my = (yy + (INT(h / 2.2) / 2))
425. ny = (yy + (h / 2.85) / 2)
426.  
427. FOR sz = .25 TO 2 STEP .25
428.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
429.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
430. NEXT sz
431. FOR sz = .25 TO 2.5 STEP .25
432.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
433. NEXT sz
434.  
435. IF mouth = 1 THEN
436.     FOR sz = .25 TO 2.5 STEP .25
437.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
438.     NEXT sz
439.     msec = TIMER
440.     IF msec - oldmsec > .25 THEN mouth = 0
441. END IF
442.  
443. FOR sz = .25 TO 1.5 STEP .25
444.     CIRCLE (mx, ny), sz, _RGB32(127, 128, 127)
445. NEXT sz
446. IF h > 74 THEN dl = .003
447. IF h <= 74 AND h >= 55 THEN dl = .004
448. IF h < 55 THEN dl = .005
449. _DELAY dl
450. _DISPLAY
451. RETURN
452.  

[SierraKen]

Has anyone tried this game yet? I'm still working on it and have made it a bit better than before. Instead of having to get all the candies, you only need to get 100 of them. I also made them more inside the maze area than before. Plus I made it so you have to get all the levers, but there has been 1 occasion so far where it wouldn't detect 1 lever so it would be impossible to pass the level. That is what got me thinking, why not just add a countdown clock and when the clock expires, it goes to another level as well. But, of course I ran into a totally different problem... and this one I would like any help from. My main loop only runs when your guy is moving (except when he's hitting the side of the screen for some reason). I've tried it with a SUB and it does the same thing. Then I just tried it the old fashioned way without the TIMER command and just added tt=tt+1 and that is when I found out that the entire loop only runs when your guy is in motion (unless he's on the side like I said). If he's against any wall, the main loop stops. And I have no idea why. There's no GOTO loop that would stop this that I know of. The detection area under "You: " flows well and you can still move around fine which are from commands inside the main loop. Anyway, here's what I have... I hope someone replies. Sorry for so much text on both posts.

Code: QB64: [Select]

1. _TITLE "Search-Man"
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _LIMIT 3000
4. xx = 350: yy = 300: h = 200
5. splashscreen:
6. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
7. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
8. ex1 = (xx + (INT(h / 3) / 2) / 2)
9. ex2 = (xx + (INT(h / 3) / 2) / .65)
10. ey = (yy + (INT(h / 3) / 2) / 2)
11. mx = (xx + (INT(h / 3) / 2))
12. my = (yy + (INT(h / 2.2) / 2))
13. ny = (yy + (h / 2.85) / 2)
14. FOR sz = .25 TO 2 STEP .25
15.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
16.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
17. NEXT sz
18. FOR sz = .25 TO 2.5 STEP .25
19.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
20. NEXT sz
21. FOR sz = .25 TO 1.5 STEP .25
22.     CIRCLE (mx, ny), sz, _RGB32(0, 0, 0)
23. NEXT sz
24. mouth:
25. m = m + 1
26. IF m > 9 THEN GOTO begin:
27. IF m = 1 THEN mouth = 0
28. IF m = 2 THEN mouth = 1
29. IF m = 3 THEN mouth = 0
30. IF m = 4 THEN mouth = 1
31. IF m = 5 THEN mouth = 0
32. IF m = 6 THEN mouth = 1
33. IF m = 7 THEN mouth = 0
34. IF m = 8 THEN mouth = 1
35. IF m = 9 THEN mouth = 0
36. IF mouth = 1 THEN
37.     FOR sz = .25 TO 2.5 STEP .25
38.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
39.     NEXT sz
40. END IF
41. IF mouth = 0 THEN
42.     FOR sz = .25 TO 1.5 STEP .25
43.         CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
44.     NEXT sz
45. END IF
46. _DELAY .5
47. GOTO mouth:
48. begin:
49. CLS
50. PRINT: PRINT
51. PRINT "                                     Search-Man"
52. PRINT: PRINT: PRINT
53. PRINT "                                     by  Ken G."
54. PRINT: PRINT: PRINT
55. PRINT
56. PRINT
57. PRINT "                - Use the arrow keys to guide your green guy around the maze"
58. PRINT "                  to eat the orange candy."
59. PRINT "                - Levels change when 100 candies have been eaten and all 5"
60. PRINT "                  green levers have been used."
61. PRINT "                - Avoid hitting the randomly placed red bombs."
62. PRINT "                - The green levers will delete the bombs for 20 seconds."
63. PRINT "                - You start out with 3 players."
64. PRINT "                - Every level is different, Good Luck!"
65. PRINT: PRINT: PRINT
66. PRINT: PRINT: PRINT
67. INPUT "                               Press Enter To Begin.", a$
68. level = 1
69. sc = 0
70. players = 3
71. level$ = STR$(level)
72.  
73. 'Start a new level here.
74. level:
75. DIM t AS LONG
76. DIM candyx(500), candyy(500)
77. DIM leverx(200), levery(200)
78. x = 400: y = 300
79. t = 0
80. c = 0
81. drx = 0: dry = 0
82. lv = 0: slv = 0: bombs = 0
83. lev = 0
84. levers = 5
85. mouth = 0
86. RANDOMIZE TIMER
87. h = INT(RND * 60) + 40
88.  
89. 'Randomly choose a wall color.
90. RANDOMIZE TIMER
91. col = INT(RND * 8) + 1
92. 'green
93. IF col = 1 THEN
94.     col1 = 33: col2 = 230: col3 = 7
95. END IF
96. 'purple
97. IF col = 2 THEN
98.     col1 = 152: col2 = 7: col3 = 230
99. END IF
100. 'yellow
101. IF col = 3 THEN
102.     col1 = 247: col2 = 255: col3 = 8
103. END IF
104. 'orange
105. IF col = 4 THEN
106.     col1 = 255: col2 = 156: col3 = 8
107. END IF
108. 'red
109. IF col = 5 THEN
110.     col1 = 255: col2 = 8: col3 = 8
111. END IF
112. 'blue
113. IF col = 6 THEN
114.     col1 = 8: col2 = 131: col3 = 255
115. END IF
116. 'white
117. IF col = 7 THEN
118.     col1 = 255: col2 = 255: col3 = 255
119. END IF
120. 'greenish-blue
121. IF col = 8 THEN
122.     col1 = 10: col2 = 240: col3 = 201
123. END IF
124.  
125. 'Make the walls.
126. CLS
127. DO
128.     _LIMIT 3000
129.     again:
130.     t = t + 1
131.     IF t = 30000000 THEN EXIT DO
132.     oldx = x
133.     oldy = y
134.     oldd = d
135.     RANDOMIZE TIMER
136.     d = INT(RND * 4) + 1
137.     IF d = oldd THEN GOTO again:
138.     IF d = 1 THEN x = x + h
139.     IF d = 2 THEN x = x - h
140.     IF d = 3 THEN y = y + h
141.     IF d = 4 THEN y = y - h
142.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
143.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
144.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
145. LOOP
146. t = 0
147. FOR tt = 1 TO INT(1000 / h)
148.     RANDOMIZE TIMER
149.     x2 = INT(RND * 800) + 1
150.     y2 = INT(RND * 600) + 1
151.     d2 = INT(RND * 2) + 1
152.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
153.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
154. NEXT tt
155.  
156. 'Setup the levers
157. DO
158.     levers:
159.     RANDOMIZE TIMER
160.     leverx = INT(RND * 600) + 100
161.     levery = INT(RND * 400) + 100
162.     'Check for walls.
163.     FOR cx = -2 TO 7
164.         FOR cy = -2 TO 17
165.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
166.         NEXT cy
167.     NEXT cx
168.     'Check for other levers.
169.     FOR cx = -2 TO 7
170.         FOR cy = -2 TO 17
171.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
172.         NEXT cy
173.     NEXT cx
174.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
175.     lev = lev + 1
176.     leverx(lev) = leverx: levery(lev) = levery
177.     IF lev = 5 THEN EXIT DO
178. LOOP
179.  
180. 'Setup the candy.
181. DO
182.     candy:
183.     RANDOMIZE TIMER
184.     candyx = INT(RND * 600) + 100
185.     candyy = INT(RND * 400) + 100
186.     'Check for walls.
187.     FOR cx = -7 TO 7
188.         FOR cy = -7 TO 7
189.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
190.         NEXT cy
191.     NEXT cx
192.     'Check for other candy.
193.     FOR cx = -7 TO 7
194.         FOR cy = -7 TO 7
195.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
196.         NEXT cy
197.     NEXT cx
198.     'Check for levers.
199.     FOR cx = -2 TO 7
200.         FOR cy = -2 TO 17
201.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
202.         NEXT cy
203.     NEXT cx
204.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
205.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
206.     c = c + 1
207.     candyx(c) = candyx: candyy(c) = candyy
208.     IF c = 150 THEN EXIT DO
209. LOOP
210.  
211. 'You are coords xx and yy.
212. xx = 400
213. yy = 594
214. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
215.  
216. 'The Main Loop
217. DO
218.     _LIMIT 3000
219.     a$ = INKEY$
220.     IF a$ = CHR$(0) + CHR$(72) THEN
221.         dry = -1
222.         drx = 0
223.     END IF
224.     IF a$ = CHR$(0) + CHR$(80) THEN
225.         dry = 1
226.         drx = 0
227.     END IF
228.     IF a$ = CHR$(0) + CHR$(77) THEN
229.         drx = 1
230.         dry = 0
231.     END IF
232.     IF a$ = CHR$(0) + CHR$(75) THEN
233.         drx = -1
234.         dry = 0
235.     END IF
236.     IF a$ = CHR$(27) THEN END
237.     IF a$ = "q" OR a$ = "Q" THEN END
238.     GOSUB you:
239.     GOSUB candy2:
240.     GOSUB lev:
241.     GOSUB circles:
242. LOOP
243.  
244. lev:
245. _LIMIT 3000
246. FOR wy = -15 TO INT(h / 3) + 15
247.     FOR wx = -15 TO INT(h / 3) + 15
248.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
249.             GOTO deletelever:
250.         END IF
251.     NEXT wx
252. NEXT wy
253. RETURN
254.  
255. 'Check the area around you to delete the lever.
256. deletelever:
257. _LIMIT 3000
258. FOR wyy = -5 TO INT(h / 3) + 15
259.     FOR wxx = -5 TO INT(h / 3) + 5
260.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
261.             FOR cc = 1 TO lev
262.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
263.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
264.                     FOR snd = 450 TO 550 STEP 25
265.                         SOUND snd, .15
266.                     NEXT snd
267.                     rr = 0
268.                     lv = 1
269.                     levers = levers - 1
270.                     IF levers < 0 THEN levers = 0
271.                     LOCATE 1, 25: PRINT "Levers Left: "; levers
272.                     oldsecond = TIMER
273.                 END IF
274.             NEXT cc
275.         END IF
276.     NEXT wxx
277. NEXT wyy
278. RETURN
279.  
280. 'The Random Red Bombs
281. circles:
282. _LIMIT 3000
283. IF lv = 1 THEN
284.     second = TIMER
285.     IF second - oldsecond > 20 THEN lv = 0: slv = 0: GOTO nexone:
286.     IF slv = 1 THEN RETURN
287.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
288.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
289.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
290.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
291.     slv = 1
292.     RETURN
293. END IF
294. nexone:
295. _LIMIT 3000
296. IF rr = 1 THEN GOTO skip:
297. RANDOMIZE TIMER
298. rl = INT(RND * 1000) + 1
299. IF rl > 975 AND rr = 0 THEN
300.     RANDOMIZE TIMER
301.     lx = INT(RND * 750) + 1
302.     ly = INT(RND * 500) + 1
303.     lx2 = INT(RND * 750) + 1
304.     ly2 = INT(RND * 500) + 1
305.     lx3 = INT(RND * 750) + 1
306.     ly3 = INT(RND * 500) + 1
307.     lx4 = INT(RND * 750) + 1
308.     ly4 = INT(RND * 500) + 1
309.     rr = 1
310. END IF
311. IF rr = 0 THEN RETURN
312. skip:
313. _LIMIT 3000
314. IF bombs = 1 THEN GOTO skip2:
315. CIRCLE (lx, ly), 15, _RGB32(255, 0, 0)
316. CIRCLE (lx2, ly2), 15, _RGB32(255, 0, 0)
317. CIRCLE (lx3, ly3), 15, _RGB32(255, 0, 0)
318. CIRCLE (lx4, ly4), 15, _RGB32(255, 0, 0)
319. bombs = 1
320. skip2:
321. _LIMIT 3000
322. IF xx > lx - h / 3 AND xx < lx + h / 3 AND yy > ly - h / 3 AND yy < ly + h / 3 THEN GOSUB KABOOM:
323. IF xx > lx2 - h / 3 AND xx < lx2 + h / 3 AND yy > ly2 - h / 3 AND yy < ly2 + h / 3 THEN GOSUB KABOOM:
324. IF xx > lx3 - h / 3 AND xx < lx3 + h / 3 AND yy > ly3 - h / 3 AND yy < ly3 + h / 3 THEN GOSUB KABOOM:
325. IF xx > lx4 - h / 3 AND xx < lx4 + h / 3 AND yy > ly4 - h / 3 AND yy < ly4 + h / 3 THEN GOSUB KABOOM:
326. RANDOMIZE TIMER
327. rl2 = INT(RND * 10000) + 1
328. IF rl2 > 9985 THEN
329.     rr = 0
330.     bombs = 0
331.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
332.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
333.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
334.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
335. END IF
336. RETURN
337.  
338. KABOOM:
339. _AUTODISPLAY
340. players = players - 1
341. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
342. CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
343. CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
344. CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
345. CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
346. FOR sz = 1 TO 10
347.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
348.     SOUND 100, .25
349.     _DELAY .1
350. NEXT sz
351. FOR sz = 1 TO 10 STEP .25
352.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
353.     _DELAY .01
354. NEXT sz
355. xx = 400
356. yy = 594
357. rr = 0
358. slv = 0
359. bombs = 0
360. players$ = STR$(players)
361. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
362. IF players = 0 THEN
363.     LOCATE 15, 45: PRINT "G A M E   O V E R"
364.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
365.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
366.     END
367. END IF
368. RETURN
369.  
370. 'Check to see if you got a candy.
371. candy2:
372. _LIMIT 3000
373. FOR wy = -5 TO INT(h / 2) + 5
374.     FOR wx = -5 TO INT(h / 2) + 5
375.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
376.             sc = sc + 10
377.             sc$ = STR$(sc)
378.             players$ = STR$(players)
379.             _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
380.             GOTO deletecandy:
381.         END IF
382.     NEXT wx
383. NEXT wy
384. RETURN
385.  
386. 'Check the area around you to delete the candy.
387. deletecandy:
388. _LIMIT 3000
389. FOR wyy = -5 TO INT(h / 3) + 5
390.     FOR wxx = -5 TO INT(h / 3) + 5
391.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
392.             FOR cc = 1 TO c
393.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
394.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
395.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
396.                     SOUND 100, .5
397.                     co = co + 1
398.                     co2 = 100 - co
399.                     IF co2 < 0 THEN co2 = 0
400.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
401.                     mouth = 1
402.                     oldmsec = TIMER
403.                 END IF
404.             NEXT cc
405.         END IF
406.     NEXT wxx
407. NEXT wyy
408. IF co2 = 0 AND levers = 0 THEN
409.     level = level + 1
410.     co = 0
411.     level$ = STR$(level)
412.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
413.     GOTO level:
414. END IF
415. RETURN
416.  
417. you:
418. _LIMIT 3000
419. oldxx = xx
420. oldyy = yy
421. xx = xx + drx
422. yy = yy + dry
423.  
424. IF xx < 5 THEN xx = 5
425. IF xx > 795 THEN xx = 795
426. IF yy < 15 THEN yy = 15
427. IF yy > 595 THEN yy = 595
428.  
429. 'Check to see if you hit the walls.
430. FOR wx = -1 TO INT(h / 3)
431.     FOR wy = -1 TO INT(h / 3)
432.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
433.             yy = oldyy: xx = oldxx
434.             RETURN
435.         END IF
436.     NEXT wy
437. NEXT wx
438.  
439. 'Erase and draw you.
440. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
441. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
442. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
443.  
444. ex1 = (xx + (INT(h / 3) / 2) / 2)
445. ex2 = (xx + (INT(h / 3) / 2) / .65)
446. ey = (yy + (INT(h / 3) / 2) / 2)
447. mx = (xx + (INT(h / 3) / 2))
448. my = (yy + (INT(h / 2.2) / 2))
449. ny = (yy + (h / 2.85) / 2)
450.  
451. FOR sz = .25 TO 2 STEP .25
452.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
453.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
454. NEXT sz
455. FOR sz = .25 TO 2.5 STEP .25
456.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
457. NEXT sz
458.  
459. IF mouth = 1 THEN
460.     FOR sz = .25 TO 2.5 STEP .25
461.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
462.     NEXT sz
463.     msec = TIMER
464.     IF msec - oldmsec > .25 THEN mouth = 0
465. END IF
466.  
467. FOR sz = .25 TO 1.5 STEP .25
468.     CIRCLE (mx, ny), sz, _RGB32(127, 128, 127)
469. NEXT sz
470. IF h > 74 THEN dl = .003
471. IF h <= 74 AND h >= 55 THEN dl = .004
472. IF h < 55 THEN dl = .005
473. _DELAY dl
474. _DISPLAY
475. RETURN
476.  

[bplus]

Has anyone tried this game yet?

Hi Ken,

I did try the original post, same old problem with arrow keys, I press one arrow guy crashes into wall until I press another arrow > crash, another, crash, not much fun for me. Your computer must run slower, you can control frames with _limit so everyone's speed is same.  _limit 3000 is not slowing anything down to human level.

[SierraKen]

Interesting.. I have a very fast computer by the way, 64 bit Windows 10 16 GB RAM Intel i7 Quadcore 3.4 Ghz. It's only around 4 years old.
And the reason I had to boost it up to _LIMIT 3000 on the whole program is because any slower than that, the program couldn't run practically at all, or ran on a crawl.
I know you are going to say I should have used SUB's on many parts of the program, which probably would have made it run smoother and probably faster, but I do not have the experience needed in order to do them. The few times I've tried to speed up a program with SUB's, it just didn't work. Anyways, thank you for at least trying. Since you cannot run this game, I will probably not post anymore about it here, unless someone else can play it.

[bplus]

I do like the 2nd version more than first, I tried setting all _LIMIT 3000 to 60 all 50 of them. (I exaggerate only 49) ;D

and see what you mean about s l o w w w

so I uped the drx, dry better... man! you have a slow keypress response, how many _DELAYs are roaming around in there?

I will check

[bplus]

Here tis the slower downer

Code: QB64: [Select]

1. IF mouth = 1 THEN
2.     FOR sz = .25 TO 2.5 STEP .25
3.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
4.     NEXT sz
5.     msec = TIMER
6.     IF msec - oldmsec > .25 THEN mouth = 0
7. END IF
8.  
9. FOR sz = .25 TO 1.5 STEP .25
10.     CIRCLE (mx, ny), sz, _RGB32(127, 128, 127)
11. NEXT sz
12. IF h > 74 THEN dl = .003
13. IF h <= 74 AND h >= 55 THEN dl = .004
14. IF h < 55 THEN dl = .005
15. _DELAY dl
16. _DISPLAY
17. RETURN
18.  

You can change mouth size while cycling through loops, instead of stopping whole program to move the mouth, it's cute alright though!

Move mouth through a loopcnt in main loop
if loopcnt mod 10 = 0 then do something
if loopcnt mod 10 = 1 then do next thing
if loopcnt mod 10 = 2 then do next thing
...
up to 9 then you start over, does NOT have to be mod 10 should be mod how many steps in the cycle to move all the way through sequence. 9 cycles back to 0 when using mod 10

eh shoulda tried it first, be right back..

Oh the mouth thing is fine, the _delay is for?

OK I got rid of all _LIMITs except one in main loop and set it 200, OK then I switched to mouse and saved the maze image to bg& and then see how you have your candy locations in arrays to redraw over bg& of maze. Looking for how you know which candy is eaten, need another array eaten?

[SierraKen]

Thanks, but the mouth also uses 2 TIMER's to know how long to shut. I wonder if that can work?

[SierraKen]

Here are the sections with both timers. The first one, oldmsec =  TIMER starts as soon as you delete a candy. That makes mouth = 1. Then on the section you posted it asks IF mouth = 1 to see how long he bites down for. Here is all of it:

Code: QB64: [Select]

1. deletecandy:
2. _LIMIT 3000
3. FOR wyy = -5 TO INT(h / 3) + 5
4.     FOR wxx = -5 TO INT(h / 3) + 5
5.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
6.             FOR cc = 1 TO c
7.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
8.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
9.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
10.                     SOUND 100, .5
11.                     co = co + 1
12.                     co2 = 100 - co
13.                     IF co2 < 0 THEN co2 = 0
14.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
15.                     mouth = 1
16.                     oldmsec = TIMER
17.                 END IF
18.             NEXT cc
19.         END IF
20.     NEXT wxx
21. NEXT wyy
22. IF co2 = 0 AND levers = 0 THEN
23.     level = level + 1
24.     co = 0
25.     level$ = STR$(level)
26.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
27.     GOTO level:
28. END IF
29. RETURN
30.  
31. you:
32. _LIMIT 3000
33. oldxx = xx
34. oldyy = yy
35. xx = xx + drx
36. yy = yy + dry
37.  
38. IF xx < 5 THEN xx = 5
39. IF xx > 795 THEN xx = 795
40. IF yy < 15 THEN yy = 15
41. IF yy > 595 THEN yy = 595
42.  
43. 'Check to see if you hit the walls.
44. FOR wx = -1 TO INT(h / 3)
45.     FOR wy = -1 TO INT(h / 3)
46.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
47.             yy = oldyy: xx = oldxx
48.             RETURN
49.         END IF
50.     NEXT wy
51. NEXT wx
52.  
53. 'Erase and draw you.
54. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
55. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
56. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
57.  
58. ex1 = (xx + (INT(h / 3) / 2) / 2)
59. ex2 = (xx + (INT(h / 3) / 2) / .65)
60. ey = (yy + (INT(h / 3) / 2) / 2)
61. mx = (xx + (INT(h / 3) / 2))
62. my = (yy + (INT(h / 2.2) / 2))
63. ny = (yy + (h / 2.85) / 2)
64.  
65. FOR sz = .25 TO 2 STEP .25
66.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
67.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
68. NEXT sz
69. FOR sz = .25 TO 2.5 STEP .25
70.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
71. NEXT sz
72.  
73. IF mouth = 1 THEN
74.     FOR sz = .25 TO 2.5 STEP .25
75.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
76.     NEXT sz
77.     msec = TIMER
78.     IF msec - oldmsec > .25 THEN mouth = 0
79. END IF
80.  
81. FOR sz = .25 TO 1.5 STEP .25
82.     CIRCLE (mx, ny), sz, _RGB32(127, 128, 127)
83. NEXT sz
84. IF h > 74 THEN dl = .003
85. IF h <= 74 AND h >= 55 THEN dl = .004
86. IF h < 55 THEN dl = .005
87. _DELAY dl
88. _DISPLAY
89. RETURN
90.  

[bplus]

Mouths aren't problem, they are cool! I've not seen it done like that with timer, Good!

I hate arrow keys so started makeover with mouse, need arrays to track candy and levers still remaining so I can redraw them over a maze image I saved after it is drawn. Guess I need to figure away for dropping hero if I try to go through a wall with it :D

I think you only need one _limit in the main loop. Ha! and one Randomize Timer at start of game.

[SierraKen]

Ah that's great you are working on it! But please also check this version I just now did. I removed 3 loops entirely in the mouth and nose section. 2 of them are for the mouth (open and close), and then the tiny nose. Instead I am drawing it with just 1 CIRCLE each and 1 PAINT each. This should make game play a bit better. Try mine and rename mine so you can have both yours and mine.
Yeah, I tried doing arrays to capture the candy but for some reason it wouldn't work, not sure why. But I do have arrays for the candy and levers anyway so I know exactly where to erase them. I just don't detect them with arrays, instead I use POINT for the colors. But try out this version and tell me what you think. I'll still look over it more too, probably tomorrow. Thank you very much B+, I was really afraid nobody would try this game I've worked a week on already.

Code: QB64: [Select]

1. _TITLE "Search-Man"
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _LIMIT 3000
4. xx = 350: yy = 300: h = 200
5. splashscreen:
6. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
7. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
8. ex1 = (xx + (INT(h / 3) / 2) / 2)
9. ex2 = (xx + (INT(h / 3) / 2) / .65)
10. ey = (yy + (INT(h / 3) / 2) / 2)
11. mx = (xx + (INT(h / 3) / 2))
12. my = (yy + (INT(h / 2.2) / 2))
13. ny = (yy + (h / 2.85) / 2)
14. FOR sz = .25 TO 2 STEP .25
15.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
16.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
17. NEXT sz
18. FOR sz = .25 TO 2.5 STEP .25
19.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
20. NEXT sz
21. FOR sz = .25 TO 1.5 STEP .25
22.     CIRCLE (mx, ny), sz, _RGB32(0, 0, 0)
23. NEXT sz
24. mouth:
25. m = m + 1
26. IF m > 9 THEN GOTO begin:
27. IF m = 1 THEN mouth = 0
28. IF m = 2 THEN mouth = 1
29. IF m = 3 THEN mouth = 0
30. IF m = 4 THEN mouth = 1
31. IF m = 5 THEN mouth = 0
32. IF m = 6 THEN mouth = 1
33. IF m = 7 THEN mouth = 0
34. IF m = 8 THEN mouth = 1
35. IF m = 9 THEN mouth = 0
36. IF mouth = 1 THEN
37.     FOR sz = .25 TO 2.5 STEP .25
38.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
39.     NEXT sz
40. END IF
41. IF mouth = 0 THEN
42.     FOR sz = .25 TO 1.5 STEP .25
43.         CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
44.     NEXT sz
45. END IF
46. _DELAY .5
47. GOTO mouth:
48. begin:
49. CLS
50. PRINT: PRINT
51. PRINT "                                     Search-Man"
52. PRINT: PRINT: PRINT
53. PRINT "                                     by  Ken G."
54. PRINT: PRINT: PRINT
55. PRINT
56. PRINT
57. PRINT "                - Use the arrow keys to guide your green guy around the maze"
58. PRINT "                  to eat the orange candy."
59. PRINT "                - Levels change when 100 candies have been eaten and all 5"
60. PRINT "                  green levers have been used."
61. PRINT "                - Avoid hitting the randomly placed red bombs."
62. PRINT "                - The green levers will delete the bombs for 20 seconds."
63. PRINT "                - You start out with 3 players."
64. PRINT "                - Every level is different, Good Luck!"
65. PRINT: PRINT: PRINT
66. PRINT: PRINT: PRINT
67. INPUT "                               Press Enter To Begin.", a$
68. level = 1
69. sc = 0
70. players = 3
71. level$ = STR$(level)
72.  
73. 'Start a new level here.
74. level:
75. DIM t AS LONG
76. DIM candyx(500), candyy(500)
77. DIM leverx(200), levery(200)
78. x = 400: y = 300
79. t = 0
80. c = 0
81. drx = 0: dry = 0
82. lv = 0: slv = 0: bombs = 0
83. lev = 0
84. levers = 5
85. mouth = 0
86. RANDOMIZE TIMER
87. h = INT(RND * 60) + 40
88.  
89. 'Randomly choose a wall color.
90. RANDOMIZE TIMER
91. col = INT(RND * 8) + 1
92. 'green
93. IF col = 1 THEN
94.     col1 = 33: col2 = 230: col3 = 7
95. END IF
96. 'purple
97. IF col = 2 THEN
98.     col1 = 152: col2 = 7: col3 = 230
99. END IF
100. 'yellow
101. IF col = 3 THEN
102.     col1 = 247: col2 = 255: col3 = 8
103. END IF
104. 'orange
105. IF col = 4 THEN
106.     col1 = 255: col2 = 156: col3 = 8
107. END IF
108. 'red
109. IF col = 5 THEN
110.     col1 = 255: col2 = 8: col3 = 8
111. END IF
112. 'blue
113. IF col = 6 THEN
114.     col1 = 8: col2 = 131: col3 = 255
115. END IF
116. 'white
117. IF col = 7 THEN
118.     col1 = 255: col2 = 255: col3 = 255
119. END IF
120. 'greenish-blue
121. IF col = 8 THEN
122.     col1 = 10: col2 = 240: col3 = 201
123. END IF
124.  
125. 'Make the walls.
126. CLS
127. DO
128.     _LIMIT 3000
129.     again:
130.     t = t + 1
131.     IF t = 30000000 THEN EXIT DO
132.     oldx = x
133.     oldy = y
134.     oldd = d
135.     RANDOMIZE TIMER
136.     d = INT(RND * 4) + 1
137.     IF d = oldd THEN GOTO again:
138.     IF d = 1 THEN x = x + h
139.     IF d = 2 THEN x = x - h
140.     IF d = 3 THEN y = y + h
141.     IF d = 4 THEN y = y - h
142.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
143.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
144.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
145. LOOP
146. t = 0
147. FOR tt = 1 TO INT(1000 / h)
148.     RANDOMIZE TIMER
149.     x2 = INT(RND * 800) + 1
150.     y2 = INT(RND * 600) + 1
151.     d2 = INT(RND * 2) + 1
152.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
153.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
154. NEXT tt
155.  
156. 'Setup the levers
157. DO
158.     levers:
159.     RANDOMIZE TIMER
160.     leverx = INT(RND * 600) + 100
161.     levery = INT(RND * 400) + 100
162.     'Check for walls.
163.     FOR cx = -2 TO 7
164.         FOR cy = -2 TO 17
165.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
166.         NEXT cy
167.     NEXT cx
168.     'Check for other levers.
169.     FOR cx = -2 TO 7
170.         FOR cy = -2 TO 17
171.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
172.         NEXT cy
173.     NEXT cx
174.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
175.     lev = lev + 1
176.     leverx(lev) = leverx: levery(lev) = levery
177.     IF lev = 5 THEN EXIT DO
178. LOOP
179.  
180. 'Setup the candy.
181. DO
182.     candy:
183.     RANDOMIZE TIMER
184.     candyx = INT(RND * 600) + 100
185.     candyy = INT(RND * 400) + 100
186.     'Check for walls.
187.     FOR cx = -7 TO 7
188.         FOR cy = -7 TO 7
189.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
190.         NEXT cy
191.     NEXT cx
192.     'Check for other candy.
193.     FOR cx = -7 TO 7
194.         FOR cy = -7 TO 7
195.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
196.         NEXT cy
197.     NEXT cx
198.     'Check for levers.
199.     FOR cx = -2 TO 7
200.         FOR cy = -2 TO 17
201.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
202.         NEXT cy
203.     NEXT cx
204.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
205.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
206.     c = c + 1
207.     candyx(c) = candyx: candyy(c) = candyy
208.     IF c = 150 THEN EXIT DO
209. LOOP
210.  
211. 'You are coords xx and yy.
212. xx = 400
213. yy = 594
214. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
215.  
216. 'The Main Loop
217. DO
218.     _LIMIT 3000
219.     a$ = INKEY$
220.     IF a$ = CHR$(0) + CHR$(72) THEN
221.         dry = -1
222.         drx = 0
223.     END IF
224.     IF a$ = CHR$(0) + CHR$(80) THEN
225.         dry = 1
226.         drx = 0
227.     END IF
228.     IF a$ = CHR$(0) + CHR$(77) THEN
229.         drx = 1
230.         dry = 0
231.     END IF
232.     IF a$ = CHR$(0) + CHR$(75) THEN
233.         drx = -1
234.         dry = 0
235.     END IF
236.     IF a$ = CHR$(27) THEN END
237.     IF a$ = "q" OR a$ = "Q" THEN END
238.     GOSUB you:
239.     GOSUB candy2:
240.     GOSUB lev:
241.     GOSUB circles:
242. LOOP
243.  
244. lev:
245. _LIMIT 3000
246. FOR wy = -15 TO INT(h / 3) + 15
247.     FOR wx = -15 TO INT(h / 3) + 15
248.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
249.             GOTO deletelever:
250.         END IF
251.     NEXT wx
252. NEXT wy
253. RETURN
254.  
255. 'Check the area around you to delete the lever.
256. deletelever:
257. _LIMIT 3000
258. FOR wyy = -5 TO INT(h / 3) + 15
259.     FOR wxx = -5 TO INT(h / 3) + 5
260.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
261.             FOR cc = 1 TO lev
262.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
263.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
264.                     FOR snd = 450 TO 550 STEP 25
265.                         SOUND snd, .15
266.                     NEXT snd
267.                     rr = 0
268.                     lv = 1
269.                     levers = levers - 1
270.                     IF levers < 0 THEN levers = 0
271.                     LOCATE 1, 25: PRINT "Levers Left: "; levers
272.                     oldsecond = TIMER
273.                 END IF
274.             NEXT cc
275.         END IF
276.     NEXT wxx
277. NEXT wyy
278. RETURN
279.  
280. 'The Random Red Bombs
281. circles:
282. _LIMIT 3000
283. IF lv = 1 THEN
284.     second = TIMER
285.     IF second - oldsecond > 20 THEN lv = 0: slv = 0: GOTO nexone:
286.     IF slv = 1 THEN RETURN
287.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
288.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
289.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
290.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
291.     slv = 1
292.     RETURN
293. END IF
294. nexone:
295. _LIMIT 3000
296. IF rr = 1 THEN GOTO skip:
297. RANDOMIZE TIMER
298. rl = INT(RND * 1000) + 1
299. IF rl > 975 AND rr = 0 THEN
300.     RANDOMIZE TIMER
301.     lx = INT(RND * 750) + 1
302.     ly = INT(RND * 500) + 1
303.     lx2 = INT(RND * 750) + 1
304.     ly2 = INT(RND * 500) + 1
305.     lx3 = INT(RND * 750) + 1
306.     ly3 = INT(RND * 500) + 1
307.     lx4 = INT(RND * 750) + 1
308.     ly4 = INT(RND * 500) + 1
309.     rr = 1
310. END IF
311. IF rr = 0 THEN RETURN
312. skip:
313. _LIMIT 3000
314. IF bombs = 1 THEN GOTO skip2:
315. CIRCLE (lx, ly), 15, _RGB32(255, 0, 0)
316. CIRCLE (lx2, ly2), 15, _RGB32(255, 0, 0)
317. CIRCLE (lx3, ly3), 15, _RGB32(255, 0, 0)
318. CIRCLE (lx4, ly4), 15, _RGB32(255, 0, 0)
319. bombs = 1
320. skip2:
321. _LIMIT 3000
322. IF xx > lx - h / 3 AND xx < lx + h / 3 AND yy > ly - h / 3 AND yy < ly + h / 3 THEN GOSUB KABOOM:
323. IF xx > lx2 - h / 3 AND xx < lx2 + h / 3 AND yy > ly2 - h / 3 AND yy < ly2 + h / 3 THEN GOSUB KABOOM:
324. IF xx > lx3 - h / 3 AND xx < lx3 + h / 3 AND yy > ly3 - h / 3 AND yy < ly3 + h / 3 THEN GOSUB KABOOM:
325. IF xx > lx4 - h / 3 AND xx < lx4 + h / 3 AND yy > ly4 - h / 3 AND yy < ly4 + h / 3 THEN GOSUB KABOOM:
326. RANDOMIZE TIMER
327. rl2 = INT(RND * 10000) + 1
328. IF rl2 > 9985 THEN
329.     rr = 0
330.     bombs = 0
331.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
332.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
333.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
334.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
335. END IF
336. RETURN
337.  
338. KABOOM:
339. _AUTODISPLAY
340. players = players - 1
341. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
342. CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
343. CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
344. CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
345. CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
346. FOR sz = 1 TO 10
347.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
348.     SOUND 100, .25
349.     _DELAY .1
350. NEXT sz
351. FOR sz = 1 TO 10 STEP .25
352.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
353.     _DELAY .01
354. NEXT sz
355. xx = 400
356. yy = 594
357. rr = 0
358. slv = 0
359. bombs = 0
360. players$ = STR$(players)
361. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
362. IF players = 0 THEN
363.     LOCATE 15, 45: PRINT "G A M E   O V E R"
364.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
365.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
366.     END
367. END IF
368. RETURN
369.  
370. 'Check to see if you got a candy.
371. candy2:
372. _LIMIT 3000
373. FOR wy = -5 TO INT(h / 2) + 5
374.     FOR wx = -5 TO INT(h / 2) + 5
375.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
376.             sc = sc + 10
377.             sc$ = STR$(sc)
378.             players$ = STR$(players)
379.             _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
380.             GOTO deletecandy:
381.         END IF
382.     NEXT wx
383. NEXT wy
384. RETURN
385.  
386. 'Check the area around you to delete the candy.
387. deletecandy:
388. _LIMIT 3000
389. FOR wyy = -5 TO INT(h / 3) + 5
390.     FOR wxx = -5 TO INT(h / 3) + 5
391.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
392.             FOR cc = 1 TO c
393.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
394.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
395.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
396.                     SOUND 100, .5
397.                     co = co + 1
398.                     co2 = 100 - co
399.                     IF co2 < 0 THEN co2 = 0
400.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
401.                     mouth = 1
402.                     oldmsec = TIMER
403.                 END IF
404.             NEXT cc
405.         END IF
406.     NEXT wxx
407. NEXT wyy
408. IF co2 = 0 AND levers = 0 THEN
409.     level = level + 1
410.     co = 0
411.     level$ = STR$(level)
412.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
413.     GOTO level:
414. END IF
415. RETURN
416.  
417. you:
418. _LIMIT 3000
419. oldxx = xx
420. oldyy = yy
421. xx = xx + drx
422. yy = yy + dry
423.  
424. IF xx < 5 THEN xx = 5
425. IF xx > 795 THEN xx = 795
426. IF yy < 15 THEN yy = 15
427. IF yy > 595 THEN yy = 595
428.  
429. 'Check to see if you hit the walls.
430. FOR wx = -1 TO INT(h / 3)
431.     FOR wy = -1 TO INT(h / 3)
432.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
433.             yy = oldyy: xx = oldxx
434.             RETURN
435.         END IF
436.     NEXT wy
437. NEXT wx
438.  
439. 'Erase and draw you.
440. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
441. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
442. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
443.  
444. ex1 = (xx + (INT(h / 3) / 2) / 2)
445. ex2 = (xx + (INT(h / 3) / 2) / .65)
446. ey = (yy + (INT(h / 3) / 2) / 2)
447. mx = (xx + (INT(h / 3) / 2))
448. my = (yy + (INT(h / 2.2) / 2))
449. ny = (yy + (h / 2.85) / 2)
450.  
451. FOR sz = .25 TO 2 STEP .25
452.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
453.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
454. NEXT sz
455. IF mouth = 1 THEN GOTO skip3:
456. CIRCLE (mx, my), 2.5, _RGB32(0, 0, 0)
457. PAINT (mx, my), _RGB32(0, 0, 0)
458. skip3:
459. IF mouth = 1 THEN
460.     CIRCLE (mx, my), 2.5, _RGB32(254, 254, 254)
461.     PAINT (mx, my), _RGB32(254, 254, 254)
462.     msec = TIMER
463.     IF msec - oldmsec > .25 THEN mouth = 0
464. END IF
465.  
466. CIRCLE (mx, ny), 1.5, _RGB32(127, 128, 127)
467. PAINT (mx, ny), _RGB32(127, 128, 127)
468.  
469. IF h > 74 THEN dl = .003
470. IF h <= 74 AND h >= 55 THEN dl = .004
471. IF h < 55 THEN dl = .005
472. _DELAY dl
473. _DISPLAY
474. RETURN
475.  
476.  

[bplus]

Hi Ken,

While I check out your latest you can test drive my mouse through your mazes with candy and levers.

Code: QB64: [Select]

1. _TITLE "Search-Man"
2. SCREEN _NEWIMAGE(800, 600, 32)
3. RANDOMIZE TIMER
4.  
5. xx = 350: yy = 300: h = 200
6. splashscreen:
7. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
8. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
9. ex1 = (xx + (INT(h / 3) / 2) / 2)
10. ex2 = (xx + (INT(h / 3) / 2) / .65)
11. ey = (yy + (INT(h / 3) / 2) / 2)
12. mx = (xx + (INT(h / 3) / 2))
13. my = (yy + (INT(h / 2.2) / 2))
14. ny = (yy + (h / 2.85) / 2)
15. FOR sz = .25 TO 2 STEP .25
16.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
17.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
18. NEXT sz
19. FOR sz = .25 TO 2.5 STEP .25
20.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
21. NEXT sz
22. FOR sz = .25 TO 1.5 STEP .25
23.     CIRCLE (mx, ny), sz, _RGB32(0, 0, 0)
24. NEXT sz
25. mouth:
26. m = m + 1
27. IF m > 9 THEN GOTO begin:
28. IF m = 1 THEN mouth = 0
29. IF m = 2 THEN mouth = 1
30. IF m = 3 THEN mouth = 0
31. IF m = 4 THEN mouth = 1
32. IF m = 5 THEN mouth = 0
33. IF m = 6 THEN mouth = 1
34. IF m = 7 THEN mouth = 0
35. IF m = 8 THEN mouth = 1
36. IF m = 9 THEN mouth = 0
37. IF mouth = 1 THEN
38.     FOR sz = .25 TO 2.5 STEP .25
39.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
40.     NEXT sz
41. END IF
42. IF mouth = 0 THEN
43.     FOR sz = .25 TO 1.5 STEP .25
44.         CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
45.     NEXT sz
46. END IF
47. '_DELAY .5
48. GOTO mouth:
49. begin:
50. CLS
51. PRINT: PRINT
52. PRINT "                                     Search-Man"
53. PRINT: PRINT: PRINT
54. PRINT "                                     by  Ken G."
55. PRINT: PRINT: PRINT
56. PRINT
57. PRINT
58. PRINT "                - Use the arrow keys to guide your green guy around the maze"
59. PRINT "                  to eat the orange candy."
60. PRINT "                - Levels change when 100 candies have been eaten and all 5"
61. PRINT "                  green levers have been used."
62. PRINT "                - Avoid hitting the randomly placed red bombs."
63. PRINT "                - The green levers will delete the bombs for 20 seconds."
64. PRINT "                - You start out with 3 players."
65. PRINT "                - Every level is different, Good Luck!"
66. PRINT: PRINT: PRINT
67. PRINT: PRINT: PRINT
68. INPUT "                               Press Enter To Begin.", a$
69. level = 1
70. sc = 0
71. players = 3
72. level$ = STR$(level)
73.  
74. 'Start a new level here.
75. level:
76. DIM t AS LONG
77. DIM candyx(500), candyy(500)
78. DIM leverx(200), levery(200)
79. x = 400: y = 300
80. t = 0
81. c = 0
82. drx = 0: dry = 0
83. lv = 0: slv = 0: bombs = 0
84. lev = 0
85. levers = 5
86. mouth = 0
87. 'randomize timer
88. h = INT(RND * 60) + 40
89.  
90. 'Randomly choose a wall color.
91. 'randomize timer
92. col = INT(RND * 8) + 1
93. 'green
94. IF col = 1 THEN
95.     col1 = 33: col2 = 230: col3 = 7
96. END IF
97. 'purple
98. IF col = 2 THEN
99.     col1 = 152: col2 = 7: col3 = 230
100. END IF
101. 'yellow
102. IF col = 3 THEN
103.     col1 = 247: col2 = 255: col3 = 8
104. END IF
105. 'orange
106. IF col = 4 THEN
107.     col1 = 255: col2 = 156: col3 = 8
108. END IF
109. 'red
110. IF col = 5 THEN
111.     col1 = 255: col2 = 8: col3 = 8
112. END IF
113. 'blue
114. IF col = 6 THEN
115.     col1 = 8: col2 = 131: col3 = 255
116. END IF
117. 'white
118. IF col = 7 THEN
119.     col1 = 255: col2 = 255: col3 = 255
120. END IF
121. 'greenish-blue
122. IF col = 8 THEN
123.     col1 = 10: col2 = 240: col3 = 201
124. END IF
125.  
126. 'Make the walls.
127. CLS
128. DO
129.  
130.     again:
131.     t = t + 1
132.     IF t = 30000000 THEN EXIT DO
133.     oldx = x
134.     oldy = y
135.     oldd = d
136.     'randomize timer
137.     d = INT(RND * 4) + 1
138.     IF d = oldd THEN GOTO again:
139.     IF d = 1 THEN x = x + h
140.     IF d = 2 THEN x = x - h
141.     IF d = 3 THEN y = y + h
142.     IF d = 4 THEN y = y - h
143.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
144.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
145.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
146. LOOP
147. t = 0
148. FOR tt = 1 TO INT(1000 / h)
149.     'randomize timer
150.     x2 = INT(RND * 800) + 1
151.     y2 = INT(RND * 600) + 1
152.     d2 = INT(RND * 2) + 1
153.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
154.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
155. NEXT tt
156. bg& = _NEWIMAGE(800, 600, 32)
157. _PUTIMAGE , 0, bg&
158.  
159.  
160. 'Setup the levers
161. DO
162.     levers:
163.     'randomize timer
164.     leverx = INT(RND * 600) + 100
165.     levery = INT(RND * 400) + 100
166.     'Check for walls.
167.     FOR cx = -2 TO 7
168.         FOR cy = -2 TO 17
169.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
170.         NEXT cy
171.     NEXT cx
172.     'Check for other levers.
173.     FOR cx = -2 TO 7
174.         FOR cy = -2 TO 17
175.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
176.         NEXT cy
177.     NEXT cx
178.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
179.     lev = lev + 1
180.     leverx(lev) = leverx: levery(lev) = levery
181.     IF lev = 5 THEN EXIT DO
182. LOOP
183.  
184. 'Setup the candy.
185. DO
186.     candy:
187.     'randomize timer
188.     candyx = INT(RND * 600) + 100
189.     candyy = INT(RND * 400) + 100
190.     'Check for walls.
191.     FOR cx = -7 TO 7
192.         FOR cy = -7 TO 7
193.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
194.         NEXT cy
195.     NEXT cx
196.     'Check for other candy.
197.     FOR cx = -7 TO 7
198.         FOR cy = -7 TO 7
199.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
200.         NEXT cy
201.     NEXT cx
202.     'Check for levers.
203.     FOR cx = -2 TO 7
204.         FOR cy = -2 TO 17
205.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
206.         NEXT cy
207.     NEXT cx
208.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
209.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
210.     c = c + 1
211.     candyx(c) = candyx: candyy(c) = candyy
212.     IF c = 150 THEN EXIT DO
213. LOOP
214. 'You are coords xx and yy.
215. xx = 400
216. yy = 594
217. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
218.  
219. 'The Main Loop
220. _MOUSEHIDE
221. DO
222.     _LIMIT 200
223.     CLS
224.     _PUTIMAGE , bg&, 0
225.     FOR i = 1 TO 150
226.         CIRCLE (candyx(i), candyy(i)), 3, &HFFFFFF00
227.         PAINT (candyx(i), candyy(i)), &HFFFFFF00, &HFFFFFF00
228.     NEXT
229.     FOR i = 1 TO 5
230.         LINE (leverx(i), levery(i))-(leverx(i) + 5, levery(i) + 15), _RGB32(22, 255, 122), BF
231.     NEXT
232.     WHILE _MOUSEINPUT: WEND
233.     xx = _MOUSEX: yy = _MOUSEY
234.     a$ = INKEY$
235.     IF a$ = CHR$(0) + CHR$(72) THEN
236.         dry = -1
237.         drx = 0
238.     END IF
239.     IF a$ = CHR$(0) + CHR$(80) THEN
240.         dry = 1
241.         drx = 0
242.     END IF
243.     IF a$ = CHR$(0) + CHR$(77) THEN
244.         drx = 1
245.         dry = 0
246.     END IF
247.     IF a$ = CHR$(0) + CHR$(75) THEN
248.         drx = -1
249.         dry = 0
250.     END IF
251.     IF a$ = CHR$(27) THEN END
252.     IF a$ = "q" OR a$ = "Q" THEN END
253.     GOSUB you:
254.     GOSUB candy2:
255.     GOSUB lev:
256.     GOSUB circles:
257. LOOP
258.  
259. lev:
260.  
261. FOR wy = -15 TO INT(h / 3) + 15
262.     FOR wx = -15 TO INT(h / 3) + 15
263.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
264.             GOTO deletelever:
265.         END IF
266.     NEXT wx
267. NEXT wy
268. RETURN
269.  
270. 'Check the area around you to delete the lever.
271. deletelever:
272.  
273. FOR wyy = -5 TO INT(h / 3) + 15
274.     FOR wxx = -5 TO INT(h / 3) + 5
275.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
276.             FOR cc = 1 TO lev
277.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
278.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
279.                     FOR snd = 450 TO 550 STEP 25
280.                         SOUND snd, .15
281.                     NEXT snd
282.                     rr = 0
283.                     lv = 1
284.                     levers = levers - 1
285.                     IF levers < 0 THEN levers = 0
286.                     LOCATE 1, 25: PRINT "Levers Left: "; levers
287.                     oldsecond = TIMER
288.                 END IF
289.             NEXT cc
290.         END IF
291.     NEXT wxx
292. NEXT wyy
293. RETURN
294.  
295. 'The Random Red Bombs
296. circles:
297.  
298. IF lv = 1 THEN
299.     second = TIMER
300.     IF second - oldsecond > 20 THEN lv = 0: slv = 0: GOTO nexone:
301.     IF slv = 1 THEN RETURN
302.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
303.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
304.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
305.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
306.     slv = 1
307.     RETURN
308. END IF
309. nexone:
310.  
311. IF rr = 1 THEN GOTO skip:
312. 'randomize timer
313. rl = INT(RND * 1000) + 1
314. IF rl > 975 AND rr = 0 THEN
315.     'randomize timer
316.     lx = INT(RND * 750) + 1
317.     ly = INT(RND * 500) + 1
318.     lx2 = INT(RND * 750) + 1
319.     ly2 = INT(RND * 500) + 1
320.     lx3 = INT(RND * 750) + 1
321.     ly3 = INT(RND * 500) + 1
322.     lx4 = INT(RND * 750) + 1
323.     ly4 = INT(RND * 500) + 1
324.     rr = 1
325. END IF
326. IF rr = 0 THEN RETURN
327. skip:
328.  
329. IF bombs = 1 THEN GOTO skip2:
330. CIRCLE (lx, ly), 15, _RGB32(255, 0, 0)
331. CIRCLE (lx2, ly2), 15, _RGB32(255, 0, 0)
332. CIRCLE (lx3, ly3), 15, _RGB32(255, 0, 0)
333. CIRCLE (lx4, ly4), 15, _RGB32(255, 0, 0)
334. bombs = 1
335. skip2:
336.  
337. IF xx > lx - h / 3 AND xx < lx + h / 3 AND yy > ly - h / 3 AND yy < ly + h / 3 THEN GOSUB KABOOM:
338. IF xx > lx2 - h / 3 AND xx < lx2 + h / 3 AND yy > ly2 - h / 3 AND yy < ly2 + h / 3 THEN GOSUB KABOOM:
339. IF xx > lx3 - h / 3 AND xx < lx3 + h / 3 AND yy > ly3 - h / 3 AND yy < ly3 + h / 3 THEN GOSUB KABOOM:
340. IF xx > lx4 - h / 3 AND xx < lx4 + h / 3 AND yy > ly4 - h / 3 AND yy < ly4 + h / 3 THEN GOSUB KABOOM:
341. 'randomize timer
342. rl2 = INT(RND * 10000) + 1
343. IF rl2 > 9985 THEN
344.     rr = 0
345.     bombs = 0
346.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
347.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
348.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
349.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
350. END IF
351. RETURN
352.  
353. KABOOM:
354. _AUTODISPLAY
355. players = players - 1
356. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
357. CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
358. CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
359. CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
360. CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
361. FOR sz = 1 TO 10
362.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
363.     SOUND 100, .25
364.     _DELAY .1
365. NEXT sz
366. FOR sz = 1 TO 10 STEP .25
367.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
368.     _DELAY .01
369. NEXT sz
370. xx = 400
371. yy = 594
372. rr = 0
373. slv = 0
374. bombs = 0
375. players$ = STR$(players)
376. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
377. IF players = 0 THEN
378.     LOCATE 15, 45: PRINT "G A M E   O V E R"
379.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
380.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
381.     END
382. END IF
383. RETURN
384.  
385. 'Check to see if you got a candy.
386. candy2:
387.  
388. FOR wy = -5 TO INT(h / 2) + 5
389.     FOR wx = -5 TO INT(h / 2) + 5
390.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
391.             sc = sc + 10
392.             sc$ = STR$(sc)
393.             players$ = STR$(players)
394.             _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
395.             GOTO deletecandy:
396.         END IF
397.     NEXT wx
398. NEXT wy
399. RETURN
400.  
401. 'Check the area around you to delete the candy.
402. deletecandy:
403.  
404. FOR wyy = -5 TO INT(h / 3) + 5
405.     FOR wxx = -5 TO INT(h / 3) + 5
406.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
407.             FOR cc = 1 TO c
408.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
409.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
410.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
411.                     SOUND 100, .5
412.                     co = co + 1
413.                     co2 = 100 - co
414.                     IF co2 < 0 THEN co2 = 0
415.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
416.                     mouth = 1
417.                     oldmsec = TIMER
418.                 END IF
419.             NEXT cc
420.         END IF
421.     NEXT wxx
422. NEXT wyy
423. IF co2 = 0 AND levers = 0 THEN
424.     level = level + 1
425.     co = 0
426.     level$ = STR$(level)
427.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
428.     GOTO level:
429. END IF
430. RETURN
431.  
432. you:
433.  
434. oldxx = xx
435. oldyy = yy
436. xx = xx + drx
437. yy = yy + dry
438.  
439. IF xx < 5 THEN xx = 5
440. IF xx > 795 THEN xx = 795
441. IF yy < 15 THEN yy = 15
442. IF yy > 595 THEN yy = 595
443.  
444. 'Check to see if you hit the walls.
445. FOR wx = -1 TO INT(h / 3)
446.     FOR wy = -1 TO INT(h / 3)
447.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
448.             yy = oldyy: xx = oldxx
449.             RETURN
450.         END IF
451.     NEXT wy
452. NEXT wx
453.  
454. 'Erase and draw you.
455. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
456. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
457. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
458.  
459. ex1 = (xx + (INT(h / 3) / 2) / 2)
460. ex2 = (xx + (INT(h / 3) / 2) / .65)
461. ey = (yy + (INT(h / 3) / 2) / 2)
462. mx = (xx + (INT(h / 3) / 2))
463. my = (yy + (INT(h / 2.2) / 2))
464. ny = (yy + (h / 2.85) / 2)
465.  
466. FOR sz = .25 TO 2 STEP .25
467.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
468.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
469. NEXT sz
470. FOR sz = .25 TO 2.5 STEP .25
471.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
472. NEXT sz
473.  
474. IF mouth = 1 THEN
475.     FOR sz = .25 TO 2.5 STEP .25
476.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
477.     NEXT sz
478.     msec = TIMER
479.     IF msec - oldmsec > .25 THEN mouth = 0
480. END IF
481.  
482. FOR sz = .25 TO 1.5 STEP .25
483.     CIRCLE (mx, ny), sz, _RGB32(127, 128, 127)
484. NEXT sz
485. 'IF h > 74 THEN dl = .003
486. 'IF h <= 74 AND h >= 55 THEN dl = .004
487. 'IF h < 55 THEN dl = .005
488. '_DELAY dl
489. _DISPLAY
490. RETURN
491.  
492.  
493.  

Maybe we can still do collision detection with point but detecting proximity with x, y places to candy, levers or bombs is cake! But the walls might be tricky... have to sleep on that one, good night. :)

[SierraKen]

OK, I will in a minute. But I just found a glitch in mine LOL. Sometimes when your guy gets close to a candy, even on the other side of a wall, your score keeps going and going non-stop. LOL So I moved the scoring to where the candy is deleted instead of where it was detected.
There's another thing I want to try and fix too if I can. It's how if the bombs appear on you and kill you, you never see any of the bombs at all. Might look into that some.
Here is the update:

Code: QB64: [Select]

1. _TITLE "Search-Man"
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _LIMIT 3000
4. xx = 350: yy = 300: h = 200
5. splashscreen:
6. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
7. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
8. ex1 = (xx + (INT(h / 3) / 2) / 2)
9. ex2 = (xx + (INT(h / 3) / 2) / .65)
10. ey = (yy + (INT(h / 3) / 2) / 2)
11. mx = (xx + (INT(h / 3) / 2))
12. my = (yy + (INT(h / 2.2) / 2))
13. ny = (yy + (h / 2.85) / 2)
14. FOR sz = .25 TO 2 STEP .25
15.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
16.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
17. NEXT sz
18. FOR sz = .25 TO 2.5 STEP .25
19.     CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
20. NEXT sz
21. FOR sz = .25 TO 1.5 STEP .25
22.     CIRCLE (mx, ny), sz, _RGB32(0, 0, 0)
23. NEXT sz
24. mouth:
25. m = m + 1
26. IF m > 9 THEN GOTO begin:
27. IF m = 1 THEN mouth = 0
28. IF m = 2 THEN mouth = 1
29. IF m = 3 THEN mouth = 0
30. IF m = 4 THEN mouth = 1
31. IF m = 5 THEN mouth = 0
32. IF m = 6 THEN mouth = 1
33. IF m = 7 THEN mouth = 0
34. IF m = 8 THEN mouth = 1
35. IF m = 9 THEN mouth = 0
36. IF mouth = 1 THEN
37.     FOR sz = .25 TO 2.5 STEP .25
38.         CIRCLE (mx, my), sz, _RGB32(254, 254, 254)
39.     NEXT sz
40. END IF
41. IF mouth = 0 THEN
42.     FOR sz = .25 TO 1.5 STEP .25
43.         CIRCLE (mx, my), sz, _RGB32(0, 0, 0)
44.     NEXT sz
45. END IF
46. _DELAY .5
47. GOTO mouth:
48. begin:
49. CLS
50. PRINT: PRINT
51. PRINT "                                     Search-Man"
52. PRINT: PRINT: PRINT
53. PRINT "                                     by  Ken G."
54. PRINT: PRINT: PRINT
55. PRINT
56. PRINT
57. PRINT "                - Use the arrow keys to guide your green guy around the maze"
58. PRINT "                  to eat the orange candy."
59. PRINT "                - Levels change when 100 candies have been eaten and all 5"
60. PRINT "                  green levers have been used."
61. PRINT "                - Avoid hitting the randomly placed red bombs."
62. PRINT "                - The green levers will delete the bombs for 20 seconds."
63. PRINT "                - You start out with 3 players."
64. PRINT "                - Every level is different, Good Luck!"
65. PRINT: PRINT: PRINT
66. PRINT: PRINT: PRINT
67. INPUT "                               Press Enter To Begin.", a$
68. level = 1
69. sc = 0
70. players = 3
71. level$ = STR$(level)
72.  
73. 'Start a new level here.
74. level:
75. DIM t AS LONG
76. DIM candyx(500), candyy(500)
77. DIM leverx(200), levery(200)
78. x = 400: y = 300
79. t = 0
80. c = 0
81. drx = 0: dry = 0
82. lv = 0: slv = 0: bombs = 0
83. lev = 0
84. levers = 5
85. mouth = 0
86. RANDOMIZE TIMER
87. h = INT(RND * 60) + 40
88.  
89. 'Randomly choose a wall color.
90. RANDOMIZE TIMER
91. col = INT(RND * 8) + 1
92. 'green
93. IF col = 1 THEN
94.     col1 = 33: col2 = 230: col3 = 7
95. END IF
96. 'purple
97. IF col = 2 THEN
98.     col1 = 152: col2 = 7: col3 = 230
99. END IF
100. 'yellow
101. IF col = 3 THEN
102.     col1 = 247: col2 = 255: col3 = 8
103. END IF
104. 'orange
105. IF col = 4 THEN
106.     col1 = 255: col2 = 156: col3 = 8
107. END IF
108. 'red
109. IF col = 5 THEN
110.     col1 = 255: col2 = 8: col3 = 8
111. END IF
112. 'blue
113. IF col = 6 THEN
114.     col1 = 8: col2 = 131: col3 = 255
115. END IF
116. 'white
117. IF col = 7 THEN
118.     col1 = 255: col2 = 255: col3 = 255
119. END IF
120. 'greenish-blue
121. IF col = 8 THEN
122.     col1 = 10: col2 = 240: col3 = 201
123. END IF
124.  
125. 'Make the walls.
126. CLS
127. DO
128.     _LIMIT 3000
129.     again:
130.     t = t + 1
131.     IF t = 30000000 THEN EXIT DO
132.     oldx = x
133.     oldy = y
134.     oldd = d
135.     RANDOMIZE TIMER
136.     d = INT(RND * 4) + 1
137.     IF d = oldd THEN GOTO again:
138.     IF d = 1 THEN x = x + h
139.     IF d = 2 THEN x = x - h
140.     IF d = 3 THEN y = y + h
141.     IF d = 4 THEN y = y - h
142.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
143.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
144.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
145. LOOP
146. t = 0
147. FOR tt = 1 TO INT(1000 / h)
148.     RANDOMIZE TIMER
149.     x2 = INT(RND * 800) + 1
150.     y2 = INT(RND * 600) + 1
151.     d2 = INT(RND * 2) + 1
152.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
153.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
154. NEXT tt
155.  
156. 'Setup the levers
157. DO
158.     levers:
159.     RANDOMIZE TIMER
160.     leverx = INT(RND * 600) + 100
161.     levery = INT(RND * 400) + 100
162.     'Check for walls.
163.     FOR cx = -2 TO 7
164.         FOR cy = -2 TO 17
165.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
166.         NEXT cy
167.     NEXT cx
168.     'Check for other levers.
169.     FOR cx = -2 TO 7
170.         FOR cy = -2 TO 17
171.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
172.         NEXT cy
173.     NEXT cx
174.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
175.     lev = lev + 1
176.     leverx(lev) = leverx: levery(lev) = levery
177.     IF lev = 5 THEN EXIT DO
178. LOOP
179.  
180. 'Setup the candy.
181. DO
182.     candy:
183.     RANDOMIZE TIMER
184.     candyx = INT(RND * 600) + 100
185.     candyy = INT(RND * 400) + 100
186.     'Check for walls.
187.     FOR cx = -7 TO 7
188.         FOR cy = -7 TO 7
189.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
190.         NEXT cy
191.     NEXT cx
192.     'Check for other candy.
193.     FOR cx = -7 TO 7
194.         FOR cy = -7 TO 7
195.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
196.         NEXT cy
197.     NEXT cx
198.     'Check for levers.
199.     FOR cx = -2 TO 7
200.         FOR cy = -2 TO 17
201.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
202.         NEXT cy
203.     NEXT cx
204.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
205.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
206.     c = c + 1
207.     candyx(c) = candyx: candyy(c) = candyy
208.     IF c = 150 THEN EXIT DO
209. LOOP
210.  
211. 'You are coords xx and yy.
212. xx = 400
213. yy = 594
214. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
215.  
216. 'The Main Loop
217. DO
218.     _LIMIT 3000
219.     a$ = INKEY$
220.     IF a$ = CHR$(0) + CHR$(72) THEN
221.         dry = -1
222.         drx = 0
223.     END IF
224.     IF a$ = CHR$(0) + CHR$(80) THEN
225.         dry = 1
226.         drx = 0
227.     END IF
228.     IF a$ = CHR$(0) + CHR$(77) THEN
229.         drx = 1
230.         dry = 0
231.     END IF
232.     IF a$ = CHR$(0) + CHR$(75) THEN
233.         drx = -1
234.         dry = 0
235.     END IF
236.     IF a$ = CHR$(27) THEN END
237.     IF a$ = "q" OR a$ = "Q" THEN END
238.     GOSUB you:
239.     GOSUB candy2:
240.     GOSUB lev:
241.     GOSUB circles:
242. LOOP
243.  
244. lev:
245. _LIMIT 3000
246. FOR wy = -15 TO INT(h / 3) + 15
247.     FOR wx = -15 TO INT(h / 3) + 15
248.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
249.             GOTO deletelever:
250.         END IF
251.     NEXT wx
252. NEXT wy
253. RETURN
254.  
255. 'Check the area around you to delete the lever.
256. deletelever:
257. _LIMIT 3000
258. FOR wyy = -5 TO INT(h / 3) + 15
259.     FOR wxx = -5 TO INT(h / 3) + 5
260.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
261.             FOR cc = 1 TO lev
262.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
263.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
264.                     FOR snd = 450 TO 550 STEP 25
265.                         SOUND snd, .15
266.                     NEXT snd
267.                     rr = 0
268.                     lv = 1
269.                     levers = levers - 1
270.                     IF levers < 0 THEN levers = 0
271.                     LOCATE 1, 25: PRINT "Levers Left: "; levers
272.                     oldsecond = TIMER
273.                 END IF
274.             NEXT cc
275.         END IF
276.     NEXT wxx
277. NEXT wyy
278. RETURN
279.  
280. 'The Random Red Bombs
281. circles:
282. _LIMIT 3000
283. IF lv = 1 THEN
284.     second = TIMER
285.     IF second - oldsecond > 20 THEN lv = 0: slv = 0: GOTO nexone:
286.     IF slv = 1 THEN RETURN
287.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
288.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
289.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
290.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
291.     slv = 1
292.     RETURN
293. END IF
294. nexone:
295. _LIMIT 3000
296. IF rr = 1 THEN GOTO skip:
297. RANDOMIZE TIMER
298. rl = INT(RND * 1000) + 1
299. IF rl > 975 AND rr = 0 THEN
300.     RANDOMIZE TIMER
301.     lx = INT(RND * 750) + 1
302.     ly = INT(RND * 500) + 1
303.     lx2 = INT(RND * 750) + 1
304.     ly2 = INT(RND * 500) + 1
305.     lx3 = INT(RND * 750) + 1
306.     ly3 = INT(RND * 500) + 1
307.     lx4 = INT(RND * 750) + 1
308.     ly4 = INT(RND * 500) + 1
309.     rr = 1
310. END IF
311. IF rr = 0 THEN RETURN
312. skip:
313. _LIMIT 3000
314. IF bombs = 1 THEN GOTO skip2:
315. CIRCLE (lx, ly), 15, _RGB32(255, 0, 0)
316. CIRCLE (lx2, ly2), 15, _RGB32(255, 0, 0)
317. CIRCLE (lx3, ly3), 15, _RGB32(255, 0, 0)
318. CIRCLE (lx4, ly4), 15, _RGB32(255, 0, 0)
319. bombs = 1
320. skip2:
321. _LIMIT 3000
322. IF xx > lx - h / 3 AND xx < lx + h / 3 AND yy > ly - h / 3 AND yy < ly + h / 3 THEN GOSUB KABOOM:
323. IF xx > lx2 - h / 3 AND xx < lx2 + h / 3 AND yy > ly2 - h / 3 AND yy < ly2 + h / 3 THEN GOSUB KABOOM:
324. IF xx > lx3 - h / 3 AND xx < lx3 + h / 3 AND yy > ly3 - h / 3 AND yy < ly3 + h / 3 THEN GOSUB KABOOM:
325. IF xx > lx4 - h / 3 AND xx < lx4 + h / 3 AND yy > ly4 - h / 3 AND yy < ly4 + h / 3 THEN GOSUB KABOOM:
326. RANDOMIZE TIMER
327. rl2 = INT(RND * 10000) + 1
328. IF rl2 > 9985 THEN
329.     rr = 0
330.     bombs = 0
331.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
332.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
333.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
334.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
335. END IF
336. RETURN
337.  
338. KABOOM:
339. _AUTODISPLAY
340. players = players - 1
341. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
342. CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
343. CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
344. CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
345. CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
346. FOR sz = 1 TO 10
347.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
348.     SOUND 100, .25
349.     _DELAY .1
350. NEXT sz
351. FOR sz = 1 TO 10 STEP .25
352.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
353.     _DELAY .01
354. NEXT sz
355. xx = 400
356. yy = 594
357. rr = 0
358. slv = 0
359. bombs = 0
360. players$ = STR$(players)
361. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
362. IF players = 0 THEN
363.     LOCATE 15, 45: PRINT "G A M E   O V E R"
364.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
365.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
366.     END
367. END IF
368. RETURN
369.  
370. 'Check to see if you got a candy.
371. candy2:
372. _LIMIT 3000
373. FOR wy = -5 TO INT(h / 2) + 5
374.     FOR wx = -5 TO INT(h / 2) + 5
375.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
376.             GOTO deletecandy:
377.         END IF
378.     NEXT wx
379. NEXT wy
380. RETURN
381.  
382. 'Check the area around you to delete the candy.
383. deletecandy:
384. _LIMIT 3000
385. FOR wyy = -5 TO INT(h / 3) + 5
386.     FOR wxx = -5 TO INT(h / 3) + 5
387.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
388.             FOR cc = 1 TO c
389.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
390.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
391.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
392.                     SOUND 100, .5
393.                     co = co + 1
394.                     co2 = 100 - co
395.                     IF co2 < 0 THEN co2 = 0
396.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
397.                     mouth = 1
398.                     oldmsec = TIMER
399.                     sc = sc + 10
400.                     sc$ = STR$(sc)
401.                     players$ = STR$(players)
402.                     _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
403.                 END IF
404.             NEXT cc
405.         END IF
406.     NEXT wxx
407. NEXT wyy
408. IF co2 = 0 AND levers = 0 THEN
409.     level = level + 1
410.     co = 0
411.     level$ = STR$(level)
412.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
413.     GOTO level:
414. END IF
415. RETURN
416.  
417. you:
418. _LIMIT 3000
419. oldxx = xx
420. oldyy = yy
421. xx = xx + drx
422. yy = yy + dry
423.  
424. IF xx < 5 THEN xx = 5
425. IF xx > 795 THEN xx = 795
426. IF yy < 15 THEN yy = 15
427. IF yy > 595 THEN yy = 595
428.  
429. 'Check to see if you hit the walls.
430. FOR wx = -1 TO INT(h / 3)
431.     FOR wy = -1 TO INT(h / 3)
432.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
433.             yy = oldyy: xx = oldxx
434.             RETURN
435.         END IF
436.     NEXT wy
437. NEXT wx
438.  
439. 'Erase and draw you.
440. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
441. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
442. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
443.  
444. ex1 = (xx + (INT(h / 3) / 2) / 2)
445. ex2 = (xx + (INT(h / 3) / 2) / .65)
446. ey = (yy + (INT(h / 3) / 2) / 2)
447. mx = (xx + (INT(h / 3) / 2))
448. my = (yy + (INT(h / 2.2) / 2))
449. ny = (yy + (h / 2.85) / 2)
450.  
451. FOR sz = .25 TO 2 STEP .25
452.     CIRCLE (ex1, ey), sz, _RGB32(0, 127, 255)
453.     CIRCLE (ex2, ey), sz, _RGB32(0, 127, 255)
454. NEXT sz
455. IF mouth = 1 THEN GOTO skip3:
456. CIRCLE (mx, my), 2.5, _RGB32(0, 0, 0)
457. PAINT (mx, my), _RGB32(0, 0, 0)
458. skip3:
459. IF mouth = 1 THEN
460.     CIRCLE (mx, my), 2.5, _RGB32(254, 254, 254)
461.     PAINT (mx, my), _RGB32(254, 254, 254)
462.     msec = TIMER
463.     IF msec - oldmsec > .25 THEN mouth = 0
464. END IF
465.  
466. CIRCLE (mx, ny), 1.5, _RGB32(127, 128, 127)
467. PAINT (mx, ny), _RGB32(127, 128, 127)
468.  
469. IF h > 74 THEN dl = .003
470. IF h <= 74 AND h >= 55 THEN dl = .004
471. IF h < 55 THEN dl = .005
472. _DELAY dl
473. _DISPLAY
474. RETURN
475.  
476.  

[SierraKen]

It might be because I use a fast mouse setting in Windows 10, but when I tried yours, it doesn't detect or delete the candy. And when it goes over a lever, it doesn't delete those either so it rings and rings at you on the speakers since it is still there. hehe Neat concept though. But my mouse is just way too fast. It is so fast that it bounces through the walls. It hints they are there, but the mouse overtakes it and hops over them. :) Neat to see it with a mouse though.

[bplus]

It doesn't eat candy because I am not that far. You must realize, I erase everything and redraw everything on each loop. I haven't gotten that far with candy and lever collisions yet, I have to detect collision and then track what remains to be drawn the next loop.

It was just demo to show easy it is to get around the maze with a mouse.

[SierraKen]

Ah OK, I figured it was something like that.
Over here on my version I cleaned it up a lot by erasing all of the loops that fill circles and instead using CIRCLE and PAINT. That includes your guy and also the opening splash screen. On the splash screen I also deleted all the lines that said when to open and shut his mouth and instead used a MOD (I think for the first time LOL). So here is my update:
Oh also, I doubt the mouse version will be my final version for my website (unless I decide to put both on there). Maybe because I'm an old school 80's gamer, I feel more in touch with the game using keys. But we'll see. I can see some fun with both of them.

Code: QB64: [Select]

1. _TITLE "Search-Man"
2. SCREEN _NEWIMAGE(800, 600, 32)
3. _LIMIT 3000
4. xx = 350: yy = 300: h = 200
5. splashscreen:
6. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
7. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
8. ex1 = (xx + (INT(h / 3) / 2) / 2)
9. ex2 = (xx + (INT(h / 3) / 2) / .65)
10. ey = (yy + (INT(h / 3) / 2) / 2)
11. mx = (xx + (INT(h / 3) / 2))
12. my = (yy + (INT(h / 2.2) / 2))
13. ny = (yy + (h / 2.85) / 2)
14. CIRCLE (ex1, ey), 2, _RGB32(0, 127, 255)
15. PAINT (ex1, ey), _RGB32(0, 127, 255)
16. CIRCLE (ex2, ey), 2, _RGB32(0, 127, 255)
17. PAINT (ex2, ey), _RGB32(0, 127, 255)
18. CIRCLE (mx, ny), 1.5, _RGB32(0, 0, 0)
19. PAINT (mx, ny), _RGB32(0, 0, 0)
20. mouth:
21. m = m + 1
22. IF m MOD 2 = 1 THEN mouth = 0 ELSE mouth = 1
23. IF m > 9 THEN GOTO begin:
24. IF mouth = 1 THEN
25.     CIRCLE (mx, my), 2.5, _RGB32(254, 254, 254)
26.     PAINT (mx, my), _RGB32(254, 254, 254)
27. END IF
28. IF mouth = 0 THEN
29.     CIRCLE (mx, my), 2.5, _RGB32(0, 0, 0)
30.     PAINT (mx, my), _RGB32(0, 0, 0)
31. END IF
32. _DELAY .5
33. GOTO mouth:
34. begin:
35. CLS
36. PRINT: PRINT
37. PRINT "                                     Search-Man"
38. PRINT: PRINT: PRINT
39. PRINT "                                     by  Ken G."
40. PRINT: PRINT: PRINT
41. PRINT
42. PRINT
43. PRINT "                - Use the arrow keys to guide your green guy around the maze"
44. PRINT "                  to eat the orange candy."
45. PRINT "                - Levels change when 100 candies have been eaten and all 5"
46. PRINT "                  green levers have been used."
47. PRINT "                - Avoid hitting the randomly placed red bombs."
48. PRINT "                - The green levers will delete the bombs for 20 seconds."
49. PRINT "                - You start out with 3 players."
50. PRINT "                - Every level is different, Good Luck!"
51. PRINT: PRINT: PRINT
52. PRINT: PRINT: PRINT
53. INPUT "                               Press Enter To Begin.", a$
54. level = 1
55. sc = 0
56. players = 3
57. level$ = STR$(level)
58.  
59. 'Start a new level here.
60. level:
61. DIM t AS LONG
62. DIM candyx(500), candyy(500)
63. DIM leverx(200), levery(200)
64. x = 400: y = 300
65. t = 0
66. c = 0
67. drx = 0: dry = 0
68. lv = 0: slv = 0: bombs = 0
69. lev = 0
70. levers = 5
71. mouth = 0
72. RANDOMIZE TIMER
73. h = INT(RND * 60) + 40
74.  
75. 'Randomly choose a wall color.
76. RANDOMIZE TIMER
77. col = INT(RND * 8) + 1
78. 'green
79. IF col = 1 THEN
80.     col1 = 33: col2 = 230: col3 = 7
81. END IF
82. 'purple
83. IF col = 2 THEN
84.     col1 = 152: col2 = 7: col3 = 230
85. END IF
86. 'yellow
87. IF col = 3 THEN
88.     col1 = 247: col2 = 255: col3 = 8
89. END IF
90. 'orange
91. IF col = 4 THEN
92.     col1 = 255: col2 = 156: col3 = 8
93. END IF
94. 'red
95. IF col = 5 THEN
96.     col1 = 255: col2 = 8: col3 = 8
97. END IF
98. 'blue
99. IF col = 6 THEN
100.     col1 = 8: col2 = 131: col3 = 255
101. END IF
102. 'white
103. IF col = 7 THEN
104.     col1 = 255: col2 = 255: col3 = 255
105. END IF
106. 'greenish-blue
107. IF col = 8 THEN
108.     col1 = 10: col2 = 240: col3 = 201
109. END IF
110.  
111. 'Make the walls.
112. CLS
113. DO
114.     _LIMIT 3000
115.     again:
116.     t = t + 1
117.     IF t = 30000000 THEN EXIT DO
118.     oldx = x
119.     oldy = y
120.     oldd = d
121.     RANDOMIZE TIMER
122.     d = INT(RND * 4) + 1
123.     IF d = oldd THEN GOTO again:
124.     IF d = 1 THEN x = x + h
125.     IF d = 2 THEN x = x - h
126.     IF d = 3 THEN y = y + h
127.     IF d = 4 THEN y = y - h
128.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
129.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
130.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
131. LOOP
132. t = 0
133. FOR tt = 1 TO INT(1000 / h)
134.     RANDOMIZE TIMER
135.     x2 = INT(RND * 800) + 1
136.     y2 = INT(RND * 600) + 1
137.     d2 = INT(RND * 2) + 1
138.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
139.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
140. NEXT tt
141.  
142. 'Setup the levers
143. DO
144.     levers:
145.     RANDOMIZE TIMER
146.     leverx = INT(RND * 600) + 100
147.     levery = INT(RND * 400) + 100
148.     'Check for walls.
149.     FOR cx = -2 TO 7
150.         FOR cy = -2 TO 17
151.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
152.         NEXT cy
153.     NEXT cx
154.     'Check for other levers.
155.     FOR cx = -2 TO 7
156.         FOR cy = -2 TO 17
157.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
158.         NEXT cy
159.     NEXT cx
160.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
161.     lev = lev + 1
162.     leverx(lev) = leverx: levery(lev) = levery
163.     IF lev = 5 THEN EXIT DO
164. LOOP
165.  
166. 'Setup the candy.
167. DO
168.     candy:
169.     RANDOMIZE TIMER
170.     candyx = INT(RND * 600) + 100
171.     candyy = INT(RND * 400) + 100
172.     'Check for walls.
173.     FOR cx = -7 TO 7
174.         FOR cy = -7 TO 7
175.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
176.         NEXT cy
177.     NEXT cx
178.     'Check for other candy.
179.     FOR cx = -7 TO 7
180.         FOR cy = -7 TO 7
181.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
182.         NEXT cy
183.     NEXT cx
184.     'Check for levers.
185.     FOR cx = -2 TO 7
186.         FOR cy = -2 TO 17
187.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
188.         NEXT cy
189.     NEXT cx
190.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
191.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
192.     c = c + 1
193.     candyx(c) = candyx: candyy(c) = candyy
194.     IF c = 150 THEN EXIT DO
195. LOOP
196.  
197. 'You are coords xx and yy.
198. xx = 400
199. yy = 594
200. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
201.  
202. 'The Main Loop
203. DO
204.     _LIMIT 3000
205.     a$ = INKEY$
206.     IF a$ = CHR$(0) + CHR$(72) THEN
207.         dry = -1
208.         drx = 0
209.     END IF
210.     IF a$ = CHR$(0) + CHR$(80) THEN
211.         dry = 1
212.         drx = 0
213.     END IF
214.     IF a$ = CHR$(0) + CHR$(77) THEN
215.         drx = 1
216.         dry = 0
217.     END IF
218.     IF a$ = CHR$(0) + CHR$(75) THEN
219.         drx = -1
220.         dry = 0
221.     END IF
222.     IF a$ = CHR$(27) THEN END
223.     IF a$ = "q" OR a$ = "Q" THEN END
224.     GOSUB you:
225.     GOSUB candy2:
226.     GOSUB lev:
227.     GOSUB circles:
228. LOOP
229.  
230. lev:
231. _LIMIT 3000
232. FOR wy = -15 TO INT(h / 3) + 15
233.     FOR wx = -15 TO INT(h / 3) + 15
234.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
235.             GOTO deletelever:
236.         END IF
237.     NEXT wx
238. NEXT wy
239. RETURN
240.  
241. 'Check the area around you to delete the lever.
242. deletelever:
243. _LIMIT 3000
244. FOR wyy = -5 TO INT(h / 3) + 15
245.     FOR wxx = -5 TO INT(h / 3) + 5
246.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
247.             FOR cc = 1 TO lev
248.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
249.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
250.                     FOR snd = 450 TO 550 STEP 25
251.                         SOUND snd, .15
252.                     NEXT snd
253.                     rr = 0
254.                     lv = 1
255.                     levers = levers - 1
256.                     IF levers < 0 THEN levers = 0
257.                     LOCATE 1, 25: PRINT "Levers Left: "; levers
258.                     oldsecond = TIMER
259.                 END IF
260.             NEXT cc
261.         END IF
262.     NEXT wxx
263. NEXT wyy
264. RETURN
265.  
266. 'The Random Red Bombs
267. circles:
268. _LIMIT 3000
269. IF lv = 1 THEN
270.     second = TIMER
271.     IF second - oldsecond > 20 THEN lv = 0: slv = 0: GOTO nexone:
272.     IF slv = 1 THEN RETURN
273.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
274.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
275.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
276.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
277.     slv = 1
278.     RETURN
279. END IF
280. nexone:
281. _LIMIT 3000
282. IF rr = 1 THEN GOTO skip:
283. RANDOMIZE TIMER
284. rl = INT(RND * 1000) + 1
285. IF rl > 975 AND rr = 0 THEN
286.     RANDOMIZE TIMER
287.     lx = INT(RND * 750) + 1
288.     ly = INT(RND * 500) + 1
289.     lx2 = INT(RND * 750) + 1
290.     ly2 = INT(RND * 500) + 1
291.     lx3 = INT(RND * 750) + 1
292.     ly3 = INT(RND * 500) + 1
293.     lx4 = INT(RND * 750) + 1
294.     ly4 = INT(RND * 500) + 1
295.     rr = 1
296. END IF
297. IF rr = 0 THEN RETURN
298. skip:
299. _LIMIT 3000
300. IF bombs = 1 THEN GOTO skip2:
301. CIRCLE (lx, ly), 15, _RGB32(255, 0, 0)
302. CIRCLE (lx2, ly2), 15, _RGB32(255, 0, 0)
303. CIRCLE (lx3, ly3), 15, _RGB32(255, 0, 0)
304. CIRCLE (lx4, ly4), 15, _RGB32(255, 0, 0)
305. bombs = 1
306. skip2:
307. _LIMIT 3000
308. IF xx > lx - h / 3 AND xx < lx + h / 3 AND yy > ly - h / 3 AND yy < ly + h / 3 THEN GOSUB KABOOM:
309. IF xx > lx2 - h / 3 AND xx < lx2 + h / 3 AND yy > ly2 - h / 3 AND yy < ly2 + h / 3 THEN GOSUB KABOOM:
310. IF xx > lx3 - h / 3 AND xx < lx3 + h / 3 AND yy > ly3 - h / 3 AND yy < ly3 + h / 3 THEN GOSUB KABOOM:
311. IF xx > lx4 - h / 3 AND xx < lx4 + h / 3 AND yy > ly4 - h / 3 AND yy < ly4 + h / 3 THEN GOSUB KABOOM:
312. RANDOMIZE TIMER
313. rl2 = INT(RND * 10000) + 1
314. IF rl2 > 9985 THEN
315.     rr = 0
316.     bombs = 0
317.     CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
318.     CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
319.     CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
320.     CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
321. END IF
322. RETURN
323.  
324. KABOOM:
325. _AUTODISPLAY
326. players = players - 1
327. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
328. CIRCLE (lx, ly), 15, _RGB32(0, 0, 0)
329. CIRCLE (lx2, ly2), 15, _RGB32(0, 0, 0)
330. CIRCLE (lx3, ly3), 15, _RGB32(0, 0, 0)
331. CIRCLE (lx4, ly4), 15, _RGB32(0, 0, 0)
332. FOR sz = 1 TO 10
333.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
334.     SOUND 100, .25
335.     _DELAY .1
336. NEXT sz
337. FOR sz = 1 TO 10 STEP .25
338.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
339.     _DELAY .01
340. NEXT sz
341. xx = 400
342. yy = 594
343. rr = 0
344. slv = 0
345. bombs = 0
346. players$ = STR$(players)
347. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
348. IF players = 0 THEN
349.     LOCATE 15, 45: PRINT "G A M E   O V E R"
350.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
351.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
352.     END
353. END IF
354. RETURN
355.  
356. 'Check to see if you got a candy.
357. candy2:
358. _LIMIT 3000
359. FOR wy = -5 TO INT(h / 2) + 5
360.     FOR wx = -5 TO INT(h / 2) + 5
361.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
362.             GOTO deletecandy:
363.         END IF
364.     NEXT wx
365. NEXT wy
366. RETURN
367.  
368. 'Check the area around you to delete the candy.
369. deletecandy:
370. _LIMIT 3000
371. FOR wyy = -5 TO INT(h / 3) + 5
372.     FOR wxx = -5 TO INT(h / 3) + 5
373.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
374.             FOR cc = 1 TO c
375.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
376.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
377.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
378.                     SOUND 100, .5
379.                     co = co + 1
380.                     co2 = 100 - co
381.                     IF co2 < 0 THEN co2 = 0
382.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
383.                     mouth = 1
384.                     oldmsec = TIMER
385.                     sc = sc + 10
386.                     sc$ = STR$(sc)
387.                     players$ = STR$(players)
388.                     _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
389.                 END IF
390.             NEXT cc
391.         END IF
392.     NEXT wxx
393. NEXT wyy
394. IF co2 = 0 AND levers = 0 THEN
395.     level = level + 1
396.     co = 0
397.     level$ = STR$(level)
398.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
399.     GOTO level:
400. END IF
401. RETURN
402.  
403. you:
404. _LIMIT 3000
405. oldxx = xx
406. oldyy = yy
407. xx = xx + drx
408. yy = yy + dry
409.  
410. IF xx < 5 THEN xx = 5
411. IF xx > 795 THEN xx = 795
412. IF yy < 15 THEN yy = 15
413. IF yy > 595 THEN yy = 595
414.  
415. 'Check to see if you hit the walls.
416. FOR wx = -1 TO INT(h / 3)
417.     FOR wy = -1 TO INT(h / 3)
418.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
419.             yy = oldyy: xx = oldxx
420.             RETURN
421.         END IF
422.     NEXT wy
423. NEXT wx
424.  
425. 'Erase and draw you.
426. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
427. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
428. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
429.  
430. ex1 = (xx + (INT(h / 3) / 2) / 2)
431. ex2 = (xx + (INT(h / 3) / 2) / .65)
432. ey = (yy + (INT(h / 3) / 2) / 2)
433. mx = (xx + (INT(h / 3) / 2))
434. my = (yy + (INT(h / 2.2) / 2))
435. ny = (yy + (h / 2.85) / 2)
436.  
437. CIRCLE (ex1, ey), 2, _RGB32(0, 127, 255)
438. PAINT (ex1, ey), _RGB32(0, 127, 255)
439. CIRCLE (ex2, ey), 2, _RGB32(0, 127, 255)
440. PAINT (ex2, ey), _RGB32(0, 127, 255)
441.  
442. IF mouth = 1 THEN GOTO skip3:
443. CIRCLE (mx, my), 2.5, _RGB32(0, 0, 0)
444. PAINT (mx, my), _RGB32(0, 0, 0)
445. skip3:
446. IF mouth = 1 THEN
447.     CIRCLE (mx, my), 2.5, _RGB32(254, 254, 254)
448.     PAINT (mx, my), _RGB32(254, 254, 254)
449.     msec = TIMER
450.     IF msec - oldmsec > .25 THEN mouth = 0
451. END IF
452.  
453. CIRCLE (mx, ny), 1.5, _RGB32(127, 128, 127)
454. PAINT (mx, ny), _RGB32(127, 128, 127)
455.  
456. IF h > 74 THEN dl = .003
457. IF h <= 74 AND h >= 55 THEN dl = .004
458. IF h < 55 THEN dl = .005
459. _DELAY dl
460. _DISPLAY
461. RETURN
462.  
463.