TheGameCreators - CodeBase - How to build a 3d lift

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 22nd Mar 2004 04:47

Modified: 1st Jan 1970 01:00

Author: bilame

Summary

this code shows how to build a 3d lift

Full Description

you will need 2 bitmaps for the "buttons" boxes.<br /> you must be close to the boxes to activate the lift with left mouse click

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 0

set text transparent : set text font "Arial" : set text size 20

rem load images

rem only for boxes where you have to left click with the mouse to go up or down

rem remind that you shouldn't be farther than 40 to activate the lift (line 60,61)

load image "1.bmp",4

load image "2.bmp",5

rem create floor

make object box 1,400,10,400 :

COLOR OBJECT 1,RGB(0,0,0)

position object 1,0,-5,0

rem create the walls

make object box 4,400,110,10 : position object 4,0,55,200

make object box 5,10,110,400 : position object 5,-200,55,0

make object box 6,400,110,10 : position object 6,0,55,-200

rem create static floor

make object box 7,400,10,400 : position object 7,400,-5,0

COLOR OBJECT 7,RGB(255,255,255)

rem create box  (button on floor 1 to go to floor 2)

make object box 2,10,10,10 : position object 2,0,20,0

texture object 2,4 : scale object texture 2,1,1

rem create box  (button on floor 2 to go to floor 1)

make object box 3,10,10,10 : position object 3,0,120,0

texture object 3,5 : scale object texture 3,1,1

rem Set floors to box collision

make object collision box 1,-200,-5,-200,200,5,200,0

make object collision box 7,-200,-5,-200,200,5,200,0

rem setup camera and lights

set point light 0,0,0,0

make light 1 : set point light 1,0,0,0 : color light 1,255,-100,-100

position camera 0,30,-100

rem set automatic collision for camera

automatic camera collision 0,30,0

set global collision on

hauteur# =0.0

test=0

lasthauteur#=0.0

rem loop

fps$="DBPro Fps: "+str$(screen fps())

text screen width()-20-text width(fps$),screen height()-40,fps$

text  20,20,str$(hauteur#)

text 20,60,str$(cursorobj)

if mouseclick()>0 and test=0

cursorobj=pick object(mousex(),mousey(),2,3)

pickdistance#=get pick distance()

text 20,80,str$(pickdistance#)

if test=0 and cursorobj=2 and pickdistance#<40.0 then test=1

if test=0 and cursorobj=3 and pickdistance#<40.0 then test=2

endif

if test=1 then hauteur#=CURVEVALUE(110.0,hauteur#,80.0): MOVE OBJECT UP 1,(hauteur#-lasthauteur#)

if test=1 and hauteur#>=99.9 then test=0

if test=2 then hauteur#=CURVEVALUE(-10.0,hauteur#,80.0): MOVE OBJECT DOWN 1,(lasthauteur#-hauteur#)

if test=2 and hauteur#<=0.01 then test=0

text  20,40,str$(hauteur#-lasthauteur#)

lasthauteur#=hauteur#

rem control camera

control camera using arrowkeys 0,1,2

rem Add gravity to camera to test automatic collision

position camera camera position x(),camera position y()-1,camera position z()

rem update screen

sync

rem end loop

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	bilame
CodeBase Entries:	1

CodeBase - How to build a 3d lift