diff options
author | Ian C <ianc@noddybox.co.uk> | 2005-10-02 02:08:48 +0000 |
---|---|---|
committer | Ian C <ianc@noddybox.co.uk> | 2005-10-02 02:08:48 +0000 |
commit | 7ff4818c925a84230b5f5386fd90198f6419044a (patch) | |
tree | 89cd6d69782cff39ce8a27cc6d36fa3f9b1e256f /types.bmx | |
parent | 2f3aeb2c37136463c73a1df65797d7996b6f6034 (diff) |
Added initial Menu code.
Diffstat (limited to 'types.bmx')
-rw-r--r-- | types.bmx | 31 |
1 files changed, 30 insertions, 1 deletions
@@ -13,13 +13,22 @@ Const MASSRAD:Int=3 Type GameGFX Global font:TBitmapFont - Global guifont:TBitmapFont + Global smallfont:TBitmapFont Global star:TImage Global mass:TImage Global collector:TImage Global point:TImage Global particle:Timage Global pointer:TImage + + Global play_button:TImage + Global edit_button:TImage + Global load_button:TImage + Global toy_button:TImage + Global quit_button:TImage + Global left_button:TImage + Global right_button:TImage + Global scores_button:TImage End Type Type TMass @@ -205,6 +214,20 @@ Type TParticle Return o End Function + Function FromCoord:TParticle(x:Int, y:Int) + Local o:TParticle=New TParticle + o.x=x + o.y=y + o.dx=Rnd(-2,2) + o.dy=Rnd(-2,2) + o.r=Rand(128,255) + o.g=Rand(128,255) + o.b=Rand(128,255) + o.a=1 + o.ai=-0.01 + Return o + End Function + Method Update() x:+dx y:+dy @@ -242,6 +265,12 @@ Type TParticleMachine Next End Function + Function AddFirework(x:Int, y:Int) + For Local f:Int=0 To 20 + list.AddLast(TParticle.FromCoord(x,y)) + Next + End Function + Function Process() Local l:TLink=list.FirstLink() Local t:TLink |