Snow that gathers on the ground - GameCreators Forum

Author

Message

Daygamer

14

Years of Service

User Offline

Joined: 16th Mar 2010

Location: United States

Posted: 9th Dec 2010 22:08 Edited at: 9th Dec 2010 22:11

Link

Merry Christmas!

Bundle up because its snowing! This program will make you glad you are a inside a warm house. It's really simple, but fun.

I thought about adding a house, and Christmas lights but it's okay.

Turn on your favorite Christmas music, and enjoy. If you give it a while the snow will start gathering at the bottom of the screen

compressed

+ Code Snippet

dim pos_y#(299) : dim pos_x#(299) : dim speed#(299) : snow# = 480
for a = 0 to 299 : 	pos_y#(a) = rnd(480)-480 : next a
for a = 0 to 299 : 	pos_x#(a) = rnd(640) : next a
for a = 0 to 299
	select rnd(2)
	case 0: speed#(a) = 0.1 : endcase
	case 1:	speed#(a) = 0.2 : endcase
	case 2:	speed#(a) = 0.3 : endcase
	endselect
next a
do : cls
for a = 0 to 299
	inc pos_y#(a),speed#(a)
	line pos_x#(a),pos_y#(a)+1,pos_x#(a),pos_y#(a)-1
	line pos_x#(a)+1,pos_y#(a),pos_x#(a)-1,pos_y#(a)
	if pos_y#(a) > 480 then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : dec snow#, 0.01
	if rnd(50) = 0 then inc pos_x#(a),rnd(2)-1
next a
box 0,snow#,640,480
loop

uncompressed (with comments)

`create variables for the snowflakes
dim pos_y#(299)
dim pos_x#(299)
dim speed#(299)

`make snow box start at the bottom
snow# = 480

`randomly position the snowflakes above the screen so they fall down into the screen
for a = 0 to 299
	pos_y#(a) = rnd(480)-480
next a

for a = 0 to 299
	pos_x#(a) = rnd(640)
next a

`randomly select the speed of the snowflake's fall
for a = 0 to 299

select rnd(2)
	case 0:
	speed#(a) = 0.1
	endcase
	
	case 1:
	speed#(a) = 0.2
	endcase
	
	case 2:
	speed#(a) = 0.3
	endcase
	
	endselect
	
next a

`main loop
do
cls

for a = 0 to 299
	`make snow move down
	inc pos_y#(a),speed#(a)
	`create snowflake
	line pos_x#(a),pos_y#(a)+1,pos_x#(a),pos_y#(a)-1
	line pos_x#(a)+1,pos_y#(a),pos_x#(a)-1,pos_y#(a)
	`when the snowflake hits the bottom of the screen reset it at the top, and make the snow on the ground rise
	if pos_y#(a) > 480 then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : dec snow#, 0.01
	`make the snowflakes move left and right a little
	if rnd(50) = 0 then inc pos_x#(a),rnd(2)-1
next a

`make snow rise as the snowflakes hit the bottom of the screen
box 0,snow#,640,480

loop

+ Code Snippet

`create variables for the snowflakes
dim pos_y#(299)
dim pos_x#(299)
dim speed#(299)

`make snow box start at the bottom
snow# = 480

`randomly position the snowflakes above the screen so they fall down into the screen
for a = 0 to 299
	pos_y#(a) = rnd(480)-480
next a

for a = 0 to 299
	pos_x#(a) = rnd(640)
next a

`randomly select the speed of the snowflake's fall
for a = 0 to 299

	select rnd(2)
	case 0:
	speed#(a) = 0.1
	endcase
	
	case 1:
	speed#(a) = 0.2
	endcase
	
	case 2:
	speed#(a) = 0.3
	endcase
	
	endselect
	
next a

`main loop
do
cls

for a = 0 to 299
	`make snow move down
	inc pos_y#(a),speed#(a)
	`create snowflake
	line pos_x#(a),pos_y#(a)+1,pos_x#(a),pos_y#(a)-1
	line pos_x#(a)+1,pos_y#(a),pos_x#(a)-1,pos_y#(a)
	`when the snowflake hits the bottom of the screen reset it at the top, and make the snow on the ground rise
	if pos_y#(a) > 480 then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : dec snow#, 0.01
	`make the snowflakes move left and right a little
	if rnd(50) = 0 then inc pos_x#(a),rnd(2)-1
next a

`make snow rise as the snowflakes hit the bottom of the screen
box 0,snow#,640,480

loop

Feel free to improve it. God bless you this Christmas!

yrotate when you can spin?
God Bless!

Back to top

Profile PM Email

seppgirty

FPSC Developer

14

Years of Service

User Offline

Joined: 3rd Jul 2009

Location: pittsburgh, pa.

Posted: 26th Dec 2010 17:47

Link

this is pretty slick DAYGAMER

i have it running in my backround and checking it from time to time.... looks like i'm gonna get snowed in

better check my toilet paper supply

gamer, lover, filmmaker

Back to top

Profile PM Email Website

Daygamer

14

Years of Service

User Offline

Joined: 16th Mar 2010

Location: United States

Posted: 27th Dec 2010 06:18

Link

hahaha! yeah, seppgirty, if you make it full screen it can actually make you cold!

yrotate when you can spin?
God Bless!

Back to top

Profile PM Email

Jimmy 9Toes

15

Years of Service

User Offline

Joined: 24th Nov 2008

Location:

Posted: 28th Dec 2010 18:44

Link

I've modified it a little bit to allow for a wider variaty of snowflake drift...

`create variables for the snowflakes
dim pos_y#(299)
dim pos_x#(299)
dim speed#(299)

`Each snowflake will drift at a different pace
dim drift(299)

`make snow box start at the bottom
snow# = 480

`randomly position the snowflakes above the screen so they fall down into the screen
`Modified by JP
for a = 0 to 299
   pos_y#(a) = rnd(480)-480
   pos_x#(a) = rnd(640)    `Moved by JP
   drift(a) = rnd(10)
   speed#(a) = rnd(1.0)
next a

angle# = 0
`main loop
do
cls

for a = 0 to 299
   `make snow move down
   inc pos_y#(a),speed#(a)

`create snowflake
   `make snowflake move according to drift.
   newX# = pos_x#(a) + (drift(a) * sin(angle#))
   DrawShowFlake(newX#, pos_y#(a))

`when the snowflake hits the bottom of the screen reset it at the top, and make the snow on the ground rise
   if pos_y#(a) > 480 then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : dec snow#, 0.01

`drift angle
   inc angle#, speed#(a) * .025
   if angle# > 358 then angle# = 0
next a

`make snow rise as the snowflakes hit the bottom of the screen
box 0,snow#,640,480

loop

function DrawShowFlake(X#,Y#)
   line X#, Y# + 1, X# , Y# - 1
   line X# + 1, Y#, X# - 1, Y#
endfunction

+ Code Snippet

`create variables for the snowflakes
dim pos_y#(299)
dim pos_x#(299)
dim speed#(299)

`Each snowflake will drift at a different pace
dim drift(299)

`make snow box start at the bottom
snow# = 480

`randomly position the snowflakes above the screen so they fall down into the screen
`Modified by JP
for a = 0 to 299
   pos_y#(a) = rnd(480)-480
   pos_x#(a) = rnd(640)    `Moved by JP
   drift(a) = rnd(10)
   speed#(a) = rnd(1.0)
next a

angle# = 0
`main loop
do
cls

for a = 0 to 299
   `make snow move down
   inc pos_y#(a),speed#(a)

   `create snowflake
   `make snowflake move according to drift.
   newX# = pos_x#(a) + (drift(a) * sin(angle#))
   DrawShowFlake(newX#, pos_y#(a))

   `when the snowflake hits the bottom of the screen reset it at the top, and make the snow on the ground rise
   if pos_y#(a) > 480 then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : dec snow#, 0.01

   `drift angle
   inc angle#, speed#(a) * .025
   if angle# > 358 then angle# = 0
next a

`make snow rise as the snowflakes hit the bottom of the screen
box 0,snow#,640,480

loop

function DrawShowFlake(X#,Y#)
   line X#, Y# + 1, X# , Y# - 1
   line X# + 1, Y#, X# - 1, Y#
endfunction

Yes THEE Jimmy9Toes

Back to top

Profile PM Email

Daygamer

14

Years of Service

User Offline

Joined: 16th Mar 2010

Location: United States

Posted: 28th Dec 2010 21:24

Link

I like it

yrotate when you can spin?
God Bless!

Back to top

Profile PM Email

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 13th Feb 2011 09:34

Link

I changed it so it will work for DBC now

sync on : sync rate 0 : cls

`create variables for the snowflakes
dim pos_y#(299)
dim pos_x#(299)
dim speed#(299)

`Each snowflake will drift at a different pace
dim drift(299)

`make snow box start at the bottom
snow# = 480

`randomly position the snowflakes above the screen so they fall down into the screen
`Modified by JP
for a = 0 to 299
   pos_y#(a) = rnd(480)-480
   pos_x#(a) = rnd(640)
   drift(a) = rnd(10)
   speed#(a) = rnd(1.0)
next a

angle# = 0
`main loop
do

for a = 0 to 299
   `make snow move down
   pos_y#(a)=pos_y#(a)+speed#(a)

`create snowflake
   `make snowflake move according to drift.
   newx#=pos_x#(a)+(drift(a)*sin(angle#))
   DrawShowFlake(newx#, pos_y#(a))

`when the snowflake hits the bottom of the screen reset it at the top, and make the snow on the ground rise
   if pos_y#(a) > snow# then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : snow#=snow#-0.01

`drift angle
   inc angle#, speed#(a) * .025
   if angle# > 358 then angle# = 0
next a

`make snow rise as the snowflakes hit the bottom of the screen
box 0,snow#,639,479

sync

cls

loop

function DrawShowFlake(X#,Y#)
   line X#, Y# + 1, X# , Y# - 1
   line X# + 1, Y#, X# - 1, Y#
endfunction

+ Code Snippet

sync on : sync rate 0 : cls

`create variables for the snowflakes
dim pos_y#(299)
dim pos_x#(299)
dim speed#(299)

`Each snowflake will drift at a different pace
dim drift(299)

`make snow box start at the bottom
snow# = 480

`randomly position the snowflakes above the screen so they fall down into the screen
`Modified by JP
for a = 0 to 299
   pos_y#(a) = rnd(480)-480
   pos_x#(a) = rnd(640)
   drift(a) = rnd(10)
   speed#(a) = rnd(1.0)
next a

angle# = 0
`main loop
do

for a = 0 to 299
   `make snow move down
   pos_y#(a)=pos_y#(a)+speed#(a)

   `create snowflake
   `make snowflake move according to drift.
   newx#=pos_x#(a)+(drift(a)*sin(angle#))
   DrawShowFlake(newx#, pos_y#(a))

   `when the snowflake hits the bottom of the screen reset it at the top, and make the snow on the ground rise
   if pos_y#(a) > snow# then pos_y#(a) = 0 : pos_x#(a) = rnd(640) : snow#=snow#-0.01

   `drift angle
   inc angle#, speed#(a) * .025
   if angle# > 358 then angle# = 0
next a

`make snow rise as the snowflakes hit the bottom of the screen
box 0,snow#,639,479

sync

cls

loop

function DrawShowFlake(X#,Y#)
   line X#, Y# + 1, X# , Y# - 1
   line X# + 1, Y#, X# - 1, Y#
endfunction