How to make a player jump in ONE LOOP!

[Prithak]

Here's the code I built up for a project that my teacher gave me and my friend (He is not in this forum yet, cuz he doesn't have internet connection right now, but he will be soon!) to make a game! And I need to optimize it in order for it to run on his Core 2 Duo Computer (Like 100% same as mine lol). So, I needed to do this in ONE LOOP! So, here's my code for moving the character(Make sure to download the zip file!)

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. DO
38.     CLS
39.     k$ = UCASE$(INKEY$)
40.  
41.     _PUTIMAGE (bgx, bgy)-(bgx2, bgy2), bg
42.  
43.     IF k$ = "A" THEN type$ = "lwalk"
44.     IF k$ = "D" THEN type$ = "rwalk"
45.     IF k$ = "W" THEN type$ = "jump"
46.     IF k$ <> "W" THEN
47.         IF LEN(k$) = 0 THEN type$ = "idle"
48.     END IF
49.     IF type$ = "idle" THEN
50.         a = a + 1
51.         IF a > 15 THEN a = 1
52.         IF ic = 1 THEN
53.             _PUTIMAGE (x, y)-(x + 100, y + 100), idle&(a)
54.         ELSEIF ic = 2 THEN
55.             _PUTIMAGE (x + 100, y)-(x, y + 100), idle&(a)
56.         END IF
57.     ELSEIF type$ = "lwalk" THEN
58.         ic = 2
59.         b = b + 1
60.         IF b > 14 THEN b = 1: type$ = "idle"
61.         _PUTIMAGE (x + 100, y)-(x, y + 100), walk&(b)
62.         x = x - 5
63.     ELSEIF type$ = "rwalk" THEN
64.         ic = 1
65.         c = c + 1
66.         IF c > 14 THEN c = 1: type$ = "idle"
67.         _PUTIMAGE (x, y)-(x + 100, y + 100), walk&(c)
68.         x = x + 5
69.     END IF
70.     LOCATE 1, 1: PRINT x; y; type$
71.     _LIMIT 30
72.     _DISPLAY
73. LOOP
74.  

IF the player presses "W", it jumps!

[bplus]

Hi Prithak,

When I press w, it just blinks (a and d work).

Do you have a question? If not, I have one: How can you show a jump in only one loop? Wouldn't the character just end up down in new spot?  Opps, that's 2 questions ;)

[Petr]

Hi Prithak,

Nice graphics. Is that your own job? About the jump. The maximum jump height is frame 7, as I found out. So, for the animation to be smooth, you have to take the current time when you insert the first slide, that is, if the jump takes one second, you have to insert the first 7 frames within half a second. You need to watch this, for example, using TIMER or ON TIMER. Just with inserting the next image you will always find out how much the current timer is, or set a new one. This way, you will not affect the main program loop. At the same time, when inserting pictures 1 through 7, you reduce the size of the Y axis in order for the figure to go up, and after half of the jump it increases again in the same step to the original value. If the height of the jump is 50 pixels, then is one shift in the Y axis for jump 50/7. For better effect, you can add or remove a value in the X axis, depending on whether the move key is pressed, but unfortunately, if you want to combine pressed keys, forget to the INKEY$ and use _KEYHIT.

[TempodiBasic]

Hi Prithak
an expert of game engine seems to be UnseenMachine that together to other clever coders seem to be absent in these times on this forum
sob so I gain by this sentence the angryness of all the  clever coders that now are active on this forum... :-(
sorry I don't want to hit all you clever coders

Well, coming back to your question...
IMHO
a jump sequence is a mini film like the walking, but in your way to create this sequence you don't need a continuosly pressing the key W to jump while you want a continuosly pressing key for walking.... it is ok because
1. it is your game
2. it is one of the many ways to make a walking

so you have already the response....
I have coded it like my mod of your code just if you cannot figure how to do it... but it is the same manner that you have used for walking... as Petr has suggested you have to split the space of jumping in half of sequence imagines (I see they are 15 so we can use 7).... and mantain the command "jump" in your brain of engine type$ until the jump sequence is finished or the user press another key...

2 feedback:
1. passing from left idle to righ idle and vice-versa  you have coded an error because the character shifts to left or to right of 5 units...
2. you have loaded only rightward sequence of images for jump, so if your character look leftward then it jumps to righward
fine but wrong!

I hope this is useful for you

PS: just a curiosity
what do this?

    IF k$ <> "W" THEN
        IF LEN(k$) = 0 THEN type$ = "idle"
    END IF

More suggestions

you can use one counter variable instead of different variables if the number of images of sequence is the same for walk to left, walk to right, jump, die, fly, fire etc etc etc

[Prithak]

Hi Prithak,

Nice graphics. Is that your own job? About the jump. The maximum jump height is frame 7, as I found out. So, for the animation to be smooth, you have to take the current time when you insert the first slide, that is, if the jump takes one second, you have to insert the first 7 frames within half a second. You need to watch this, for example, using TIMER or ON TIMER. Just with inserting the next image you will always find out how much the current timer is, or set a new one. This way, you will not affect the main program loop. At the same time, when inserting pictures 1 through 7, you reduce the size of the Y axis in order for the figure to go up, and after half of the jump it increases again in the same step to the original value. If the height of the jump is 50 pixels, then is one shift in the Y axis for jump 50/7. For better effect, you can add or remove a value in the X axis, depending on whether the move key is pressed, but unfortunately, if you want to combine pressed keys, forget to the INKEY$ and use _KEYHIT.

Thanks, the background isn't my work but the character is. BTW, I am a part time animator! Thanks for the help but I already seem to have figured it out, but it still has some bugs that I know how to fix :D

[bplus]

OK I play with TempodiBasic's mod (nice start!)

Now when you press D the character walks right forever and if W is pressed it will jump.
Now to stop and idle the character press S, press W while idling and it will jump.
Now when you press A the characters walks left forever and if you press W it will jump while going left.

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. DIM maxJump AS INTEGER, minJump AS INTEGER
19. maxJump = 50
20. minJump = INT(maxJump / 7)
21. bg = _LOADIMAGE("rpg/tileset/bg/bg.png")
22. y = 500
23. ic = 1 '<<<<<<<<<<<<<<<<<< direction facing 1 for right 2 for left?
24. FOR i = 1 TO 15
25.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
26. NEXT i
27. FOR i = 1 TO 15
28.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
29. NEXT i
30. FOR i = 1 TO 15
31.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
32. NEXT i
33. i = 0
34. type$ = "idle"
35. bgx = 0
36. bgy = 0
37. bgx2 = 800
38. bgy2 = 600
39. DO
40.     CLS
41.     k$ = UCASE$(INKEY$)
42.  
43.     _PUTIMAGE (bgx, bgy)-(bgx2, bgy2), bg
44.  
45.     ' IF k$ = "" AND type$ = "jump" THEN k$ = "W"
46.     IF k$ = "S" THEN type$ = "idle"
47.     IF k$ = "A" THEN type$ = "lwalk"
48.     IF k$ = "D" THEN type$ = "rwalk"
49.     IF k$ = "W" THEN jump = 1 '<<<<<<<<< change
50.     'IF k$ <> "W" THEN
51.     '    IF LEN(k$) = 0 THEN type$ = "idle"
52.     'END IF
53.     IF type$ = "idle" THEN
54.         a = a + 1
55.         IF a > 15 THEN a = 1
56.         IF jump THEN
57.             jump = jump + 1
58.             IF jump = 15 THEN jump = 0
59.             IF jump < 7 THEN
60.                 dy = dy + minJump
61.                 IF dy > maxJump THEN dy = maxJump
62.             ELSE
63.                 dy = dy - minJump
64.                 IF dy < 0 THEN dy = 0
65.             END IF
66.             IF ic = 1 THEN
67.                 _PUTIMAGE (x, y - dy)-(x + 100, y + 100 - dy), idle&(a)
68.             ELSEIF ic = 2 THEN
69.                 _PUTIMAGE (x + 100, y - dy)-(x, y + 100 - dy), idle&(a)
70.             END IF
71.         ELSE
72.             IF ic = 1 THEN
73.                 _PUTIMAGE (x, y)-(x + 100, y + 100), idle&(a)
74.             ELSEIF ic = 2 THEN
75.                 _PUTIMAGE (x + 100, y)-(x, y + 100), idle&(a)
76.             END IF
77.         END IF
78.     ELSEIF type$ = "lwalk" THEN
79.         ic = 2
80.         b = b + 1
81.         IF b > 14 THEN b = 1 ': type$ = "idle"
82.         IF jump THEN
83.             jump = jump + 1
84.             IF jump = 15 THEN jump = 0
85.             IF jump < 7 THEN
86.                 dy = dy + minJump
87.                 IF dy > maxJump THEN dy = maxJump
88.             ELSE
89.                 dy = dy - minJump
90.                 IF dy < 0 THEN dy = 0
91.             END IF
92.             _PUTIMAGE (x + 100, y - dy)-(x, y + 100 - dy), walk&(b)
93.         ELSE
94.             _PUTIMAGE (x + 100, y)-(x, y + 100), walk&(b)
95.         END IF
96.         x = x - 5
97.     ELSEIF type$ = "rwalk" THEN
98.         ic = 1
99.         c = c + 1
100.         IF c > 14 THEN c = 1 ': type$ = "idle"
101.         IF jump THEN
102.             jump = jump + 1
103.             IF jump = 15 THEN jump = 0
104.             IF jump < 7 THEN
105.                 dy = dy + minJump
106.                 IF dy > maxJump THEN dy = maxJump
107.             ELSE
108.                 dy = dy - minJump
109.                 IF dy < 0 THEN dy = 0
110.             END IF
111.             _PUTIMAGE (x, y - dy)-(x + 100, y + 100 - dy), walk&(c)
112.         ELSE
113.             _PUTIMAGE (x, y)-(x + 100, y + 100), walk&(c)
114.         END IF
115.         x = x + 5
116.         'ELSEIF type$ = "jump" THEN
117.         '    d = d + 1
118.         '    IF d > 14 THEN d = 1: type$ = "idle"
119.         '    IF d < 7 THEN
120.         '        dy = dy + minJump
121.         '        IF dy > maxJump THEN dy = maxJump
122.         '    ELSE
123.         '        dy = dy - minJump
124.         '        IF dy < 0 THEN dy = 0
125.         '    END IF
126.         '    _PUTIMAGE (x, y - dy)-(x + 100, y + 100 - dy), jump&(d)
127.     END IF
128.     LOCATE 1, 1: PRINT x; y; type$
129.     _LIMIT 30
130.     _DISPLAY
131. LOOP
132.  
133.  

[TempodiBasic]

Hi Prithak

about feedbacks

1 here I attach a version srhinked with one linear counter for image index and  looking just a little more into your code I code also for jumping leftward added to original jumping rightward

2. fixed the movement only changing the direction of looking of the character, now character moves toward if it looks already in that direction, changing direction no initial movement is made

3. when you change direction of looking of the character also if it x position changes only by 5 units it shifts more to left/right
But this is an image error.... if you see the sprites of the characters they have a large amount of white space on the right... except for the die routine.... so if you cut that white amount of space on the right making the same x dimension of each sprite of moving to left or right and to jump you can fix this bug

[TempodiBasic]

Hi Bplus
great mod of game engine!
this is one of the other ways to move a character that Prithak hasn't chosen but that I prefer if the game was mine.

[_vince]

That's a lovely assignment, very clever teacher!

Here is my solution to the jump - I've changed "wasd" keys to arrow keys for my own convenience.

Code: QB64: [Select]

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

[Prithak]

Hi Prithak

about feedbacks

1 here I attach a version srhinked with one linear counter for image index and  looking just a little more into your code I code also for jumping leftward added to original jumping rightward

2. fixed the movement only changing the direction of looking of the character, now character moves toward if it looks already in that direction, changing direction no initial movement is made

3. when you change direction of looking of the character also if it x position changes only by 5 units it shifts more to left/right
But this is an image error.... if you see the sprites of the characters they have a large amount of white space on the right... except for the die routine.... so if you cut that white amount of space on the right making the same x dimension of each sprite of moving to left or right and to jump you can fix this bug

This mod didn't work for me, it just goes downwards and not upwards. The previous one works perfectly fine! And I think I understand what's going on in that little snippet. I'll change the code and see what I can do to change my game.

[Prithak]

OK I play with TempodiBasic's mod (nice start!)

Now when you press D the character walks right forever and if W is pressed it will jump.
Now to stop and idle the character press S, press W while idling and it will jump.
Now when you press A the characters walks left forever and if you press W it will jump while going left.

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. DIM maxJump AS INTEGER, minJump AS INTEGER
19. maxJump = 50
20. minJump = INT(maxJump / 7)
21. bg = _LOADIMAGE("rpg/tileset/bg/bg.png")
22. y = 500
23. ic = 1 '<<<<<<<<<<<<<<<<<< direction facing 1 for right 2 for left?
24. FOR i = 1 TO 15
25.     idle&(i) = _LOADIMAGE("rpg/char/idle (" + LTRIM$(STR$(i)) + ").png")
26. NEXT i
27. FOR i = 1 TO 15
28.     walk&(i) = _LOADIMAGE("rpg/char/walk (" + LTRIM$(STR$(i)) + ").png")
29. NEXT i
30. FOR i = 1 TO 15
31.     jump&(i) = _LOADIMAGE("rpg/char/jump (" + LTRIM$(STR$(i)) + ").png")
32. NEXT i
33. i = 0
34. type$ = "idle"
35. bgx = 0
36. bgy = 0
37. bgx2 = 800
38. bgy2 = 600
39. DO
40.     CLS
41.     k$ = UCASE$(INKEY$)
42.  
43.     _PUTIMAGE (bgx, bgy)-(bgx2, bgy2), bg
44.  
45.     ' IF k$ = "" AND type$ = "jump" THEN k$ = "W"
46.     IF k$ = "S" THEN type$ = "idle"
47.     IF k$ = "A" THEN type$ = "lwalk"
48.     IF k$ = "D" THEN type$ = "rwalk"
49.     IF k$ = "W" THEN jump = 1 '<<<<<<<<< change
50.     'IF k$ <> "W" THEN
51.     '    IF LEN(k$) = 0 THEN type$ = "idle"
52.     'END IF
53.     IF type$ = "idle" THEN
54.         a = a + 1
55.         IF a > 15 THEN a = 1
56.         IF jump THEN
57.             jump = jump + 1
58.             IF jump = 15 THEN jump = 0
59.             IF jump < 7 THEN
60.                 dy = dy + minJump
61.                 IF dy > maxJump THEN dy = maxJump
62.             ELSE
63.                 dy = dy - minJump
64.                 IF dy < 0 THEN dy = 0
65.             END IF
66.             IF ic = 1 THEN
67.                 _PUTIMAGE (x, y - dy)-(x + 100, y + 100 - dy), idle&(a)
68.             ELSEIF ic = 2 THEN
69.                 _PUTIMAGE (x + 100, y - dy)-(x, y + 100 - dy), idle&(a)
70.             END IF
71.         ELSE
72.             IF ic = 1 THEN
73.                 _PUTIMAGE (x, y)-(x + 100, y + 100), idle&(a)
74.             ELSEIF ic = 2 THEN
75.                 _PUTIMAGE (x + 100, y)-(x, y + 100), idle&(a)
76.             END IF
77.         END IF
78.     ELSEIF type$ = "lwalk" THEN
79.         ic = 2
80.         b = b + 1
81.         IF b > 14 THEN b = 1 ': type$ = "idle"
82.         IF jump THEN
83.             jump = jump + 1
84.             IF jump = 15 THEN jump = 0
85.             IF jump < 7 THEN
86.                 dy = dy + minJump
87.                 IF dy > maxJump THEN dy = maxJump
88.             ELSE
89.                 dy = dy - minJump
90.                 IF dy < 0 THEN dy = 0
91.             END IF
92.             _PUTIMAGE (x + 100, y - dy)-(x, y + 100 - dy), walk&(b)
93.         ELSE
94.             _PUTIMAGE (x + 100, y)-(x, y + 100), walk&(b)
95.         END IF
96.         x = x - 5
97.     ELSEIF type$ = "rwalk" THEN
98.         ic = 1
99.         c = c + 1
100.         IF c > 14 THEN c = 1 ': type$ = "idle"
101.         IF jump THEN
102.             jump = jump + 1
103.             IF jump = 15 THEN jump = 0
104.             IF jump < 7 THEN
105.                 dy = dy + minJump
106.                 IF dy > maxJump THEN dy = maxJump
107.             ELSE
108.                 dy = dy - minJump
109.                 IF dy < 0 THEN dy = 0
110.             END IF
111.             _PUTIMAGE (x, y - dy)-(x + 100, y + 100 - dy), walk&(c)
112.         ELSE
113.             _PUTIMAGE (x, y)-(x + 100, y + 100), walk&(c)
114.         END IF
115.         x = x + 5
116.         'ELSEIF type$ = "jump" THEN
117.         '    d = d + 1
118.         '    IF d > 14 THEN d = 1: type$ = "idle"
119.         '    IF d < 7 THEN
120.         '        dy = dy + minJump
121.         '        IF dy > maxJump THEN dy = maxJump
122.         '    ELSE
123.         '        dy = dy - minJump
124.         '        IF dy < 0 THEN dy = 0
125.         '    END IF
126.         '    _PUTIMAGE (x, y - dy)-(x + 100, y + 100 - dy), jump&(d)
127.     END IF
128.     LOCATE 1, 1: PRINT x; y; type$
129.     _LIMIT 30
130.     _DISPLAY
131. LOOP
132.  
133.  

THANK YOU!!! This was exactly what I needed! Now, let me change my code for instance!

[Prithak]

That's a lovely assignment, very clever teacher!

Here is my solution to the jump - I've changed "wasd" keys to arrow keys for my own convenience.

Code: QB64: [Select]

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

OMG! THANK YOU SO MUCH! THIS WAS EXACTLY WHAT I HAD IN MY HEAD!!! Will you mind If I change the code a little bit and submit it to my teacher? :P

[_vince]

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.  

[bplus]

Good one _vince, I don't like pressing those two keys at once but I sure do like that sidescroller method!

[TempodiBasic]

Hi _vince
very fine
1. the solution to use a switch variable for _putimage output
2. and the managment of 50 more white pixel in the sprites using a costant to shift those pixel so that image doesn't shift changing side of direction

and I agree that _KEYDOWN and _KEYHIT are more suitable for input toward INKEY$.

I'll go to see the other example that you have posted!