TheGameCreators - CodeBase - Fireworks using particles

Category: Math / Physics

Version: 1.0

Information

Uploaded: 13th Jan 2017 22:14

Modified: 13th Jan 2017 22:15

Author: fubarpk

Summary

Some functions that create fireworks from particles but submitted as full code to show how the user may call these functions etc

Full Description

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

#constant maxNumberFireworks=8

#constant speed=1.0

#constant frequency=3.14

#constant maxWidth=800

#constant maxHeight=600

SetWindowTitle( "fireworks" )

SetWindowSize( maxWidth, MaxHeight, 0 )

// set display properties

SetVirtualResolution( maxWidth, MaxHeight )

SetOrientationAllowed( 0, 0, 1, 1 )

SetDisplayAspect( -1 )

UseNewDefaultFonts( 1 ) // since version 2.0.20 we can use nicer default fonts

//SetVSync(1)

SetPrintSize(50)

if GetPointerPressed()

congratulations("Congratulations tap screen to exit")

endif

Print("tap screen for fireworks")

Sync()

loop

end

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

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 congratulations (text as String)

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

dim fireSound [maxNumberFireworks] as integer

SetSoundSystemVolume(100)

for num = 1 to maxNumberFireworks

setupFirework(num)

//fireSound[num]=LoadSound("firework.wav")

//SetSoundInstanceVolume(fireSound[num],75)

fireFlag[num]=0

next num

fireBg = createsprite(0)

setspritesize(fireBg,maxWidth,maxHeight)

SetSpriteColor(fireBg,0,0,0,8)

Print(text)

render() //draw all 2d and 3d to screen

myFireworkBackImage=GetImage(0,0,maxWidth,maxHeight)

MyFireworkBackSprite=CreateSprite(MyFireworkBackImage)

SetSpriteSize(MyFireworkBackSprite,maxWidth,maxHeight)

SetSpriteDepth(MyFireworkBackSprite,10000)

SetSpriteColorAlpha(MyFireworkBackSprite,100)

SetSpritePositionByOffset(MyFireworkBackSprite,maxWidth/2,maxHeight/2)

renderImg=CreateRenderImage (maxWidth,maxHeight,0,0)

ClearScreen()

repeat

SetRenderToImage (renderImg,0)

DrawSprite(MyFireworkBackSprite)

DrawSprite(fireBg)

for num=1 to maxNumberFireworks

if (fireFlag[num]=0) and random(1,100)<5 //a 5 percent chance of that particle being emitted

doFirework(num)

//playSound(fireSound[num])

fireFlag[num]=1

UpdateParticles(num,0)

endif

if GetParticlesMaxReached(num)=1 //and GetParticlesMaxReached(num+100)=1

fireFlag[num]=0

endif

next num

Update(0)

Render()

setrendertoscreen ()

CreateSprite(350,renderImg)

SetSpriteSize(350,maxWidth,maxHeight)

Update(0)

Render()

swap()

until GetPointerPressed ( ) = 1

DeleteSprite(MyFireworkBackSprite)

DeleteImage(MyFireworkBackImage)

for num = 1 to maxNumberFireworks

DeleteParticles(num)

DeleteSound (fireSound[num])

SetRenderToImage (renderImg,0)

drawSprite(fireBg) //pastes a black sprite to buffer and screen

Update(0)

Render()

swap()

DeleteSprite(350)

DeleteSprite(fireBg)

setrendertoscreen ()

DeleteImage(renderImg)

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	fubarpk
CodeBase Entries:	12

CodeBase - Fireworks using particles

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments