CodeBase - demo of maze

Return to the CodeBase listing

Category: 3D

Version: w,i,p

0

0

Information

Uploaded: 21st Feb 2005 13:49

Modified: 8th Jul 2012 09:36

Author: data 98junkiee

Summary

A short game by tommyvercetti9@hotmail.com it Doesent realy have any aim and you can go though the walls but it is good for a first try at programming

Full Description

A short game by tommyvercetti9@hotmail.com it Doesent realy have any aim and you can go though the walls but it is good for a first try at programming

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

cls

print         "Welcome to the /w i p/ demo of maze"

print         "This was made by tommyvercetti9@hotmail.com"

sleep 1000

print "----------------------------"

print ""

print " /////   \   //////  ///// "

print " / / /         //   /     "

print " / / / \\\   //    ////  "

print " / / /       /////  /     "

print " /   /                ///// "

print ""

print "----------------------------"

print "loading"

sleep 5000

set global collision on

load bitmap "floor1.bmp",1

get image 1,0,0,128,128

hide mouse

ink rgb(244,214,210),1

cls

make matrix 1,10000.100,10000.0,30,25

load music "Course.mid",1

play music 1

load bitmap "mnbrik.bmp",2

get image 2,0,0,256,256

rem Load your object

load object "car54.x",1

scale object 1,5000,4000,8000

set object collision on 1

position matrix 1,-2000,1,0

rem Position camera

enable static occlusion

position camera 5000,200,5000

rem Activate manual sync

sync on

color backdrop 999

prepare matrix texture 1,1,2,2

rem --------------------------------------

make object cube 5,75

position object 5,2100,50,2000

set object collision on 5

scale object 5,600,600,800

texture object 5,2

rem ---------------------------

make object cube 6,75

position object 6,2500,50,2000

scale object 6,600,600,800

texture object 6,2

rem ---------------------------

make object cube 7,75

position object 7,2500,50,2500

scale object 7,600,600,800

texture object 7,2

rem ---------------------------

make object cube 8,75

position object 8,3500,50,2000

scale object 8,600,600,800

texture object 8,2

rem ---------------------------

make object cube 9,75

position object 9,3500,50,2500

scale object 9,600,600,800

texture object 9,2

rem ---------------------------

make object cube 10,75

position object 10,3500,50,3000

scale object 10,600,600,800

texture object 10,2

rem ---------------------------

make object cube 11,75

position object 11,2500,50,3000

scale object 11,600,600,800

texture object 11,2

rem ---------------------------

make object cube 12,75

position object 12,3500,50,3000

scale object 12,600,600,800

texture object 12,2

rem ---------------------------

make object cube 13,75

position object 13,3500,50,1500

scale object 13,600,600,800

texture object 13,2

rem ---------------------------

make object cube 14,75

position object 14,2800,50,1500

scale object 14,600,600,800

texture object 14,2

rem ---------------------------

make object cube 15,75

position object 15,3800,50,1500

scale object 15,600,600,800

texture object 15,2

rem ---------------------------

make object cube 16,75

position object 16,4800,50,1500

scale object 16,600,600,800

texture object 16,2

sync on

rem ---------------------------

make object cube 17,75

position object 17,4800,50,2000

scale object 17,600,600,800

texture object 17,2

rem ---------------------------

make object cube 18,75

position object 18,4800,50,2500

scale object 18,600,600,800

texture object 18,2

rem ---------------------------

make object cube 19,75

position object 19,4800,50,3000

scale object 19,600,600,800

texture object 19,2

rem ---------------------------

make object cube 20,75

position object 20,4500,50,3500

scale object 20,600,600,800

texture object 20,2

rem ---------------------------

make object cube 21,75

position object 21,4500,50,3500

scale object 21,600,600,800

texture object 21,2

rem ---------------------------

make object cube 22,75

position object 22,4500,50,4000

scale object 22,600,600,800

texture object 22,2

rem ---------------------------

make object cube 23,75

position object 23,4500,50,3700

scale object 23,600,600,800

texture object 23,2

rem ---------------------------

make object cube 24,75

position object 24,4200,50,4500

scale object 24,600,600,800

texture object 24,2

rem ---------------------------

make object cube 25,75

position object 25,4200,50,3700

scale object 25,600,600,800

texture object 25,2

rem ---------------------------

make object cube 26,75

position object 26,4200,50,2000

scale object 26,600,600,800

texture object 26,2

rem ---------------------------

make object cube 27,75

position object 27,1700,50,1500

scale object 27,600,600,800

texture object 27,2

rem ---------------------------

make object cube 28,75

position object 28,1700,50,1700

scale object 28,600,600,800

texture object 28,2

rem ---------------------------

make object cube 29,75

position object 29,1700,50,1900

scale object 29,600,600,800

texture object 29,2

rem ---------------------------

make object cube 30,75

position object 30,1700,50,2100

scale object 30,600,600,800

texture object 30,2

rem ---------------------------

make object cube 31,75

position object 31,1700,50,2400

scale object 31,600,600,800

texture object 31,2

rem ---------------------------

make object cube 32,75

position object 32,1500,50,1500

scale object 32,600,600,800

texture object 32,2

rem ---------------------------

make object cube 33,75

position object 33,600,50,1500

scale object 33,600,600,800

texture object 33,2

rem ---------------------------

make object cube 34,75

position object 34,300,50,1500

scale object 34,600,600,800

texture object 34,2

rem ---------------------------

make object cube 35,75

position object 35,0,50,1500

scale object 35,600,600,800

texture object 35,2

rem ---------------------------

make object cube 36,75

position object 36,-300,50,1500

scale object 36,600,600,800

texture object 36,2

rem ---------------------------

make object cube 37,75

position object 37,-600,50,1500

scale object 37,600,600,800

texture object 37,2

rem ---------------------------

make object cube 38,75

position object 38,-900,50,1500

scale object 38,600,600,800

texture object 38,2

rem ---------------------------

make object cube 39,75

position object 39,-1200,50,1500

scale object 39,600,600,800

texture object 39,2

rem ---------------------------

make object cube 40,75

position object 40,-1500,50,1500

scale object 40,600,600,800

texture object 40,2

rem ---------------------------

make object cube 41,75

position object 41,-1800,50,1500

scale object 41,600,600,800

texture object 41,2

sync on

rem Begin loop

do

rem Control camera with arrow keys

if upkey()=1 then x#=newxvalue(x#,a#,-20) : z#=newzvalue(z#,a#,-20)

if downkey()=1 then x#=newxvalue(x#,a#,-40) : z#=newzvalue(z#,a#,-40)

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

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

rem Update character

y#=get ground height(1,x#,z#)+50.7

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

yrotate object 1,a#

rem Position camera to the back of the character

cx#=newxvalue(x#,wrapvalue(a#+1080),300)

cz#=newzvalue(z#,wrapvalue(a#+1080),300)

cy#=get ground height(1,cx#,cz#)+100.0

position camera cx#,cy#,cz#

rem Point camera at object

point camera x#,y#,z#

rem Syncronise

sync

rem End loop

loop

Download

Please login to download

Comments

No comments yet.