QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Prithak on April 14, 2019, 03:20:29 am

Title: Why is it not blocking?
Post by: Prithak on April 14, 2019, 03:20:29 am

Man, I've tried everything! It is not working!

Code: QB64: [Select]

1. 'First Prototype of my game project!
2. 'Never knew I would get this far!
3. 'A Special thanks to Petr, Pete, bplus, _vince, TempodiBasic, SMcNeil Let me know if I forgot your name here xD
4. '-Prithak
5.  
6. _TITLE "Japang!"
7. SCREEN _NEWIMAGE(800, 600, 32)
8. COLOR _RGB32(0, 0, 0), _RGB32(211, 211, 211)
9. CLS
10. DIM SHARED x AS INTEGER
11. DIM SHARED y AS INTEGER
12. DIM SHARED gravity AS SINGLE
13. DIM SHARED y_change AS SINGLE
14. DIM SHARED oldy AS SINGLE
15. DIM SHARED camx AS INTEGER
16. DIM SHARED camy AS INTEGER
17. DIM SHARED level AS INTEGER
18.  
19. main:
20. CLS
21. DO
22.     WHILE _MOUSEINPUT: WEND
23.     _PRINTSTRING (600, 100), "Japang!"
24.     _PRINTSTRING (600, 300), "Play"
25.     _PRINTSTRING (600, 350), "Help"
26.  
27.     _PRINTSTRING (600, 400), "Exit"
28.     LINE (570, 340)-(600 + LEN("help") * 16, 375), _RGB32(255, 255, 255), B
29.     LINE (570, 290)-(600 + LEN("play") * 16, 325), _RGB32(255, 255, 255), B
30.     LINE (570, 390)-(600 + LEN("exit") * 16, 425), _RGB32(255, 255, 255), B
31.     IF mouseclick(570, 290, 600 + LEN("play") * 16, 325) THEN
32.         game
33.     END IF
34.     IF mouseclick(570, 340, 600 + LEN("help") * 16, 375) THEN
35.         GOTO help
36.     END IF
37.     IF mouseclick(570, 290, 600 + LEN("exit") * 16, 425) THEN
38.         SYSTEM
39.     END IF
40.     _DISPLAY
41. LOOP
42.  
43. help:
44. CLS
45. PRINT "Use the arrow keys to move around!"
46. _DISPLAY
47. SLEEP
48. CLS
49. PRINT "Use the upper arrow key to jump!"
50. _DISPLAY
51. SLEEP
52. CLS
53. PRINT "Get to the green block for victory!"
54. _DISPLAY
55. SLEEP
56. CLS
57. PRINT "Touching any red blocks will kill you!"
58. _DISPLAY
59. SLEEP
60. GOTO main
61.  
62. SUB game
63. IF level = 2 THEN GOTO lvl2
64. IF level = 3 THEN GOTO lvl3
65. IF level = 4 THEN GOTO lvl4
66. IF level = 5 THEN GOTO lvl5
67. camx = 0
68. camy = 0
69. 'Just for testing!
70. x = 200
71. y = 200
72. gravity = 9.8
73. CLS
74. DO
75.     CLS
76.     makechar
77.     IF _KEYDOWN(19200) THEN
78.         x = x - 10
79.  
80.     END IF
81.     IF _KEYDOWN(19712) THEN
82.         x = x + 10
83.  
84.     END IF
85.     IF _KEYDOWN(18432) THEN
86.         jump_i = 1
87.     END IF
88.  
89.     IF jump_i = 1 AND y > 100 THEN
90.         y = y - 20
91.         cycle = cycle + 1
92.         IF cycle > 20 THEN cycle = 0: jump_i = -1
93.     END IF
94.  
95.     y = y + gravity
96.     'Blocks
97.     makeobs 100, 400
98.  
99.     LINE (500, 400)-STEP(200, 50), _RGB32(127, 255, 127), BF
100.     IF collision%(x, y, 20, 20, 500, 400, 200, 50) THEN
101.         CLS
102.         _PRINTSTRING (300, 300), "LEVEL 1 COMPLETE!"
103.         _DISPLAY
104.         _DELAY 2
105.         GOTO lvl2
106.         END
107.     END IF
108.     IF y > 600 THEN game
109.  
110.     _DISPLAY
111.     _LIMIT 60
112. LOOP
113.  
114. lvl2:
115. level = 2
116. x = 200
117. y = 400
118. DO
119.     CLS
120.     makechar
121.     IF _KEYDOWN(19200) THEN
122.         x = x - 10
123.  
124.     END IF
125.     IF _KEYDOWN(19712) THEN
126.         x = x + 10
127.  
128.     END IF
129.     IF _KEYDOWN(18432) THEN
130.         jump_i = 1
131.     END IF
132.  
133.     IF jump_i = 1 AND y > 100 THEN
134.         y = y - 20
135.         cycle = cycle + 1
136.         IF cycle > 20 THEN cycle = 0: jump_i = -1
137.     END IF
138.  
139.     y = y + gravity
140.  
141.     IF y > 600 THEN GOTO lvl2
142.     angle = angle + 5
143.  
144.     rotate _WIDTH / 2, _HEIGHT / 2, angle
145.  
146.  
147.     makeobs 100, 500
148.  
149.     makeobs 500, 500
150.  
151.     IF coins < 1 THEN
152.         CIRCLE (600, 480), 5, _RGB32(255, 255, 17)
153.         PAINT (600, 480), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
154.         IF collision%(x, y, 20, 20, 600, 480, 5, 5) THEN
155.             coins = coins + 1
156.         END IF
157.     END IF
158.  
159.     LINE (100, 300)-STEP(200, 50), _RGB32(127, 255, 127), BF
160.     IF collision%(x, y, 20, 20, 100, 300, 200, 50) THEN
161.         CLS
162.         _PRINTSTRING (300, 300), "LEVEL 2 COMPLETE!"
163.         _PRINTSTRING (300, 325), "Coins collected: " + STR$(coins)
164.         _DISPLAY
165.         _DELAY 2
166.         GOTO lvl3
167.         END
168.     END IF
169.  
170.     _DISPLAY
171.     _LIMIT 60
172. LOOP
173.  
174. lvl3:
175. level = 3
176. x = 100
177. y = 300
178. DO
179.     CLS
180.     makechar
181.  
182.     IF _KEYDOWN(19200) THEN
183.         x = x - 10
184.  
185.     END IF
186.     IF _KEYDOWN(19712) THEN
187.         x = x + 10
188.  
189.     END IF
190.     IF _KEYDOWN(18432) THEN
191.         jump_i = 1
192.     END IF
193.  
194.     IF jump_i = 1 AND y > 100 THEN
195.         y = y - 20
196.         cycle = cycle + 1
197.         IF cycle > 20 THEN cycle = 0: jump_i = -1
198.     END IF
199.  
200.     y = y + gravity
201.  
202.     IF coins < 2 THEN
203.         CIRCLE (650, 470), 5, _RGB32(255, 255, 17)
204.         PAINT (650, 470), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
205.         IF collision%(x, y, 20, 20, 650, 470, 5, 5) THEN
206.             coins = coins + 1
207.         END IF
208.     END IF
209.  
210.  
211.     makesobs 50, 500, 100, 50
212.  
213.     angle = angle + 5
214.  
215.     rotate _WIDTH / 2, 400, angle
216.     rotate _WIDTH / 2, 200, angle
217.  
218.     makesobs 600, 500, 100, 50
219.  
220.     LINE (100, 200)-STEP(200, 50), _RGB32(127, 255, 127), BF
221.     IF collision%(x, y, 20, 20, 100, 50, 200, 50) THEN
222.         CLS
223.         _PRINTSTRING (300, 300), "LEVEL 3 COMPLETE!"
224.         _PRINTSTRING (300, 325), "Total coins: " + STR$(coins)
225.         _DISPLAY
226.         _DELAY 2
227.         GOTO lvl4
228.         END
229.     END IF
230.  
231.     IF y > 600 THEN GOTO lvl3
232.  
233.     _DISPLAY
234.     _LIMIT 60
235. LOOP
236. lvl4:
237. level = 4
238. x = 100
239. y = 300
240. camx = 0
241. camy = 0
242. CLS
243. DO
244.     CLS
245.     makechar
246.  
247.     IF _KEYDOWN(19200) THEN
248.         x = x - 10
249.         camx = camx + 5
250.     END IF
251.     IF _KEYDOWN(19712) THEN
252.         x = x + 10
253.         camx = camx - 5
254.     END IF
255.     IF _KEYDOWN(18432) THEN
256.         jump_i = 1
257.     END IF
258.  
259.  
260.     IF jump_i = 1 AND y > 100 THEN
261.         y = y - 20
262.         camy = camy - 5
263.         cycle = cycle + 1
264.         IF cycle > 20 THEN cycle = 0: jump_i = -1
265.     END IF
266.  
267.     y = y + gravity
268.     camy = camy + 2
269.     _PRINTSTRING (0, 0), "Get used to the camera folks!"
270.     IF camy > 50 THEN camy = 50
271.  
272.  
273.     makeobs camx + 50, camy + 500
274.     makeredobs camx + 300, camy + 500
275.     makeobs camx + 550, camy + 500
276.     makeredobs camx + 800, camy + 500
277.  
278.     LINE (camx + 1050, camy + 500)-STEP(200, 50), _RGB32(127, 255, 127), BF
279.     IF collision%(x, y, 20, 20, camx + 1050, camy + 500, 200, 50) THEN
280.         CLS
281.         _PRINTSTRING (300, 300), "LEVEL 4 COMPLETE!"
282.         _DISPLAY
283.         _DELAY 2
284.         GOTO lvl5
285.         END
286.     END IF
287.  
288.     IF y > 600 THEN GOTO lvl4
289.  
290.     _LIMIT 60
291.     _DISPLAY
292. LOOP
293.  
294. lvl5:
295. level = 5
296. x = 200
297. y = 100
298. camx = 0
299. camy = 0
300. CLS
301. DO
302.     CLS
303.     makechar
304.  
305.     IF _KEYDOWN(19200) THEN
306.         x = x - 10
307.         camx = camx + 5
308.     END IF
309.     IF _KEYDOWN(19712) THEN
310.         x = x + 10
311.         camx = camx - 5
312.     END IF
313.     IF _KEYDOWN(18432) THEN
314.         jump_i = 1
315.     END IF
316.  
317.  
318.     IF jump_i = 1 AND y > 100 THEN
319.         y = y - 20
320.         camy = camy - 5
321.         cycle = cycle + 1
322.         IF cycle > 20 THEN cycle = 0: jump_i = -1
323.     END IF
324.  
325.     y = y + gravity
326.     camy = camy + 2
327.  
328.     IF camy > 50 THEN camy = 50
329.  
330.     makeobs camx + 50, camy + 500
331.     angle = angle + 5
332.     rotate camx + 350, camy + 450, angle
333.  
334.     makeobs camx + 500, camy + 400
335.     makeobs camx + 800, camy + 400
336.  
337.     IF y > 600 THEN GOTO lvl5
338.  
339.     _DISPLAY
340.     _LIMIT 60
341. LOOP
342.  
343. END SUB
344.  
345.  
346. SUB makechar
347. 'CIRCLE (x, y), 20, _RGB32(100, 150, 255)
348. 'PAINT (x, y), _RGB32(100, 150, 255), _RGB32(100, 150, 255)
349. LINE (x, y)-STEP(20, 20), _RGB32(100, 150, 255), BF
350. END SUB
351.  
352. FUNCTION collision% (b1x, b1y, b1w, b1h, b2x, b2y, b2w, b2h)
353. IF (b1y + b1h < b2y) OR (b1y > b2y + b2h) OR (b1x > b2x + b2w) OR (b1x + b1w < b2x) THEN
354.     collision% = 0
355. ELSE
356.     collision% = 1
357. END IF
358. END FUNCTION
359.  
360. SUB makeobs (bx, by)
361. LINE (bx, by)-STEP(200, 50), _RGB32(255, 150, 100), BF
362. IF collision%(x, y, 20, 20, bx, by, 200, 50) THEN
363.     y = oldy
364.     gravity = 0
365.     y_change = 0
366. ELSE
367.     oldy = y
368.     gravity = 9.8
369. END IF
370. END SUB
371.  
372. SUB makesobs (bx, by, w, h)
373. LINE (bx, by)-STEP(w, h), _RGB32(255, 150, 100), BF
374. IF collision%(x, y, 20, 20, bx, by, w, h) THEN
375.     y = oldy
376.     gravity = 0
377.     y_change = 0
378. ELSE
379.     oldy = y
380.     gravity = 9.8
381. END IF
382. END SUB
383.  
384. SUB makeredobs (bx, by)
385. LINE (bx, by)-STEP(200, 50), _RGB32(255, 0, 0), BF
386. IF collision(x, y, 20, 20, bx, by, 200, 50) THEN
387.     CLS
388.     _PRINTSTRING (300, 300), "GAME OVER!"
389.     _DISPLAY
390.     _DELAY 2
391.     game
392. END IF
393. END SUB
394. SUB rotate (px, py, deg)
395. px2 = px + COS(_D2R(deg)) * 100
396. py2 = py + SIN(_D2R(deg)) * 100
397.  
398. CIRCLE (px2, py2), 10, _RGB32(255, 0, 0)
399. PAINT (px2, py2), _RGB32(255, 0, 0), _RGB32(255, 0, 0)
400.  
401. LINE (px, py)-(px2, py2), _RGB32(0, 0, 0)
402.  
403. IF collision(x, y, 20, 20, px2, py2, 10, 10) THEN
404.     CLS
405.     _PRINTSTRING (300, 300), "GAME OVER!"
406.     _DISPLAY
407.     _DELAY 2
408.     game
409. END IF
410. END SUB
411.  
412. FUNCTION mouseclick (x1, y1, x2, y2)
413. mx = _MOUSEX
414. my = _MOUSEY
415. mb = _MOUSEBUTTON(1)
416.  
417. IF mx >= x1 AND mx <= x2 AND my >= y1 AND my <= y2 AND mb THEN
418.     mouseclick = 1
419. END IF
420. END FUNCTION

In the 5th level, why is the second obstacle not blocking the character?

Title: Re: Why is it not blocking?
Post by: Aurel on April 14, 2019, 05:46:19 am

well
Idea is not bad but you simply must slow down moving of player object.

Title: Re: Why is it not blocking?
Post by: bplus on April 14, 2019, 09:56:50 am

Scanning level 5 code:

Code: QB64: [Select]

1. lvl5:
2. level = 5
3. x = 200
4. y = 100
5. camx = 0
6. camy = 0
7. CLS
8. DO
9.     CLS
10.     makechar
11.  
12.     IF _KEYDOWN(19200) THEN
13.         x = x - 10
14.         camx = camx + 5
15.     END IF
16.     IF _KEYDOWN(19712) THEN
17.         x = x + 10
18.         camx = camx - 5
19.     END IF
20.     IF _KEYDOWN(18432) THEN
21.         jump_i = 1
22.     END IF
23.  
24.  
25.     IF jump_i = 1 AND y > 100 THEN
26.         y = y - 20
27.         camy = camy - 5
28.         cycle = cycle + 1
29.         IF cycle > 20 THEN cycle = 0: jump_i = -1
30.     END IF
31.  
32.     y = y + gravity
33.     camy = camy + 2
34.  
35.     IF camy > 50 THEN camy = 50
36.  
37.     makeobs camx + 50, camy + 500
38.     angle = angle + 5
39.     rotate camx + 350, camy + 450, angle
40.  
41.     makeobs camx + 500, camy + 400
42.     makeobs camx + 800, camy + 400   '<<<<<<<<<<<<<<<<<<<<<< x coord looks to be farther than screen x width = 800
43.  
44.     IF y > 600 THEN GOTO lvl5
45.  
46.     _DISPLAY
47.     _LIMIT 60
48. LOOP
49.  

I have commented a line where your makeobs camx looks too far right of screen width.  But I don't see collision check in level 5 either.

Text Only | Text with Attachments