From 0b93bde7fe64ce51117bb8eb48cbabf757ba4a02 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Thu, 15 Sep 2005 01:03:37 +0000
Subject: Updated to use images

---
 main.bmx | 37 ++++++++++++++++++++++++++++++++-----
 1 file changed, 32 insertions(+), 5 deletions(-)

(limited to 'main.bmx')

diff --git a/main.bmx b/main.bmx
index 1a2646b..f6ca18d 100644
--- a/main.bmx
+++ b/main.bmx
@@ -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
-- 
cgit v1.2.3