QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Prithak on February 16, 2019, 08:41:15 pm

Title: How to make a player jump in ONE LOOP!
Post by: Prithak on February 16, 2019, 08:41:15 pm

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!

Title: Re: How to make a player jump in ONE LOOP!
Post by: bplus on February 16, 2019, 10:53:30 pm

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: Petr on February 17, 2019, 03:33:35 am

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.

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 17, 2019, 01:40:38 pm

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?

Quote

    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

Title: Re: How to make a player jump in ONE LOOP!
Post by: Prithak on February 18, 2019, 07:30:17 am

Quote from: Petr on February 17, 2019, 03:33:35 am

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: bplus on February 18, 2019, 10:32:20 am

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.  

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 18, 2019, 03:18:08 pm

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 18, 2019, 03:23:27 pm

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.

Title: Re: How to make a player jump in ONE LOOP!
Post by: _vince on February 18, 2019, 08:35:05 pm

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.  

Title: Re: How to make a player jump in ONE LOOP!
Post by: Prithak on February 18, 2019, 08:39:14 pm

Quote from: TempodiBasic on February 18, 2019, 03:18:08 pm

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.

Title: Re: How to make a player jump in ONE LOOP!
Post by: Prithak on February 18, 2019, 08:40:38 pm

Quote from: bplus on February 18, 2019, 10:32:20 am

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!

Title: Re: How to make a player jump in ONE LOOP!
Post by: Prithak on February 18, 2019, 08:42:51 pm

Quote from: _vince on February 18, 2019, 08:35:05 pm

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: _vince on February 18, 2019, 09:00:33 pm

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.  

Title: Re: How to make a player jump in ONE LOOP!
Post by: bplus on February 18, 2019, 09:28:59 pm

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 19, 2019, 04:06:19 am

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!

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 19, 2019, 04:21:02 am

@Prithak

Quote

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 19, 2019, 04:25:54 am

@ _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!

Title: Re: How to make a player jump in ONE LOOP!
Post by: Prithak on February 20, 2019, 09:09:26 pm

Quote from: _vince on February 18, 2019, 09:00:33 pm

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

Title: Re: How to make a player jump in ONE LOOP!
Post by: TempodiBasic on February 24, 2019, 12:29:24 pm

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

Text Only | Text with Attachments