some cool volcanoe like particle effects

Author

Message

Three Score

20

Years of Service

User Offline

Joined: 18th Jun 2004

Location: behind you

Posted: 9th Jan 2005 10:46

Link

im a noob at particles and am just messing around and made this awesome effect

+ Code Snippet

sync off
hide mouse
sync rate 60
color backdrop rgb(0,0,0)
load image "2.jpg",2
`make particles 1,1,10000,200
`make particles 2,2,100000,70
`set particle velocity 2,10
`make particles 1,2,100000,100
`set particle velocity 2,5
make particles 3,2,100000,80
set particle velocity 3,15
`set particle floor 1,0
`set particle gravity 1,2
`set particle chaos 1,20
`ghost particles on 1,3
do
`color particles 1,a,b,c
`POSITION PARTICLEs 1,10,20,50
`position particles 2,0,0,5
`position particles 1,200,0,10
position particles 3,0,0,100
position camera 0,300,-500
loop

and i ran it at fullscreen exclusive @640x480 and 32bit color is what it is optimized for as far as camera ect

come to my forums http://hck83.darktech.info/forum/ formerly: 404 name not found
"others understand me but i dont understand my own thoughts"

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Philip

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: United Kingdom

Posted: 9th Jan 2005 22:51

Link

Its a demonstration of the power of DBPro. Most of the code you've posted is commented out but even in about 10 lines you can create a cool effect.

Philip

What do you mean, bears aren't supposed to wear hats and a tie? P3.2ghz / 1 gig / GeForce FX 5900 128meg / WinXP home

Back to top

Profile PM Email

PowerMan

19

Years of Service

User Offline

Joined: 22nd Jan 2005

Location: Manchester

Posted: 10th Mar 2005 04:29

Link

hi there
do u know how this can be done in BDC

Back to top

Profile PM

Three Score

20

Years of Service

User Offline

Joined: 18th Jun 2004

Location: behind you

Posted: 10th Mar 2005 07:15

Link

nope i have no experince with dbc i tried it for about 10 minutes and decided dbp is better

quit hiting the computer; computers can only do what they are told so we must be telling them to do wrong things

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 10th Mar 2005 09:54

Link

If you're into particles - you might find this interesting to look at:

`Sandstorm by Ric

sync on
sync rate 40
hide mouse
numberofparticles=10000
gravity#=.1
dim x#(10000)
dim y#(10000)
dim xspeed#(10000)
dim yspeed#(10000)
dim brightness(10000)
for particle=1 to numberofparticles
x#(particle)=rnd(400)
y#(particle)=rnd(400)
xspeed#(particle)=(rnd(3000)/1000.0)-1.5
brightness(particle)=rnd(150)+100
next particle

do
cls
text 0,0,str$(screen fps())
lock pixels
for particle=1 to numberofparticles
inc x#(particle),xspeed#(particle)
if x#(particle)>screen width()-1 or x#(particle)<0 then xspeed#(particle)=xspeed#(particle)*-1
inc y#(particle),yspeed#(particle)
inc yspeed#(particle),gravity#
if y#(particle)>screen height()-1 then y#(particle)=screen height()-1:yspeed#(particle)=yspeed#(particle)*(-1+rnd(100)/200.0)
if y#(particle)>mousey() and y#(particle)<mousey()+45 and x#(particle)>mousex()-80 and x#(particle)<mousex()+80 then y#(particle)=mousey():yspeed#(particle)=yspeed#(particle)*(-1+rnd(100)/200.0)
if y#(particle)>0 then set_locked_pixel(x#(particle),y#(particle),rgb(255,200,brightness(particle)))
next particle
unlock pixels

line mousex()-80,mousey(),mousex()+80,mousey()

sync
loop

function set_locked_pixel(x,y,color_value)
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8
   pointer=start+y*repeat_number+x*bits_per_pixel
   *pointer=color_value
endfunction

+ Code Snippet

`Sandstorm by Ric

sync on
sync rate 40
hide mouse
numberofparticles=10000
gravity#=.1
dim x#(10000)
dim y#(10000)
dim xspeed#(10000)
dim yspeed#(10000)
dim brightness(10000)
for particle=1 to numberofparticles
x#(particle)=rnd(400)
y#(particle)=rnd(400)
xspeed#(particle)=(rnd(3000)/1000.0)-1.5
brightness(particle)=rnd(150)+100
next particle

do
cls
text 0,0,str$(screen fps())
lock pixels
for particle=1 to numberofparticles
inc x#(particle),xspeed#(particle)
if x#(particle)>screen width()-1 or x#(particle)<0 then xspeed#(particle)=xspeed#(particle)*-1
inc y#(particle),yspeed#(particle)
inc yspeed#(particle),gravity#
if y#(particle)>screen height()-1 then y#(particle)=screen height()-1:yspeed#(particle)=yspeed#(particle)*(-1+rnd(100)/200.0)
if y#(particle)>mousey() and y#(particle)<mousey()+45 and x#(particle)>mousex()-80 and x#(particle)<mousex()+80 then y#(particle)=mousey():yspeed#(particle)=yspeed#(particle)*(-1+rnd(100)/200.0)
if y#(particle)>0 then set_locked_pixel(x#(particle),y#(particle),rgb(255,200,brightness(particle)))
next particle
unlock pixels

line mousex()-80,mousey(),mousex()+80,mousey()

sync
loop


function set_locked_pixel(x,y,color_value)
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8
   pointer=start+y*repeat_number+x*bits_per_pixel
   *pointer=color_value
endfunction

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / some cool volcanoe like particle effects

Attachments