Sorry your browser is not supported!

SetWindowTitle( "fireworks" )
SetWindowSize( 640, 480, 0 )
 
// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 0, 0, 1, 1 )
SetVSync(1)

#constant maxNumberFireworks=5
fire as integer[maxNumberFireworks] //variable to hold the present particle emmitter

for num = 1 to maxNumberFireworks
	setupFirework(num)
	fire[num]=0
next num

CreateText(1,"Happy New Year")
SetTextSize(1,60)
SetTextColor( 1,255,215,0,255 ) //set colour to gold
SetTextDepth( 1, 10000 ) //set text to back  
SetTextPosition( 1,50, GetVirtualHeight()/2 ) 

alpha=255
alphaDirection=0
start_time = GetMilliseconds()
do

for num=1 to maxNumberFireworks 
	if (fire[num]=0) and random(1,100)<5 //a 5 percent chance of that particle being emitted
		doFirework(num)
		fire[num]=1
	endif
    if GetParticlesMaxReached(num)=1
		fire[num]=0
	endif
next num

current_time = GetMilliseconds()
//every 10 milliseconds fade in out or fade out the text
if current_time - start_time > 30
	start_time = current_time
	if alphaDirection=0 and alpha>=10
		alpha=alpha-10
	elseif alphaDirection =0 and alpha <=10
		alphaDirection =1
	elseif alphaDirection=1 and alpha <=245
		alpha=alpha+10
	elseif alphaDirection=1 and alpha >=245
		alphaDirection =0
	endif
	SetTextColorAlpha(1,alpha)
endif
Sync()
loop

function setupFirework(obj as integer)
	CreateParticles(obj,100,100) //id,x,y
	SetParticlesSize(obj,2)		 //pixel size of particles	
	SetParticlesLife(obj,5)		 //sets the length of 5 seconds the particles live
	SetParticlesMax(obj,75)		 //max number of particles set to 75 f
	`SetParticlesActive(1,0)
	AddParticlesForce(obj,1,4,0,15) //The time a particle has to wait before forces apply 
	SetParticlesFrequency(obj,100)  //Sets the frequency of new particle generation
	SetParticlesVelocityRange(obj,2,4)  //velocity factor of particles ranging from min of 2 to 4
	SetParticlesColorInterpolation(obj,0) //1 smooth 0 none
	SetParticlesVisible( obj, 0 ) 		//hide particles when they first created so as timer can be used
	//SetParticlesFaceDirection( obj,1 ) 
endfunction

function doFirework (obj as integer)
	SetParticlesVisible( obj, 1 ) //make particle visible 
	SetParticlesPosition(obj,Random(100,GetVirtualWidth()-100),Random(100,GetVirtualHeight()-100))
    ResetParticleCount(obj)

	AddParticlesColorKeyFrame(obj,1,Random(100,250),Random(100,250),Random(100,250),255)
	AddParticlesColorKeyFrame(obj,2,Random(100,200),Random(100,200),Random(100,200),200)
	AddParticlesColorKeyFrame(obj,4,Random(50,100),Random(50,100),Random(50,100),25)
  
	//ResetTimer()
    
endfunction

SetWindowTitle( "fireworks" )
SetWindowSize( 640, 480, 0 )
 
// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 0, 0, 1, 1 )
SetVSync(1)

#constant maxNumberFireworks=5
#constant speed=1.0
#constant frequency=3.14

fire as integer[maxNumberFireworks] //variable to hold the present particle emmitter

for num = 1 to maxNumberFireworks
	setupFirework(num)
	fire[num]=0
next num

start_time = GetMilliseconds()

CreateRenderImage (1,640,480,0,0) 


do
SetRenderToImage (1,0) 

for num=1 to maxNumberFireworks 
	if (fire[num]=0) and random(1,100)<5 //a 5 percent chance of that particle being emitted
		doFirework(num)
		fire[num]=1
		UpdateParticles(num,0)
	endif
	//if fire[num]=1
	//	moveFirework(num)
	//endif
	//moveFirework(test)
    if GetParticlesMaxReached(num)=1
		fire[num]=0
	endif
next num

current_time = GetMilliseconds()
//every 10 milliseconds fade in out or fade out the text
if current_time - start_time > 150
	start_time = current_time
	ClearScreen()
endif
Update(0)
Render()
setrendertoscreen () 
createsprite(2,1) 
Update(0)
Render()
swap()
loop

function moveFirework(obj as integer)
	//x#=GetParticlesX(obj)
	//y#=GetParticlesY(obj)
	
	
	for x# = 6.4 to -3.2 step -.1
		y# = sin(x#)
		row#=((x#))+GetParticlesX(obj)
		col#=(sin(x#))+GetParticlesY(obj)
		//SetParticlesPosition(obj,x#,y#)
		//print (col#)
		SetParticlesPosition(obj,col#,row#)
		
	next x#

 
endfunction

function setupFirework(obj as integer)
	CreateParticles(obj,100,100) //id,x,y
	SetParticlesSize(obj,2)		 //pixel size of particles	
	SetParticlesLife(obj,5)		 //sets the length of 5 seconds the particles live
	SetParticlesMax(obj,75)		 //max number of particles set to 75 f
	`SetParticlesActive(1,0)
	AddParticlesForce(obj,1,4,0,15) //The time a particle has to wait before forces apply 
	SetParticlesFrequency(obj,100)  //Sets the frequency of new particle generation
	SetParticlesVelocityRange(obj,2,4)  //velocity factor of particles ranging from min of 2 to 4
	SetParticlesColorInterpolation(obj,0) //1 smooth 0 none
	SetParticlesVisible( obj, 0 ) 		//hide particles when they first created so as timer can be used
	//SetParticlesFaceDirection( obj,1 ) 
endfunction

function doFirework (obj as integer)
	SetParticlesVisible( obj, 1 ) //make particle visible 
	SetParticlesPosition(obj,Random(100,GetVirtualWidth()-100),Random(100,GetVirtualHeight()-100))
    ResetParticleCount(obj)

	AddParticlesColorKeyFrame(obj,1,Random(100,250),Random(100,250),Random(100,250),255)
	AddParticlesColorKeyFrame(obj,2,Random(100,200),Random(100,200),Random(100,200),200)
	AddParticlesColorKeyFrame(obj,4,Random(50,100),Random(50,100),Random(50,100),25)
  
	//ResetTimer()
    
endfunction

SetWindowTitle( "fireworks" )
SetWindowSize( 640, 480, 0 )
 
// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 0, 0, 1, 1 )
SetVSync(1)

#constant maxNumberFireworks=5
#constant speed=1.0
#constant frequency=3.14

type fireworkType
	flag as integer //1 do firework 0 dont do
	startTime as integer
endtype

dim fire [maxNumberFireworks] as fireworkType //variable to hold the present particle emmitter
for num = 1 to maxNumberFireworks
	setupFirework(num)
	fire[num].flag=0
next num

dim blackFire [maxNumberFireworks] as fireworkType
for num = 1 to (maxNumberFireworks)
	blackFire[num].flag=0
	setupFirework(num+100)
	AddParticlesColorKeyFrame(num+100,1,0,0,0,255)
next num


start_time = GetMilliseconds()

CreateRenderImage (1,640,480,0,0) 
ClearScreen()

do
SetRenderToImage (1,0) 

for num=1 to maxNumberFireworks 
	if (fire[num].flag=0) and random(1,100)<10 //a 5 percent chance of that particle being emitted
		doFirework(num)
		fire[num].flag=1
		blackFire[num].flag=0
		fire[num].startTime= GetMilliseconds()
		UpdateParticles(num,0)
	endif
	current_time = GetMilliseconds()
	if fire[num].flag=1 and(current_time-fire[num].startTime)>50
		blackFire[num].flag=1
		doBlackFirework(num+100,num)
		UpdateParticles(num+100,0)
	endif
	
    if GetParticlesMaxReached(num)=1 //and GetParticlesMaxReached(num+100)=1
		fire[num].flag=0
		blackFire[num].flag=0
		//ClearScreen()
	endif
	
next num

//ClearScreen()
Update(0)
Render()
setrendertoscreen () 
createsprite(2,1) 
Update(0)
Render()
swap()
loop

function setupFirework(obj as integer)
	CreateParticles(obj,100,100) //id,x,y
	SetParticlesSize(obj,2)		 //pixel size of particles	
	SetParticlesLife(obj,5)		 //sets the length of 5 seconds the particles live
	SetParticlesMax(obj,75)		 //max number of particles set to 75 f
	`SetParticlesActive(1,0)
	AddParticlesForce(obj,1,4,0,15) //The time a particle has to wait before forces apply 
	SetParticlesFrequency(obj,100)  //Sets the frequency of new particle generation
	SetParticlesVelocityRange(obj,2,4)  //velocity factor of particles ranging from min of 2 to 4
	SetParticlesColorInterpolation(obj,0) //1 smooth 0 none
	SetParticlesVisible( obj, 0 ) 		//hide particles when they first created so as timer can be used
	//SetParticlesFaceDirection( obj,1 ) 
endfunction

function doFirework (obj as integer)
	SetParticlesVisible( obj, 1 ) //make particle visible 
	SetParticlesPosition(obj,Random(100,GetVirtualWidth()-100),Random(100,GetVirtualHeight()-100))
    ResetParticleCount(obj)

	AddParticlesColorKeyFrame(obj,1,Random(100,250),Random(100,250),Random(100,250),255)
	AddParticlesColorKeyFrame(obj,2,Random(100,200),Random(100,200),Random(100,200),200)
	AddParticlesColorKeyFrame(obj,4,Random(50,100),Random(50,100),Random(50,100),25)   
endfunction

function doBlackFirework (obj as integer,obj2 as integer)
	SetParticlesVisible( obj, 1 ) //make particle visible 
	SetParticlesPosition(obj,GetParticlesX(obj2),GetParticlesY(obj2))
	ResetParticleCount(obj)
endfunction

SetWindowTitle( "fireworks" )
SetWindowSize( 640, 480, 0 )
   
// set display properties
SetVirtualResolution( 640, 480 )
SetOrientationAllowed( 0, 0, 1, 1 )
SetVSync(1)
  
#constant maxNumberFireworks=5
#constant speed=1.0
#constant frequency=3.14
  
type fireworkType
    flag as integer //1 do firework 0 dont do
    startTime as integer
endtype
 
 
dim fire [maxNumberFireworks] as fireworkType //variable to hold the present particle emmitter
for num = 1 to maxNumberFireworks
    setupFirework(num)
    fire[num].flag=0
next num
  
dim blackFire [maxNumberFireworks] as fireworkType
for num = 1 to (maxNumberFireworks)
    blackFire[num].flag=0
    setupFirework(num+100)
    AddParticlesColorKeyFrame(num+100,1,0,0,0,255)
next num
  
 bg = createsprite(0)
 setspritesize(bg,GetVirtualWidth(), GetVirtualHeight())
 SetSpriteColor(bg,0,0,0,8)
  
start_time = GetMilliseconds()
  
CreateRenderImage (1,640,480,0,0) 
ClearScreen()
  
do
SetRenderToImage (1,0) 
 
DrawSprite(bg)
 
for num=1 to maxNumberFireworks 
    if (fire[num].flag=0) and random(1,100)<10 //a 5 percent chance of that particle being emitted
        doFirework(num)
        fire[num].flag=1
        blackFire[num].flag=0
        fire[num].startTime= GetMilliseconds()
        UpdateParticles(num,0)
    endif
    current_time = GetMilliseconds()
    if fire[num].flag=1 and(current_time-fire[num].startTime)>50
        blackFire[num].flag=1
     //   doBlackFirework(num+100,num)
     //   UpdateParticles(num+100,0)
    endif
      
    if GetParticlesMaxReached(num)=1 //and GetParticlesMaxReached(num+100)=1
        fire[num].flag=0
        blackFire[num].flag=0
        //ClearScreen()
    endif
      
next num
  
//ClearScreen()
Update(0)
Render()
setrendertoscreen () 
createsprite(2,1) 
Update(0)
Render()
swap()
loop
  
function setupFirework(obj as integer)
    CreateParticles(obj,100,100) //id,x,y
    SetParticlesSize(obj,2)      //pixel size of particles  
    SetParticlesLife(obj,5)      //sets the length of 5 seconds the particles live
    SetParticlesMax(obj,75)      //max number of particles set to 75 f
    `SetParticlesActive(1,0)
    AddParticlesForce(obj,1,4,0,15) //The time a particle has to wait before forces apply 
    SetParticlesFrequency(obj,100)  //Sets the frequency of new particle generation
    SetParticlesVelocityRange(obj,2,4)  //velocity factor of particles ranging from min of 2 to 4
    SetParticlesColorInterpolation(obj,0) //1 smooth 0 none
    SetParticlesVisible( obj, 0 )       //hide particles when they first created so as timer can be used
    //SetParticlesFaceDirection( obj,1 ) 
endfunction
  
function doFirework (obj as integer)
    SetParticlesVisible( obj, 1 ) //make particle visible 
    SetParticlesPosition(obj,Random(100,GetVirtualWidth()-100),Random(100,GetVirtualHeight()-100))
    ResetParticleCount(obj)
  
    AddParticlesColorKeyFrame(obj,1,Random(100,250),Random(100,250),Random(100,250),255)
    AddParticlesColorKeyFrame(obj,2,Random(100,200),Random(100,200),Random(100,200),200)
    AddParticlesColorKeyFrame(obj,4,Random(50,100),Random(50,100),Random(50,100),25)   
endfunction
  
function doBlackFirework (obj as integer,obj2 as integer)
    SetParticlesVisible( obj, 1 ) //make particle visible 
    SetParticlesPosition(obj,GetParticlesX(obj2),GetParticlesY(obj2))
    ResetParticleCount(obj)
endfunction