Here a simple engine for game 2D with horizontal and vertical scrolling

[TempodiBasic]

Hi guys
Some times ago following this thread I arrived at this position https://www.qb64.org/forum/index.php?topic=1077.msg102890#msg102890
Just some days after it I found a bug in images manager if user presses continuosly the key without releasing it (the character stucks into a image). Here attached there is the fixing of that problem.
It is a demo of game engine with tecnique of scrolling horizontal for movement to right or to left of character, and scrolling vertical if character jumps.  In the 7zip file attached there are images for graphic demo and the .BAS

Thanks to take a look.

[bplus]

Looks nice image and action. When there is a jump while moving in a direction, it would look better if the character continued moving in direction after the jump and during the jump should still be moving in the direction going.

[Ashish]

Nice! Graphics are pleasing to eyes. :)

[TempodiBasic]

Hy guys
 thanks to try

about Graphic
-->we give to Caesar what is of Caesar... I use the images of thread linked.

-->About movement it's mine developed following the above linked thread... in fact the title of this thread is a simple engine for .....

@bplus
about jumping....
if jumping must be directional I'll implement 3 cases jumping going to left, jumping going to right and jumping only high
but to get a good action I'll need to remove INKEY$ and use _KEYHIT and _KEYDOWN to execute the three different
commands  W+A,  W+D or only W. (so for  now there is only W command in execution)
And if you find more suitable to continue the action in execution before to jump... it is possible with no efforts, but this feature is implemented in some games while no in others, moreover I have seen game in which the character starts with an action and in air he can change this (for example it starts moving to left and while jumping it can stop in air or turn to right and vice versa until character is jumping)

Thanks for feedbacks
I'll try to go on quickly with your requests

[TempodiBasic]

Et voilà!
1. for now character can be moved by AWSD and cursors,
2. jumping moving in the original direction
3. it continues to move in original direction after jump

Code: QB64: [Select]

1. '2020 03 18  posting this demo at  forum QB64
2. ' I have had some suggestions among these
3. ' 1---jumping directional with the starting movement
4. ' 2---continue the action of starting movement made before to jump
5.  
6. '--------------
7. ' 2019 03 02
8. ' TempodiBasic modification to demonstrate
9. ' an one loop game engine for
10. ' action in a scrolling world
11. ' scrolling to left  and to right for walking
12. ' scrolling up to jump
13.  
14. 'original idea from:
15. 'Prithak Adhikari
16. 'Saugat Adhikari
17. '---------------------------
18. 'A Project From
19. '2/16/2019
20. 'To
21. '-
22. '---------------------------
23. 'This project was created for
24. 'us to collaborate with a game
25. 'that we dreamt to made for
26. 'some time!
27.  
28. ' variable and constants declarations
29. CONST HalfWImage = 50, HImage = 100, MaxJump = 100, Cstep = 5
30. DIM idle&(15) 'array for idle images
31. DIM walk&(15) ' array for walk image
32. DIM jump&(15) 'array for jump image
33. DIM bg AS LONG ' background handle
34. DIM minJump AS INTEGER, i AS INTEGER
35. DIM y AS INTEGER, x AS INTEGER, ic AS INTEGER, Type$, cx AS INTEGER
36. DIM a AS INTEGER, k AS INTEGER, OldType$
37.  
38. SCREEN _NEWIMAGE(800, 600, 32) ' screen initialization
39. _TITLE "Horizontal and Vertical scrolling"
40. ' variables initialization
41. minJump = INT(MaxJump / 15) 'vertical step unit = MaxJump DIV numframeSequence
42. x = 0 'starter X of character
43. y = 500 'starter Y of character
44. ic = 1 'starter direction
45. cx = 0 ' starter X correction to avoid flip effect changing direction of movement
46. i = 0 'index for arrays
47. Type$ = "idle" ' default command of character
48. a = 0 ' index of image to display
49. bgx = 0 'left background
50. bgy = 0 'up background
51. bgx2 = 800 'right backgorund
52. bgy2 = 600 ' bottom background
53.  
54. ' images initialization
55. bg = _LOADIMAGE("rpg/tileset/bg/bg.png") ' background file
56. IF bg > 0 THEN PRINT "Error loading bg.pgn" 'it test if file is loaded
57. FOR i = 1 TO 15 ' this FOR loads images of idle of character
58.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
59.     IF idle&(i) > 0 THEN PRINT "Error loading  idle(" + LTRIM$(STR$(i)) + ").png"
60. NEXT i
61. FOR i = 1 TO 15 'this FOR loads images of walk of character
62.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
63.     IF walk&(i) > 0 THEN PRINT "Error loading  walk(" + LTRIM$(STR$(i)) + ").png"
64. NEXT i
65. FOR i = 1 TO 15 ' this FOR loads images of jump of character
66.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
67.     IF jump&(i) > 0 THEN PRINT "Error loading  jump(" + LTRIM$(STR$(i)) + ").png"
68. NEXT i
69.  
70. ' main loop
71. DO
72.  
73.     k = _KEYHIT 'this is input manager
74.  
75.     ' this is command manager
76.     IF NOT k = 0 THEN
77.  
78.         IF (k = 65 OR k = 97 OR k = 19200) AND Type$ <> "lwalk" THEN ' if user press A or a and char is not leftwalk
79.             Type$ = "lwalk" ' command for  engine executor
80.             IF ic = 1 THEN cx = -HalfWImage
81.             ic = -1
82.             a = 0
83.         END IF
84.         IF (k = 68 OR k = 100 OR k = 19712) AND Type$ <> "rwalk" THEN ' if user press D or d and char is not rightwalk
85.             Type$ = "rwalk"
86.             IF ic = -1 THEN cx = 0
87.             ic = 1
88.             a = 0
89.         END IF
90.         IF (k = 87 OR k = 119 OR k = 18432) AND Type$ <> "jump" THEN ' if user press W or w and char is not jumping
91.             OldType$ = Type$
92.             Type$ = "jump": a = 0
93.         END IF
94.         IF (k = 83 OR k = 115 OR k = 20480) AND Type$ <> " idle" THEN ' if user press S or s and char is not idle
95.             Type$ = "idle": a = 0
96.         END IF
97.         IF k = 27 THEN END ' hotkey to quit
98.     END IF
99.  
100.     ' this is command executor
101.     IF a < 15 THEN a = a + 1 ELSE a = 1 'this calculates frame to use
102.     IF Type$ = "jump" THEN
103.         IF a < 7 THEN ' this calculates movement towards sky
104.             dy = dy + minJump
105.             IF dy > MaxJump THEN dy = MaxJump
106.         ELSE ' this calculates movement towards hearth
107.             dy = dy - minJump
108.             IF dy < 0 THEN dy = 0
109.             IF a = 15 THEN Type$ = OldType$
110.         END IF
111.         x = x + Cstep * -ic ' this lets movement of character
112.     END IF
113.     '  -ic because background goes in direction opposite to walking
114.     IF Type$ = "lwalk" OR Type$ = "rwalk" THEN x = x + Cstep * -ic
115.     IF x > 795 THEN x = 5 ' x cycle in the range of visible 5-795
116.     IF x < 5 THEN x = 795
117.  
118.     ' output screen manager
119.  
120.     ' this create level background
121.     ' this creates a background with 3 panel
122.     '    |left|central|right|
123.     'in this manner you can cover space left to left or right from scrolling central panel
124.     ' at time 0 where x = 0 bgx =0 bgx2 = 800
125.     _PUTIMAGE (bgx + x, bgy + dy)-(bgx2 + x, bgy2 + dy), bg ' central panel
126.     _PUTIMAGE (-bgx2 + x, bgy + dy)-(bgx + x, bgy2 + dy), bg ' left panel
127.     _PUTIMAGE (bgx2 + x, bgy + dy)-((2 * bgx2) + x, bgy2 + dy), bg ' right panel
128.  
129.  
130.     ' manager of image set by command
131.     IF Type$ = "idle" THEN
132.         ' HalfWImage let us to use x position as center of the image
133.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), idle&(a)
134.     ELSEIF Type$ = "lwalk" OR Type$ = "rwalk" THEN
135.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), walk&(a)
136.     ELSEIF Type$ = "jump" THEN
137.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), jump&(a)
138.     END IF
139.  
140.     ' frame rate
141.     _LIMIT 30
142.     _DISPLAY
143. LOOP
144.  

the next step will be to jump changing direction while is on air  OR perform 3 kind of jumps using 3 different combokeys.
Let me know what do you think is better or do you prefer.
Thanks to watch.

[bplus]

That was quick! I imagine if you are turning when you start jump then you can continue turning in air but can't start turning in mid air unless you want really cool game effect! ;)

[TempodiBasic]

Hi guys
here an update following the suggestion of Bplus
now character can jump and turn in air to left or to right and after landing he continues to walk in the last direction choosen

Code: QB64: [Select]

1. ' 2020 03 19
2. '  Update now character can turn himself in air and when he lands he walks in the last direction choosen
3. ' to be more visible this last feature I have doubled the space that he jumps adjusting the variables and adding a flag
4. ' and more control on setting variables
5.  
6. ' 2020 03 19
7. ' a little bug, you you turn character while he is jumping the bottom Y
8. ' of the character increases letting walk in air him :-)
9.  
10.  
11. '2020 03 18  posting this demo at  forum QB64
12. ' I have had some suggestions among these
13. ' 1---jumping directional with the starting movement
14. ' 2---continue the action of starting movement made before to jump
15.  
16. '--------------
17. ' 2019 03 02
18. ' TempodiBasic modification to demonstrate
19. ' an one loop game engine for
20. ' action in a scrolling world
21. ' scrolling to left  and to right for walking
22. ' scrolling up to jump
23.  
24. 'original idea from:
25. 'Prithak Adhikari
26. 'Saugat Adhikari
27. '---------------------------
28. 'A Project From
29. '2/16/2019
30. 'To
31. '-
32. '---------------------------
33. 'This project was created for
34. 'us to collaborate with a game
35. 'that we dreamt to made for
36. 'some time!
37.  
38. ' variable and constants declarations
39. CONST HalfWImage = 50, HImage = 100, MaxJump = 200, Cstep = 5
40. DIM idle&(15) 'array for idle images
41. DIM walk&(15) ' array for walk image
42. DIM jump&(15) 'array for jump image
43. DIM bg AS LONG ' background handle
44. DIM minJump AS INTEGER, i AS INTEGER
45. DIM y AS INTEGER, x AS INTEGER, ic AS INTEGER, TYPE$, cx AS INTEGER
46. DIM a AS SINGLE, k AS INTEGER, OldType$, jumping AS INTEGER
47.  
48. SCREEN _NEWIMAGE(800, 600, 32) ' screen initialization
49. _TITLE "Horizontal and Vertical scrolling"
50. ' variables initialization
51. minJump = INT(MaxJump / 15) 'vertical step unit = MaxJump DIV numframeSequence
52. x = 0 'starter X of character
53. y = 500 'starter Y of character
54. ic = 1 'starter direction
55. cx = 0 ' starter X correction to avoid flip effect changing direction of movement
56. i = 0 'index for arrays
57. TYPE$ = "idle" ' default command of character
58. a = 0.5 ' index of image to display
59. jumping = 0 ' no jump at start
60. bgx = 0 'left background
61. bgy = 0 'up background
62. bgx2 = 800 'right backgorund
63. bgy2 = 600 ' bottom background
64.  
65. ' images initialization
66. bg = _LOADIMAGE("rpg/tileset/bg/bg.png") ' background file
67. IF bg > 0 THEN PRINT "Error loading bg.pgn" 'it test if file is loaded
68. FOR i = 1 TO 15 ' this FOR loads images of idle of character
69.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
70.     IF idle&(i) > 0 THEN PRINT "Error loading  idle(" + LTRIM$(STR$(i)) + ").png"
71. NEXT i
72. FOR i = 1 TO 15 'this FOR loads images of walk of character
73.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
74.     IF walk&(i) > 0 THEN PRINT "Error loading  walk(" + LTRIM$(STR$(i)) + ").png"
75. NEXT i
76. FOR i = 1 TO 15 ' this FOR loads images of jump of character
77.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
78.     IF jump&(i) > 0 THEN PRINT "Error loading  jump(" + LTRIM$(STR$(i)) + ").png"
79. NEXT i
80.  
81. ' main loop
82. DO
83.  
84.     k = _KEYHIT 'this is input manager
85.  
86.     ' this is command manager
87.     IF NOT k = 0 THEN
88.  
89.         IF (k = 65 OR k = 97 OR k = 19200) AND TYPE$ <> "lwalk" THEN ' if user press A or a and char is not leftwalk
90.             TYPE$ = "lwalk" ' command for  engine executor
91.             IF ic = 1 THEN cx = -HalfWImage
92.             ic = -1
93.             IF NOT jumping THEN a = 0.5
94.         END IF
95.         IF (k = 68 OR k = 100 OR k = 19712) AND TYPE$ <> "rwalk" THEN ' if user press D or d and char is not rightwalk
96.             TYPE$ = "rwalk"
97.             IF ic = -1 THEN cx = 0
98.             ic = 1
99.             IF NOT jumping THEN a = 0.5
100.         END IF
101.         IF (k = 87 OR k = 119 OR k = 18432) AND TYPE$ <> "jump" THEN ' if user press W or w and char is not jumping
102.             OldType$ = TYPE$
103.             TYPE$ = "jump": a = 0.5
104.         END IF
105.         IF (k = 83 OR k = 115 OR k = 20480) AND TYPE$ <> " idle" THEN ' if user press S or s and char is not idle
106.             TYPE$ = "idle": a = 0.5
107.         END IF
108.         IF k = 27 THEN END ' hotkey to quit
109.     END IF
110.  
111.     ' this is command executor
112.     IF a < 15 THEN a = a + .5 ELSE a = .5 'this calculates frame to use
113.     IF TYPE$ = "jump" AND jumping = 0 THEN jumping = -1
114.     IF jumping THEN
115.         IF a < 7 THEN ' this calculates movement towards sky
116.             dy = dy + minJump
117.             IF dy > MaxJump THEN dy = MaxJump
118.         ELSE ' this calculates movement towards hearth
119.             dy = dy - minJump
120.             IF dy < 0 THEN dy = 0: jumping = 0
121.             IF a = 15 THEN TYPE$ = OldType$: jumping = 0
122.         END IF
123.         x = x + Cstep * -ic ' this lets movement of character
124.     END IF
125.     '  -ic because background goes in direction opposite to walking
126.     IF TYPE$ = "lwalk" OR TYPE$ = "rwalk" THEN x = x + Cstep * -ic
127.     IF jumping = -1 THEN TYPE$ = "jump"
128.     IF x > 795 THEN x = 5 ' x cycle in the range of visible 5-795
129.     IF x < 5 THEN x = 795
130.  
131.     ' output screen manager
132.  
133.     ' this create level background
134.     ' this creates a background with 3 panel
135.     '    |left|central|right|
136.     'in this manner you can cover space left to left or right from scrolling central panel
137.     ' at time 0 where x = 0 bgx =0 bgx2 = 800
138.     _PUTIMAGE (bgx + x, bgy + dy)-(bgx2 + x, bgy2 + dy), bg ' central panel
139.     _PUTIMAGE (-bgx2 + x, bgy + dy)-(bgx + x, bgy2 + dy), bg ' left panel
140.     _PUTIMAGE (bgx2 + x, bgy + dy)-((2 * bgx2) + x, bgy2 + dy), bg ' right panel
141.  
142.  
143.     ' manager of image set by command
144.  
145.     b = _CEIL(a)
146.     IF TYPE$ = "idle" THEN
147.         ' HalfWImage let us to use x position as center of the image
148.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), idle&(b)
149.     ELSEIF TYPE$ = "lwalk" OR TYPE$ = "rwalk" THEN
150.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), walk&(b)
151.     ELSEIF TYPE$ = "jump" THEN
152.         _PUTIMAGE ((350 + cx) - HalfWImage * ic, y)-((350 + cx) + HalfWImage * ic, y + HImage), jump&(b)
153.     END IF
154.  
155.  
156.     ' frame rate
157.     _LIMIT 30
158.     _DISPLAY
159. LOOP
160.  

Thanks to try

PS about graphic of the game I have found the origin... here https://www.gameart2d.com/freebies.html# you'll find character set and tileset.

[bplus]

Hi TempodiBasic, I think you nailed it!