TheGameCreators - CodeBase - A Small Particle Tutor

Category: Particles

Version: 1.0

Information

Uploaded: 30th Mar 2006 19:00

Modified: 1st Jan 1970 01:00

Author: Morpheus

Summary

My particle tutor, its very small and the tutoring is done in the comment lines with a running program to show the result.

Full Description

Too lazy to write a long description. Its a tutorial on particles.<br /> <br /> All the media is in the RAR file, although you could just take that source code then make two identical blank bitmaps probably and just name them floor and sky.<br /> <br /> Have fun!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Particles Tutorial v1 by Max Neave

`Done 31/3/06

`Hope this is of use to people for making their programs look much cooler

`main menu

`turn the 3d backdrop on

backdrop on

`set the colour of the backdrop (pointless here since it gets changed later)

color backdrop rgb (40,0,0)

`set the text size (duh)

set text size 48

`set ink to white

ink rgb(255,255,255),1

`set the display resolution so it doesnt look like crap

set display mode 1024,768,32

`set the 2d mouse position (also fairly pointless here)

set cursor 0,30

`MENU

`This is the position of the current button

ink rgb(255,0,0),1

text 0,40,"Particle Tutor v1 By Maxwell Neave"

ink rgb(0,120,0),1

text 0,55,"I recommend you read the comment lines in the code to understand the workings"

ink rgb(100,100,0),1

text 0,730,"All media items are hand made in MS Paint"

ink rgb(255,255,255),1

text 0,100,"Begin Particle Tutor!"

`The first statement tells us that if the mouse cursor x position is between 0 and 160

`and the mouse cursor y position is between 100 and 110, the colour of the text will change.

if mousex()>=0 and mousex()<=160 and mousey()>=100 and mousey()<=110

ink rgb(0,255,255),1

text 0,100,"Begin Particle Tutor!"

ink rgb(255,255,255),1

endif

`This statement does the same as the above, except it checks for a mouseclick in

`the same area, it then goes to the required subroutine if the mouse is clicked

if mousex()>=0 and mousex()<=160 and mousey()>=90 and mousey()<=110 and mouseclick()=1

text 180,100,"Make program go now..."

goto start

endif

loop

`main program initiating subroutine

start:

cls

`change the backdrop colour to black

color backdrop rgb (0,0,0)

`autocamera off, hide the mouse

autocam off

hide mouse

`set camera range and sync rate

set camera range 1,3000

sync on

sync rate 60

`set fog

Fog on

Fog distance 2500

Fog color RGB(0,0,0)

`load matrix texture

load bitmap "floor.bmp",1

get image 1,0,0,128,128

delete bitmap 1

`make matrix (the ground)

make matrix 1,3000,3000,30,30

`Prepare matrix with a texture cut into a 2x2 texture grid

prepare matrix texture 1,1,2,2

`Fill matrix with first texture tile

fill matrix 1,0.0,1

for fillmatrix=0 to 10

for fillmatrix2=0 to 10

if rnd(2)=0 then set matrix tile 1,x,y,2

set matrix tile 1,0,y,3

set matrix tile 1,10,y,3

set matrix tile 1,x,0,3

set matrix tile 1,x,10,3

set matrix tile 1,x,5,4

next fillmatrix2

next fillmatrix

update matrix 1

`create player object hide it

make object sphere 655,150

position object 655,100,100,100

hide object 655

`Stops the drawing of unseen polygons (efficient)

SET OBJECT CULL 655,1

`make sky

`load the image for the sky

load image "sky.bmp",4

`make a sphere, set its size to negative so the texture shows on the inside

make object sphere 69,-4500

`position the object around the matrix

position object 69,1500,0,1500

`apply the texture

texture object 69,4

`==================================

`small generalised explosion (like a bomb going off, or a lemming from the top of a tall building)

`this one requires a balance between velocity and speed

`velocity decides how high the particles will go and hence how long they

`then take to reach the ground again

`speed is how fast this process happens, too fast and no one will see the explosion

`set particle emissions gives the explosion effect of lots of particles at once in a short burst

`These particles are RED

make particles 1,22,5,20

set particle emissions 1,500

set particle speed 1,0.04

set particle velocity 1,6

position particles 1,200,10,1500

color particles 1,255,0,0

set particle floor 1,0

set particle gravity 1,1.5

`======================================

`large high explosion (like a cannon shell or someone being decapitated with a shotgun)

`same as the above, except using gravity to limit how high the particles travel due to velocity

`this has higher velocity and slightly decreased speed to get the timing just right

`basically the explosion starts off fast by velocity then the "dust" settles slowly by gravity

`set particle emissions gives the explosion effect of lots of particles at once in a short burst

`These particles are GREEN

make particles 2,23,5,20

set particle emissions 2,250

position particles 2,1500,10,200

color particles 2,0,255,0

set particle velocity 2,20

set particle speed 2,0.035

set particle floor 2,0

set particle gravity 2,4

`=======================================

`downward particles (like rain or mass aerial suicide maybe)

`stand directly underneath for most rain like effect

`rain particles are merely default particles set at a high height and 0 "floor"

`they simply fall to the ground, the speed sets how fast they do

`note that if they had high velocity they would go turn into a "fountain"

`this tells us the particle object emmits particles upwards by default

`These particles are BLUE

make particles 3,24,5,20

set particle floor 3,0

position particles 3,500,400,800

color particles 3,0,0,255

set particle speed 3,0.01

`========================================

`upward chaotic particles (like a fountain or a burst cartoid artery)

`fountain particles are particles with a high speed and velocity, like a water jet

`the velocity is the particles energy to defeat gravity here, hence why they go up in the air

`the chaos makes the particles wobble slighlty, i thought it looked cool

`note that speed here merely defines how far the objects progress per frame or how fast the

`particle animation is over

`These particles are WHITE

make particles 4,24,5,20

set particle floor 4,0

position particles 4,1500,10,1500

set particle speed 4,0.035

set particle velocity 4,25

set particle chaos 4,10

`=========================================================================

`start main loop

`i cant be bothered commenting on this bit properly so you can guess most of it yourself

set cursor 0,0

`show the fps(frames per second)

print "Particle Tutorial by Maxwell Neave"

print "Colours: Red=Bomb Explosion, Green=Shell Explosion, Blue=Rain, White=Fountain"

print " "

print "Frames Per Second: ", screen fps()

`Player position

x1= object position x(655)

z1= object position z(655)

y1= object position y(655)

`Make sure the player is on the map

if x1<=0 then position object 655,x1+50,y1,z1

if x1>=3000 then position object 655,x1-50,y1,z1

if z1<=0 then position object 655,x1,y1,z1+50

if z1>=3000 then position object 655,x1,y1,z1-50

`CAMERA SETTINGS

`position camera at location and angle of object 1 (player)

position camera object position x(655),object position y(655),object position z(655)

rotate camera object angle x(655),object angle y(655),object angle z(655)

`camera look using mouse

cya#=wrapvalue(cya#+(mousemovex()/3.0))

cxa#=cxa#+(mousemovey()/3.0)

if cxa#<-45.0 then cxa#=-45.0

if cxa#>45.0 then cxa#=45.0

cx#=newxvalue(x#,cya#,sin(cxa#)*10)

cz#=newzvalue(z#,cya#,sin(cxa#)*10)

rotate camera wrapvalue(cxa#),cya#,0

rotate object 655,0,camera angle y(),0

position camera object position x(655),object position y(655),object position z(655)

`MOVEMENT

`forward backward movement

if upkey()=1 then move object 655,9

if downkey()=1 then move object 655,-9

`strafing

if leftkey()=1 then move object left 655,9

if rightkey()=1 then move object right 655,9

`jumping - not really needed, too lazy to delete it

`if player presses the control key and ajump=1 set jumpb to 1 and height to 23

`and play the jump sound

if controlkey()=1 and ajump=1

jumpb=1

height=23

endif

`if jumpb=1 height=height-1 and the players Y position is set to Y+height

if jumpb=1

height=height-1

position object 655,object position x(655),object position y(655)+height,object position z(655)

endif

`if the players Y position exceeds 100 then stop the player being able to jump

`if its less than 100 then position the player back to original height

if object position y(655)>100 then ajump=0 else ajump=1

if object position y(655)<100

position object 655,object position x(655),100,object position z(655)

jump=0

height=0

endif

`end program loop

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Morpheus
CodeBase Entries:	1

CodeBase - A Small Particle Tutor

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments