New Game

[CoderVSB12]

So, i'm planning to make my first public game ever since 2 years ago, but i had some serious dificulties like procrastination in general.
Today, seeing the popularity of games like Fall Guys, i decided to finally start working on my project. It's about a bird that have to jump meteors while he's being chased by a round dinosaur spaceship, and everything in 2.5D; the bird is in its front view, and the meteors shrink down as they get far away, being sucked by the spaceship.
But there are some issues on my first prototype tho. Check my code and see if you can find it for me.

Code: QB64: [Select]

1.  
2. TYPE Birb
3.     X AS INTEGER
4.     Y AS INTEGER
5.     Z AS INTEGER
6.     Pic AS LONG
7.     W AS INTEGER
8.     H AS INTEGER
9.     JumpSpeed AS INTEGER
10.     JumpState AS INTEGER
11. END TYPE
12.  
13. TYPE Meteor
14.     X AS INTEGER
15.     Y AS INTEGER
16.     Z AS INTEGER
17.     Pic AS LONG
18.     W AS INTEGER
19.     H AS INTEGER
20.     SpawnTime AS INTEGER
21. END TYPE
22.  
23. TYPE WindowBoi
24.     W AS INTEGER
25.     H AS INTEGER
26. END TYPE
27.  
28. DIM SHARED Birby AS Birb
29. DIM SHARED Steroids AS Meteor
30. DIM SHARED Wendow AS WindowBoi
31.  
32. Wendow.W = 1280
33. Wendow.H = 720
34. Birby.Pic = _LOADIMAGE("F&S_proto_sources\birby")
35. Birby.W = 66
36. Birby.H = 108
37. Birby.X = (Wendow.W / 2) - (Birby.W / 2) - 1
38. Birby.Y = (Wendow.H / 2) - (Birby.H / 2) + 1
39. Steroids.Pic = _LOADIMAGE("F&S_proto_sources\meteor")
40. Steroids.X = INT(RND * 1250) + 30
41. Steroids.Y = INT(RND * 690) + 30
42. Steroids.SpawnTime = 10
43.  
44. SCREEN _NEWIMAGE(1280, 720, 32)
45.  
46. DO
47.     _LIMIT 100
48.     PCOPY _DISPLAY, 1
49.     SpawnMeteors
50.     _DISPLAY
51.     PCOPY 1, _DISPLAY
52. LOOP UNTIL INKEY$ = "q"
53.  
54. SUB SpawnMeteors
55.     FOR i = 1 TO 20 STEP Steroids.SpawnTime
56.         _PUTIMAGE (Steroids.X, Steroids.Y), Steroids.Pic
57.     NEXT
58. END SUB
59.  
60.  

[bplus]

Welcome @CoderVSB12

For starters some images would help :)

If you can attach everything needed in a handy zip package it makes it easier for others to check out your stuff.

[CoderVSB12]

I do have some concept drawings...

[TempodiBasic]

@CoderVSB12
Why do you put two times the same image in the same place of the screen?
here the syntax of _PUTIMAGE that is quite different from PUT of Qbasic
http://www.qb64.org/wiki/PUTIMAGE

so with this code

Code: QB64: [Select]

1. SUB SpawnMeteors
2.     FOR i = 1 TO 20 STEP Steroids.SpawnTime  ' here Steroids.SpawnTime = 10 so i = 1 and then 11 and then again 21
3.         _PUTIMAGE (Steroids.X, Steroids.Y), Steroids.Pic
4.     NEXT
5. END SUB

you're doing this
_PUTIMAGE (DestinationX, DestinationY), SourceHandle&
... so change your code for your goal!

[bplus]

Maybe this will help:

Code: QB64: [Select]

1. _TITLE "Spawn" 'b+ mod 2020-09-10
2. CONST angle = _PI(3 / 4)
3. TYPE Meteor
4.     X AS INTEGER
5.     Y AS INTEGER
6.     dx AS SINGLE
7.     dy AS SINGLE
8. END TYPE
9.  
10. SCREEN _NEWIMAGE(1200, 720, 32)
11. _DELAY .25 'allow screen to load
12. _SCREENMOVE _MIDDLE
13.  
14. M& = _LOADIMAGE("meteor.png")
15. 'FOR i = 0 TO 80            '           yucko
16. '    _CLEARCOLOR _RGB32(i), M&
17. '    _CLEARCOLOR _RGB32(i, 0, 0), M&
18. '    _CLEARCOLOR _RGB32(0, i, 0), M&
19. '    _CLEARCOLOR _RGB32(0, 0, i), M&
20. '    _CLEARCOLOR _RGB32(i, i, 0), M&
21. '    _CLEARCOLOR _RGB32(0, i, i), M&
22. '    _CLEARCOLOR _RGB32(i, 0, i), M&
23. 'NEXT
24.  
25. 'try filter
26. newM& = _NEWIMAGE(_WIDTH(M&), _HEIGHT(M&), 32)
27. DIM p AS _UNSIGNED LONG
28. _SOURCE M&
29. _DEST newM&
30. FOR y = 0 TO _HEIGHT(M&)
31.     FOR x = 0 TO _WIDTH(M&)
32.         p = POINT(x, y)
33.         pr = _RED32(p)
34.         pg = _GREEN32(p)
35.         pb = _BLUE32(p)
36.         IF pr > 50 AND pg > 50 AND pb > 50 THEN PSET (x, y), p ELSE PSET (x, y), &H00000000
37.     NEXT
38. NEXT
39. _FREEIMAGE M&
40. _DEST 0
41. _SOURCE 0
42.  
43. DIM SHARED spawn(1 TO 100) AS Meteor
44. FOR i = 1 TO 100
45.     SpawnMeteors (i)
46. NEXT
47.  
48. DO
49.     CLS
50.     FOR i = 1 TO 100
51.         spawn(i).X = spawn(i).X + spawn(i).dx
52.         spawn(i).Y = spawn(i).Y + spawn(i).dy
53.         IF spawn(i).X < -100 OR spawn(i).Y > _HEIGHT + 50 THEN SpawnMeteors i
54.         _PUTIMAGE (spawn(i).X, spawn(i).Y)-STEP(_WIDTH(newM&), _HEIGHT(newM&)), newM&, 0
55.     NEXT
56.     _DISPLAY
57.     _LIMIT 60
58. LOOP UNTIL _KEYDOWN(27) 'escape
59.  
60. SUB SpawnMeteors (i)
61.     spawn(i).X = _WIDTH + 1000 * RND
62.     spawn(i).Y = -1000 * RND
63.     spawn(i).dx = (RND * 15 + 5) * COS(angle)
64.     spawn(i).dy = (RND * 15 + 5) * SIN(angle)
65. END SUB
66.  
67.  

  [ You are not allowed to view this attachment ]  

[bplus]

Spawn 2 variation 1, has much better 3D effect and all I did was add a mag = magnification property to the Meteor Type and then adjust speed according to magnification. You might consider mag a Z axis but this is 2.5 D stuff.

https://www.qb64.org/forum/index.php?topic=3009.msg122648#msg122648

[CoderVSB12]

That's pretty good, but its not what i intended it to be; the meteors need to go directly from behind the camera, and not falling from the top.

[bplus]

That's pretty good, but its not what i intended it to be; the meteors need to go directly from behind the camera, and not falling from the top.

Yeah, just giving you some example code to help you realize your conceptions. :)

Meanwhile I discover a great way to filter an image and turn it into a sprite! yahoo!

[TempodiBasic]

@bplus
very good and interesting the animation! (Can you find a meteor with less pen(tr)is in it? The animation is too good but it can appear like a rain of....)

@CoderVSB12
do you say me if the movement of asteroid goes from behind the camera to the centre of screen ? Or viceversa?
to be clearer  follow this link https://www.youtube.com/watch?v=agEQ7YIYk0A and watch at 1.20 for some seconds... You want a movement like the shoots of fire of Blaster or in the opposite direction like the planets ?

[CoderVSB12]

This game represents the exact perspective i want. The meteors move pretty much like the shoots of fire, but at random positions.

[TempodiBasic]

1.
well in this case you must use the Z axis to convert a 3D Dimension to a Sizes' Dimension... just nearer = larger and farer = smaller.
The second example of Bplus cover just this theme about Z axis for the third dimension. You'll keep X and Y but change Size by Z axis...
if movement is linear to infinite far or vice versa for the objects that run toward the camera.
The same ideas with different tecniques are developed in this thread https://www.qb64.org/forum/index.php?topic=1146.msg103690#msg103690 using the great p5js.bas (the porting to QB64 of P5JS used also by The code train programmer) here you can find it https://www.qb64.org/forum/index.php?topic=1146.msg103690#msg103690 and if you like its performance you can use for graphic effects.

2. back to your original code you must add before SpawnMeteors a SUB MoveMeteors in which you use the Z axis and MAP of P5js.bas to change the size/dimension of meteor OR calculate  the new size/dimension of meteor manually by an your function like Bplus had done!
Good Programming

[TempodiBasic]

Adjournment
here Bplus has made his engine to 3D  movement from infinite to back the camera. You must only invert the direction of movement or waiting that Bplus done it for you.
https://www.qb64.org/forum/index.php?topic=3009.msg122706#msg122706

[TempodiBasic]

Now I have done it ....https://www.qb64.org/forum/index.php?topic=3009.msg122736#msg122736
use it at your custom goal. And Thanks to Bplus to post his code.

[CoderVSB12]

Thanks very much! Now i just need them to vanish towards the center of the screen, but you might want to wait as i try to do it by myself before i ask you for help, ok?

[bplus]

Thanks very much! Now i just need them to vanish towards the center of the screen, but you might want to wait as i try to do it by myself before i ask you for help, ok?

I was hoping for this, just to get you started.