very simple but effective snow falling no environment add your own

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    'if you use this all i ask is give me some credit
'Scott_97@hotmail.com
sync on
sync rate 30
for t = 1 to 100
	make object sphere t,0.3
	position object t,rnd(200),rnd(20),rnd(200)
sync
next t
do

for s = 1 to 100
	if object exist(s)
	position object s,object position x(s),object position y(s)-0.5,object position z(s)
	if object position y(s)<-5
	position object s,object position x(s),object position y(s)+15,object position z(s)
endif
endif
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
if rightkey()=1 then a#=wrapvalue(a#+1)
if leftkey()=1 then a#=wrapvalue(a#-1)
yrotate camera a#

next s
sync
return
loop