TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D Effects

Version: 1.0

Information

Uploaded: 10th Oct 2003 08:16

Modified: 1st Jan 1970 01:00

Author: Icy_Blue

Summary

simple snow effect, move camera around object and make Matrix for battle filed.

Full Description

simple snow effect, move camera around object and make Matrix for battle filed.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Project: Snow Effect

` Program: Icy_Blue [Thailand]

` Created: 10/10/2003 00:00:00

`init

sync on : sync rate 30 : hide mouse : autocam off : randomize timer()

`set window on

color light 0, rgb(255, 255, 255)

`create snow type

type TSnow

g as float  `Speed

x as float  `x position

y as float  `y position

z as float  `z position

endtype

#constant max_snow = 50

dim snow(max_snow) as TSnow

`create snow

for i = 1 to max_snow

make object sphere i, 5

color object i, rgb(255, 255, 255)

set object light i, 0

snow(i).y = 0

next i

`create matrix

make matrix 1, 1000, 1000, 20, 20

position matrix 1, -500, 0, -500

randomize matrix 1, 90

for z = 5 to 15

for x = 5 to 15

set matrix height 1, x, z, rnd(5) * sign()

next x

next z

update matrix 1

`camera position

cp as float

cp = 0

`main loop

repeat

`move snow

for i = 1 to max_snow

snow(i).y = snow(i).y - (snow(i).g / 6)

if snow(i).y <= 0 then new_snow(i)

position object i, snow(i).x + (sin(snow(i).y * 3) * 10), snow(i).y, snow(i).z + (sin(snow(i).y * 3) * 10)

next i

`move camera

`camera position

position camera sin(cp) * 600, 300, cos(cp) * 400

point camera 0, 0, 0

`camera speed

cp = WrapValue(cp + 0.03)

`show FPS and message

text 10, 10, "FPS : " + str$(screen fps())

text 10, 20, "ESC to exit"

`update screen

sync

until escapekey()

`function for create +1 or -1

function sign()

x = int(rnd(1))-1

if x = 0 then x = 1

endfunction x

`function for calculate new snow's position

function new_snow(no)

snow(no).g = rnd(6) + 3

snow(no).x = rnd(300) * sign()

snow(no).y = rnd(300) + 300

snow(no).z = rnd(200) * sign()

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Snow Effect