Search-Man Game

[SierraKen]

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.  

[bplus]

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

[SierraKen]

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

[bplus]

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!

[SierraKen]

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.  

[bplus]

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.

[SierraKen]

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!

[bplus]

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.

[SierraKen]

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.

[bplus]

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