[Matthew SmithParticipant]

Been a while since I last used Monkey – I must say Ted2Go is now very impressive with all its features! Great job nerobot!

[Matthew SmithParticipant]

Yeah the simultaneous relanding of the boosters was amazing – the crowd going crazy!! I always remember the days of getting up early in Australia watching the space shuttles go up in amazement. Hopefully we see much more of this going forward!

[Matthew SmithParticipant]

Take care Mark.

[Matthew SmithParticipant]

Thanks!

[Matthew SmithParticipant]

looking great Adam! How is the data being stored and loaded?

[Matthew SmithParticipant]

nice! you don’t need anything too fancy but looks like it will do a great job! Certainly easier than a manual plot!

[Matthew SmithParticipant]

Adam,

With the code I used it stored the data in a 2d array which is laid out in grid co-ordinates (x,y) with centre as 0,0.  For example the ship is initialised as follows:

Monkey

Self.CreatePoint(-8,-8) Self.CreatePoint(12,0) Self.CreatePoint(-8,8) Self.CreatePoint(-5,0) Self.CreatePoint(-8,-8)

1 2 3 4 5

Self.CreatePoint(-8,-8) Self.CreatePoint(12,0) Self.CreatePoint(-8,8) Self.CreatePoint(-5,0) Self.CreatePoint(-8,-8)

The one thing you may want to consider is the ability to have multiple start points (I guess you could also overlay multiple vectors as an alternate) which would allow you to construct more detailed vectors – for example with the UFO I did have to draw over the some areas twice to get to the next area I needed to draw:

Monkey

Self.CreatePoint( -5, -3) Self.CreatePoint( -3, -7) Self.CreatePoint( 3, -7) Self.CreatePoint( 5, -3) Self.CreatePoint( -5, -3) Self.CreatePoint(-12, 0) Self.CreatePoint( -5, 4) Self.CreatePoint( 5, 4) Self.CreatePoint( 12, 0) Self.CreatePoint( 5, -3) Self.CreatePoint( 12, 0) Self.CreatePoint(-12, 0)

1 2 3 4 5 6 7 8 9 10 11 12

Self.CreatePoint( -5, -3) Self.CreatePoint( -3, -7) Self.CreatePoint(  3, -7) Self.CreatePoint(  5, -3) Self.CreatePoint( -5, -3) Self.CreatePoint(-12,  0) Self.CreatePoint( -5,  4) Self.CreatePoint(  5,  4) Self.CreatePoint( 12,  0) Self.CreatePoint(  5, -3) Self.CreatePoint( 12,  0) Self.CreatePoint(-12,  0)

The vector code I used is available here if you wanted to take a look:

https://github.com/chunkypixel/monkey2/blob/master/Asteroids/src/entity/vector.monkey2

What the code does is initially store the vector in one array and then as scaling or rotation is applied it updates the object into a drawing vector.  Then when drawn a virtual scale is also applied (Asteroids runs under a base 640,480 but a virtual scale is applied when drawn to match the actual screen size ie. 1024,768).

Hope that gives you a starting point!

[Matthew SmithParticipant]

Very nice!! Plays very well!

[Matthew SmithParticipant]

@wiebow looking forward too seeing it!

[Matthew SmithParticipant]

Updated version (0.6)

https://1drv.ms/u/s!AgngrULjSty9kJscgMVwpojeo2pn3w

Added UFOs, extra player every 10,000pts and ability to enter high scores.  Also done a general tidy-up of the game play – plays quite well now.

The new change follow the reasonably established Asteroids game play – UFOs have a large and small (after 10,000pts).  Large UFO fire randomly whist small UFOs are quite accurate (less accurate initially but get more so the higher you score.

Now onto the bonus stuff and maybe some color changes.

[Matthew SmithParticipant]

Nice!

[Matthew SmithParticipant]

I’m getting a similar crashing thing compiling (on Windows) but on different modules. Sometimes works some times doesn’t – trying to think of how to replicate before I log it.

Note: both ‘external’ modules downloaded ok.

[Matthew SmithParticipant]

Adam,

Yes certainly sounds interesting! The ability to have some basic editing of a number of file types would enhance a game making application such as Monkey2.  Doing a great job on Ted21 BTW!

[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.

[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!

[Author]

Posts