TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Matrix

Version: 1.0

Information

Uploaded: 8th Feb 2004 16:31

Modified: 11th Feb 2004 11:57

Author: Anonymous Coder

Summary

How To Make the matrix rise as you pass over it

Full Description

as the camera moves about above the matrix the ground neerest to it will begin to rise and it will continue to rise in incriments of 1 until the world ends... pretty basic but took a while to figure out

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem how to make matrix rase below the camera

rem Made by Matt Henry

rem and started by Nathan Wade :P

rem but Matt Henry 93% of it :)

rem you must load steel04.bmp

sync on

rem load up steel bitmap and get image

rem disregard the water one

LOAD BITMAP "water01.bmp",1

GET IMAGE 1,0,0,128,128

DELETE BITMAP 1

load bitmap "moss04.bmp",3

get image 3,0,0,128,128

delete bitmap 3

load bitmap "steel04.bmp",2

get image 2,0,0,128,128

delete bitmap 2

rem creat matrix and all objects needed

xseg = 45

zseg = 45

make matrix 1,2000,2000,xseg,zseg

PREPARE MATRIX TEXTURE 1,2,1,1

for t = 1 to 4

make object sphere t,40

next t

for t= 5 to 8

make object box t,10,500,10

next t

for t = 9 to 12

make object sphere t,40

next t

for t = 13 to 24

make object box t,2000,10,10

next t

for t = 25 to 36

make object box t,10,10,2000

next t

for t = 1 to 36

texture object t,3

next t

rem position every object in there own unique place

position object 1,10,0,10

position object 2,1990,0,1990

position object 3,10,0,1990

position object 4,1990,0,10

position object 5,10,250,10

position object 6,1990,250,1990

position object 7,10,250,1990

position object 8,1990,250,10

position object 9,10,500,10

position object 10,1990,500,1990

position object 11,10,500,1990

position object 12,1990,500,10

position object 13,1000,0,10

position object 14,1000,100,10

position object 15,1000,200,10

position object 16,1000,300,10

position object 17,1000,400,10

position object 18,1000,500,10

position object 19,1000,100,1990

position object 20,1000,200,1990

position object 21,1000,300,1990

position object 22,1000,400,1990

position object 23,1000,500,1990

position object 24,1000,0,1990

position object 25,10,0,1000

position object 26,10,100,1000

position object 27,10,200,1000

position object 28,10,300,1000

position object 29,10,400,1000

position object 30,10,500,1000

position object 31,1990,100,1000

position object 32,1990,200,1000

position object 33,1990,300,1000

position object 34,1990,400,1000

position object 35,1990,500,1000

position object 36,1990,0,1000

position camera 1000,10,1000

height = 1

rem begin loop

set cursor 1,1

print "x: ",camera position x()

print "y: ",camera position y()

print "z: ",camera position z()

Print "Newx: ",newx

Print "Newz: ",newz

x = camera position x()

z = camera position z()

rem this was so hard for me to figure out... but basically if its past the x or z of the matrix

rem devided by the X and Z segments then it adds one to its self

rem and vice versa vor being lower

rem it only does this while camera is inside the following:

if x > 10 and x <=1990 and z>10 and z <=1990

repeat

if newx < X/xseg then newx = newx + 1

if newz < Z/zseg then newz = newz + 1

if (newx -1) = x/xseg then newx = newx -1

if (newz -1) = z/zseg then newz = newz -1

until (newx >= x/xseg) and (newz>=z/zseg)

set matrix height 1,newx,newz,height

height = height + 1

endif

update matrix 1

rem basic movement principles

if upkey()=1 then move camera 20.0

if downkey()=1 then move camera -20.0

if leftkey()=1 then angley#=wrapvalue(angley#-2.0)

if rightkey()=1 then angley#=wrapvalue(angley#+2.0)

cx# = wrapvalue(cx# + mousemovey())

cy# = wrapvalue(cy# + mousemovex())

cz# = wrapvalue(cz# + mousemovez())

rotate camera cx#,cy#,cz#

yrotate camera angley#

sync

loop

rem and leave a comment :P enjoy

rem if you cant make the rased surfaces gradually lower again

rem then creat it so that the "steps" show up infront of you

rem and you continuously travel up them no matter which way you turn

Download

Please login to download

Comments

No comments yet.

CodeBase - Rising Matrix

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1