TheGameCreators - CodeBase - basic begginer 3d game (pointless)

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 28th Aug 2006 12:54

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

this is a game of a ball moving around a ww2 village just 4 begginers!

Full Description

this is a game of a ball moving around a ww2 village<br /> just 4 begginers!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

load image "grass14.bmp",1

load image "barry.bmp"	,2

load image "mesh03.bmp",3

load image "blue07.bmp",4

load image "brick11.bmp",6

load image "manor01.bmp",5

load object "idle.x",10

loop object 10

position object 10,1500,15,250

load object "helico09.x",14

position object 14,200,10,400

scale object 14,500,500,500

load object "gun11.x",13

position object 13,2500,10,1000

rotate object 13,0,90,0

scale object 13,10000,10000,10000

make object plain 11,1000,50

position object 11,3000,10,100

make object plain 12,5000,50

position object 12,2300,10,2000

rotate object 12,0,270,0

load object "house2.x",7

position object 7,2000,50,500

scale object 7,900,2000,900

load object "outpool.x",6

position object 6,1800,15,200

load object "bunker.3ds",4

position object 4,900,10,500

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

make object cylinder 8,100

position object 8,3000,500,500

scale object 8,500,1000,500

make object cube 5,200

position object 5,2000,50,200

make object sphere 1,30

position object 1,500,500,500

make object cone 3,60

make object cube 2,50

position object 2,500,30,600

make light 1

point light 1,500,30,500

color light 1,100,0,100

show light 1

make matrix 1,5000,5000,50,50

randomize matrix 1,1

prepare matrix texture 1,1,2,2

texture object 1,2

texture object 2,5

texture object 3,3

texture object 5,5

texture object 8,5

texture object 11,6

texture object 12,6

`fog on

`fog color RGB(100,100,100)

glue object to limb 3,1,0

backdrop on

texture backdrop 4

scroll backdrop 50,0

fix object pivot 1

set object frame 10,5

```````````````````

rem move sphere

hide mouse

PRINT "upkey=forward:downkey=back:Left=left:right=right"

play object 10

a#=object angle y(1)

if leftkey()=1 then a#=wrapvalue(a#-5)

if rightkey()=1 then a#=wrapvalue(a#+5)

yrotate object 1,a#

if upkey()=1 then move object 1,-10

if downkey()=1 then move object 1,+10

if spacekey()=1 and playergrav#=0.0 then playergrav#=2.0

if object collision(1,0)>0 then position object 1,posx#,posy#,posz#

posx#=object position x(1)

posz#=object position z(1)

posy#=get ground height(1,posx#,posz#)

position object 1,posx#,posy#,posz#

rem Use camera tracker to follow player object

angle#=object angle y(1)

angle#=angle#+180

camdist#=100.0 : camhigh#=posy#+50.0 : camfade#=3.5

set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1

LOOP

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	1

CodeBase - basic begginer 3d game (pointless)