Asteroids

Community Forums/Monkey Talk/Asteroids

therevills (Posted 2011) [#1]

Converted this code into Monkey and added a few bits. http://www.therevillsgames.com/monkey/asteroids/

Why0Why (Posted 2011) [#2]

Would you mind sharing the Monkey code? I have bought it and need to get started. Would be nice to see the side by side comparison.

MGE (Posted 2011) [#3]

Nice. :) Would love to see the source as well.

Warpy (Posted 2011) [#4]

Well, I decided to make a very simple version just so you could see some source code, and it got a bit out of hand. Sorry for butting in to your thread, therevills.

therevills (Posted 2011) [#5]

No worries Warpy - thats cool, it good to compare :) Here is my source: Strict import mojo Global game:MyGame Function Main:int() game = new MyGame return 0 End Function Const PDM_smlparticle%=0 Const PDM_medparticle%=1 Const PDM_bigparticle%=2 Const PDM_spark%=3 Global ASTEROIDS_NUM% = 6 Global ASTEROIDS_SIZE% = 4 ' Store the device width and height Global SCREEN_WIDTH% Global SCREEN_HEIGHT% ' Half of SCREEN_WIDTH and HEIGHT Global SCREEN_WIDTH2% Global SCREEN_HEIGHT2% ' Used for delta timing movement Global dt:DeltaTimer ' Screen states Const STATE_TITLE% = 1 Const STATE_GAME% = 2 Const STATE_GAME_OVER% = 3 Class MyGame extends App Field player:Player field cg%, cr%, cb% Field level% = 1 Field score% = 0 Field bestScore% = 0 Field FPS% = 60 ' Current game state Global gameState:Int = STATE_TITLE Method OnCreate:Int() ' Store the device width and height SCREEN_WIDTH = DeviceWidth() SCREEN_HEIGHT = DeviceHeight() SCREEN_WIDTH2 = SCREEN_WIDTH / 2 SCREEN_HEIGHT2 = SCREEN_HEIGHT / 2 ' Set the Random seed Seed = Millisecs() ' Create the delta timer dt = New DeltaTimer(FPS) SetUpdateRate FPS reset() return 0 End Method Method OnLoading:Int() Cls 0,0,0 DrawText("Loading", SCREEN_WIDTH2, SCREEN_HEIGHT2, 0.5, 0) return 0 End Method Method OnUpdate:Int() FPSCounter.update() dt.UpdateDelta() Select gameState Case STATE_TITLE Asteroid.updateAll() If KeyHit(KEY_SPACE) setState(STATE_GAME) Endif Case STATE_GAME player.Update() Bullet.updateAll() Asteroid.updateAll() Particle.updateAll() checkCollisions() clscolor() Case STATE_GAME_OVER Asteroid.updateAll() Particle.updateAll() If KeyHit(KEY_SPACE) setState(STATE_TITLE) reset() Endif End Select return 0 End Method Method OnRender:Int() Select gameState Case STATE_TITLE Cls 0, 0, 0 Asteroid.drawAll() DrawText "ASTEROIDS - MONKEY STYLE!", SCREEN_WIDTH2, SCREEN_HEIGHT2, 0.5, 0.5) DrawText "BEST SCORE: "+self.bestScore, SCREEN_WIDTH2, SCREEN_HEIGHT2 + 30, 0.5, 0.5) DrawText "PRESS <SPACE> TO PLAY", SCREEN_WIDTH2, SCREEN_HEIGHT2 + 60, 0.5, 0.5) Case STATE_GAME Cls cr, cg, cb player.draw() Bullet.drawAll() Asteroid.drawAll() Particle.drawAll() drawHUD() Case STATE_GAME_OVER Cls 0, 0, 0 Asteroid.drawAll() Particle.drawAll() DrawText "GAME OVER!", SCREEN_WIDTH2, SCREEN_HEIGHT2, 0.5, 0.5) DrawText "SCORE: "+score, SCREEN_WIDTH2, SCREEN_HEIGHT2 + 30, 0.5, 0.5) DrawText "BEST SCORE: "+self.bestScore, SCREEN_WIDTH2, SCREEN_HEIGHT2 + 60, 0.5, 0.5) DrawText "PRESS <SPACE> TO RETURN TO THE TITLE SCREEN", SCREEN_WIDTH2, SCREEN_HEIGHT2 + 90, 0.5, 0.5) End Select return 0 End Method Method setState:Void(state:Int) gameState = state End Method clscolor:Void() if cr > 0 cr-=2*dt.delta else cr = 0 EndIf End Method Method reset:Void() Bullet.list.Clear() Asteroid.list.Clear() Particle.list.Clear() cg = 0 cr = 0 cb = 0 level = 1 ASTEROIDS_NUM = 6 ASTEROIDS_SIZE = 4 score = 0 player = New Player(SCREEN_WIDTH2, SCREEN_HEIGHT2) fillAsteroids(ASTEROIDS_NUM, ASTEROIDS_SIZE) End Method Method checkCollisions:Void() For local a:Asteroid = eachin Asteroid.list if dist(player.x, player.y, a.x, a.y) <= a.avgrad if cr = 0 then cr = Rnd(100, 155) player.shield-=2 endif For local b:Bullet = eachin Bullet.list if a <> null then If dist(b.x, b.y, a.x, a.y) <= a.avgrad a.life = a.life - 1 b.life = 0 For local t%=1 To 4 new Particle(a.x, a.y, Rnd(-8,8), Rnd(-8,8), 0.95, 30, PDM_spark, 255, 192, 64, 16) Next For local t%=1 To 4 new Particle(a.x, a.y, Rnd(-4,4), Rnd(-4,4), 0.95, 60, PDM_smlparticle, 160, 160, 160, 0) Next endif If a.life <= 0 For local t%=1 To 8 new Particle(a.x,a.y,Rnd(-10,10),Rnd(-10,10),0.95,30,PDM_spark,255,192,64,64) Next For local t%=1 To 6 new Particle(a.x,a.y,Rnd(-6,6),Rnd(-6,6),0.95,30,PDM_medparticle,255,192,64,128) Next For local t%=1 To 6 new Particle(a.x,a.y,Rnd(-8,8),Rnd(-8,8),0.99,60,PDM_smlparticle,160,160,160,0) Next For local t%=1 To 5 new Particle(a.x,a.y,Rnd(-6,6),Rnd(-6,6),0.99,60,PDM_medparticle,160,160,160,0) Next For local t%=1 To 4 new Particle(a.x,a.y,Rnd(-4,4),Rnd(-4,4),0.99,60,PDM_bigparticle,160,160,160,0) Next If a.size > 1 For local t% = 1 To 2 new Asteroid(a.x, a.y, Rnd(-5,5), Rnd(-5,5), a.size-1) Next EndIf Asteroid.list.Remove(a) a = null score+=5 EndIf endif Next Next if Asteroid.list.Count() = 0 level+=1 ASTEROIDS_SIZE+=1 ASTEROIDS_NUM+=1 fillAsteroids(ASTEROIDS_NUM, ASTEROIDS_SIZE) EndIf End Method Method drawHUD:Void() DrawText "LEVEL: "+level, 0, 0) DrawText "SCORE: "+score, SCREEN_WIDTH, 0, 1, 0) FPSCounter.draw(SCREEN_WIDTH,SCREEN_HEIGHT, 1, 1) End Method Method fillAsteroids:Void(num%, size%) local tx# local ty# For local t% = 1 To num Repeat tx=Rnd(640) ty=Rnd(480) Until ( tx<280 Or tx>360 ) And ( ty<200 Or ty>280 ) new Asteroid(tx, ty, Rnd(-3,3), Rnd(-3,3), size+Rnd(1)) Next End Method end class Class Sprite Field xv# ,yv# Field x#, y# Field rotation# End Class Class Player Extends Sprite Field angVel# Field velmul# Field vel# Field acc# Field drag# Field xv#,yv# Field xa#,ya# Field firedel# Field ship_angvel# Field ship_acc# Field ship_velmul# Field ship_firedel# Field shield#=100 Method new(x#, y#) self.x = x self.y = y ship_angvel = 6 ship_acc = 0.16 ship_velmul = -0.0005 ship_firedel = 4 shield = 100 End Method Method Update:Void() If KeyDown(KEY_UP) acc = ship_acc drag = vel * ship_velmul else If KeyDown(KEY_DOWN) drag = vel * ship_velmul * 50 Else acc = 0 drag = 0 End If If KeyDown(KEY_LEFT) rotation+=ship_angvel * dt.delta End If If KeyDown(KEY_RIGHT) rotation-=ship_angvel * dt.delta End If if KeyDown(KEY_SPACE) And self.firedel<=0 local tang#=Rnd(-4,4) new Bullet(x - (Sin(rotation)*8), y-(Cos(rotation)*8), xv - (Sin(rotation + tang ) *12), yv-(Cos(rotation + tang ) *12), 45, 255-Rnd(4), 192+Rnd(-4,4), 64+Rnd(4,4)) firedel = ship_firedel EndIf firedel-=dt.delta xa = (drag * xv) - (Sin(rotation) * acc) ya = (drag * yv) - (Cos(rotation) * acc) xv = xv + xa *dt.delta yv = yv + ya * dt.delta x = x + xv * dt.delta y = y + yv * dt.delta vel = dist(0, 0, xv, yv) ' If x < 0 x = SCREEN_WIDTH If x > SCREEN_WIDTH x = 0 If y < 0 y = SCREEN_HEIGHT If y > SCREEN_HEIGHT y = 0 if shield <= 0 For local t%=1 To 18 new Particle( x, y,Rnd(-10,10),Rnd(-10,10),0.95,130,PDM_spark,255,192,64,64) Next For local t%=1 To 16 new Particle( x, y,Rnd(-6,6),Rnd(-6,6),0.95,130,PDM_medparticle,255,192,64,128) Next For local t%=1 To 16 new Particle( x, y,Rnd(-8,8),Rnd(-8,8),0.99,160,PDM_smlparticle,160,160,160,0) Next For local t%=1 To 15 new Particle( x, y,Rnd(-6,6),Rnd(-6,6),0.99,160,PDM_medparticle,160,160,160,0) Next For local t%=1 To 14 new Particle( x, y,Rnd(-4,4),Rnd(-4,4),0.99,160,PDM_bigparticle,160,160,160,0) Next if game.score>game.bestScore game.bestScore = game.score EndIf game.setState(STATE_GAME_OVER) EndIf End Method Method draw:Void() local x1# = x-(Sin(rotation) * 10) local y1# = y-(Cos(rotation) * 10) local x2# = x-(Sin(rotation + 140 ) * 8) local y2# = y-(Cos(rotation + 140 ) * 8) local x3# = x-(Sin(rotation - 140 ) * 8) local y3# = y-(Cos(rotation - 140 ) * 8) SetColor 255, 255, 255 DrawLine x1, y1, x2, y2 DrawLine x2, y2, x3, y3 DrawLine x3, y3, x1, y1 SetAlpha 0.5 if shield < 50 then SetColor 255,0,0 DrawRect 10,SCREEN_HEIGHT - 15, self.shield, 10 SetAlpha 1 SetColor 255,0,0 End Method End Class Class Bullet Extends Sprite Global list:List<Bullet> = new List<Bullet> Field life# Field cr%, cg%, cb% Method new(x#,y#,xv#,yv#,life#,cr%,cg%,cb%) self.x = x self.y = y self.xv = xv self.yv = yv self.life = life self.cr = cr self.cg = cg self.cb = cb list.AddLast self End Method Function updateAll:Void() If not list Return For local b:Bullet = Eachin list b.update() If b.life < 0 Bullet.list.Remove(b) b = null endif Next End Function Method update:Void() x = x + xv * dt.delta y = y + yv * dt.delta life-=dt.delta If x < 0 x = SCREEN_WIDTH If x > SCREEN_WIDTH x = 0 If y < 0 y = SCREEN_HEIGHT If y > SCREEN_HEIGHT y = 0 End Method Function drawAll:Void() If not list Return For local b:Bullet = Eachin list b.draw() Next End Function Method draw:Void() local tmul# If life <= 15.0 tmul = life / 15.0 Else tmul = 1.0 EndIf SetColor cr*tmul, cg*tmul, cb*tmul DrawLine x, y, x + xv, y + yv End Method End Class Class Asteroid Extends Sprite Global list:List<Asteroid> = new List<Asteroid> Field ang#,angvel# Field rad#[9] Field avgrad# Field size% Field life% Field cr%, cg%, cb% Method new(x#,y#,xv#,yv#,size%) self.x =x self.y =y self.xv =xv self.yv =yv self.ang =Rnd(360) self.angvel =Rnd(-6,6) self.size=size self.life=size local tcol% = Rnd(-48,48) self.cr=128+tcol self.cg=128+tcol self.cb=128+tcol ' Create "Rockiness" self.avgrad =0 For local t% = 0 To 7 self.rad [t]=size*8.0+Rnd(-size*4.0,size*4.0) self.avgrad =self.avgrad +self.rad[t] Next self.avgrad =self.avgrad /6.0 self.rad[8] = self.rad[0] list.AddLast self End Method Function drawAll:Void() If not list Return For local b:Asteroid = Eachin list b.draw() Next End Function Function updateAll:Void() If not list Return For local b:Asteroid = Eachin list b.update() Next End Function Method update:Void() self.x =self.x +self.xv * dt.delta self.y =self.y +self.yv * dt.delta self.rotation =self.rotation +self.angvel * dt.delta If self.x <-self.avgrad Then self.x =self.x + SCREEN_WIDTH + self.avgrad *2 If self.x >SCREEN_WIDTH+self.avgrad Then self.x =self.x - SCREEN_WIDTH - self.avgrad *2 If self.y <-self.avgrad Then self.y =self.y + SCREEN_HEIGHT + self.avgrad *2 If self.y >SCREEN_HEIGHT+self.avgrad Then self.y =self.y - SCREEN_HEIGHT - self.avgrad *2 End Method Method draw:Void() local tmul# = 360.0 / 8.0 SetColor cr, cg, cb For local t% = 0 To 7 DrawLine x-(Sin(rotation+(t)*tmul)*rad[t]),y-(Cos(rotation+(t)*tmul)*rad[t]),x-(Sin(rotation+(t+1)*tmul)*rad[t+1]),y-(Cos(rotation+(t+1)*tmul)*rad[t+1]) Next End Method End Class Class Particle Extends Sprite Global list:List<Particle> = new List<Particle> Field vm# Field life#,mlife# Field drawmode% Field cr%,cg%,cb% Field cflash% Method new(x#,y#,xv#,yv#,vm#,life#,drawmode%,cr%,cg%,cb%,cflash%) self.x=x self.y=y self.xv=xv self.yv=yv self.vm=vm self.life=life self.mlife=life self.drawmode=drawmode self.cr=cr self.cg=cg self.cb=cb self.cflash=cflash list.AddLast self End Method Function updateAll:Void() If not list Return For local b:Particle = Eachin list b.update() Next End Function Function drawAll:Void() If not list Return For local b:Particle = Eachin list b.draw() Next End Function Method update:Void() self.x =self.x +self.xv *dt.delta self.y =self.y +self.yv *dt.delta self.xv =self.xv *(1.0-(1.0-self.vm )*dt.delta ) self.yv =self.yv *(1.0-(1.0-self.vm )*dt.delta ) self.life =self.life -dt.delta If self.life <0 Then self.life =0 If self.life =0 list.Remove(self) EndIf End Method Method draw:Void() local tmul# = self.life /self.mlife local tfls#=Rnd(-self.cflash,self.cflash) SetColor limit (self.cr*tmul +tfls,0,255),limit (self.cg*tmul +tfls,0,255),limit (self.cb *tmul+tfls,0,255) Select self.drawmode Case PDM_smlparticle DrawRect self.x ,self.y , 1, 1 Case PDM_medparticle DrawOval self.x -1,self.y -1,3,3 Case PDM_bigparticle DrawOval self.x -2,self.y -2,5,5 Case PDM_spark DrawLine self.x ,self.y ,self.x +self.xv ,self.y +self.yv End Select End Method End Class Class FPSCounter Abstract Global fpsCount:Int Global startTime:Int Global totalFPS:Int Function update:Void() If Millisecs() - startTime >= 1000 totalFPS = fpsCount fpsCount = 0 startTime = Millisecs() Else fpsCount+=1 EndIf End Function Function draw:Void(x% = 0, y% = 0, ax# = 0, ay# = 0) DrawText("FPS: " + totalFPS, x, y, ax, ay) End Function End Class ' From James Boyd Class DeltaTimer Field targetfps:Float = 60 Field currentticks:Float Field lastticks:Float Field frametime:Float Field delta:Float Method New (fps:Float) targetfps = fps lastticks = Millisecs() End Method UpdateDelta:Void() currentticks = Millisecs() frametime = currentticks - lastticks delta = frametime / (1000.0 / targetfps) lastticks = currentticks End End Function dist#(x1#,y1#,x2#,y2#) Return Sqrt(Pow((x1-x2),2) + Pow((y1-y2),2)) End Function Function limit#(value#,low#,high#) If value < low Then Return low If value > high Then Return high Return value End Function

therevills (Posted 2011) [#6]

Added "glow" around the lines and changed the colours a tad:

Steve Elliott (Posted 2011) [#7]

A nice improvement to the graphics therevills, but god it's fast! :-O

Brucey (Posted 2011) [#8]

Can't you make it more "glowy"? At the moment, it just looks like a wider line has been added on.

therevills (Posted 2011) [#9]

Thats why I said "glow", in quotes :) Im waiting on the bah.glow mod :P How would I make it more "glowy"?

Canardian (Posted 2011) [#10]

I think some falloff glow would look better, now it looks like the glow is just a fat alpha transparent line. Should be simple to implement: just draw the objects bigger and smaller a few times and lower the color in each iteration. Last edited 2011

therevills (Posted 2011) [#11]

Ahh of course... Ta!

Brucey (Posted 2011) [#12]

Like what Lumooja said :-)

therevills (Posted 2011) [#13]

Any better? Seems strange where the lines join - alpha on top of alpha... Last edited 2011

Canardian (Posted 2011) [#14]

Make a steeper falloff: more color decrease and/or less shape size iterations, it's too big now, but it's still better than your first glow. Maybe it would also look better with a exponential falloff, instead of just a linear falloff. Last edited 2011

therevills (Posted 2011) [#15]

This looks better moving: Also with Flash and HTML5 the alpha values differ, so I havent uploaded the swf file... I liked Warpy's thrust effect, so I added it to mine :)

Brucey (Posted 2011) [#16]

Looks much more "glowy" now :-)

Jason W. (Posted 2011) [#17]

I played both versions (without and with glow), and the version without glow looks and plays better. The glow looks like mustard more that a glow. Jason