camera problems :) - GameCreators Forum

Author

Message

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 26th Oct 2004 21:46

Link

Hi i was wondering if anyone could help me out here

. I'm trying to create a camera function that uses the mouse to move around the character when he is stationary but that when he is moving the mouse makes the character turn and the camera follows behind him kind of like in fable. I'm ok when it comes to the moving bit but when he is stationary I'm having troubles. I'm on holiday and in an internet cafe now so i cant test it out. I'll be on for another 25min and probably in a day or 2. any ideas would be good.

ps: i would post the code but i dont actually have it on me.

Back to top

Profile PM Email

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 26th Oct 2004 22:11

Link

got to go in 2 min but here is my code so far. If anyone could fill in the gaps i would be gratefull. I'll check this post in the next 2 days so you're ideas wont be wasted

sync on: sync rate 60
make matrix 1000,1000,10,10
make object box 1,3,9,3
objmove=0
do 
cam(1)
control(1)
sync
loop

function control(id)
 
 if upkey()=1
  move object id,2
  objmove=1
 endif

if objmove=1 and mousemovex<>0
  if mousemovex<1
   turn object left id,4
  endif
  if mousemovex>1
   turn object right id,4
  endif
 endif

function cam(id)
 
 objangY#
 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)
 
 if mousemovex()>0
  if objmove=1
   camX#=newxvalue(objX#,objangY#,camD#)
   camZ#=newxvalue(objZ#,objangY#,camD#)
   camX#=curvevalue(camX#,camera position x(),4)
   camY#=curvevalue(camY#,camera position y(),4)
   camZ#=curvevalue(camZ#,camera position z(),4)
  endif
  if objmove=0
   
  endif 
 endif
 
 if mousemovex()<0
  if objmove=1
   camX#=newxvalue(objX#,objangY#,camD#)
   camZ#=newxvalue(objZ#,objangY#,camD#)
   camX#=curvevalue(camX#,camera position x(),4)
   camY#=curvevalue(camY#,camera position y(),4)
   camZ#=curvevalue(camZ#,camera position z(),4)  
  endif
  if objmove=0
  
  endif
 endif

position camera camX#,camY#,camZ#
 point camera objX#,objY#+camD#,objZ#

endfunction

+ Code Snippet

sync on: sync rate 60
make matrix 1000,1000,10,10
make object box 1,3,9,3
objmove=0
do 
cam(1)
control(1)
sync
loop

function control(id)
 
 if upkey()=1
  move object id,2
  objmove=1
 endif

 if objmove=1 and mousemovex<>0
  if mousemovex<1
   turn object left id,4
  endif
  if mousemovex>1
   turn object right id,4
  endif
 endif

function cam(id)
 
 objangY#
 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)
 
 if mousemovex()>0
  if objmove=1
   camX#=newxvalue(objX#,objangY#,camD#)
   camZ#=newxvalue(objZ#,objangY#,camD#)
   camX#=curvevalue(camX#,camera position x(),4)
   camY#=curvevalue(camY#,camera position y(),4)
   camZ#=curvevalue(camZ#,camera position z(),4)
  endif
  if objmove=0
   
  endif 
 endif
 
 if mousemovex()<0
  if objmove=1
   camX#=newxvalue(objX#,objangY#,camD#)
   camZ#=newxvalue(objZ#,objangY#,camD#)
   camX#=curvevalue(camX#,camera position x(),4)
   camY#=curvevalue(camY#,camera position y(),4)
   camZ#=curvevalue(camZ#,camera position z(),4)  
  endif
  if objmove=0
  
  endif
 endif

 position camera camX#,camY#,camZ#
 point camera objX#,objY#+camD#,objZ#

endfunction

Back to top

Profile PM Email

Bona

20

Years of Service

User Offline

Joined: 22nd Oct 2004

Location:

Posted: 27th Oct 2004 01:02

Link

Your problem shouldn't be to hard to fix.
Make it like this.

If upkey()=1 then move#=1 else move#=0

when move#=1 you just use the coding that makes the charakter turn.
When move#=0 then you make the mouse just make the camera wrap

The only way to get an intellegent conversasion is to have a monolog.

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 27th Oct 2004 05:02

Link

Here is some code that should do what you want. It took me longer than expected to get it right...

sync on: sync rate 60
make matrix 1,1000,1000,10,10
make object cone 1,6
xrotate object 1,90:fix object pivot 1
camd#=50.0
objmove=0
camangle#=0.0
hide mouse

do
id=1:gosub controlfunction
id=1:gosub camerafunction
sync
loop

controlfunction:

objangY#=object angle y(id)

if upkey()=1
  move object id,2.0
  if abs(camangle#-object angle y(id))>180
   if camangle#-object angle y(id)>180
    objangY#=curvevalue(camangle#,object angle y(id)+360.0,10.0)
   endif
   if camangle#-object angle y(id)<-180
    objangY#=curvevalue(camangle#+360.0,object angle y(id),10.0)
   endif
  else
   objangY#=curvevalue(camangle#,object angle y(id),10.0)
  endif
  yrotate object id,wrapvalue(objangY#)
 endif

if mousemovex()<>0
  if mousemovex()<1 then camangle#=wrapvalue(camangle#-4.0)
  if mousemovex()>1 then camangle#=wrapvalue(camangle#+4.0)
 endif

return

camerafunction:

objangY#=object angle y(id)
 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)

camX#=objX#-cos(90-camangle#)*camD#
 camZ#=objZ#-sin(90-camangle#)*camD#
 camY#=objY#+camD#
 camX#=curvevalue(camX#,camera position x(),4)
 camY#=curvevalue(camY#,camera position y(),4)
 camZ#=curvevalue(camZ#,camera position z(),4)

position camera camX#,camY#,camZ#
 point camera objX#,objY#,objZ#

return

+ Code Snippet

sync on: sync rate 60
make matrix 1,1000,1000,10,10
make object cone 1,6
xrotate object 1,90:fix object pivot 1
camd#=50.0
objmove=0
camangle#=0.0
hide mouse

do
id=1:gosub controlfunction
id=1:gosub camerafunction
sync
loop

controlfunction:

 objangY#=object angle y(id)

 if upkey()=1
  move object id,2.0
  if abs(camangle#-object angle y(id))>180
   if camangle#-object angle y(id)>180
    objangY#=curvevalue(camangle#,object angle y(id)+360.0,10.0)
   endif
   if camangle#-object angle y(id)<-180
    objangY#=curvevalue(camangle#+360.0,object angle y(id),10.0)
   endif
  else
   objangY#=curvevalue(camangle#,object angle y(id),10.0)
  endif
  yrotate object id,wrapvalue(objangY#)
 endif

 if mousemovex()<>0
  if mousemovex()<1 then camangle#=wrapvalue(camangle#-4.0)
  if mousemovex()>1 then camangle#=wrapvalue(camangle#+4.0)
 endif

return

camerafunction:

 objangY#=object angle y(id)
 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)

 camX#=objX#-cos(90-camangle#)*camD#
 camZ#=objZ#-sin(90-camangle#)*camD#
 camY#=objY#+camD#
 camX#=curvevalue(camX#,camera position x(),4)
 camY#=curvevalue(camY#,camera position y(),4)
 camZ#=curvevalue(camZ#,camera position z(),4)

 position camera camX#,camY#,camZ#
 point camera objX#,objY#,objZ#

return

That is what you wanted, right?

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 28th Oct 2004 03:51

Link

Thanks it looks good to me. haven't been able to test it yet but looked through it and the only thing i didn't get was the abs bit:

+ Code Snippet

if abs(camangle#-object angle y(id))>180

could anyone explain it too me
thanks

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 28th Oct 2004 09:50

Link

This just checks if the difference between the values is >180. abs means absolute value. That is the distance from zero that the number is. Basically, it will just take off the negative sign if there is one.

That part of the code may seem a little excessive, but I did it so that the player does not turn the wrong way. i.e. if he is turned 10 degrees and the camera is at 5 degrees, he doesn't turn all the way around, he just turns the other way. Get it?

I hope it works out.

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 29th Oct 2004 18:32

Link

It's going well but i can't figure out why this code doesn't work and how to fix it:

+ Code Snippet

`Setup
sync on: sync rate 60
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
`make object cube 1,5
position object 1,250,1,250
yrotate object 1,180
hide mouse
objmove=0
camangY#=0.0

`Main loop
do
camera(1)
control(1)
sync
loop

`Functions
function control(id)

 objmove=0

 if upkey()=1
  move object id,2.0
  objmove=1
 endif

endfunction

function camera(id)

 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)

 camD=12
 camH=3

 if leftkey()=1 then camangY#=wrapvalue(camangY#+4.0)
 if rightkey()=1 then camangY#=wrapvalue(camangY#-4.0)

 camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)

 camY#=objY#+camH

 camX#=curvevalue(camX#,camera position x(),4)

 position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#

endfunction

The only problem with it is this part:

+ Code Snippet

if leftkey()=1 then camangY#=wrapvalue(camangY#+4.0)
if rightkey()=1 then camangY#=wrapvalue(camangY#-4.0)

it wont rotate all the way round it just stops at 4 degrees.

Thanks

Back to top

Profile PM Email

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 29th Oct 2004 19:07

Link

I tried this but it didn't work either:

`Setup
sync on: sync rate 60
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
`make object cube 1,5
position object 1,250,1,250
yrotate object 1,180
hide mouse
objmove=0
camangY#=0.0

`Main loop
do
camera(1)
control(1)
sync
loop

`Functions
function control(id)

objmove=0
 objangY=object angle y(1)

if upkey()=1
  move object id,2.0
  objmove=1
 endif

if leftkey()=1 then yrotate object 1,wrapvalue(objangY-4)
 if rightkey()=1 then yrotate object 1,wrapvalue(objangY+4)

endfunction

function camera(id)

objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)

camD=12
 camH=3

if mousex()>0
  camangY#=wrapvalue(camangY#+4.0)
  yrotate camera camangY#
 endif

if mousex()<0
  camangY#=wrapvalue(camangY#-4.0)
  yrotate camera camangY#
 endif

camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)

camY#=objY#+camH

camX#=curvevalue(camX#,camera position x(),4)

position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#

endfunction

+ Code Snippet

`Setup
sync on: sync rate 60
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
`make object cube 1,5
position object 1,250,1,250
yrotate object 1,180
hide mouse
objmove=0
camangY#=0.0

`Main loop
do
camera(1)
control(1)
sync
loop

`Functions
function control(id)

 objmove=0
 objangY=object angle y(1)

 if upkey()=1
  move object id,2.0
  objmove=1
 endif

 if leftkey()=1 then yrotate object 1,wrapvalue(objangY-4)
 if rightkey()=1 then yrotate object 1,wrapvalue(objangY+4)


 endfunction

function camera(id)

 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)

 camD=12
 camH=3

 if mousex()>0
  camangY#=wrapvalue(camangY#+4.0)
  yrotate camera camangY#
 endif

 if mousex()<0
  camangY#=wrapvalue(camangY#-4.0)
  yrotate camera camangY#
 endif

 camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)

 camY#=objY#+camH

 camX#=curvevalue(camX#,camera position x(),4)

 position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#

endfunction

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 30th Oct 2004 01:15

Link

You are using the point camera command after manually rotating it. This will cancel out the angle of the camera that you set. What are you trying to accomplish with this code (I can't test it out right now, sorry)? Tell me what you want to do and I will write up a little code for it.

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 31st Oct 2004 19:46

Link

It's ok i've managed to get it right myself

thanks for your help

Back to top

Profile PM Email

Static

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location: United Kingdom

Posted: 3rd Nov 2004 04:00

Link

I was just wondering. How come the following code only works if the control and camera functions/subroutines are called using gosub and not as a user functions. The code compiles but the camera wont rotate around the stationary box.

using gosub:

sync on: sync rate 60
hide mouse
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
position object 1,250,1,250
yrotate object 1,180

do 
id=1:gosub control
id=1:gosub camera
sync
loop

control:
 objmove=0
 objturn1=0
 objturn2=0
 objangY#=object angle y(id)
 mousemove=mousemovex()

if upkey()=1
  move object id,2.0
  objmove=1
 endif

if leftkey()=1
  yrotate object id,wrapvalue(objangY#-2)
  objturn1=1
 endif

if rightkey()=1
  yrotate object id,wrapvalue(objangY#+2)
  objturn1=1
 endif

if objmove=1 and objturn1=0
  if mousemove<0
   yrotate object id,wrapvalue(objangY#-2)
   objturn2=1
  endif
  if mousemove>0
   yrotate object id,wrapvalue(objangY#+2)
   objturn2=1
  endif
 endif
 if mousemove<0
  camangY#=wrapvalue(camangY#-2)
 endif
 if mousemove>0
  camangY#=wrapvalue(camangY#+2)
 endif
return

camera:
 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)
 objangY#=object angle y(1)
 camD=12
 camH=3

camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)
 camY#=objY#+camH

position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#
return

+ Code Snippet

sync on: sync rate 60
hide mouse
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
position object 1,250,1,250
yrotate object 1,180

do 
id=1:gosub control
id=1:gosub camera
sync
loop

control:
 objmove=0
 objturn1=0
 objturn2=0
 objangY#=object angle y(id)
 mousemove=mousemovex()

 if upkey()=1
  move object id,2.0
  objmove=1
 endif

 if leftkey()=1
  yrotate object id,wrapvalue(objangY#-2)
  objturn1=1
 endif

 if rightkey()=1
  yrotate object id,wrapvalue(objangY#+2)
  objturn1=1
 endif

 if objmove=1 and objturn1=0
  if mousemove<0
   yrotate object id,wrapvalue(objangY#-2)
   objturn2=1
  endif
  if mousemove>0
   yrotate object id,wrapvalue(objangY#+2)
   objturn2=1
  endif
 endif
 if mousemove<0
  camangY#=wrapvalue(camangY#-2)
 endif
 if mousemove>0
  camangY#=wrapvalue(camangY#+2)
 endif
return

camera:
 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)
 objangY#=object angle y(1)
 camD=12
 camH=3

 camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)
 camY#=objY#+camH

 position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#
return

using user functions:

sync on: sync rate 60
hide mouse
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
position object 1,250,1,250
yrotate object 1,180

do
control(1)
camera(1)
sync
loop

function control(id)

objmove=0
 objturn1=0
 objturn2=0
 objangY#=object angle y(id)
 mousemove=mousemovex()

if upkey()=1
  move object id,2.0
  objmove=1
 endif

if leftkey()=1
  yrotate object id,wrapvalue(objangY#-2)
  objturn1=1
 endif

if rightkey()=1
  yrotate object id,wrapvalue(objangY#+2)
  objturn1=1
 endif

if objmove=1 and objturn1=0
  if mousemove<0
   yrotate object id,wrapvalue(objangY#-2)
   objturn2=1
  endif
  if mousemove>0
   yrotate object id,wrapvalue(objangY#+2)
   objturn2=1
  endif
 endif
 if mousemove<0
  camangY#=wrapvalue(camangY#-2)
 endif
 if mousemove>0
  camangY#=wrapvalue(camangY#+2)
 endif

endfunction

function camera(id)

objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)
 objangY#=object angle y(1)
 camD=12
 camH=3

camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)
 camY#=objY#+camH

position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#

endfunction

+ Code Snippet

sync on: sync rate 60
hide mouse
make matrix 1,1000,1000,10,10
make object box 1,1,3,1
position object 1,250,1,250
yrotate object 1,180

do
control(1)
camera(1)
sync
loop

function control(id)

 objmove=0
 objturn1=0
 objturn2=0
 objangY#=object angle y(id)
 mousemove=mousemovex()

 if upkey()=1
  move object id,2.0
  objmove=1
 endif

 if leftkey()=1
  yrotate object id,wrapvalue(objangY#-2)
  objturn1=1
 endif

 if rightkey()=1
  yrotate object id,wrapvalue(objangY#+2)
  objturn1=1
 endif

 if objmove=1 and objturn1=0
  if mousemove<0
   yrotate object id,wrapvalue(objangY#-2)
   objturn2=1
  endif
  if mousemove>0
   yrotate object id,wrapvalue(objangY#+2)
   objturn2=1
  endif
 endif
 if mousemove<0
  camangY#=wrapvalue(camangY#-2)
 endif
 if mousemove>0
  camangY#=wrapvalue(camangY#+2)
 endif

 endfunction

function camera(id)

 objX#=object position x(id)
 objY#=object position y(id)
 objZ#=object position z(id)
 objangY#=object angle y(1)
 camD=12
 camH=3

 camX#=newxvalue(objX#,camangY#,camD)
 camZ#=newzvalue(objZ#,camangY#,camD)
 camY#=objY#+camH

 position camera camX#,camY#,camZ#
 point camera objX#,objY#+camH,objZ#

endfunction

I'm just curious to know why it doesn't work because i though gosub subroutines were the same as user defined functions.
Thanks

Back to top

Profile PM Email

Xander

21

Years of Service

User Offline

Joined: 3rd Mar 2003

Location: In college...yeah!

Posted: 3rd Nov 2004 08:12

Link

I really don't know...to tell you the truth, I never made a function in my entire life. I always just define a few variables, then use a gosub. That's what everyone should do...

Xander Moser - Bolt Software - Firewall

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / camera problems :)