How to make a player jump in ONE LOOP!

[TempodiBasic]

@Prithak

  it just goes downwards and not upwards. 

I am hungry so also in this time I have eaten something...
this in the section jump after DeltaY calculation

Code: QB64: [Select]

1.  IF DeltaY < 0 THEN DeltaY = 0 '<-- newline

I must be sure that it is positive or max 0
:-)

[TempodiBasic]

@ _vince

Hey but you have got a bigger boy ! :-)
Cool
and the horizontal scrolling by _PUTIMAGE is fine!

Thanks
I would have time to develop also vertical scrolling, but I need some free time  so we see after some days.
Thanks again to capture my imagination!

[Prithak]

This is a true sidescroller variant where the character remains stationary while the background moves. You can add obstacles and items based on value of variable x to create your map.

You are welcome to use the code as you wish

Edit: Hope I didn't just do your homework, careful submitting any code you did not write - review the policy on that

Code: QB64: [Select]

1. 'Prithak Adhikari
2. 'Saugat Adhikari
3. '---------------------------
4. 'A Project From
5. '2/16/2019
6. 'To
7. '-
8. '---------------------------
9. 'This project was created for
10. 'us to collaborate with a game
11. 'that we dreamt to made for
12. 'some time!
13. SCREEN _NEWIMAGE(800, 600, 32)
14. DIM idle&(15)
15. DIM walk&(15)
16. DIM jump&(15)
17. DIM bg AS LONG
18.  
19. bg = _LOADIMAGE("rpg/tileset/BG/BG.png")
20. y = 500
21. ic = 1
22. FOR i = 1 TO 15
23.     idle&(i) = _LOADIMAGE("rpg/char/Idle (" + LTRIM$(STR$(i)) + ").png")
24. NEXT i
25. FOR i = 1 TO 15
26.     walk&(i) = _LOADIMAGE("rpg/char/Walk (" + LTRIM$(STR$(i)) + ").png")
27. NEXT i
28. FOR i = 1 TO 15
29.     jump&(i) = _LOADIMAGE("rpg/char/Jump (" + LTRIM$(STR$(i)) + ").png")
30. NEXT i
31. i = 0
32. type$ = "Idle"
33. bgx = 0
34. bgy = 0
35. bgx2 = 800
36. bgy2 = 600
37.  
38. t = 0
39. direction = 1
40. base_y = y-100
41. y = base_y
42. jump = 0
43. jump_i = 0
44. DO
45.     CLS
46.     k$ = UCASE$(INKEY$)
47.         if x>=0 then
48.                 _PUTIMAGE (bgx-(x) mod 800, 0)-step(800,600), bg
49.                 _PUTIMAGE (bgx-(x) mod 800+800, 0)-step(800,600), bg
50.         else
51.                 _PUTIMAGE (bgx+abs(x) mod 800, 0)-step(800,600), bg
52.                 _PUTIMAGE (bgx+abs(x) mod 800-800, 0)-step(800,600), bg
53.         end if
54.  
55.         t = t + 1
56.         if _keydown(19200) then
57.                 x = x - 10
58.                 if direction = 1 then direction = direction * -1
59.         end if
60.         if _keydown(19712) then
61.                 x = x + 10
62.                 if direction = -1 then direction = direction * -1
63.         end if
64.         if _keydown(18432) and jump = 0 then
65.                 'start jump sequence
66.                 jump_i = 5
67.                 jump = 1
68.         end if
69.  
70.  
71.         if jump then
72.                 if jump_i > 0 then
73.                         jump_i = jump_i - 1
74.                         y = y - 20
75.                 else
76.                         y = y + vy
77.                         vy = vy + 0.8
78.                 end if
79.  
80.                 if y >= base_y then
81.                         y = base_y
82.                         vy = 0
83.                         jump = 0
84.                 end if
85.  
86.                 if direction = 1 then
87.                         _PUTIMAGE (350, y-30)-(350 + direction*200, y + 200), jump&(7)
88.                 elseif direction = -1 then
89.                         _PUTIMAGE (350 + 100, y-15)-(350 + 100 + direction*200, y + 200), jump&(7)
90.                 end if
91.         else
92.                 if _keydown(19200) or _keydown(19712) then
93.                         if direction = 1 then
94.                                 _PUTIMAGE (350, y)-(350 + direction*200, y + 200), walk&(t mod 15 + 1)
95.                         elseif direction = -1 then
96.                                 _PUTIMAGE (350 + 100, y)-(350 + 100 + direction*200, y + 200), walk&(t mod 15 + 1)
97.                         end if
98.                 else
99.                         if direction = 1 then
100.                                 _PUTIMAGE (350, y)-(350 + direction*200, y + 200), idle&(t mod 15 + 1)
101.                         elseif direction = -1 then
102.                                 _PUTIMAGE (350 + 100, y)-(350 + 100 + direction*200, y + 200), idle&(t mod 15 + 1)
103.                         end if
104.                 end if
105.         end if
106.  
107.     _LIMIT 30
108.     _DISPLAY
109. LOOP until _keyhit=27
110.  
111.  

Thanks for making this _Vince xD. No, I am not like flat on CHR$(3) + CHR$(22) it, but referencing it and making something of my own out of it :D. (i hope you see what I did there xD).
- Prithak

[TempodiBasic]

Hi guys
Hi Prithak

Thanks to Vince's demo that rose up my imagination after a battle with _PUTIMAGE that is very powerful but you must enter in the idea of the function here my version of walking suggested by Vince and horizontal scrolling and horizontal plus vertical scrolling

Code: QB64: [Select]

1. 'Prithak Adhikari
2. 'Saugat Adhikari
3. '---------------------------
4. 'A Project From
5. '2/16/2019
6. 'To
7. '-
8. '---------------------------
9. 'This project was created for
10. 'us to collaborate with a game
11. 'that we dreamt to made for
12. 'some time!
13.  
14. ' variable and constants declarations
15. CONST HalfWImage = 50, HImage = 100, MaxJump = 50, Cstep = 5
16. DIM idle&(15)
17. DIM walk&(15)
18. DIM jump&(15)
19. DIM bg AS LONG
20. DIM minJump AS INTEGER, i AS INTEGER
21. DIM y AS INTEGER, x AS INTEGER, ic AS INTEGER, type$
22.  
23. SCREEN _NEWIMAGE(800, 600, 32) ' screen initialization
24. _TITLE "Continuosly walking"
25. ' variables initialization
26. minJump = INT(MaxJump / 7) 'vertical step unit = numframeSequence DIV 2
27. x = 90 'starter X of character
28. y = 500 'starter Y of character
29. ic = 1 'starter direction
30. i = 0
31. type$ = "idle"
32. bgx = 0
33. bgy = 0
34. bgx2 = 800
35. bgy2 = 600
36.  
37. ' images initialization
38. bg = _LOADIMAGE("rpg/tileset/bg/bg.png")
39. IF bg > 0 THEN PRINT "Error loading bg.pgn"
40. FOR i = 1 TO 15
41.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
42.     IF idle&(i) > 0 THEN PRINT "Error loading  idle(" + LTRIM$(STR$(i)) + ").png"
43. NEXT i
44. FOR i = 1 TO 15
45.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
46.     IF walk&(i) > 0 THEN PRINT "Error loading  walk(" + LTRIM$(STR$(i)) + ").png"
47. NEXT i
48. FOR i = 1 TO 15
49.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
50.     IF jump&(i) > 0 THEN PRINT "Error loading  jump(" + LTRIM$(STR$(i)) + ").png"
51. NEXT i
52.  
53. ' main loop
54. DO
55.  
56.     k$ = UCASE$(INKEY$) 'this is input manager
57.  
58.     ' this is command manager
59.     IF NOT k$ = "" THEN
60.         IF k$ = "A" THEN
61.             type$ = "lwalk"
62.             IF ic = 1 THEN x = x + HalfWImage * -ic
63.             ic = -1
64.         END IF
65.         IF k$ = "D" THEN
66.             type$ = "rwalk"
67.             IF ic = -1 THEN x = x + HalfWImage * -ic
68.             ic = 1
69.         END IF
70.         IF k$ = "W" THEN type$ = "jump"
71.         IF k$ = "S" THEN type$ = "idle"
72.         IF k$ = CHR$(27) THEN END ' hotkey to quit
73.     END IF
74.  
75.     ' this is command executor
76.     IF a < 15 THEN a = a + 1 ELSE a = 1 'this calculates frame to use
77.     IF type$ = "jump" THEN
78.         IF a < 7 THEN ' this calculates movement toward sky
79.             dy = dy + minJump
80.             IF dy > MaxJump THEN dy = MaxJump
81.         ELSE
82.             dy = dy - minJump
83.             IF dy < 0 THEN dy = 0
84.             IF a = 15 THEN type$ = "idle"
85.         END IF
86.     END IF
87.     IF type$ = "lwalk" OR type$ = "rwalk" THEN x = x + Cstep * ic
88.  
89.  
90.     _PUTIMAGE (bgx, bgy)-(bgx2, bgy2), bg ' this create level background
91.  
92.     ' manager of image set by command
93.     IF type$ = "idle" THEN
94.         ' HalfWImage let us to use x position as center of the image
95.         _PUTIMAGE (x - HalfWImage * ic, y)-(x + HalfWImage * ic, y + HImage), idle&(a)
96.     ELSEIF type$ = "lwalk" OR type$ = "rwalk" THEN
97.         _PUTIMAGE (x - HalfWImage * ic, y)-(x + HalfWImage * ic, y + HImage), walk&(a)
98.     ELSEIF type$ = "jump" THEN
99.         _PUTIMAGE (x - HalfWImage * ic, y - dy)-(x + HalfWImage * ic, y + HImage - dy), jump&(a)
100.     END IF
101.  
102.     ' debug manager
103.     LOCATE 1, 1: PRINT x; y; type$
104.  
105.     ' output screen manager
106.     _LIMIT 30
107.     _DISPLAY
108. LOOP
109.  

running it you can  appreciate the difference of input method that is just a bit more delayed  than _KEYDOWN  :-)

Here Horizontal scrolling idea

Code: QB64: [Select]

1. 'Prithak Adhikari
2. 'Saugat Adhikari
3. '---------------------------
4. 'A Project From
5. '2/16/2019
6. 'To
7. '-
8. '---------------------------
9. 'This project was created for
10. 'us to collaborate with a game
11. 'that we dreamt to made for
12. 'some time!
13.  
14. ' variable and constants declarations
15. CONST HalfWImage = 50, HImage = 100, MaxJump = 100, Cstep = 5
16. DIM idle&(15)
17. DIM walk&(15)
18. DIM jump&(15)
19. DIM bg AS LONG
20. DIM minJump AS INTEGER, i AS INTEGER
21. DIM y AS INTEGER, x AS INTEGER, ic AS INTEGER, type$, cx AS INTEGER
22.  
23. SCREEN _NEWIMAGE(800, 600, 32) ' screen initialization
24.  
25. ' variables initialization
26. minJump = INT(MaxJump / 15) 'vertical step unit = MaxJump DIV numframeSequence
27. x = 0 'starter X of character
28. y = 500 'starter Y of character
29. ic = 1 'starter direction
30. cx = 0 ' starter X correction to avoid flip effect changing direction of movement
31. i = 0
32. type$ = "idle"
33. bgx = 0
34. bgy = 0
35. bgx2 = 800
36. bgy2 = 600
37.  
38. ' images initialization
39. bg = _LOADIMAGE("rpg/tileset/bg/bg.png")
40. IF bg > 0 THEN PRINT "Error loading bg.pgn"
41. FOR i = 1 TO 15
42.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
43.     IF idle&(i) > 0 THEN PRINT "Error loading  idle(" + LTRIM$(STR$(i)) + ").png"
44. NEXT i
45. FOR i = 1 TO 15
46.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
47.     IF walk&(i) > 0 THEN PRINT "Error loading  walk(" + LTRIM$(STR$(i)) + ").png"
48. NEXT i
49. FOR i = 1 TO 15
50.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
51.     IF jump&(i) > 0 THEN PRINT "Error loading  jump(" + LTRIM$(STR$(i)) + ").png"
52. NEXT i
53.  
54. ' main loop
55. DO
56.  
57.     k$ = UCASE$(INKEY$) 'this is input manager
58.  
59.     ' this is command manager
60.     IF NOT k$ = "" THEN
61.         a = 0
62.         IF k$ = "A" THEN
63.             type$ = "lwalk"
64.             IF ic = 1 THEN cx = -HalfWImage
65.             ic = -1
66.         END IF
67.         IF k$ = "D" THEN
68.             type$ = "rwalk"
69.             IF ic = -1 THEN cx = 0
70.             ic = 1
71.         END IF
72.         IF k$ = "W" THEN type$ = "jump"
73.         IF k$ = "S" THEN type$ = "idle"
74.         IF k$ = CHR$(27) THEN END ' hotkey to quit
75.     END IF
76.  
77.     ' this is command executor
78.     IF a < 15 THEN a = a + 1 ELSE a = 1 'this calculates frame to use
79.     IF type$ = "jump" THEN
80.         IF a < 7 THEN ' this calculates movement toward sky
81.             dy = dy + minJump
82.             IF dy > MaxJump THEN dy = MaxJump
83.         ELSE
84.             dy = dy - minJump
85.             IF dy < 0 THEN dy = 0
86.             IF a = 15 THEN type$ = "idle"
87.         END IF
88.     END IF
89.     '         -ic because background goes in direction opposite to walking
90.     IF type$ = "lwalk" OR type$ = "rwalk" THEN x = x + Cstep * -ic
91.     IF x > 795 THEN x = 5
92.     IF x < 5 THEN x = 795
93.  
94.     ' this create level background
95.     ' this creates a background with 3 panel
96.     '  |left|central|right|
97.     'in this manner you can cover space left to left or right from scrolling central panel
98.     ' at time 0 where x = 0 bgx =0 bgx2 = 800
99.     _PUTIMAGE (bgx + x, bgy)-(bgx2 + x, bgy2), bg ' central panel
100.     _PUTIMAGE (-bgx2 + x, bgy)-(bgx + x, bgy2), bg ' left panel
101.     _PUTIMAGE (bgx2 + x, bgy)-((2 * bgx2) + x, bgy2), bg ' right panel
102.  
103.  
104.     ' manager of image set by command
105.     IF type$ = "idle" THEN
106.         ' HalfWImage let us to use x position as center of the image
107.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), idle&(a)
108.     ELSEIF type$ = "lwalk" OR type$ = "rwalk" THEN
109.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), walk&(a)
110.     ELSEIF type$ = "jump" THEN
111.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y - dy)-((350 + cx) + HalfWImage * ic, y + HImage - dy), jump&(a)
112.     END IF
113.  
114.     ' output screen manager
115.     _LIMIT 30
116.     _DISPLAY
117. LOOP
118.  

and here Horizontal and Vertical scrolling together

Code: QB64: [Select]

1. 'Prithak Adhikari
2. 'Saugat Adhikari
3. '---------------------------
4. 'A Project From
5. '2/16/2019
6. 'To
7. '-
8. '---------------------------
9. 'This project was created for
10. 'us to collaborate with a game
11. 'that we dreamt to made for
12. 'some time!
13.  
14. ' variable and constants declarations
15. CONST HalfWImage = 50, HImage = 100, MaxJump = 100, Cstep = 5
16. DIM idle&(15)
17. DIM walk&(15)
18. DIM jump&(15)
19. DIM bg AS LONG
20. DIM minJump AS INTEGER, i AS INTEGER
21. DIM y AS INTEGER, x AS INTEGER, ic AS INTEGER, type$, cx AS INTEGER
22.  
23. SCREEN _NEWIMAGE(800, 600, 32) ' screen initialization
24. _TITLE "Vertical scrolling"
25. ' variables initialization
26. minJump = INT(MaxJump / 15) 'vertical step unit = MaxJump DIV numframeSequence
27. x = 0 'starter X of character
28. y = 500 'starter Y of character
29. ic = 1 'starter direction
30. cx = 0 ' starter X correction to avoid flip effect changing direction of movement
31. i = 0
32. type$ = "idle"
33. bgx = 0
34. bgy = 0
35. bgx2 = 800
36. bgy2 = 600
37.  
38. ' images initialization
39. bg = _LOADIMAGE("rpg/tileset/bg/bg.png")
40. IF bg > 0 THEN PRINT "Error loading bg.pgn"
41. FOR i = 1 TO 15
42.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
43.     IF idle&(i) > 0 THEN PRINT "Error loading  idle(" + LTRIM$(STR$(i)) + ").png"
44. NEXT i
45. FOR i = 1 TO 15
46.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
47.     IF walk&(i) > 0 THEN PRINT "Error loading  walk(" + LTRIM$(STR$(i)) + ").png"
48. NEXT i
49. FOR i = 1 TO 15
50.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
51.     IF jump&(i) > 0 THEN PRINT "Error loading  jump(" + LTRIM$(STR$(i)) + ").png"
52. NEXT i
53.  
54. ' main loop
55. DO
56.  
57.     k$ = UCASE$(INKEY$) 'this is input manager
58.  
59.     ' this is command manager
60.     IF NOT k$ = "" THEN
61.         a = 0
62.         IF k$ = "A" THEN
63.             type$ = "lwalk"
64.             IF ic = 1 THEN cx = -HalfWImage
65.             ic = -1
66.         END IF
67.         IF k$ = "D" THEN
68.             type$ = "rwalk"
69.             IF ic = -1 THEN cx = 0
70.             ic = 1
71.         END IF
72.         IF k$ = "W" THEN type$ = "jump"
73.         IF k$ = "S" THEN type$ = "idle"
74.         IF k$ = CHR$(27) THEN END ' hotkey to quit
75.     END IF
76.  
77.     ' this is command executor
78.     IF a < 15 THEN a = a + 1 ELSE a = 1 'this calculates frame to use
79.     IF type$ = "jump" THEN
80.         IF a < 7 THEN ' this calculates movement toward sky
81.             dy = dy + minJump
82.             IF dy > MaxJump THEN dy = MaxJump
83.         ELSE
84.             dy = dy - minJump
85.             IF dy < 0 THEN dy = 0
86.             IF a = 15 THEN type$ = "idle"
87.         END IF
88.     END IF
89.     '         -ic because background goes in direction opposite to walking
90.     IF type$ = "lwalk" OR type$ = "rwalk" THEN x = x + Cstep * -ic
91.     IF x > 795 THEN x = 5
92.     IF x < 5 THEN x = 795
93.  
94.     ' this create level background
95.     ' this creates a background with 3 panel
96.     '  |left|central|right|
97.     'in this manner you can cover space left to left or right from scrolling central panel
98.     ' at time 0 where x = 0 bgx =0 bgx2 = 800
99.     _PUTIMAGE (bgx + x, bgy + dy)-(bgx2 + x, bgy2 + dy), bg ' central panel
100.     _PUTIMAGE (-bgx2 + x, bgy + dy)-(bgx + x, bgy2 + dy), bg ' left panel
101.     _PUTIMAGE (bgx2 + x, bgy + dy)-((2 * bgx2) + x, bgy2 + dy), bg ' right panel
102.  
103.  
104.     ' manager of image set by command
105.     IF type$ = "idle" THEN
106.         ' HalfWImage let us to use x position as center of the image
107.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), idle&(a)
108.     ELSEIF type$ = "lwalk" OR type$ = "rwalk" THEN
109.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), walk&(a)
110.     ELSEIF type$ = "jump" THEN
111.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), jump&(a)
112.     END IF
113.  
114.     ' output screen manager
115.     _LIMIT 30
116.     _DISPLAY
117. LOOP
118.  

the 3 file.BAS are attached for those don't like to copy and paste into QB64IDE.

Thanks to read