Asteroids remake

[Matthew SmithParticipant]

Here is my attempt at an Asteroids remake (Windows only) using Wiebo’s Game2d framework – both a great help and I also used the example asteroids game to start from ):

[Updated] v0.6 – 19-08-16 https://1drv.ms/u/s!AgngrULjSty9kJscgMVwpojeo2pn3w

Changes

• Added UFO
• Extra player every 10,000pts
• Ability to enter high scores

Settings

Change the settings.json file to adjust the resolution (and other things such as vsync, flicker and lives) :

640 – 640×480
800 – 800×600
1024 – 1024×768 (default if nothing else matches)
1366 – 1366×768
1920 – 1920×1080

I have tried to follow the arcade version fairly closely from a play view point – still got a few things to do such as the high score table and a bit more work on the tempo (very hard to get past Level 3-4) but a good start.  I’ve already added some extra stuff such as level counter and remaining asteroids (ahla Wizball) and I also want to add collectable power-ups such as speed-ups, multi-bullets, bombs etc to give it a bit a of more modern flavour. As with vector games, the screenshots don’t do the visuals much justice but it looks pretty good on-screen – moving starfields and glowing explosions etc.

One of my favorite games which I’ve re-built many a time over the years since I played it on the Atari 2600.  Certainly my best effort!

Any feedback would be great!

Attachments:

1. 

   Asteroids1-1.png
   

2. 

   Asteroids2-1.png
   

3. 

   Asteroids.GamePlay.png
   

[CopperCircleParticipant]

It good, nice particle effects and I like the screen shake

[AdamStrangeParticipant]

All works great on windows 10

One thing. it’s very ‘dark” for my tastes. The original vector scanning was very crisp and bright in comparison.

[Matthew SmithParticipant]

Thanks guys. Yeah need to keep working on the colors. I removed a background image just last night so the colors need a bit work. Also I might bump up the resolution (from 640×480) which should crisp up the lines as they are a bit chunky ATM.

Like the shaking also – pretty much built-in to Wiebo’s Game2d framework so all credit to him!

[wiebowParticipant]

Played it! Really nice. I like the starfield and the stressfull background bump sound. It gives it a nice atmosphere!

[Matthew SmithParticipant]

Updated version (v0.3)

You can now adjust the screen size (auto scales everything up) which makes the whole thing look much crisper! If you look in the settings file you can set the screen width which will configure the final screen size:

640 – 640×480
800 – 800×600
1024 – 1024×768 (default if nothing else matches)
1366 – 1366×768
1920 – 1920×1080

Everything is scaled (vectors, font, particles, speed) so it should essentially play the same regardless of resolution (not sure if I’ve got everything as yet though as it seems slightly easier the bigger you go).

[Mark SiblyKeymaster]

Great stuff!

Had to turn flicker off pretty quickly though…

[Matthew SmithParticipant]

Yeah – might be acquired taste that one!  Turned it off myself earlier.

[wiebowParticipant]

Softies  You should see the screen of my Vectrex

[Matthew SmithParticipant]

[Matthew SmithParticipant]

Updated version (v0.5)

Make some (more!) big internal changes the past couple of days. I wasn’t happy with my first attempt at scaling so thought more about it and started again.  Previously just about everything was scaled pre-render (this included speed, distance and size calcs) but I’ve changed that so it just when rendering now. The game now will run, process and validate at a set screen size (in this case 640×480) but it now renders everything automatically to the actual screen size.

Overall it now looks and runs the same regardless of resolution and I don’t have to change a thing!  The net effect is that the graphics become much cleaner and defined as you increase the resolution.

I also re-org’d a whole lot of other stuff to make it cleaner and easier to access (the eternal on-going tidy-up!). Now time to push on and look at the UFO, power-ups and final review of the colors.

Attachments:

1. 

   Asteroidsx640.png
   

2. 

   Asteroidsx1024.png
   

3. 

   Asteroids.GamePlayx1024.png
   

[AdamStrangeParticipant]

how are you storing the graphics/vector data. For example the ship (which is made from 4 lines)

Is it some form of vector class where you just give it a vertex list and it draws it at a location with rotation?

[Matthew SmithParticipant]

Adam,

This is my VectorEntity (whilst using Wiebo’s Game2d entity classes)

Monkey

Class VectorEntity Extends ObjectEntity Private Field _renderPoints:VectorPoint[] Field _basePoints:VectorPoint[] Field _points:Int=0 Field _currentScale:Vec2f Field _currentRotation:Float Public Field Speed:Float=0.0 Method New() 'Initialise Self.BlendMode=BlendMode.Additive Self.Color=GetColor(224,224,224) _renderPoints=New VectorPoint[20] _basePoints=New VectorPoint[20] End Method Property RenderPoints:VectorPoint[]() Return _renderPoints End Property Points:Int() Return _points End Method CreatePoint(x:Float,y:Float) 'Set _basePoints[_points].x=x _basePoints[_points].y=y _points+=1 'Plot Self.PlotPoints() End Method Method Reset:Void() Virtual 'Plot Self.PlotPoints() End Method Method Update:Void() Override 'Validate If (Not Self.Enabled) Return 'Validate (wrap) If (Self.X<-5) Self.ResetPosition(VirtualResolution.Width+5,Self.Y) If (Self.X>VirtualResolution.Width+5) Self.ResetPosition(-5,Self.Y) If (Self.Y<-5) Self.ResetPosition(Self.X,VirtualResolution.Height+5) If (Self.Y>VirtualResolution.Height+5) Self.ResetPosition(Self.X,-5) 'Changed? If (_currentScale<>Self.Scale Or _currentRotation<>Self.Rotation) '(Re)Plot Self.PlotPoints() 'Store _currentScale=Self.Scale _currentRotation=Self.Rotation End End Method Method Render:Void(canvas:Canvas) Override 'Validate If (Not Self.Enabled Or Not Self.Visible) Return 'Canvas canvas.LineWidth=GetLineWidth(2.0) 'For now make all lines >1.0 for smoothing canvas.Color=Self.Color 'Prepare Local dx:Float=(_renderPoints[0].x+Self.X)*VirtualResolution.sx Local dy:Float=(_renderPoints[0].y+Self.Y)*VirtualResolution.sy 'Process For Local index:Int=1 Until _points 'Draw (line) canvas.Alpha=GetAlpha() 'Flicker canvas.DrawLine(dx,dy,(_renderPoints[index].x+Self.X)*VirtualResolution.sx,(_renderPoints[index].y+Self.Y)*VirtualResolution.sy) 'Draw (point) canvas.Alpha=0.8 canvas.DrawPoint(Int(dx),Int(dy)) 'Position (for next line) dx=(_renderPoints[index].x+Self.X)*VirtualResolution.sx dy=(_renderPoints[index].y+Self.Y)*VirtualResolution.sy Next 'Reset canvas.Color=Color.White canvas.Alpha=1.0 End Method Method CheckCollision:Bool(entity:Entity) Override 'Validate If (Not Self.Collision) Return False Return Self.OverlapCollision(Cast<VectorEntity>(entity)) End Method 'Comparision between two objects Method OverlapCollision:Bool(entity:VectorEntity) 'Process (object) For Local k:Int=0 until entity.Points 'Prepare Local ex:Float=entity.RenderPoints[k].x+entity.X Local ey:Float=entity.RenderPoints[k].y+entity.Y 'Validate If (Self.CollisionState(_renderPoints,_points,Self.X,Self.Y,ex,ey)) Return True Next 'Process (point) Return Self.PointInPolyCollision(entity) 'Process (Double check??) 'For Local k:Int=0 until _points ' 'Prepare ' Local sx:Float=_renderPoints[k].x+Self.X ' Local sy:Float=_renderPoints[k].y+Self.Y ' ' 'Validate ' If (Self.CollisionState(entity.RenderPoints,entity.Points,entity.X,entity.Y,sx,sy)) Return True 'Next 'Return 'Return False End 'Comparison between object and point Method PointInPolyCollision:Bool(entity:VectorEntity) Return Self.CollisionState(_renderPoints,_points,Self.X,Self.Y,entity.X,entity.Y) End Method Private Method PlotPoints() 'Process For Local index:Int=0 Until _points 'Prepare Local fx:Float=_basePoints[index].x Local fy:Float=_basePoints[index].y 'Scale fx*=Self.Scale.x fy*=Self.Scale.y 'Rotation? If (Self.Rotation<>0.0) Local radian:=DegreesToRadians(-Self.Rotation) Local rx:Float=Cos(radian)*fx-Sin(radian)*fy Local ry:Float=Sin(radian)*fx+Cos(radian)*fy fx=rx fy=ry End 'Finalise _renderPoints[index].x=fx _renderPoints[index].y=fy Next End Method Method CollisionState:Bool(points:VectorPoint[],totalPoints:Int,x1:Int,y1:Int,x2:Int,y2:Int) 'Prepare Local j:Int=totalPoints-1 Local isColliding:Bool=False 'Process For Local i:Int=0 Until totalPoints 'Prepare Local xI:Float=points[i].x+x1 Local yI:Float=points[i].y+y1 Local xJ:Float=points[j].x+x1 Local yJ:Float=points[j].y+y1 'Validate 'https://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html If (((yI>y2)<>(yJ>y2)) And (x2<(xJ-xI)*(y2-yI)/(yJ-yI)+xI)) isColliding=Not isColliding 'Store j=i Next 'Return result Return isColliding End End Class Struct VectorPoint Field x:Float=0.0 Field y:Float=0.0 End Struct

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 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189

Class VectorEntity Extends ObjectEntity Private Field _renderPoints:VectorPoint[] Field _basePoints:VectorPoint[] Field _points:Int=0 Field _currentScale:Vec2f Field _currentRotation:Float Public Field Speed:Float=0.0 Method New() 'Initialise Self.BlendMode=BlendMode.Additive Self.Color=GetColor(224,224,224) _renderPoints=New VectorPoint[20] _basePoints=New VectorPoint[20] End Method Property RenderPoints:VectorPoint[]() Return _renderPoints End Property Points:Int() Return _points End Method CreatePoint(x:Float,y:Float) 'Set _basePoints[_points].x=x _basePoints[_points].y=y _points+=1 'Plot Self.PlotPoints() End Method Method Reset:Void() Virtual 'Plot Self.PlotPoints() End Method Method Update:Void() Override 'Validate If (Not Self.Enabled) Return   'Validate (wrap) If (Self.X<-5) Self.ResetPosition(VirtualResolution.Width+5,Self.Y) If (Self.X>VirtualResolution.Width+5) Self.ResetPosition(-5,Self.Y) If (Self.Y<-5) Self.ResetPosition(Self.X,VirtualResolution.Height+5) If (Self.Y>VirtualResolution.Height+5) Self.ResetPosition(Self.X,-5) 'Changed? If (_currentScale<>Self.Scale Or _currentRotation<>Self.Rotation) '(Re)Plot Self.PlotPoints() 'Store _currentScale=Self.Scale _currentRotation=Self.Rotation End End Method Method Render:Void(canvas:Canvas) Override 'Validate If (Not Self.Enabled Or Not Self.Visible) Return 'Canvas canvas.LineWidth=GetLineWidth(2.0) 'For now make all lines >1.0 for smoothing canvas.Color=Self.Color 'Prepare Local dx:Float=(_renderPoints[0].x+Self.X)*VirtualResolution.sx Local dy:Float=(_renderPoints[0].y+Self.Y)*VirtualResolution.sy 'Process For Local index:Int=1 Until _points 'Draw (line) canvas.Alpha=GetAlpha() 'Flicker canvas.DrawLine(dx,dy,(_renderPoints[index].x+Self.X)*VirtualResolution.sx,(_renderPoints[index].y+Self.Y)*VirtualResolution.sy) 'Draw (point) canvas.Alpha=0.8 canvas.DrawPoint(Int(dx),Int(dy)) 'Position (for next line) dx=(_renderPoints[index].x+Self.X)*VirtualResolution.sx dy=(_renderPoints[index].y+Self.Y)*VirtualResolution.sy Next 'Reset canvas.Color=Color.White canvas.Alpha=1.0 End Method Method CheckCollision:Bool(entity:Entity) Override 'Validate If (Not Self.Collision) Return False Return Self.OverlapCollision(Cast<VectorEntity>(entity)) End Method 'Comparision between two objects Method OverlapCollision:Bool(entity:VectorEntity) 'Process (object) For Local k:Int=0 until entity.Points 'Prepare Local ex:Float=entity.RenderPoints[k].x+entity.X Local ey:Float=entity.RenderPoints[k].y+entity.Y 'Validate If (Self.CollisionState(_renderPoints,_points,Self.X,Self.Y,ex,ey)) Return True Next 'Process (point) Return Self.PointInPolyCollision(entity) 'Process (Double check??) 'For Local k:Int=0 until _points ' 'Prepare ' Local sx:Float=_renderPoints[k].x+Self.X ' Local sy:Float=_renderPoints[k].y+Self.Y ' ' 'Validate ' If (Self.CollisionState(entity.RenderPoints,entity.Points,entity.X,entity.Y,sx,sy)) Return True 'Next 'Return 'Return False End 'Comparison between object and point Method PointInPolyCollision:Bool(entity:VectorEntity) Return Self.CollisionState(_renderPoints,_points,Self.X,Self.Y,entity.X,entity.Y) End Method   Private Method PlotPoints() 'Process For Local index:Int=0 Until _points 'Prepare Local fx:Float=_basePoints[index].x Local fy:Float=_basePoints[index].y 'Scale fx*=Self.Scale.x fy*=Self.Scale.y 'Rotation? If (Self.Rotation<>0.0) Local radian:=DegreesToRadians(-Self.Rotation) Local rx:Float=Cos(radian)*fx-Sin(radian)*fy Local ry:Float=Sin(radian)*fx+Cos(radian)*fy fx=rx fy=ry End 'Finalise _renderPoints[index].x=fx _renderPoints[index].y=fy Next End Method Method CollisionState:Bool(points:VectorPoint[],totalPoints:Int,x1:Int,y1:Int,x2:Int,y2:Int) 'Prepare Local j:Int=totalPoints-1 Local isColliding:Bool=False 'Process For Local i:Int=0 Until totalPoints 'Prepare Local xI:Float=points[i].x+x1 Local yI:Float=points[i].y+y1 Local xJ:Float=points[j].x+x1 Local yJ:Float=points[j].y+y1 'Validate 'https://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html If (((yI>y2)<>(yJ>y2)) And (x2<(xJ-xI)*(y2-yI)/(yJ-yI)+xI)) isColliding=Not isColliding 'Store j=i Next   'Return result Return isColliding End End Class   Struct VectorPoint Field x:Float=0.0 Field y:Float=0.0 End Struct

Pretty much my objects such as the player, bullets and asteroids are created from this base vector class.  Here is my base ship:

Monkey

Class ShipEntity Extends VectorEntity Method New() 'Initialise Self.Initialise() End Method Initialise:Void() Virtual 'Points Self.CreatePoint(-8,-8) Self.CreatePoint(12,0) Self.CreatePoint(-8,8) Self.CreatePoint(-5,0) Self.CreatePoint(-8,-8) 'Other Self.Rotation=90.0 Self.Scale=New Vec2f(0.75,0.75) 'Reset Self.Reset() End Method End Class

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Class ShipEntity Extends VectorEntity   Method New() 'Initialise Self.Initialise() End Method Initialise:Void() Virtual 'Points Self.CreatePoint(-8,-8) Self.CreatePoint(12,0) Self.CreatePoint(-8,8) Self.CreatePoint(-5,0) Self.CreatePoint(-8,-8) 'Other Self.Rotation=90.0 Self.Scale=New Vec2f(0.75,0.75) 'Reset Self.Reset() End Method   End Class

So what is doing is storing the points as a base [basePoints] and it then re-plots [PlotPoints] that based on scale and rotation [renderPoints] as necessary during an update.  From there it renders (overall scale adjusted by the VirtualResolution object as required as discussed above).

I’ve had this vector code sitting around for donkeys in my folder collection – unfortunately not sure who created originally!

[gcmartijnParticipant]

I use this vector script in monkey1, need/going to translate it to mx2.

http://www.monkey-x.com/Community/posts.php?topic=568

But i will try to use the vec2f class and extend it with thing (i guess)

[Matthew SmithParticipant]

@gcmartin – quite a comprehensive module! I’ve just done the basic requirements myself to do the job.  Shouldn’t be too hard to convert over.

[Author]

Posts