diff options
Diffstat (limited to 'main.bmx')
-rw-r--r-- | main.bmx | 37 |
1 files changed, 32 insertions, 5 deletions
@@ -13,19 +13,40 @@ Include "types.bmx" ' Included binaries ' Incbin "GFX/font.bmf" +Incbin "GFX/STAR.png" +Incbin "GFX/MASS.png" +Incbin "GFX/POINT.png" +Incbin "GFX/PARTICLE.png" +Incbin "GFX/POINTER.png" ' Initialise graphics ' SetGraphicsDriver GLMax2DDriver() -Graphics 800,600,32,60 -'HideMouse +Graphics 800,600',32,60 +HideMouse SetBlend(ALPHABLEND) ' Globals ' Global font:TBitmapFont=TBitmapFont.Load("incbin::GFX/font.bmf",0) +Global star_img:TImage=LoadAnimImage("incbin::GFX/STAR.png",8,8,0,2) +Global mass_img:TImage=LoadAnimImage("incbin::GFX/MASS.png",8,8,0,2) +Global point_img:TImage=LoadImage("incbin::GFX/POINT.png",0) +Global particle_img:TImage=LoadImage("incbin::GFX/PARTICLE.png",0) +Global pointer_img:TImage=LoadImage("incbin::GFX/POINTER.png",0) + +SetImageHandle(star_img,3,3) +SetImageHandle(mass_img,3,3) +SetImageHandle(point_img,3,3) +SetImageHandle(particle_img,3,3) +SetImageHandle(pointer_img,0,0) + +TPoint.img=point_img +TParticle.img=particle_img + +TParticleMachine.Init() ' Consts ' @@ -41,9 +62,8 @@ Global cy:Int=GraphicsHeight()/2 main_mass.x=cx'/2 main_mass.y=cy main_mass.friend=False -main_mass.g=100 -main_mass.b=100 -main_mass.inverse=True +'main_mass.inverse=True +main_mass.img=star_img For Local r:Int=0 Until 1000 Local s:TPoint=New TPoint @@ -62,6 +82,8 @@ Next mass.AddLast(main_mass) +TParticleMachine.Clear() + While Not KeyHit(KEY_ESCAPE) Cls @@ -74,6 +96,8 @@ While Not KeyHit(KEY_ESCAPE) Next Next + TParticleMachine.Process() + For Local m:TMass=EachIn mass m.MoveAndDraw() Next @@ -99,9 +123,12 @@ While Not KeyHit(KEY_ESCAPE) Local m:TMass=New TMass m.x=MouseX() m.y=MouseY() + m.img=mass_img mass.AddLast(m) EndIf + SetColor(255,255,255) + DrawImage(pointer_img,MouseX(),MouseY()) FlushMem Flip Wend |