Help with 3D first person camera

Author

Message

AlanP

14

Years of Service

User Offline

Joined: 8th Mar 2010

Location:

Posted: 9th Apr 2010 22:06

Link

I have searched the fourms numerous times and have yet to find a good code. Im fairly new and I have even tried take 3rd person codes and trying to turn them into first person but have had no success. Heres my current code:

rem setup screen
sync on
sync rate 60
backdrop on
hide mouse

rem declare variables
global x# as float
global y# as float
global z# as float
global angle# as float
global distance# as float
global height# as float
global smooth# as float
global flag as byte

rem make a player object
make object cube 1,1

rem main loop
do

rem control player movement with input
   if upkey()=1 then move object 1,.1
   if downkey()=1 then move object 1,-.1
   if leftkey()=1 then turn object left 1,5
   if rightkey()=1 then turn object right 1,5

rem get values for camera positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   angle#=object angle y(1)
   distance#=object size z(1)*4
   height#=y#+object size y(1)*3
   smooth#=10
   flag=0

rem set camera to follow player object
   set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag

rem point camera at player object
   point camera x#,y#,z#

rem refresh screen
   sync

rem end of main loop
loop

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on
hide mouse

rem declare variables
global x# as float
global y# as float
global z# as float
global angle# as float
global distance# as float
global height# as float
global smooth# as float
global flag as byte

rem make a player object
make object cube 1,1

rem main loop
do

   rem control player movement with input
   if upkey()=1 then move object 1,.1
   if downkey()=1 then move object 1,-.1
   if leftkey()=1 then turn object left 1,5
   if rightkey()=1 then turn object right 1,5

   rem get values for camera positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   angle#=object angle y(1)
   distance#=object size z(1)*4
   height#=y#+object size y(1)*3
   smooth#=10
   flag=0

   rem set camera to follow player object
   set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag

   rem point camera at player object
   point camera x#,y#,z#

   rem refresh screen
   sync

rem end of main loop
loop

Please help, either changing my current code or creating a entirely new one will work.

Anything said above is completly false and should not be trusted or taken into concern. Everything above was said without thought and should not be considered true information.

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 11th Apr 2010 12:10 Edited at: 11th Apr 2010 12:12

Link

Try this:

rem setup screen
set display mode 1024,768,32
sync on
sync rate 60
backdrop on
hide mouse

rem declare variables
global x# as float
global y# as float
global z# as float
global angle# as float
global distance# as float
global height# as float
global smooth# as float
global flag as byte
global cax# as float

rem make a player object
make object cone 1,10
scale object 1,100,200,100
set object 1,1,1,0,1,1,1,1
xrotate object 1,80
fix object pivot 1
distance#=object size y(1)*5
height#=y#+object size z(1)*2
smooth#=10
flag=0
rem make matrix
make matrix 1,500,500,10,10
position matrix 1,0.0,-0.5,0.0
rem main loop
do

rem control player movement with input
   if upkey()=1 then move object 1,1.0
   if downkey()=1 then move object 1,-1.0
   if leftkey()=1 then a#=wrapvalue(a#-1.0)
   if rightkey()=1 then a#=wrapvalue(a#+1.0)
   yrotate object 1,a#
   rem get values for camera positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   angle#=a#
   rem control FPS or 3rd person
   if inkey$()="f" and fpsflag=0
   fpsflag=1
   distance#=object size y(1)
   cax=0.0
   xrotate camera cax#
   hide object 1
   wait 100
   endif

if inkey$()="f" and fpsflag=1
   fpsflag=0
   distance#=object size y(1)*5
   show object 1
   wait 100
   endif

rem set camera to follow player object
   if fpsflag=0
   set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag
   point camera x#,y#,z#
   endif
   if fpsflag=1
   set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag
   endif

set cursor 0,0
   print "press f to toggle 3rd p to fps"

rem refresh screen
   sync

rem end of main loop
loop

+ Code Snippet

rem setup screen
set display mode 1024,768,32
sync on
sync rate 60
backdrop on
hide mouse

rem declare variables
global x# as float
global y# as float
global z# as float
global angle# as float
global distance# as float
global height# as float
global smooth# as float
global flag as byte
global cax# as float

rem make a player object
make object cone 1,10
scale object 1,100,200,100
set object 1,1,1,0,1,1,1,1
xrotate object 1,80
fix object pivot 1
distance#=object size y(1)*5
height#=y#+object size z(1)*2
smooth#=10
flag=0
rem make matrix
make matrix 1,500,500,10,10
position matrix 1,0.0,-0.5,0.0
rem main loop
do

   rem control player movement with input
   if upkey()=1 then move object 1,1.0
   if downkey()=1 then move object 1,-1.0
   if leftkey()=1 then a#=wrapvalue(a#-1.0)
   if rightkey()=1 then a#=wrapvalue(a#+1.0)
   yrotate object 1,a#
   rem get values for camera positions
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   angle#=a#
   rem control FPS or 3rd person
   if inkey$()="f" and fpsflag=0
   fpsflag=1
   distance#=object size y(1)
   cax=0.0
   xrotate camera cax#
   hide object 1
   wait 100
   endif

   if inkey$()="f" and fpsflag=1
   fpsflag=0
   distance#=object size y(1)*5
   show object 1
   wait 100
   endif

   rem set camera to follow player object
   if fpsflag=0
   set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag
   point camera x#,y#,z#
   endif
   if fpsflag=1
   set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag
   endif

   set cursor 0,0
   print "press f to toggle 3rd p to fps"

   rem refresh screen
   sync

rem end of main loop
loop

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th Apr 2010 12:41

Link

Hi there !!
@Scorpyo
Nice code your third camera person, but probably Alanp meant first camera person...in that case here is an example.

autocam off:hide mouse
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(30,255,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

sync on
arma=20  //gun
bala=21  //bullet
make object box 1,3000,1,3000
texture object 1,1
scale object texture 1,3,3

make object box arma,1,1,10
make mesh from object 1,arma
make object cylinder 100,18
make mesh from object 2,100
delete object 100

add limb arma,1,1:offset limb arma,1,0,0,-8:scale limb arma,1,150,150,60
add limb arma,2,2:scale limb arma,2,12,50,7:rotate limb arma,2,90,0,0:offset limb arma,2,0,0,-10
color object arma,rgb(10,10,10)
make object box bala,1,1,20:color object bala,rgb(200,0,0):hide object bala
make object sphere 3,30
position object 3,600,20,600

do
gosub _controla_camara
gosub bala
if object collision(bala,3)=1 then position object 3,300+rnd(1000),10,300+rnd(1000)
sync
loop

_controla_camara:
`player controls (camera)
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,1)
if leftkey()=1 then z#=NEWZVALUE(z#,a#-90,1)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-1)
if rightkey()=1 then z#=NEWZVALUE(z#,a#-90,-1)

`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
`first person camera controls
`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
yrotate camera camera angle y()+(mousemovex()/10.0)
xrotate camera camera angle x()+(mousemovey()/10.0)
a#=camera angle y()

`limitacion de la camara
if camera angle x() >60 then xrotate camera 60
if camera angle x() <-45 then xrotate camera -45
`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

`updating camera, gun and bullets positions
position camera x#,145,z#
position object arma,x#,145,z#
position object bala,x#,145,z#

set object to camera orientation arma

`moving slightly the gun to its correct position (aprox.)
move object arma,15
move object right arma,3
move object down arma,3

move object bala,15
move object right bala,3
move object down bala,3

return

bala:
set cursor 310,235:ink rgb(255,0,0),0
print " +"
`-------------------------------------------------------------
`making bullet shoot where the gun ends
if dispara=0
  set object to object orientation bala,arma
endif
if mouseclick() and dispara=0
  dispara=1
  show object bala
endif

if dispara=1
  la=la+10
  run=run+1
  move object bala,la
endif

if run>200
  run=0
  la=0
  dispara=0
  hide object bala
endif
return
`--------------------------------------------------------

+ Code Snippet

autocam off:hide mouse
create bitmap 1,50,50:for i= 1 to 1550:ink rgb(30,255,55),0:line rnd(60),i,i,rnd(130)
next i:blur bitmap 1,6:get image 1,10,10,50,50:delete bitmap 1

sync on
arma=20  //gun
bala=21  //bullet
make object box 1,3000,1,3000
texture object 1,1
scale object texture 1,3,3

make object box arma,1,1,10
make mesh from object 1,arma
make object cylinder 100,18
make mesh from object 2,100
delete object 100

add limb arma,1,1:offset limb arma,1,0,0,-8:scale limb arma,1,150,150,60
add limb arma,2,2:scale limb arma,2,12,50,7:rotate limb arma,2,90,0,0:offset limb arma,2,0,0,-10
color object arma,rgb(10,10,10)
make object box bala,1,1,20:color object bala,rgb(200,0,0):hide object bala
make object sphere 3,30
position object 3,600,20,600

do
gosub _controla_camara
gosub bala
if object collision(bala,3)=1 then position object 3,300+rnd(1000),10,300+rnd(1000)
sync
loop

_controla_camara:
`player controls (camera)
if upkey()=1 then x#=newxvalue(x#,a#,1) : z#=newzvalue(z#,a#,1)
if downkey()=1 then x#=newxvalue(x#,a#,-1) : z#=newzvalue(z#,a#,-1)
if leftkey()=1 THEN x#=NEWXVALUE(x#,a#-90,1)
if leftkey()=1 then z#=NEWZVALUE(z#,a#-90,1)
if rightkey()=1 THEN x#=NEWXVALUE(x#,a#-90,-1)
if rightkey()=1 then z#=NEWZVALUE(z#,a#-90,-1)

`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
`first person camera controls
`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
yrotate camera camera angle y()+(mousemovex()/10.0)
xrotate camera camera angle x()+(mousemovey()/10.0)
a#=camera angle y()

`limitacion de la camara
if camera angle x() >60 then xrotate camera 60
if camera angle x() <-45 then xrotate camera -45
`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


`updating camera, gun and bullets positions
position camera x#,145,z#
position object arma,x#,145,z#
position object bala,x#,145,z#


set object to camera orientation arma

`moving slightly the gun to its correct position (aprox.)
move object arma,15
move object right arma,3
move object down arma,3

move object bala,15
move object right bala,3
move object down bala,3

return

bala:
set cursor 310,235:ink rgb(255,0,0),0
print " +"
`-------------------------------------------------------------
`making bullet shoot where the gun ends
if dispara=0
  set object to object orientation bala,arma
endif
if mouseclick() and dispara=0
  dispara=1
  show object bala
endif

if dispara=1
  la=la+10
  run=run+1
  move object bala,la
endif

if run>200
  run=0
  la=0
  dispara=0
  hide object bala
endif
return
`--------------------------------------------------------

cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 13th Apr 2010 21:25

Link

@Scorpyo

Stealing my code and modifying it without giving credits again, eh?

I recognize it due to my comments. Oh well, don't worry about it.

TheComet

Back to top

Profile PM Email Website

Hawkblood

14

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 14th Apr 2010 15:57

Link

Take a look at "control camera using keys" or something like that. It seems you want to control it with the keyboard anyway, so look in the help under "commands" (I think).... It's two up from "index" and when you click on that, in the list will be a "camera" link. In that there are several commands for the camera and one will be something like "control camera using keys". It will simplify your code considerably.

If you ultimately don't want to use the keyboard to turn your camera and instead want to use the mouse for "look control", then there are plenty of example code in the "examples" section of the help. Any questions on how they work, just let us know and I'm sure lots of people will be happy to help.

The fastest code is the code never written.

Back to top

Profile PM Email Website

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 14th Apr 2010 20:49

Link

Quote: "Im fairly new and I have even tried take 3rd person codes and trying to turn them into first person ..."

I have understood here that he wants to make a first person camera control.

Quote: "If you ultimately don't want to use the keyboard to turn your camera and instead want to use the mouse for "look control", then there are plenty of example code ...."

Yeah that´s right...like the example I just posted here

cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Help with 3D first person camera