My snow weather demo in 3D (dbpro)

Author

Message

The Nerd

22

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 5th Mar 2005 03:13 Edited at: 5th Mar 2005 16:55

Link

UPDATE version 1.5 is now avaible! :
I was trying to make a faster version of the program were the snow flakes followed the player position. But i had some troubles making it that way so i decided to make it another way. I simply took some snow flakes out of the program. Now the version should be faster but with less snow

Hi

I was thinking if i maybe could make a 3D snow weather demo were you walking around in a snow weather. So i tried to see if was able to make it. And i was!

Well maybe it`s not the best but i like it anyway

Here is the code:

Version 1.0 :

Rem Project: Snow weather
Rem Created: 04-03-2005 19:55:40

Rem ***** Main Source File *****

`Normal settings
sync on
sync rate 30
hide mouse

`Make a matrix
make matrix 1,200,200,50,50
position matrix 1,0,-2,0

`The player object
make object box 1,10,10,10
scale object 1,10,10,10
color object 1, RGB(0,255,0)
position object 1,0,0,0

`Make the snow objects
for x = 2 to 7000
make object box x,2,2,2
scale object x,2,2,2
color object x,RGB(128,255,255)
position object x,rnd(100), rnd(200), rnd(100)
next x

do

`make the snow move down
for x = 2 to 7000
move object down x,0.10
next x

for x = 2 to 7000
if object position y( x ) <-5
position object x,rnd(100),20,rnd(100)
endif
next x

`the control input for the player object
if upkey() = 1
move object 1,2
endif

if downkey() = 1
move object 1,-2
endif

if leftkey() = 1
turn object left 1,2
endif

if rightkey() = 1
turn object right 1,2
endif

`Set the camera to follow the player
set camera to follow object position x(1),object position y(1),object position z(1),0,10,5,10,0
point camera object position x(1),object position y(1),object position z(1)

sync
loop

+ Code Snippet

Rem Project: Snow weather
Rem Created: 04-03-2005 19:55:40

Rem ***** Main Source File *****

`Normal settings
sync on
sync rate 30
hide mouse

`Make a matrix
make matrix 1,200,200,50,50
position matrix 1,0,-2,0

`The player object
make object box 1,10,10,10
scale object 1,10,10,10
color object 1, RGB(0,255,0)
position object 1,0,0,0

`Make the snow objects
for x = 2 to 7000
make object box x,2,2,2
scale object x,2,2,2
color object x,RGB(128,255,255)
position object x,rnd(100), rnd(200), rnd(100)
next x

do

`make the snow move down
for x = 2 to 7000
move object down x,0.10
next x

for x = 2 to 7000
if object position y( x ) <-5
position object x,rnd(100),20,rnd(100)
endif
next x

`the control input for the player object
if upkey() = 1
move object 1,2
endif

if downkey() = 1
move object 1,-2
endif

if leftkey() = 1
turn object left 1,2
endif

if rightkey() = 1
turn object right 1,2
endif

`Set the camera to follow the player
set camera to follow object position x(1),object position y(1),object position z(1),0,10,5,10,0
point camera object position x(1),object position y(1),object position z(1)


sync
loop

UPDATE : version 1.5 :
(Version 1.5 have faster fps but less snow)

Rem Project: Snow weather
Rem Created: 04-03-2005 19:55:40

Rem ***** Main Source File *****

`Normal settings
sync on
sync rate 30
hide mouse

`Make a matrix
make matrix 1,200,200,50,50
position matrix 1,0,-2,0

`The player object
make object box 1,10,10,10
scale object 1,10,10,10
color object 1, RGB(0,255,0)
position object 1,0,0,0

`Make the snow objects
for x = 2 to 1000
make object box x,2,2,2
scale object x,2,2,2
color object x,RGB(128,255,255)
position object x,rnd(100), rnd(200), rnd(100)
next x

do

`make the snow move down
for x = 2 to 1000
move object down x,0.10
next x

for x = 2 to 1000
if object position y( x ) <-5
position object x,rnd(100),20,rnd(100)
endif
next x

`the control input for the player object
if upkey() = 1
move object 1,2
endif

if downkey() = 1
move object 1,-2
endif

if leftkey() = 1
turn object left 1,2
endif

if rightkey() = 1
turn object right 1,2
endif

`follow cam code
set camera to follow object position x(1),object position y(1),object position z(1),0,10,5,10,0
point camera object position x(1),object position y(1),object position z(1)

sync
loop

+ Code Snippet

Rem Project: Snow weather
Rem Created: 04-03-2005 19:55:40

Rem ***** Main Source File *****

`Normal settings
sync on
sync rate 30
hide mouse

`Make a matrix
make matrix 1,200,200,50,50
position matrix 1,0,-2,0

`The player object
make object box 1,10,10,10
scale object 1,10,10,10
color object 1, RGB(0,255,0)
position object 1,0,0,0

`Make the snow objects
for x = 2 to 1000
make object box x,2,2,2
scale object x,2,2,2
color object x,RGB(128,255,255)
position object x,rnd(100), rnd(200), rnd(100)
next x

do

`make the snow move down
for x = 2 to 1000
move object down x,0.10
next x

for x = 2 to 1000
if object position y( x ) <-5
position object x,rnd(100),20,rnd(100)
endif
next x

`the control input for the player object
if upkey() = 1
move object 1,2
endif

if downkey() = 1
move object 1,-2
endif

if leftkey() = 1
turn object left 1,2
endif

if rightkey() = 1
turn object right 1,2
endif

`follow cam code
set camera to follow object position x(1),object position y(1),object position z(1),0,10,5,10,0
point camera object position x(1),object position y(1),object position z(1)


sync
loop

Enjoy

Regards

The Nerd

looking for Royalty free 3D objects?
then Check PanzerGames at this link : http://www.freewebs.com/panzergames

Back to top

Profile PM Email

Benjamin

23

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 5th Mar 2005 07:06

Link

Very nice! But...very slow too

"Lets migrate like bricks" - Me

Back to top

Profile PM Email

The Nerd

22

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 5th Mar 2005 16:45

Link

I know it is slow. It`s because i actually make.......7000 object as snow flakes

Im currently working on a new version were there only be snow flakes that will follow the player.
That should make it faster

looking for Royalty free 3D objects?
then Check PanzerGames at this link : http://www.freewebs.com/panzergames

Back to top

Profile PM Email

Math89

22

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 5th Mar 2005 18:53

Link

Must be faster now.

Rem Project: Snow weather
Rem Created: 04-03-2005 19:55:40

Rem ***** Main Source File *****

`Normal settings
sync on
sync rate 30
hide mouse

`Make a matrix
make matrix 1,200,200,50,50
position matrix 1,0,-2,0

`The player object
make object box 1,10,10,10
scale object 1,10,10,10
color object 1, RGB(0,255,0)
position object 1,0,0,0

`Make the snow objects
for x = 2 to 7000
make object box x,2,2,2
scale object x,2,2,2
color object x,RGB(128,255,255)
position object x,rnd(100), rnd(200), rnd(100)
next x

do

`make the snow move down
for x = 2 to 7000
move object down x,0.10
if object position y( x ) <-5
position object x,rnd(100),20,rnd(100)
endif
next x

`the control input for the player object
if upkey() = 1
move object 1,2
endif

if downkey() = 1
move object 1,-2
endif

if leftkey() = 1
turn object left 1,2
endif

if rightkey() = 1
turn object right 1,2
endif

`Set the camera to follow the player
set camera to follow object position x(1),object position y(1),object position z(1),0,10,5,10,0
point camera object position x(1),object position y(1),object position z(1)

sync
loop

+ Code Snippet

Rem Project: Snow weather
Rem Created: 04-03-2005 19:55:40

Rem ***** Main Source File *****

`Normal settings
sync on
sync rate 30
hide mouse

`Make a matrix
make matrix 1,200,200,50,50
position matrix 1,0,-2,0

`The player object
make object box 1,10,10,10
scale object 1,10,10,10
color object 1, RGB(0,255,0)
position object 1,0,0,0

`Make the snow objects
for x = 2 to 7000
make object box x,2,2,2
scale object x,2,2,2
color object x,RGB(128,255,255)
position object x,rnd(100), rnd(200), rnd(100)
next x

do

`make the snow move down
for x = 2 to 7000
move object down x,0.10
if object position y( x ) <-5
position object x,rnd(100),20,rnd(100)
endif
next x

`the control input for the player object
if upkey() = 1
move object 1,2
endif

if downkey() = 1
move object 1,-2
endif

if leftkey() = 1
turn object left 1,2
endif

if rightkey() = 1
turn object right 1,2
endif

`Set the camera to follow the player
set camera to follow object position x(1),object position y(1),object position z(1),0,10,5,10,0
point camera object position x(1),object position y(1),object position z(1)


sync
loop

Why make 2 loops when 1 is enough ?

Back to top

Profile PM

Freddy 007

21

Years of Service

User Offline

Joined: 30th Nov 2004

Location: Denmark

Posted: 6th Mar 2005 04:11

Link

I get 33 FPS in all of them

No difference at all....

Check out PanzerGames at: http://www.freewebs.com/panzergames
æ ø å

Back to top

Profile PM Email

indi

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 23rd Mar 2005 10:57

Link

theres a snow particle command which aint that bad

sync on : sync rate 0 : hide mouse
make object plain 1,200,200 : position object 1,0,-10,0
rotate object 1,0,-90,-90 : color object 1,rgb(64,128,32)
make object box 2,10,10,10 : scale object 2,10,10,10
color object 2, RGB(0,255,0) : position object 2,0,0,0
ink rgb(255,255,255),1 : box 0,0,64,64 : get image 1,0,0,64,64
ptcl1=1 : ptclspeed# = 0.03 : ptclemis = 1
make snow particles ptcl1, 1,1000, 0,0,0,200,200,200
position particles ptcl1, 0, 0, 0 : color particles ptcl1, 255,255,255
set particle emissions ptcl1, ptclemis : set particle speed ptcl1, ptclspeed#
set particle gravity ptcl1, 0.01 : `set particle chaos ptcl1 , 5
disable escapekey : while escapekey()=0
if upkey() = 1 then move object 2,2
if downkey() = 1 then move object 2,-2
if leftkey() = 1 then turn object left 2,2
if rightkey() = 1 then turn object right 2,2
set camera to follow object position x(2),object position y(2),object position z(2),0,10,5,10,0
point camera object position x(2),object position y(2),object position z(2)
fastsync : endwhile
delete object 1 : delete object 2
end

+ Code Snippet

sync on : sync rate 0 : hide mouse
make object plain 1,200,200 : position object 1,0,-10,0
rotate object 1,0,-90,-90 : color object 1,rgb(64,128,32)
make object box 2,10,10,10 : scale object 2,10,10,10
color object 2, RGB(0,255,0) : position object 2,0,0,0
ink rgb(255,255,255),1 : box 0,0,64,64 : get image 1,0,0,64,64
ptcl1=1 : ptclspeed# = 0.03 : ptclemis = 1
make snow particles ptcl1, 1,1000, 0,0,0,200,200,200
position particles ptcl1, 0, 0, 0 : color particles ptcl1, 255,255,255
set particle emissions ptcl1, ptclemis : set particle speed ptcl1, ptclspeed#
set particle gravity ptcl1, 0.01 : `set particle chaos ptcl1 , 5
disable escapekey : while escapekey()=0
if upkey() = 1 then move object 2,2
if downkey() = 1 then move object 2,-2
if leftkey() = 1 then turn object left 2,2
if rightkey() = 1 then turn object right 2,2
set camera to follow object position x(2),object position y(2),object position z(2),0,10,5,10,0
point camera object position x(2),object position y(2),object position z(2)
fastsync : endwhile
delete object 1 : delete object 2
end

If no-one gives your an answer to a question you have asked, consider:- Is your question clear.- Did you ask nicely.- Are you showing any effort to solve the problem yourself

Back to top

Profile PM Email

re faze

21

Years of Service

User Offline

Joined: 24th Sep 2004

Location: The shores of hell.

Posted: 24th Mar 2005 05:26

Link

use plains smart guy

Back to top

Profile PM Email Website

indi

23

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 25th Mar 2005 12:26

Link

if your referring to my usage of particles, think of the 1000 plain loop in your main loop each cycle, that might be detriment to slower cpus.
sounds like your some "witty"<-dubious comment poster.

If no-one gives your an answer to a question you have asked, consider:- Is your question clear.- Did you ask nicely.- Are you showing any effort to solve the problem yourself

Back to top

Profile PM Email

Cloggy

21

Years of Service

User Offline

Joined: 31st Oct 2004

Location: Rayleigh, Essex

Posted: 26th Mar 2005 06:44

Link

I have done something similar to create a rain effect. I'm sure you could modify this for snow.

http://forum.thegamecreators.com/?m=forum_view&t=42466&b=6

Cheers,

Cloggy

Back to top

Profile PM Email Website

DBAlex

21

Years of Service

User Offline

Joined: 4th Oct 2004

Location: United Kingdom

Posted: 27th Mar 2005 23:50

Link

Here...Ive made a snow effect thing too....

+ Code Snippet

sync on
sync rate 60

for t=1 to 500
make object sphere t,5
position object t,rnd(1000),1000,rnd(1000)
next n
for n=501 to 1000
make object sphere n,5
position object n,rnd(1000),1000,rnd(1000)
next n
make matrix 1,1000,1000,32,32

do
SET CURSOR 0,0
PRINT "FPS:",screen fps()
for t=1 to 500
move object down t,rnd(10)
next t
for t=1 to 500
if object position y(t)<0
position object t,rnd(1000),1000,rnd(1000)
endif
next t

for n=501 to 1000
move object down n,rnd(13)
next n
for n=501 to 1000
if object position y(n)<0
position object n,rnd(1000),1000,rnd(1000)
endif
next n
sync
loop

AMD 64 3000 + 512mb RAM + 80GB HD + Radeon 9600se 128mb

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / My snow weather demo in 3D (dbpro)