diff options
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 |