Graphics 1024,768,32
' Declarations
SeedRnd(MilliSecs())
AutoMidHandle(True)
'-------------------------------------------------------------------------
' create a particle (programmatically, you can uncomment the loadimage line if you have a better particle image
SetBlend ALPHABLEND
Local sz:Int =16
Global particle_image:timage = CreateImage(sz,sz)
Local alpha:Float = 1.0
For i = 1 To sz/2
DrawOval (sz/2)-i,(sz/2)-i,i*2,i*2
alpha:* 0.65
SetColor Rnd(100,200),Rnd(100,200),Rnd(200,255)
SetAlpha alpha
Next
GrabImage(particle_image,0,0) ; Cls
'-------------------------------------------------------------------
Type Tparticle
Field x:Float,y:Float
Field xrange:Int,yrange:Int
Field vel:Float
Field angle:Float
Field image:Timage
Field life
Field is_alive
Field alpha:Float
Field scale:Float
Field pred,pgreen,pblue
Method Spawn(px,py,pvel,plife,pscale,pangle,pxrange,pyrange)
is_alive = True
x = Rnd(px-(pxrange/2),px+(pxrange/2))
y = Rnd(py-(pyrange/2),py+(pyrange/2))
vel = pvel
xrange = pxrange
yrange = pyrange
life = plife
scale = pscale
angle = pangle
alpha = Rnd(1.0,3.0)
pred = Rnd(0,255)
pgreen = Rnd(0,255)
pblue = Rnd(0,255)
End Method
Method Update()
life:-1
If life <0 Then is_alive = False
If is_alive = True
pcount:+1
vel:*1.02
'x:+(vel*Sin(angle-90))
'y:+(vel*Cos(angle-90))
x=x+(vel*Cos(angle-90))
y=y+(vel*Sin(angle-90))
SetBlend LIGHTBLEND 'ALPHABLEND
alpha:*.99
scale:*.999
SetAlpha alpha
SetColor pred,pgreen,pblue
SetRotation angle
SetScale(scale,scale)
DrawImage image,x,y
EndIf
End Method
End Type
'-------------------------------------------------------------------
Local part_array:Tparticle[10000]
Local spawn_delay:Int = 20
Global pcount:Int
Global part_counter:Int
Global plength:Int = Len part_array
Print plength
For i = 1 To plength-1
part_array[i] = New Tparticle
part_array[i].image = particle_image
part_array[i].life = Rnd(800,1000)
part_array[i].scale = 1
part_array[i].is_alive =False
part_array[i].alpha = 1
Next
' * * * <MAIN_LOOP>
Local ymouse:Int,xmouse:Int
Repeat
Cls
xmouse:Int = MouseX()
ymouse:Int = MouseY()
Local spawnx = GraphicsWidth()/2
Local spawny = 32
spawn_delay:-1
If spawn_delay<0 'And MouseDown (1)
For pp = 1 To 64
For i = 1 To plength-1
If part_array[i].is_alive = False
Local pvel:Float = Rnd (pp/8,pp/4)
Local life:Int = Rnd (75,100)
Local sc:Float = Rnd (1.1,2.5)
Local ang:Float = Rnd(176,184)
Local xrange:Int = 600
Local yrange:Int = 16
part_array[i].spawn(spawnx,spawny,pvel,life,sc,ang,xrange,yrange)
spawn_delay = 0
Exit
EndIf
Next
Next
EndIf
For i = 1 To plength-1
part_array[i].update()
Next
SetColor 255,255,0
SetAlpha 1
SetTransform(1,1,1)
DrawText("ps: " +pcount,0,0)
pcount = 0
Flip
Until KeyDown(KEY_ESCAPE)
End
' * * * </MAIN_LOOP>
'-------------------------------------------------------------------
'-------------------------------------------------------------------
'-------------------------------------------------------------------
'-------------------------------------------------------------------
'------------------------------------------------------------------- |
