TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D Effects

Version: 1.0

Information

Uploaded: 24th Apr 2004 06:55

Modified: 1st Jan 1970 01:00

Author: malcolm

Summary

i wanted to see if i could code a program to allow you to move in a 3d forest

Full Description

when i was playing around with Night-Forest Shooter by Martijn van Sliedregt, zodsteels@yahoo.com the player would walk out of the forest i added some code to make it apear that the forest ran on for ever has his game was in 3d but you was looking down on the player it was easy to do i wanted to see if i could code a program to allow you to move in a 3d forest the size that went on for ever

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem forest run

rem malcolm bamber

rem when i was playing around with

rem Night-Forest Shooter by Martijn van Sliedregt, zodsteels@yahoo.com (artwork and music/sounds are free to use)

rem the player would walk out of the forest

rem i added some code to make it apear that the forest ran on for ever

rem has his game was in 3d but you was looking down on the player it was easy to do

rem i wanted to see if i could code a program to allow you to move in a 3d forest

rem the size that went on for ever

rem change this to what is better for you

if check display mode(1024,768,32)=1 then set display mode 1024,768,32

SET IMAGE COLORKEY 0,0,0

hide mouse

randomize timer()

fog on

FOG DISTANCE 900

rem This is important for a fast game, it sets the maximum refreshing

rem to 60 FPS

sync on

sync rate 60

rem object numbers

`ship = 1 to 4

rem We'll make the backdrop black

`color backdrop 0

set text size 32

rem load all objects

gosub setuplevel

rem speed of object 1

speed#=1.0

loop sound 1

rem the main game loop

repeat

rem check what to do with players

gosub checkkeys

if returnkey()=1

text 0,0,"w = move forward"

text 0,20,"s = move back"

text 0,40,"a = rotate left"

text 0,60,"d = rotate right"

text 0,80,"q = slide left"

text 0,100,"e = slide right"

text 0,120,"pageup speed up"

text 0,140,"pagedown speed down"

else

text 0,0,"PRESS RETURN KEY FOR HELP"

text 0,20,"speed = "+str$(speed#)

endif

rem Draw everything

sync

rem the end

until game_over=1

stop sound 1

end

checkkeys:

rem keys have been changed

rem movement keys

`UP=W

`DOWN=S

`ROTATE LEFT=A

`ROTATE RIGHT=D

`SLIDE LEFT = Q

`SLIDE RIGHT = E

`speed up = pageup

`speed down = pagedown

x#=object position x(1)

y#=object position y(1)

z#=object position z(1)

oldx#=x#

oldy#=y#

oldz#=z#

rem Player rotation, when the A | D | is pressed the player will rotate 2 degrees

if keystate(30)=1 then yrotate object 1,wrapvalue(object angle y(1)-2)

if keystate(32)=1 then yrotate object 1,wrapvalue(object angle y(1)+2)

rem Moving the player

rem up

if keystate(17)=1

x#=newxvalue(x#,object angle y(1),speed#)

z#=newzvalue(z#,object angle y(1),speed#)

endif

rem down

if keystate(31)=1

x#=newxvalue(x#,wrapvalue(object angle y(1)+180),speed#)

z#=newzvalue(z#,wrapvalue(object angle y(1)+180),speed#)

endif

rem slide left

if keystate(16)=1

x#=newxvalue(x#,wrapvalue(object angle y(1)-90),speed#)

z#=newzvalue(z#,wrapvalue(object angle y(1)-90),speed#)

endif

rem slide right

if keystate(18)=1

x#=newxvalue(x#,wrapvalue(object angle y(1)+90),speed#)

z#=newzvalue(z#,wrapvalue(object angle y(1)+90),speed#)

endif

rem speed up

if keystate(201)=1 then inc speed#,1.0

rem speed down

if keystate(209)=1 and speed#>1.0 then dec speed#,1.0

rem how this next part works

rem if player object move off oject 10 in anyway

rem then place it back on object 10

rem example

rem if player object moves off object 10 on the left side

rem then place it back on the right side of onject 10

rem the object 10 size is 1000 by 1000

rem so player position greater than 500 in any way

rem mean that the player object is off object 10

rem check if we are moving to the left of the screen

if x#<oldx#

rem have you walk of map

if x#<-500.0

rem make number a + number

x#=(x#*-1)

rem find out are far past 500 object is

ncb#=500.0-x#

rem place object on other side of map

x#=500.0+ncb#

oldx#=x#

endif

rem check if we are moving to the right of the screen

if x#>oldx#

rem have you walk of map

if x#>500.0

rem find out are far past 500 object is

ncb#=500.0-x#

rem place object on other side of map

x#=(500.0+ncb#)*-1

oldx#=x#

endif

rem check if we are moving to the up of the screen

if z#<oldz#

rem have you walk of map

if z#<-500.0

rem make number a + number

z#=(z#*-1)

rem find out are far past 500 object is

ncb#=500.0-z#

rem place object on other side of map

z#=500.0+ncb#

oldz#=z#

endif

rem check if we are moving to the down of the screen

if z#>oldz#

rem have you walk of map

if z#>500.0

rem find out are far past 500 object is

ncb#=500.0-z#

rem place object on other side of map

z#=(500.0+ncb#)*-1

oldz#=z#

endif

rem position player

position object 1,x#,y#,z#

position object 3,x#,y#,z#

position object 4,x#,y#-14,z#

rem position camera

angle#=object angle y(1)

SET CAMERA TO FOLLOW X#,Y#,Z#,angle#,50,10,1.0,0

return

setuplevel:

rem sounds

load sound "ufo2.wav",1

rem textures

load image "media\level\tree_02.bmp",5,1

rem player object

make object sphere 1,15

position object 1,0,15,0

color object 1,rgb(0,0,255)

SET OBJECT COLLISION OFF 1

rem player object

make object sphere 3,15

position object 1,0,15,0

scale object 3,200,10,200

color object 3,rgb(0,128,255)

rem shadow object

make object sphere 4,15

position object 1,0,15,0

scale object 4,200,10,200

color object 4,rgb(0,0,0)

SET OBJECT COLLISION OFF 4

rem Landscape

make object box 10,1000,1000,2

xrotate object 10,90

fix object pivot 10

position object 10,0,0,0

color object 10,rgb(0,128,0)

SET OBJECT COLLISION OFF 10

perform checklist for object limbs 10

numberoflimbs=checklist quantity()

rem Now we will place some trees to fill up the landscape

limbnumber=numberoflimbs

rem place a tree on the map

make object plain 2,50,100

xrotate object 2,90

fix object pivot 2

make mesh from object 2,2

for t=1 to 200

x#=rnd(1000)

if x#>=500:dec x#,500:else:x#=x#*-1:endif

y#=rnd(1000)

if y#>=500:dec y#,500:else:y#=y#*-1:endif

z#=-rnd(30)-20

add limb 10,limbnumber,2

offset limb 10,limbnumber,x#,y#,z#

texture limb 10,limbnumber,5

inc limbnumber

add limb 10,limbnumber,2

offset limb 10,limbnumber,x#,y#,z#

texture limb 10,limbnumber,5

rotate limb 10,limbnumber,0,0,90

inc limbnumber

next t

set object cull 10,0

SET OBJECT TRANSPARENCY 10,1

rem now we will copy object 10 8 times

rem in the 3d world the object will be placed like this

rem  11 12 13

rem  14 10 15

rem  16 17 18

rem up left

INSTANCE OBJECT 11,10

position object 11,-1000,0,1000

xrotate object 11,90

fix object pivot 11

SET OBJECT COLLISION OFF 11

rem up

INSTANCE OBJECT 12,10

position object 12,0,0,1000

xrotate object 12,90

fix object pivot 12

SET OBJECT COLLISION OFF 12

rem up right

INSTANCE OBJECT 13,10

position object 13,1000,0,1000

xrotate object 13,90

fix object pivot 13

SET OBJECT COLLISION OFF 13

rem left

INSTANCE OBJECT 14,10

position object 14,-1000,0,0

xrotate object 14,90

fix object pivot 14

SET OBJECT COLLISION OFF 14

rem right

INSTANCE OBJECT 15,10

position object 15,1000,0,0

xrotate object 15,90

fix object pivot 15

SET OBJECT COLLISION OFF 15

rem down left

INSTANCE OBJECT 16,10

position object 16,-1000,0,-1000

xrotate object 16,90

fix object pivot 16

SET OBJECT COLLISION OFF 16

rem down

INSTANCE OBJECT 17,10

position object 17,0,0,-1000

xrotate object 17,90

fix object pivot 17

SET OBJECT COLLISION OFF 17

rem down right

INSTANCE OBJECT 18,10

position object 18,1000,0,-1000

xrotate object 18,90

fix object pivot 18

SET OBJECT COLLISION OFF 18

delete object 2

delete mesh 2

return

Download

Please login to download

Comments

No comments yet.

CodeBase - forest run

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	malcolm
CodeBase Entries:	6