Stroids

[DarkAuron]

This is a little project I started off with to toy with object oriented programming this past spring while I was working on Abscencia. The name of it came from the idea that, while oriented on an Asteroids-esque control system and perspective, the action is as if you're on steroids. At the time I was playing Grid Wars, Veck, and Echoes quite a lot.

Anyhow, it was meant more of a OOP practice project, but it became a decent engine. I still need to optimize (even further) the collision detection and bullet generation, but it's a nifty little engine made in DBPro for now. All graphics are generated with code, though I may go full-blown with external media once I start adding audio.

Plans, if I continue this project (which I'd like to) include the following:

-More enemies and better AI (I can't really think of anything right now)
-Particle effects
-Sound effects
-Music
-Basic menu
-Control redesign
-More unique game play
-Score counter
-Whatever else I can think of

And then of course theres screenshots, mostly stress testing and bullet testing:

Screenshot 1
Screenshot 2
Screenshot 3

If anyone can give suggestions for this project, I'm open to ideas because I can't really think of anything.

[Halifax]

Looks good!

[tr1p1ea]

Ahh yes, ive had a toy with a demo of this . Its very nifty indeed and lots of fun to spin around and fire bullets everywhere. The grid-wars look is spot on too.

[DJ_O]

Looks pretty good, are you doing this in DarkBasic? If not which program do you use to make this?

[DarkAuron]

It's being made in Darkbasic Pro

[DJ_O]

Cool, you should post snippets of code so we can see how it looks like ^^

[Liazon]

cool! it looks a lot like those three games.

[DarkAuron]

Here's some functions I made for the bullets:

Code: Select all

Function SpawnBullet(Angle,X,Z,Color)

   If (Player.Bullets < 1000)
      Inc Player.Bullets
      i = Player.Bullets
      Set Object Diffuse Bullet(i).Object, Color

      Bullet(i).X = X
      Bullet(i).Y = 0.0
      Bullet(i).Z = Z
      Bullet(i).Angle = Angle
      Bullet(i).MoveX = 3*cos(Angle)
      Bullet(i).MoveZ = 3*sin(Angle)
   Endif

Endfunction

Code: Select all

Function UpdateBullets()

   If (Player.Bullets > 0)
      For i = 1 to Player.Bullets
         Inc Bullet(i).X, Bullet(i).MoveX
         Inc Bullet(i).Z, Bullet(i).MoveZ
         Position Object Bullet(i).Object, Bullet(i).X, 0, Bullet(i).Z
         If (Dist(0, 0, Bullet(i).X, Bullet(i).Z) >= 1000)
            Bullet(i).X = 4096
            Bullet(i).Z = 4096
            Position Object Bullet(i).Object, Bullet(i).X, Bullet(i).Y, Bullet(i).Z
            ShiftBullets(i)
         Endif
      Next i
   Endif

Endfunction

[DJ_O]

wow that reminds me so much C, but simpler (I guess easier too)

[Liazon]

less {} for sure

[kv83]

I love {}

[DarkAuron]

Okay, once I fix a bug that crashes the game, I'll release Stroids 0.2 to the public. What I've added since 0.1 is particles for enemy explosions, graphics for the bullets, as well as some optimizations that help run the game smoother and use up less RAM. Oh, and I increased bullet speed and enemy movement speed to make it somewhat intense.

Plans for 0.3 include a score counter, and I was wondering what you guys thought of the graphics for the numbers:


Click here for a screenshot of 0.2

I know the bullets seem a bit too faded; I'll try to brighten them before I release 0.2, as well as fix the crash bug.

[tr1p1ea]

The number graphics are pretty good and those particles looks awesome! .

[DJ_O]

I just played the version you posted on IRC while I was at work, and it was nice so far, pretty colored as well

[DarkAuron]

I'm working on how the enemies spawn; in groups instead of randomly anywhere at a constant like it was when I released early copies.

Meanwhile I'm thinking about adding items to the game, whether they be powerups, weapons, or collectable items you 'buy' by collecting credits. Not quite sure yet.

Still in the works! Just been going to work a lot lately so I haven't had much time (or energy) to code.