TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D Effects

Version: 1.0

Information

Uploaded: 27th Apr 2004 23:07

Modified: 28th Apr 2004 07:03

Author: LDS Micro games

Summary

This program will help you place object in your VR space

Full Description

This program will alow you to place Object in your VR screen by using the on screen messages. you will need to use the soruce code to place the object number (( OB )) change the line ob=0 to .. if your object number is 6 then change ob=0 to ob=6 Sorry don't have a screen shot this is desined to help you with OBJECT plactment hope you like the program

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` Programed by Dakota Star Computer Service

` Started 4-25-04  finished on 4-26-04

` object placeing program: This program will help place object on VR space..

` will take a little to get go know but once you do you will love it

` writen in Darkbasic By Luke Schott

` (((( this demo does not come with the carpet1.bmp, Dark01.bmp or the house 3.x file ))))

Autocam off: Sync rate 60 :Hide mouse: sync on

load image "carpet1.bmp",50

load image "dark01.bmp",51

` makes main floor

make object box 1,10,2000,2000 :texture object 1,50:position object 1,0,0,0 :zrotate object 1,90

` 2nd Floor

Make object box 2,10,1000,500 :texture object 2,50:position object 2,0,-70,1365 :zrotate object 2,90

` 1st Plank

make object box 3,10,1,150 :texture object 3,51:position object 3,0,-33,1064 :xrotate object 3,30

` Demo house 1

load object "house3.x",4:scale object 4,500,500,500 :position object 4,434,-33,1470 :yrotate object 4,90

` demo house 2

load object "house3.x",5:scale object 5,500,500,500:position object 5,-434,-33,1470: yrotate object 5,270

sync

ob=0    :` replace object number here

` cam controls

ocay#=cay# : ocax#=cax#

cay#=wrapvalue(cay#+mousemovex()*0.2)

cax#=wrapvalue(cax#+mousemovey()*0.2)

` controls input of camera

if upkey()=1

xt#=newxvalue(x#,cay#,10)

zt#=newzvalue(z#,cay#,10)

x#=xt# :z#=zt#

endif

if downkey()=1

xt#=newxvalue(x#,wrapvalue(cay#-180),10)

zt#=newzvalue(z#,wrapvalue(cay#-180),10)

x#=xt#: z#=zt#

endif

` strafing Left & Right

if leftkey()=1

xt#=newxvalue(x#,wrapvalue(cay#-90),10)

zt#=newzvalue(z#,wrapvalue(cay#-90),10)

x#=xt# :z#=zt#

endif

if rightkey()=1

xt#=newxvalue(x#,wrapvalue(cay#+90),10)

zt#=newzvalue(z#,wrapvalue(cay#+90),10)

x#=xt# :z#=zt#

endif

yrotate camera curveangle(cay#,ocay#,24)

xrotate camera curveangle(cax#,ocax#,24)

if ob>0 then gosub luke:

if inkey$()="*" then per=per-1

if inkey$()="/" then per=per+1

if inkey$()="0" then per=0

position camera x#,y#+50+per,z#

sync

loop

Luke:

` programer object placement

if inkey$()="6" then obLR#=obLR#+1

if inkey$()="4" then obLR#=obLR#-1

if inkey$()="8" then obud#=obud#+1

if inkey$()="2" then obud#=obud#-1

if inkey$()="=" then obns#=obns#+1

if inkey$()="-" then obns#=obns#-1

if inkey$()="," then ob=ob-1

if inkey$()="." then ob=ob+1

if inkey$()="5" then gosub rotateobject:

set cursor 10,0 :print "Key 6 or 4 object x: ",oblr#

set cursor 10,20:print "key 8 or 2 object y: ",obud#

set cursor 10,40:print "key = or - object z: ",obns#

set cursor 10,60:print "Object: ",ob

set cursor 10,80:print "key 5 y - rotate angle: ",ro

set cursor 10,100:print "View camera : / = UP * = Down"

position object ob,oblr#,obud#,obns#

return

rotateobject:

ro=ro+1

if ro>360 then ro=0

yrotate object ob,ro

sync

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Object mover

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	LDS Micro games
CodeBase Entries:	1