Developing My Game

[YueParticipant]

I am a refugee in these forums poveniente of a missing city (blitzbasic.com) :D, and I have nowhere else to go. So I show you what I’m doing right now. The game is about a robot that lost its human friends as it enters the atmosphere of Mars. And after the accident has been expelled in an emergency capsule. The first target after the incident on the Red Planet is to get to the nearest shelter, as the only visual guide to accomplish this goal, can be guided by the vents from a base underground to reach the shelter. So the idea is to hurry up, as the dust storm is damaging your energy system and is crucial to your goal.

I highly appreciate the constructive criticism of seasoned programmers like you.

[coconParticipant]

Looks good, it seems that it has potential. My estimations on this would be something about adding more details to the world, even the most simple low poly rocks would do.

But it depends on the mission goal, are you planning to create a full prototype from this? Or is it just for experiments?

[YueParticipant]

Hello Cocon, thank you for your appreciation. I think you can do a lot of things to improve the scenario, but obviously I have no knowledge about how to do certain things.

For example you could put rocks, but the correct way is that a rock that is some distance away disappears and then appear in a range of 360 degrees in the distance of the player. This way we would have 100 rocks that follow the player. But I do not know how to do this.

So I try to focus on what I can do, a simple game based on my acquired knowledge.

About the mission is very simple and can be improving. Initially after the accident, there is a dust storm on the red planet, so the robot has to reach an underground complex and its only way to get to this point is through the visualization of ventilation points that protrude on the surface. The more time you expose yourself in the storm and fail to reach, your energy system is affected by dust and your energy goes down until you lose the game.

For now that is the first mmision, I plan to put background music and some sound in the steps of the player to release a demo. What I can offer is that other users can modify and improve the mission through scripts.

Best regard.

.

[coconParticipant]

Don’t worry, knowledge is easy to acquire, you only need to take notes on what you want to do and then at some point you might find it somewhere in the internet. Asking at forums helps also because you can get direction on where to look.

For example the problem of the distance is solved like this.
http://www.blitzbasic.com/codearcs/codearcs.php?code=2739
If you are interested to use 3D distance, you can do this:
dx = x2 – x1
dy = y2 – y1
dz = z2 – z1
sqr(dx*dx + dy*dy + dz*dz)

Keep up the good work!

[HezkoreParticipant]

What language is this written in?
And what’s up with the low FPS? hehe

[YueParticipant]

Hi, @cocon.

What I am trying to do is for example 100 rocks follow the player. That the rocks that fade the distance fade and randomly appear outside the range and then be visualized. It would be the only viable way to flood the land with many rocks that only rendered close to the player, and that could look like thousands.

Monkey

for stones:Tstones = eachin stones.list if xEntityDistance stones.stone, player > 50 xHideEntity(stones.stone); Else ' New position 360. End if next

1 2 3 4 5 6 7 8 9 10

for stones:Tstones = eachin stones.list      if xEntityDistance stones.stone, player > 50           xHideEntity(stones.stone);    Else       ' New position 360.    End if   next

Hi, @hezkore, it’s BlitzMax… and Fps low for my card graphics is bad.

[Simon ArmstrongParticipant]

Instead of blaming your graphics card maybe you should blame the number of particles you are drawing for your smoke effect

[YueParticipant]

@Simon Armstrong,
The problem is not the number of particles, the bottleneck is produced by the system of shadows, and is not a complaint, only a presentation on what is a gs 7100 of 256 megs.

[coconParticipant]

Here is how it would work.

View post on imgur.com

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field items := New Vec2f[1000] Field TeleportDistance:Float = 200 Field VisibleDistance:Float = 100 Field VisibleDistanceFade:Float = 80 Field speed:Vec2f Method New() ' create all of the items For Local i := 0 Until items.Length Local item := New Vec2f item.X = Rnd(-TeleportDistance, TeleportDistance) item.Y = Rnd(-TeleportDistance, TeleportDistance) items[i] = item Next End Method OnRender(canvas:Canvas) Override ' change position of the items and teleport them speed *= 0.9 If (Keyboard.KeyDown(Key.W)) Then speed.Y += 5 If (Keyboard.KeyDown(Key.S)) Then speed.Y -= 5 If (Keyboard.KeyDown(Key.A)) Then speed.X += 5 If (Keyboard.KeyDown(Key.D)) Then speed.X -= 5 For Local index := 0 Until items.Length Local item := items[index] item.X += speed.X * 0.05 item.Y += speed.Y * 0.05 If (item.X < -TeleportDistance) Then item.X = TeleportDistance If (item.X > TeleportDistance) Then item.X = -TeleportDistance If (item.Y < -TeleportDistance) Then item.Y = TeleportDistance If (item.Y > TeleportDistance) Then item.Y = -TeleportDistance items[index] = item Next ' start drawing stuff App.RequestRender() canvas.Clear(Color.Black) ' draw the visibility distance canvas.PushMatrix() canvas.Translate(Width/2, Height/2) canvas.Color = New Color(0.1, 0, 0) canvas.DrawCircle(0, 0, VisibleDistance) canvas.PopMatrix() ' draw all of the items ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' canvas.Color = Color.White ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix() ' draw all of the items within the visibility distance ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' If Distance(0, 0, i.X, i.Y) < VisibleDistance ' canvas.Color = Color.White ' Else ' canvas.Color = Color.Grey ' End ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix() ' draw all of the items but this time apply the visibility fade canvas.PushMatrix() canvas.Translate(Width/2, Height/2) For Local i := Eachin items Local distance := Distance(0, 0, i.X, i.Y) If distance < VisibleDistance Local visibility := Remap(distance, VisibleDistance, VisibleDistanceFade, 0.0, 1.0) If distance < VisibleDistanceFade visibility = 1 End canvas.Color = New Color(visibility, visibility, visibility) canvas.DrawRect(i.X, i.Y, 2, 2) End Next canvas.PopMatrix() End End Function Distance:Float(x:Float, y:Float, x2:Float, y2:Float) Local dx := x2 - x Local dy := y2 - y Return Sqrt(dx * dx + dy * dy) End Function Remap:Float(value:Float, firstStart:Float, firstStop:Float, secondStart:Float, secondStop:Float) ' For more information: http://monkeycoder.co.nz/forums/topic/math-remapvalue/ Return secondStart + (secondStop - secondStart) * ((value - firstStart) / (firstStop - firstStart)) End Function Main() New AppInstance New MyWindow App.Run() End ' Notes ' ... canvas.Translate(Width/2, Height/2) ' For presentation reasons I want to draw things to the centered of the screen ' this is only a rendering matter, it does not affect how the coordinates of the system ' work, which are within the limits of -TeleportDistance..TeleportDistance ' ... If Distance(0, 0, i.X, i.Y) < VisibleDistance ' Assuming that at position 0,0 is the player, and the i.X/Y is the item.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field items := New Vec2f[1000] Field TeleportDistance:Float = 200 Field VisibleDistance:Float = 100 Field VisibleDistanceFade:Float = 80 Field speed:Vec2f Method New() ' create all of the items For Local i := 0 Until items.Length Local item := New Vec2f item.X = Rnd(-TeleportDistance, TeleportDistance) item.Y = Rnd(-TeleportDistance, TeleportDistance) items[i] = item Next End   Method OnRender(canvas:Canvas) Override ' change position of the items and teleport them speed *= 0.9 If (Keyboard.KeyDown(Key.W)) Then speed.Y += 5 If (Keyboard.KeyDown(Key.S)) Then speed.Y -= 5 If (Keyboard.KeyDown(Key.A)) Then speed.X += 5 If (Keyboard.KeyDown(Key.D)) Then speed.X -= 5 For Local index := 0 Until items.Length Local item := items[index] item.X += speed.X * 0.05 item.Y += speed.Y * 0.05 If (item.X < -TeleportDistance) Then item.X =  TeleportDistance If (item.X >  TeleportDistance) Then item.X = -TeleportDistance If (item.Y < -TeleportDistance) Then item.Y =  TeleportDistance If (item.Y >  TeleportDistance) Then item.Y = -TeleportDistance items[index] = item Next ' start drawing stuff App.RequestRender() canvas.Clear(Color.Black)     ' draw the visibility distance canvas.PushMatrix() canvas.Translate(Width/2, Height/2) canvas.Color = New Color(0.1, 0, 0) canvas.DrawCircle(0, 0, VisibleDistance) canvas.PopMatrix()   ' draw all of the items ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' canvas.Color = Color.White ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix() ' draw all of the items within the visibility distance ' canvas.PushMatrix() ' canvas.Translate(Width/2, Height/2) ' For Local i := Eachin items ' If Distance(0, 0, i.X, i.Y) < VisibleDistance ' canvas.Color = Color.White ' Else ' canvas.Color = Color.Grey ' End ' canvas.DrawRect(i.X, i.Y, 2, 2) ' Next ' canvas.PopMatrix()         ' draw all of the items but this time apply the visibility fade canvas.PushMatrix() canvas.Translate(Width/2, Height/2) For Local i := Eachin items Local distance := Distance(0, 0, i.X, i.Y) If distance < VisibleDistance Local visibility := Remap(distance, VisibleDistance, VisibleDistanceFade, 0.0, 1.0) If distance < VisibleDistanceFade visibility = 1 End canvas.Color = New Color(visibility, visibility, visibility) canvas.DrawRect(i.X, i.Y, 2, 2) End Next canvas.PopMatrix() End End   Function Distance:Float(x:Float, y:Float, x2:Float, y2:Float) Local dx := x2 - x Local dy := y2 - y Return Sqrt(dx * dx + dy * dy) End     Function Remap:Float(value:Float, firstStart:Float, firstStop:Float, secondStart:Float, secondStop:Float) ' For more information: http://monkeycoder.co.nz/forums/topic/math-remapvalue/ Return secondStart + (secondStop - secondStart) * ((value - firstStart) / (firstStop - firstStart)) End     Function Main() New AppInstance New MyWindow App.Run() End     ' Notes   ' ... canvas.Translate(Width/2, Height/2) ' For presentation reasons I want to draw things to the centered of the screen ' this is only a rendering matter, it does not affect how the coordinates of the system ' work, which are within the limits of -TeleportDistance..TeleportDistance   ' ... If Distance(0, 0, i.X, i.Y) < VisibleDistance ' Assuming that at position 0,0 is the player, and the i.X/Y is the item.

[Author]

Posts