QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 28, 2019, 08:26:57 pm

Title: Search-Man Game
Post by: SierraKen on August 28, 2019, 08:26:57 pm

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.  

Title: Re: Search-Man Game
Post by: SierraKen on August 29, 2019, 06:56:20 pm

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.  

Title: Re: Search-Man Game
Post by: bplus on August 29, 2019, 07:16:01 pm

Quote

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.

Title: Re: Search-Man Game
Post by: SierraKen on August 29, 2019, 08:05:16 pm

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.

Title: Re: Search-Man Game
Post by: bplus on August 29, 2019, 10:42:49 pm

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

Title: Re: Search-Man Game
Post by: bplus on August 29, 2019, 10:59:43 pm

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?

Title: Re: Search-Man Game
Post by: SierraKen on August 29, 2019, 11:42:31 pm

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

Title: Re: Search-Man Game
Post by: SierraKen on August 29, 2019, 11:49:25 pm

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.  

Title: Re: Search-Man Game
Post by: bplus on August 29, 2019, 11:56:42 pm

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.

Title: Re: Search-Man Game
Post by: SierraKen on August 30, 2019, 12:08:29 am

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.  

Title: Re: Search-Man Game
Post by: bplus on August 30, 2019, 12:20:20 am

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. :)

Title: Re: Search-Man Game
Post by: SierraKen on August 30, 2019, 12:28:11 am

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.  

Title: Re: Search-Man Game
Post by: SierraKen on August 30, 2019, 12:33:17 am

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.

Title: Re: Search-Man Game
Post by: bplus on August 30, 2019, 12:45:08 am

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.

Title: Re: Search-Man Game
Post by: SierraKen on August 30, 2019, 01:30:15 am

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.  

Title: Re: Search-Man Game
Post by: SierraKen on August 31, 2019, 08:55:48 pm

I'm trying to make a new version of this game called Search-Man 2 which, if I can do it, would be more fun than the first one. Instead of bombs appearing at random, it has 3 enemies that move through the walls, candies, etc. to go straight to your location in a slow way. The part of knowing what direction to go to I already have finished I believe. But the part I don't know hardly anything about is using the PUT statement to make the enemies leave the graphics behind them that they fly over. And also not leave a trail. I am VERY close though (I hope). I am using an example from the WIKI pages that I found a few days ago and today I put it in the game. One of the enemies fly perfectly without leaving any trace at all or leave any trail behind. But it's the other 2 enemies that I am having a hard time with. They leave a trail of red behind them. Plus there's 2 other enemies that move which I have no idea where they came from! LOL Can someone help me out on this? Someone that has used PUT and GET before to make sprites go over other graphics. I am soooo close I think. The example also uses the WAIT command with numbers that I have no idea where they got them from.  Here is my Search-Man 2 so far. Notice how I use arrays and then GET statements for all 3 of them before the main loop to setup the enemy graphics. The WIKI example only uses 1 sprite that you move, mine has 3 sprites that the computer moves. I tried it without the WAIT statements and got the same thing, but I put them back to show.

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. DIM bg1(300), enemy1(300)
65. DIM bg2(300), enemy2(300)
66. DIM bg3(300), enemy3(300)
67. x = 400: y = 300
68. t = 0
69. c = 0
70. drx = 0: dry = 0
71. lv = 0: slv = 0: bombs = 0
72. lev = 0
73. levers = 5
74. mouth = 0
75. RANDOMIZE TIMER
76. h = INT(RND * 60) + 40
77. lx = INT(RND * 700) + 20
78. ly = INT(RND * 300) + 20
79. RANDOMIZE TIMER
80. lx2 = INT(RND * 700) + 20
81. ly2 = INT(RND * 300) + 20
82. RANDOMIZE TIMER
83. lx3 = INT(RND * 700) + 20
84. ly3 = INT(RND * 300) + 20
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 levers
154. DO
155.     levers:
156.     RANDOMIZE TIMER
157.     leverx = INT(RND * 600) + 100
158.     levery = INT(RND * 400) + 100
159.     'Check for walls.
160.     FOR cx = -2 TO 7
161.         FOR cy = -2 TO 17
162.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
163.         NEXT cy
164.     NEXT cx
165.     'Check for other levers.
166.     FOR cx = -2 TO 7
167.         FOR cy = -2 TO 17
168.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
169.         NEXT cy
170.     NEXT cx
171.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
172.     lev = lev + 1
173.     leverx(lev) = leverx: levery(lev) = levery
174.     IF lev = 5 THEN EXIT DO
175. LOOP
176.  
177. 'Setup the candy.
178. DO
179.     candy:
180.     RANDOMIZE TIMER
181.     candyx = INT(RND * 600) + 100
182.     candyy = INT(RND * 400) + 100
183.     'Check for walls.
184.     FOR cx = -7 TO 7
185.         FOR cy = -7 TO 7
186.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
187.         NEXT cy
188.     NEXT cx
189.     'Check for other candy.
190.     FOR cx = -7 TO 7
191.         FOR cy = -7 TO 7
192.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
193.         NEXT cy
194.     NEXT cx
195.     'Check for levers.
196.     FOR cx = -2 TO 7
197.         FOR cy = -2 TO 17
198.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
199.         NEXT cy
200.     NEXT cx
201.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
202.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
203.     c = c + 1
204.     candyx(c) = candyx: candyy(c) = candyy
205.     IF c = 150 THEN EXIT DO
206. LOOP
207.  
208. 'You are coords xx and yy.
209. xx = 400
210. yy = 594
211. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
212.  
213.  
214. 'Setup the enemy graphics.
215. GET (lx, ly)-(lx + 15, ly + 15), bg1() ' GET original BG at start box position
216. LINE (lx, ly)-(lx + 15, ly + 15), _RGB32(255, 0, 0), BF ' the plain blue box to move
217. GET (lx, ly)-(lx + 15, ly + 15), enemy1() ' GET to Box Array
218.  
219. GET (lx2, ly2)-(lx2 + 15, ly2 + 15), bg2() ' GET original BG at start box position
220. LINE (lx2, ly2)-(lx2 + 15, ly2 + 15), _RGB32(255, 0, 0), BF ' the plain blue box to move
221. GET (lx2, ly2)-(lx2 + 15, ly2 + 15), enemy2() ' GET to Box Array
222.  
223. GET (lx3, ly3)-(lx3 + 15, ly3 + 15), bg3() ' GET original BG at start box position
224. LINE (lx3, ly3)-(lx3 + 15, ly3 + 15), _RGB32(255, 0, 0), BF ' the plain blue box to move
225. GET (lx3, ly3)-(lx3 + 15, ly3 + 15), enemy3() ' GET to Box Array
226.  
227. PX1 = lx: PY1 = ly
228. PX2 = lx2: PY2 = ly2
229. PX3 = lx3: PY3 = ly3
230.  
231. 'The Main Loop
232. DO
233.     _LIMIT 3000
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 enemies:
257. LOOP
258.  
259. lev:
260. _LIMIT 3000
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. _LIMIT 3000
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. IF co2 = 0 AND levers = 0 THEN
294.     level = level + 1
295.     co = 0
296.     level$ = STR$(level)
297.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
298.     GOTO level:
299. END IF
300. RETURN
301.  
302. 'The enemies
303. enemies:
304. _LIMIT 3000
305. PX1 = lx: PY1 = ly
306. PY2 = lx2: PY2 = ly2
307. PY3 = lx3: PY3 = ly3
308.  
309. IF xx > lx THEN lx = lx + .2
310. IF xx < lx THEN lx = lx - .2
311. IF yy > ly THEN ly = ly + .2
312. IF yy < ly THEN ly = ly - .2
313. IF lx > 775 THEN lx = 775
314. IF lx < 15 THEN lx = 15
315. IF ly > 575 THEN ly = 575
316. IF ly < 15 THEN ly = 15
317.  
318. IF xx > lx2 THEN lx2 = lx2 + .2
319. IF xx < lx2 THEN lx2 = lx2 - .2
320. IF yy > ly2 THEN ly2 = ly2 + .2
321. IF yy < ly2 THEN ly2 = ly2 - .2
322. IF lx2 > 775 THEN lx2 = 775
323. IF lx2 < 15 THEN lx2 = 15
324. IF ly2 > 575 THEN ly2 = 575
325. IF ly2 < 15 THEN ly2 = 15
326.  
327. IF xx > lx3 THEN lx3 = lx3 + .2
328. IF xx < lx3 THEN lx3 = lx3 - .2
329. IF yy > ly3 THEN ly3 = ly3 + .2
330. IF yy < ly3 THEN ly3 = ly3 - .2
331. IF lx3 > 775 THEN lx3 = 775
332. IF lx3 < 15 THEN lx3 = 15
333. IF ly3 > 575 THEN ly3 = 575
334. IF ly3 < 15 THEN ly3 = 15
335.  
336.  
337. WAIT 936, 8
338. PUT (PX1, PY1), bg1(), PSET ' replace previous BG first
339. GET (lx, ly)-(lx + 15, ly + 15), bg1() ' GET BG at new position before box is set
340. PUT (lx, ly), enemy1(), PSET ' PUT box image at new position
341.  
342. WAIT 936, 8:
343. PUT (PX2, PY2), bg2(), PSET ' replace previous BG first
344. GET (lx2, ly2)-(lx2 + 15, ly2 + 15), bg2() ' GET BG at new position before box is set
345. PUT (lx2, ly2), enemy2(), PSET ' PUT box image at new position
346.  
347. WAIT 936, 8:
348. PUT (PX3, PY3), bg3(), PSET ' replace previous BG first
349. GET (lx3, ly3)-(lx3 + 15, ly3 + 15), bg3() ' GET BG at new position before box is set
350. PUT (lx3, ly3), enemy3(), PSET ' PUT box image at new position
351.  
352.  
353. _DISPLAY
354.  
355. FOR wy = -10 TO INT(h / 3) + 10
356.     FOR wx = -10 TO INT(h / 3) + 10
357.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 0, 0) THEN GOSUB KABOOM:
358.     NEXT wx
359. NEXT wy
360. _DISPLAY
361. RETURN
362.  
363. KABOOM:
364. _AUTODISPLAY
365. players = players - 1
366. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 0, 0), BF
367. FOR sz = 14 TO 15
368.     CIRCLE (lx, ly), sz, _RGB32(0, 0, 0)
369.     CIRCLE (lx2, ly2), sz, _RGB32(0, 0, 0)
370.     CIRCLE (lx3, ly3), sz, _RGB32(0, 0, 0)
371.     CIRCLE (lx4, ly4), sz, _RGB32(0, 0, 0)
372. NEXT sz
373. FOR sz = 1 TO 10
374.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
375.     SOUND 100, .25
376.     _DELAY .1
377. NEXT sz
378. FOR sz = 1 TO 10 STEP .25
379.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
380.     _DELAY .01
381. NEXT sz
382. xx = 400
383. yy = 594
384. rr = 0
385. slv = 0
386. bombs = 0
387. players$ = STR$(players)
388. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
389. IF players = 0 THEN
390.     LOCATE 15, 45: PRINT "G A M E   O V E R"
391.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
392.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
393.     END
394. END IF
395. RETURN
396.  
397. 'Check to see if you got a candy.
398. candy2:
399. _LIMIT 3000
400. FOR wy = -5 TO INT(h / 2) + 5
401.     FOR wx = -5 TO INT(h / 2) + 5
402.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
403.             GOTO deletecandy:
404.         END IF
405.     NEXT wx
406. NEXT wy
407. RETURN
408.  
409. 'Check the area around you to delete the candy.
410. deletecandy:
411. _LIMIT 3000
412. FOR wyy = -5 TO INT(h / 3) + 5
413.     FOR wxx = -5 TO INT(h / 3) + 5
414.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
415.             FOR cc = 1 TO c
416.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
417.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
418.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
419.                     SOUND 100, .5
420.                     co = co + 1
421.                     co2 = 100 - co
422.                     IF co2 < 0 THEN co2 = 0
423.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
424.                     mouth = 1
425.                     oldmsec = TIMER
426.                     sc = sc + 10
427.                     sc$ = STR$(sc)
428.                     players$ = STR$(players)
429.                     _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
430.                 END IF
431.             NEXT cc
432.         END IF
433.     NEXT wxx
434. NEXT wyy
435. IF co2 = 0 AND levers = 0 THEN
436.     level = level + 1
437.     co = 0
438.     level$ = STR$(level)
439.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
440.     GOTO level:
441. END IF
442. RETURN
443.  
444. you:
445. _LIMIT 3000
446. oldxx = xx
447. oldyy = yy
448. xx = xx + drx
449. yy = yy + dry
450.  
451. IF xx < 5 THEN xx = 5
452. IF xx > 795 THEN xx = 795
453. IF yy < 15 THEN yy = 15
454. IF yy > 595 THEN yy = 595
455.  
456. 'Check to see if you hit the walls.
457. FOR wx = -1 TO INT(h / 3)
458.     FOR wy = -1 TO INT(h / 3)
459.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
460.             yy = oldyy: xx = oldxx
461.             RETURN
462.         END IF
463.     NEXT wy
464. NEXT wx
465.  
466. 'Erase and draw you.
467. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
468. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
469. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
470.  
471. ex1 = (xx + (INT(h / 3) / 2) / 2)
472. ex2 = (xx + (INT(h / 3) / 2) / .65)
473. ey = (yy + (INT(h / 3) / 2) / 2)
474. mx = (xx + (INT(h / 3) / 2))
475. my = (yy + (INT(h / 2.2) / 2))
476. ny = (yy + (h / 2.85) / 2)
477.  
478. CIRCLE (ex1, ey), 2, _RGB32(0, 127, 255)
479. PAINT (ex1, ey), _RGB32(0, 127, 255)
480. CIRCLE (ex2, ey), 2, _RGB32(0, 127, 255)
481. PAINT (ex2, ey), _RGB32(0, 127, 255)
482.  
483. IF mouth = 1 THEN GOTO skip3:
484. CIRCLE (mx, my), 2.5, _RGB32(0, 0, 0)
485. PAINT (mx, my), _RGB32(0, 0, 0)
486. skip3:
487. IF mouth = 1 THEN
488.     CIRCLE (mx, my), 2.5, _RGB32(254, 254, 254)
489.     PAINT (mx, my), _RGB32(254, 254, 254)
490.     msec = TIMER
491.     IF msec - oldmsec > .25 THEN mouth = 0
492. END IF
493.  
494. CIRCLE (mx, ny), 1.5, _RGB32(127, 128, 127)
495. PAINT (mx, ny), _RGB32(127, 128, 127)
496.  
497. IF h >= 55 THEN dl = .003
498. IF h < 55 THEN dl = .004
499. _DELAY dl
500. _DISPLAY
501. RETURN
502.  
503.  

Also, here is the code to the Wiki example in case you are wondering about it:

Code: QB64: [Select]

1. DEFINT A-Z
2. DIM BG(300), Box(300), SC(127) ' BG holds background images. Box holds the Box image.
3.  
4. SCREEN 13 ' graphic coordinate minimums are 0 to 319 column or 199 row maximums.
5. ' set up screen background
6. COLOR 4: LOCATE 10, 5: PRINT "Multikey Keyboard input routine"
7. COLOR 10: LOCATE 12, 4: PRINT "Use the arrow keys to move the box."
8. LOCATE 13, 4: PRINT "Note that you can press two or more"
9. LOCATE 14, 4: PRINT "keys at once for diagonal movement!"
10. COLOR 14: LOCATE 16, 4: PRINT " Also demonstrates how GET and PUT "
11. LOCATE 17, 4: PRINT "are used to preserve the background."
12. COLOR 11: LOCATE 20, 11: PRINT "Press [Esc] to quit"
13.  
14. x = 150: y = 50: PX = x: PY = y ' actual box starting position
15.  
16. GET (x, y)-(x + 15, y + 15), BG() ' GET original BG at start box position
17. LINE (x, y)-(x + 15, y + 15), 9, BF ' the plain blue box to move
18. GET (x, y)-(x + 15, y + 15), Box() ' GET to Box Array
19.  
20. DO 'main loop
21.     t! = TIMER + .05
22.     DO ' 1 Tick (1/18th second) keypress scancode read loop
23.         a$ = INKEY$ ' So the keyboard buffer won't get full
24.         code% = INP(&H60) ' Get keyboard scan code from port 96
25.         IF code% < 128 THEN SC(code%) = 1 ELSE SC(code% - 128) = 0 'true/false values to array
26.     LOOP UNTIL TIMER > t! ' loop until one tick has passed
27.  
28.     PX = x: PY = y ' previous coordinates
29.     IF SC(75) = 1 THEN x = x - 5: IF x < 0 THEN x = 0
30.     IF SC(77) = 1 THEN x = x + 5: IF x > 304 THEN x = 304
31.     IF SC(72) = 1 THEN y = y - 5: IF y < 0 THEN y = 0
32.     IF SC(80) = 1 THEN y = y + 5: IF y > 184 THEN y = 184
33.     IF x <> PX OR y <> PY THEN ' look for a changed coordinate value
34.         WAIT 936, 8: PUT (PX, PY), BG(), PSET ' replace previous BG first
35.         GET (x, y)-(x + 15, y + 15), BG() ' GET BG at new position before box is set
36.         PUT (x, y), Box(), PSET ' PUT box image at new position
37.     END IF
38.  
39. LOOP UNTIL SC(1) = 1 ' main loop until [Esc] key (scan code 1) is pressed
40.  
41.  

Title: Re: Search-Man Game
Post by: bplus on September 01, 2019, 10:01:22 am

Ken,

It seems to me allot easier to erase screen at every loop and redraw background and all in new positions than to draw over only moving items. You would't have to worry about leaving traces of old images.

_PUTIMAGE works very fast putting up images stored in handles, I think it is a GET and PUT wrapped in one by getting an image from one place and storing it or taking a stored image and drawing it back on main screen or isolated assembly "screen".

Ah! now I have idea for fireflys with trails and backgrounds both :)

Title: Re: Search-Man Game
Post by: SierraKen on September 01, 2019, 07:01:40 pm

B+, I tried for hours to try to do that today and yesterday, just won't work because the maze is drawn before the main loop, as  well as the candy and levers. I can easily do that with just you and the enemies, but not with the rest. I would have to redraw the rest as well which I don't know how to do. It would seem you can just copy everything with like COPYIMAGE but it's not that easy to figure out where to put the commands, etc. Maybe I just need a rest for now. lol

Title: Re: Search-Man Game
Post by: bplus on September 01, 2019, 07:09:00 pm

Quote from: SierraKen on September 01, 2019, 07:01:40 pm

B+, I tried for hours to try to do that today and yesterday, just won't work because the maze is drawn before the main loop, as  well as the candy and levers. I can easily do that with just you and the enemies, but not with the rest. I would have to redraw the rest as well which I don't know how to do. It would seem you can just copy everything with like COPYIMAGE but it's not that easy to figure out where to put the commands, etc. Maybe I just need a rest for now. lol

Yeah, you'd have to rethink everything from ground up. Completely not your style. But I think you can get POINT info off an image just remember to say _SOURCE imagehandle& is your image before you try.

Your maze can be saved as image, there! it's saved in a container, now you can redraw it when ever needed!

'Draw maze
maze& = _newimage(_width, _height, 32)
_putimage , 0, maze&  'from screen to maze& handle

do
    _putimage , maze&, 0   'from maze to screen effectively clears your screen
   'redraw or _putimage all other action figures

   'process


  _display  ' stop flicker
  _limit x   'put limit on how fast it is allowed to loop around   
loop

Draw one candy and one lever, put their image in a handle, use an array to track their x, y locations

Use _putimage to set the image onto screen where ever you want as many times as you want, saves you from redraw AND erase!

Title: Re: Search-Man Game
Post by: SierraKen on September 01, 2019, 08:07:56 pm

Your code doesn't erase the screen, this:
 _putimage , maze&, 0   'from maze to screen effectively clears your screen.

I haven't changed anything for the candy or levers. I copy the maze (and everything in it), right before the main loop.
Then in the main loop is where I added this:  _PUTIMAGE , maze&, 0   
I tried adding the line (0,0)-(800,600),_rgb32(0,0,0),bf  but that just erases it all and doesn't bring it back.

This is what I have:

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. DIM bg1(300), enemy1(300)
65. DIM bg2(300), enemy2(300)
66. DIM bg3(300), enemy3(300)
67. x = 400: y = 300
68. t = 0
69. c = 0
70. drx = 0: dry = 0
71. lv = 0: slv = 0: bombs = 0
72. lev = 0
73. levers = 5
74. mouth = 0
75. RANDOMIZE TIMER
76. h = INT(RND * 60) + 40
77. lx = INT(RND * 700) + 20
78. ly = INT(RND * 300) + 20
79. RANDOMIZE TIMER
80. lx2 = INT(RND * 700) + 20
81. ly2 = INT(RND * 300) + 20
82. RANDOMIZE TIMER
83. lx3 = INT(RND * 700) + 20
84. ly3 = INT(RND * 300) + 20
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.  
125. DO
126.     _LIMIT 3000
127.     again:
128.     t = t + 1
129.     IF t = 30000000 THEN EXIT DO
130.     oldx = x
131.     oldy = y
132.     oldd = d
133.     RANDOMIZE TIMER
134.     d = INT(RND * 4) + 1
135.     IF d = oldd THEN GOTO again:
136.     IF d = 1 THEN x = x + h
137.     IF d = 2 THEN x = x - h
138.     IF d = 3 THEN y = y + h
139.     IF d = 4 THEN y = y - h
140.     IF x > 800 - h OR x < h OR y > 600 - h OR y < h THEN x = 400: y = 300: GOTO again:
141.     IF POINT(x, y) = _RGB32(col1, col2, col3) THEN GOTO again:
142.     LINE (oldx, oldy)-(x, y), _RGB32(col1, col2, col3)
143. LOOP
144. t = 0
145. FOR tt = 1 TO INT(1000 / h)
146.     RANDOMIZE TIMER
147.     x2 = INT(RND * 800) + 1
148.     y2 = INT(RND * 600) + 1
149.     d2 = INT(RND * 2) + 1
150.     IF d2 = 1 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
151.     IF d2 = 2 THEN LINE (x2, y2)-(x2 + h, y2 + h), _RGB32(0, 0, 0), BF
152. NEXT tt
153.  
154. 'Setup the levers
155. DO
156.     levers:
157.     RANDOMIZE TIMER
158.     leverx = INT(RND * 600) + 100
159.     levery = INT(RND * 400) + 100
160.     'Check for walls.
161.     FOR cx = -2 TO 7
162.         FOR cy = -2 TO 17
163.             IF POINT(leverx + cx, levery + cy) = _RGB32(col1, col2, col3) THEN GOTO levers:
164.         NEXT cy
165.     NEXT cx
166.     'Check for other levers.
167.     FOR cx = -2 TO 7
168.         FOR cy = -2 TO 17
169.             IF POINT(leverx + cx, levery + cy) = _RGB32(22, 255, 122) THEN GOTO levers:
170.         NEXT cy
171.     NEXT cx
172.     LINE (leverx, levery)-(leverx + 5, levery + 15), _RGB32(22, 255, 122), BF
173.     lev = lev + 1
174.     leverx(lev) = leverx: levery(lev) = levery
175.     IF lev = 5 THEN EXIT DO
176. LOOP
177.  
178. 'Setup the candy.
179. DO
180.     candy:
181.     RANDOMIZE TIMER
182.     candyx = INT(RND * 600) + 100
183.     candyy = INT(RND * 400) + 100
184.     'Check for walls.
185.     FOR cx = -7 TO 7
186.         FOR cy = -7 TO 7
187.             IF POINT(candyx + cx, candyy + cy) = _RGB32(col1, col2, col3) THEN GOTO candy:
188.         NEXT cy
189.     NEXT cx
190.     'Check for other candy.
191.     FOR cx = -7 TO 7
192.         FOR cy = -7 TO 7
193.             IF POINT(candyx + cx, candyy + cy) = _RGB32(255, 161, 0) THEN GOTO candy:
194.         NEXT cy
195.     NEXT cx
196.     'Check for levers.
197.     FOR cx = -2 TO 7
198.         FOR cy = -2 TO 17
199.             IF POINT(candyx + cx, candyy + cy) = _RGB32(22, 255, 122) THEN GOTO candy:
200.         NEXT cy
201.     NEXT cx
202.     CIRCLE (candyx, candyy), 4, _RGB32(255, 161, 0)
203.     PAINT (candyx, candyy), _RGB32(255, 161, 0)
204.     c = c + 1
205.     candyx(c) = candyx: candyy(c) = candyy
206.     IF c = 150 THEN EXIT DO
207. LOOP
208.  
209. 'You are coords xx and yy.
210. xx = 400
211. yy = 594
212. _TITLE "Arrow Keys To Move, Esc or Q To Quit."
213.  
214.  
215. maze& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
216. _PUTIMAGE , 0, maze& 'from screen to maze& handle
217.  
218.  
219. 'The Main Loop
220. DO
221.     _LIMIT 3000
222.     _PUTIMAGE , maze&, 0
223.     a$ = INKEY$
224.     IF a$ = CHR$(0) + CHR$(72) THEN
225.         dry = -1
226.         drx = 0
227.     END IF
228.     IF a$ = CHR$(0) + CHR$(80) THEN
229.         dry = 1
230.         drx = 0
231.     END IF
232.     IF a$ = CHR$(0) + CHR$(77) THEN
233.         drx = 1
234.         dry = 0
235.     END IF
236.     IF a$ = CHR$(0) + CHR$(75) THEN
237.         drx = -1
238.         dry = 0
239.     END IF
240.     IF a$ = CHR$(27) THEN END
241.     IF a$ = "q" OR a$ = "Q" THEN END
242.     GOSUB you:
243.     GOSUB candy2:
244.     GOSUB lev:
245.     GOSUB enemies:
246.     _DISPLAY
247. LOOP
248.  
249. lev:
250. _LIMIT 3000
251. FOR wy = -15 TO INT(h / 3) + 15
252.     FOR wx = -15 TO INT(h / 3) + 15
253.         IF POINT(xx + wx, yy + wy) = _RGB32(22, 255, 122) THEN
254.             GOTO deletelever:
255.         END IF
256.     NEXT wx
257. NEXT wy
258. RETURN
259.  
260. 'Check the area around you to delete the lever.
261. deletelever:
262. _LIMIT 3000
263. FOR wyy = -5 TO INT(h / 3) + 15
264.     FOR wxx = -5 TO INT(h / 3) + 5
265.         IF POINT(xx + wxx, yy + wyy) = _RGB32(22, 255, 122) THEN
266.             FOR cc = 1 TO lev
267.                 IF xx + wxx = leverx(cc) AND yy + wyy = levery(cc) THEN
268.                     LINE (leverx(cc), levery(cc))-(leverx(cc) + 5, levery(cc) + 15), _RGB32(0, 0, 0), BF
269.                     FOR snd = 450 TO 550 STEP 25
270.                         SOUND snd, .15
271.                     NEXT snd
272.                     rr = 0
273.                     lv = 1
274.                     levers = levers - 1
275.                     IF levers < 0 THEN levers = 0
276.                     LOCATE 1, 25: PRINT "Levers Left: "; levers
277.                     oldsecond = TIMER
278.                 END IF
279.             NEXT cc
280.         END IF
281.     NEXT wxx
282. NEXT wyy
283. IF co2 = 0 AND levers = 0 THEN
284.     level = level + 1
285.     co = 0
286.     level$ = STR$(level)
287.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
288.     GOTO level:
289. END IF
290. RETURN
291.  
292. 'The enemies
293. enemies:
294. _LIMIT 3000
295.  
296.  
297. IF xx > lx THEN lx = lx + .2
298. IF xx < lx THEN lx = lx - .2
299. IF yy > ly THEN ly = ly + .2
300. IF yy < ly THEN ly = ly - .2
301. IF lx > 775 THEN lx = 775
302. IF lx < 15 THEN lx = 15
303. IF ly > 575 THEN ly = 575
304. IF ly < 15 THEN ly = 15
305.  
306. IF xx > lx2 THEN lx2 = lx2 + .2
307. IF xx < lx2 THEN lx2 = lx2 - .2
308. IF yy > ly2 THEN ly2 = ly2 + .2
309. IF yy < ly2 THEN ly2 = ly2 - .2
310. IF lx2 > 775 THEN lx2 = 775
311. IF lx2 < 15 THEN lx2 = 15
312. IF ly2 > 575 THEN ly2 = 575
313. IF ly2 < 15 THEN ly2 = 15
314.  
315. IF xx > lx3 THEN lx3 = lx3 + .2
316. IF xx < lx3 THEN lx3 = lx3 - .2
317. IF yy > ly3 THEN ly3 = ly3 + .2
318. IF yy < ly3 THEN ly3 = ly3 - .2
319. IF lx3 > 775 THEN lx3 = 775
320. IF lx3 < 15 THEN lx3 = 15
321. IF ly3 > 575 THEN ly3 = 575
322. IF ly3 < 15 THEN ly3 = 15
323.  
324. LINE (lx, ly)-(lx + 15, ly + 15), _RGB32(255, 0, 0), BF
325. LINE (lx2, ly2)-(lx2 + 15, ly2 + 15), _RGB32(255, 0, 0), BF
326. LINE (lx3, ly3)-(lx3 + 15, ly3 + 15), _RGB32(255, 0, 0), BF
327.  
328. _PUTIMAGE , 0, maze& 'from screen to maze& handle
329. _DISPLAY
330.  
331. FOR wy = -10 TO INT(h / 3) + 10
332.     FOR wx = -10 TO INT(h / 3) + 10
333.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 0, 0) THEN GOSUB KABOOM:
334.     NEXT wx
335. NEXT wy
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. FOR sz = 14 TO 15
343.     CIRCLE (lx, ly), sz, _RGB32(0, 0, 0)
344.     CIRCLE (lx2, ly2), sz, _RGB32(0, 0, 0)
345.     CIRCLE (lx3, ly3), sz, _RGB32(0, 0, 0)
346.     CIRCLE (lx4, ly4), sz, _RGB32(0, 0, 0)
347. NEXT sz
348. FOR sz = 1 TO 10
349.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(255, 0, 0)
350.     SOUND 100, .25
351.     _DELAY .1
352. NEXT sz
353. FOR sz = 1 TO 10 STEP .25
354.     CIRCLE (xx + (h / 3), yy + (h / 3)), sz, _RGB32(0, 0, 0)
355.     _DELAY .01
356. NEXT sz
357. xx = 400
358. yy = 594
359. rr = 0
360. slv = 0
361. bombs = 0
362. players$ = STR$(players)
363. _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
364. IF players = 0 THEN
365.     LOCATE 15, 45: PRINT "G A M E   O V E R"
366.     LOCATE 17, 45: INPUT "Again(Y/N)"; ag$
367.     IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN CLEAR: GOTO begin:
368.     END
369. END IF
370. RETURN
371.  
372. 'Check to see if you got a candy.
373. candy2:
374. _LIMIT 3000
375. FOR wy = -5 TO INT(h / 2) + 5
376.     FOR wx = -5 TO INT(h / 2) + 5
377.         IF POINT(xx + wx, yy + wy) = _RGB32(255, 161, 0) THEN
378.             GOTO deletecandy:
379.         END IF
380.     NEXT wx
381. NEXT wy
382. RETURN
383.  
384. 'Check the area around you to delete the candy.
385. deletecandy:
386. _LIMIT 3000
387. FOR wyy = -5 TO INT(h / 3) + 5
388.     FOR wxx = -5 TO INT(h / 3) + 5
389.         IF POINT(xx + wxx, yy + wyy) = _RGB32(255, 161, 0) THEN
390.             FOR cc = 1 TO c
391.                 IF xx + wxx = candyx(cc) AND yy + wyy = candyy(cc) THEN
392.                     CIRCLE (candyx(cc), candyy(cc)), 4, _RGB32(0, 0, 0)
393.                     PAINT (candyx(cc), candyy(cc)), _RGB32(0, 0, 0)
394.                     SOUND 100, .5
395.                     co = co + 1
396.                     co2 = 100 - co
397.                     IF co2 < 0 THEN co2 = 0
398.                     LOCATE 1, 1: PRINT "Candy To Get: "; co2
399.                     mouth = 1
400.                     oldmsec = TIMER
401.                     sc = sc + 10
402.                     sc$ = STR$(sc)
403.                     players$ = STR$(players)
404.                     _TITLE "Score: " + sc$ + "    Players: " + players$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
405.                 END IF
406.             NEXT cc
407.         END IF
408.     NEXT wxx
409. NEXT wyy
410. IF co2 = 0 AND levers = 0 THEN
411.     level = level + 1
412.     co = 0
413.     level$ = STR$(level)
414.     _TITLE "Score: " + sc$ + "   Level: " + level$ + "       Arrow Keys To Move, Esc or Q To Quit."
415.     GOTO level:
416. END IF
417. RETURN
418.  
419. you:
420. _LIMIT 3000
421. oldxx = xx
422. oldyy = yy
423. xx = xx + drx
424. yy = yy + dry
425.  
426. IF xx < 5 THEN xx = 5
427. IF xx > 795 THEN xx = 795
428. IF yy < 15 THEN yy = 15
429. IF yy > 595 THEN yy = 595
430.  
431. 'Check to see if you hit the walls.
432. FOR wx = -1 TO INT(h / 3)
433.     FOR wy = -1 TO INT(h / 3)
434.         IF POINT(xx + wx, yy + wy) = _RGB32(col1, col2, col3) THEN
435.             yy = oldyy: xx = oldxx
436.             RETURN
437.         END IF
438.     NEXT wy
439. NEXT wx
440.  
441. 'Erase and draw you.
442. LINE (oldxx, oldyy)-(oldxx + INT(h / 3), oldyy + INT(h / 3)), _RGB32(0, 0, 0), BF
443. LINE (xx, yy)-(xx + INT(h / 3), yy + INT(h / 3)), _RGB32(0, 255, 0), BF
444. LINE (xx, yy)-(xx + INT(h / 3), yy + 3), _RGB32(139, 116, 105), BF
445.  
446. ex1 = (xx + (INT(h / 3) / 2) / 2)
447. ex2 = (xx + (INT(h / 3) / 2) / .65)
448. ey = (yy + (INT(h / 3) / 2) / 2)
449. mx = (xx + (INT(h / 3) / 2))
450. my = (yy + (INT(h / 2.2) / 2))
451. ny = (yy + (h / 2.85) / 2)
452.  
453. CIRCLE (ex1, ey), 2, _RGB32(0, 127, 255)
454. PAINT (ex1, ey), _RGB32(0, 127, 255)
455. CIRCLE (ex2, ey), 2, _RGB32(0, 127, 255)
456. PAINT (ex2, ey), _RGB32(0, 127, 255)
457.  
458. IF mouth = 1 THEN GOTO skip3:
459. CIRCLE (mx, my), 2.5, _RGB32(0, 0, 0)
460. PAINT (mx, my), _RGB32(0, 0, 0)
461. skip3:
462. IF mouth = 1 THEN
463.     CIRCLE (mx, my), 2.5, _RGB32(254, 254, 254)
464.     PAINT (mx, my), _RGB32(254, 254, 254)
465.     msec = TIMER
466.     IF msec - oldmsec > .25 THEN mouth = 0
467. END IF
468.  
469. CIRCLE (mx, ny), 1.5, _RGB32(127, 128, 127)
470. PAINT (mx, ny), _RGB32(127, 128, 127)
471.  
472. IF h >= 55 THEN dl = .003
473. IF h < 55 THEN dl = .004
474. _DELAY dl
475. _DISPLAY
476. RETURN
477.  
478.  

Title: Re: Search-Man Game
Post by: bplus on September 01, 2019, 08:31:28 pm

Oh man you had an extra _putimage in there around 330, take it out, looks good then at least for the few seconds I watched.

Man you let the red guys go right through the walls!

For candy and levers, you have to track what's not eaten and redraw or _putimage what remains after the cls of _putimage of the maze& same loop, do all processing in ypur GOSUBS but do all the drawing and _putimages in main loop.

arrays candyX, candyY, candyEaten, leverX, leverY, leverGone, MonsterX, MonsterY

do
_putimage , maze&, 0
for i = 1 to Ncandy
if candyEaten = 0 then drawcandy candyX(i), candyY(i) or _PutImage (CandyX(i), candyY(i)), candy&, 0
next
for i = 1 to Nlevers
if leverGone = 0 then drawlever leverX(i), leverY(i) or _PutImage (leverX(i), leverY(i)), lever&, 0
next
for i = 1 to nRedSquares
drawRedSquares MonsterX(i), monsterY(i) or _putimage ( MonsterX(i), MonsterY(i) ), Monster&, 0
next
drawYou youX, youY

'process all updates to characters
Display
limit
loop

There! all your drawing is done in main loop

Setup candy, lever and monster allot like you did with Maze& on different sizes and specify (x, y) locations for _putimage to know where to put them on screen.

Title: Re: Search-Man Game
Post by: SierraKen on September 01, 2019, 10:26:22 pm

Thanks B+. I removed the unnecessary _PUTIMAGE and they move perfectly now! But I am worn out completely. I saved everything you wrote on your last post on a Notepad and will try to get to it sometime soon. But I can't promise anything. Working so hard with so little success on this lately has been a real downer. But I might try what you said sometime this week. Thanks again, at least I learned some things today with _PUTIMAGE. That can be used in an infinite amount of games and programs!

Title: Re: Search-Man Game
Post by: bplus on September 02, 2019, 08:58:27 am

Yeah, _PUTIMAGE is extremely powerful for applications.

You look at it in Wiki and cringe at it's complexity but 4 main elements in order

before 1st comma optional, if no spec then whole screen gets image
1. your specify the box for the destination, the specification is just like drawing a box with LINE
    (x, y)  < top left corner
    -         a dash
    (x + width, y + height)   or STEP(width, height)  (you can Step for top left (x, y) too)

before 2nd comma
2. the Source handle (LONG type best) = where your image is currently located, screen = 0

before 3rd comma
3. the Destination handle (LONG type best) = where you want image to go, on screen or into image container

last after 3rd comma
4. the part of source (like a box on a screen again) you want to store or move to destination

It looks complicated but you can take any part (rectangle) of a source and fit it into any part (rectangle) in the destination area it is automatically sized.

_PUTIMAGE is like a moving van of images, pickup and install as you specify. Pickup is Source, Deliver is Destination, 1 and 4 specify the exact room locations at Pickup or Delivery.

Title: Re: Search-Man Game
Post by: SierraKen on September 02, 2019, 12:33:09 pm

Thanks, with my very bad short term memory problems, that just went through one eye and out the other. So I put it on a Notepad. I learn from experience so I have to use this many times to get the hang of it.

Title: Re: Search-Man Game
Post by: bplus on September 02, 2019, 01:13:14 pm

Absolutely, without practice nothing sticks. You can do it, you have the will!

Text Only | Text with Attachments