How do you make the camera follow an object?

Author

Message

Galyxi

19

Years of Service

User Offline

Joined: 8th Sep 2005

Location: Using DBC

Posted: 12th Sep 2005 19:47

Link

*Using DBC*

+ Code Snippet

	sync on
	
	load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\DB\Vehicles\Jet Fighter\L-Jet Fighter-Move.x",1
	
	Set camera to follow Object position X(1),Object position Y(1),Object position Z(1),Object position Y(1),-15000,0,500,5
	rotate camera 0,180,0

	do

	REM forwards n backwards
	fwds#=(fwds#-1)
	if keystate(17)=1 then move object 1,(fwds#) else fwds#=(fwds#+1)
	if fwds#=<-5 then fwds#=-5
	if fwds#=>0 then fwds#=0
	bwds#=(bwds#+1)
	if keystate(31)=1 then move object 1,(bwds#) else bwds#=(bwds#-1)
	if bwds#=>2 then bwds#=2
	if bwds#=<0 then bwds#=0

	REM rotate left n right
	lrot#=wrapvalue(lrot#-1)
	if leftkey()=1 then rotate object 1,0,0,lrot#
	rrot#=wrapvalue(rrot#+1)
	if rightkey()=1 then rotate object 1,0,0,rrot#

	REM forward n backwards rotate
	rotd#=wrapvalue(rotd#-1)
	rotu#=wrapvalue(rotu#+1)
	if upkey()=1 then rotate object 1,rotd#,0,0
	if downkey()=1 then rotate object 1,rotu#,0,0
	sync

	loop

Just a question. Is there a way of getting the camera to follow an object? I have the command *set camera to follow* but it doesnt seem to actually follow the object. Did I cancel it out by putting *rotate camera* command in there? OR do you have to code it yourself, ie

do
if upkey()=1 then move object 1,1
position camera objectsXposition#,objectsYposition#,objectsZposition
sync
loop

or is there just a command which tells it to follow the object.

Thanks for the help!

PS Ive posted the code above and just noticed an error whilst testing it. When i press the keys to tell it to rotate, it does funny things (rotates fine but doesnt start rotating from 0 degrees)

If anyone has any ideas about the second thing that'd be great too!

Back to top

Profile PM

Galyxi

19

Years of Service

User Offline

Joined: 8th Sep 2005

Location: Using DBC

Posted: 12th Sep 2005 22:15

Link

got the rotating bug working, code now looks like this:

+ Code Snippet

	sync on
	
	hide mouse

	make matrix 5,5,5,5,5

	load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\DB\Vehicles\Jet Fighter\L-Jet Fighter-Move.x",1
	
	Set camera to follow Object position X(1),Object position Y(1),Object position Z(1),Object position Y(1),-15000,0,500,5
	rotate camera 0,180,0

	do

	REM forwards
	fwds#=(fwds#-1)
	if keystate(17)=1 then move object 1,(fwds#) else fwds#=(fwds#+1)
	if fwds#=<-5 then fwds#=-5
	if fwds#=>-1 then fwds#=-1


	if downkey()=1 then pitch object down 1,5
	if upkey()=1 then pitch object up 1,5
	if inkey$()="a" then turn object left 1,2
	if inkey$()="d" then turn object right 1,2
	if leftkey()=1 then roll object left 1,5
	if rightkey()=1 then roll object right 1,5


	sync

	loop

Back to top

Profile PM

Galyxi

19

Years of Service

User Offline

Joined: 8th Sep 2005

Location: Using DBC

Posted: 13th Sep 2005 17:35

Link

*bump*

Back to top

Profile PM

WarGoat

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location: Montreal

Posted: 18th Sep 2005 05:01

Link

Ok i see your problem. First, your set object to follow need to be in the do...loop. Secondly, your second object position y(1) need to be change to object angle y(1). After your number (-15000,0,500,5) need to be change. Her the good code, put it in the main loop.

+ Code Snippet

set object to follow object position x(1), object position y(1), object position z(1), object angle y(1), -20, 10, 1, 1

you cen ever change the number to whatever you like to be adjusted with the size of your model.

One last things, you don't need, in the load object command, to put all the directory. You can just put the model name with the .x .

hope it helped.

Windows XP,pentium IIII, 1,9 MGZ, 256 mb memory, 128 mb video card ATI Radeon 9200 se s80 'sett squadron back on the assault'

Back to top

Profile PM Email

Galyxi

19

Years of Service

User Offline

Joined: 8th Sep 2005

Location: Using DBC

Posted: 24th Sep 2005 00:06

Link

parameter mismatch. array must have at least one subscript

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 24th Sep 2005 01:17

Link

Try:

set CAMERA to follow object position x(1), object position y(1), object position z(1), object angle y(1), -20, 10, 1, 1

but like sett says, you don't use the command once - you put it in the main program Do..Loop or it won't work.

Also, when this command is being used, you cannot turn the camera to point in a different direction as the command includes where to point the camera.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Me!

19

Years of Service

User Offline

Joined: 26th Jul 2005

Location:

Posted: 24th Sep 2005 15:13

Link

or you could position the camera at the object, set it to the object orientation then pitch it down say 40degrees and move it back a distance, like this

+ Code Snippet

for i=2 to 200
make object cube i,rnd(3)
position object i,rnd(200),0,rnd(200)
next i
make object sphere 1,1
position object 1,100,0,100
do
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
if leftkey() then turn object left 1,1
if rightkey() then turn object right 1,1
position camera object position x(1),object position y(1),object position z(1)
set camera to object orientation 1
pitch camera down 45
move camera -15
loop

to avoid the consequences of global warming, get into a car and join millions of other people in burning millions of gallons of fuel in a huge traffic jam.

Back to top

Profile PM

WarGoat

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location: Montreal

Posted: 24th Sep 2005 16:59

Link

aaaa!! made a mistake in the command lol. Yeah TDK is right, its not set object to follow but set camera to follow. sry for the mistake again.

Windows XP,pentium IIII, 1,9 MGZ, 256 mb memory, 128 mb video card ATI Radeon 9200 se s80 'sett squadron back on the assault'

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / How do you make the camera follow an object?