FPS Camera - GameCreators Forum

Author

Message

Dreamon Star

17

Years of Service

User Offline

Joined: 24th Feb 2007

Location: The Frozen Wasteland

Posted: 30th Jun 2007 09:16 Edited at: 30th Jun 2007 09:19

Link

Ok, my main problem right now is the view from my gun. Basically, it's positioned nicely, though, when you look up/down it goes all nuts... when looking up... the arm desides to go to the right completely off the screen, and down, well, lets just say that you can tell that there is no body attached... it zooms out a little, and rotates oddly so the full limb from hand to shoulder is visible... any ideas what may be wrong?

To clarify, I have made a full character and hidden it so to not interfere, and show it when needed... but the arms i loaded separately, and have them rotate to the heros position and angle.

thanx for the time...

Here's a little sample pic of what i mean when looking down...

I guess I should add that I do not want to use lock object for obvious reasons... thanx again

www.soundclick.com/octoberscry ---> My Doom Metal Band
www.soundclick.com/outercharm ----> Progressive Metal Stuff
<---GO NOW---> hehehe

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 30th Jun 2007 09:32

Link

Well, we're going to need some code to help you out more =) The picture does not show much, it really depends on how you are handling the positioning of your arm.

Post up your code and it would help the members of our forum help you =)

Cheers,
Bishop

Tux is my guildmaster.

Back to top

Profile PM Email

Dreamon Star

17

Years of Service

User Offline

Joined: 24th Feb 2007

Location: The Frozen Wasteland

Posted: 30th Jun 2007 09:37 Edited at: 30th Jun 2007 09:41

Link

Ok, it's messy and long... so, i'll just have to hack a little of it out i guess...

Function MovePlayer()
REM THIS IS JUST SIMPLE MOVEMENT
   rem rotate player with mouse
   yrotate object 9999,object angle y(9999)+ mousemovex()/3.0
   xrotate object 9999,object angle x(9999)+ mousemovey()/3.0

REM Restict Look
   If Wrapvalue (Object Angle X(9999))>50 and Wrapvalue (Object Angle X(9999))<180 then xrotate object 9999,50
   If Wrapvalue (Object Angle X(9999))>180 and Wrapvalue (Object Angle X(9999))<320 then xrotate object 9999,320

REM Object Movements
   oldx# = object position x(9999)
   oldy# = object position y(9999)
   oldz# = object position z(9999)

rem apply gravity, and user changes to movement
   angy# = object angle y(9999)
   vx# = 0
   vz# = 0
   rem if player is jumping or falling then apply 'normal' gravity
   rem if not attempt to keep the player stuck to the floor
   if vy#=0 and jumptimer=0 then vy# = vy# + 10*gravity# else vy# = vy# + gravity#
   if keystate(32)=1 then vx# = vx# + cos(angy#)/3 : vz# = vz# - sin(angy#)/3 : Move = 1 : else : Move = 0
   if keystate(30)=1 then vx# = vx# - cos(angy#)/3 : vz# = vz# + sin(angy#)/3 : Move = 2 : else : Move = 0
   if keystate(31)=1 then vx# = vx# - sin(angy#)/3 : vz# = vz# - cos(angy#)/3 : Move = 3 : else : Move = 0
   if keystate(17)=1 then vx# = vx# + sin(angy#)/3 : vz# = vz# + cos(angy#)/3 : Move = 4 : else : Move = 0

REM AND THIS IS MESSY... MANY OBJECTS FOLLOW EACH OTHER BASICALLY (9999) is the main body, (50) the gun, and (9997) the arm... the rest are hidden for death sequences...

function positionCameraToObject(obj,thirdPerson)

REM Object and weapons
   position camera object position x(9999),object position y(9999)+10,object position z(9999)
   rotate camera object angle x(9999),object angle y(9999),object angle z(9999)
   position object 9999, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9999,object angle y(9999)+ mousemovex()/3.0 : xrotate object 9999,object angle x(9999)+mousemovey()/3.0
   position object 9998, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9998,object angle y(9999) : xrotate object 9998,object angle x(9999)
   position object 50, object position x(9999),object position y(9999), object position z(9999)
   rotate object 50, object angle x(9999),object angle y(9999),object angle z(9999)
   position object 9997, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9997,object angle y(9999) : xrotate object 9997,object angle x(9999)
   position object 9996, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9996,object angle y(9999) : xrotate object 9996,object angle x(9999)
   position object 9995, object position x(9999),object position y(9999), object position z(9999)
   position object 9994, object position x(9999),object position y(9999), object position z(9999)
   position object 9993, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9993,object angle y(9999) : xrotate object 9993,object angle x(9999)
   position object 9992, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9992,object angle y(9999) : xrotate object 9992,object angle x(9999)

if thirdPerson=1
   pitch camera down 35
   move camera -40
   endif

Endfunction

+ Code Snippet

Function MovePlayer()
REM THIS IS JUST SIMPLE MOVEMENT
   rem rotate player with mouse
   yrotate object 9999,object angle y(9999)+ mousemovex()/3.0
   xrotate object 9999,object angle x(9999)+ mousemovey()/3.0

   REM Restict Look
   If Wrapvalue (Object Angle X(9999))>50 and Wrapvalue (Object Angle X(9999))<180 then xrotate object 9999,50
   If Wrapvalue (Object Angle X(9999))>180 and Wrapvalue (Object Angle X(9999))<320 then xrotate object 9999,320

   REM Object Movements
   oldx# = object position x(9999)
   oldy# = object position y(9999)
   oldz# = object position z(9999)

   rem apply gravity, and user changes to movement
   angy# = object angle y(9999)
   vx# = 0
   vz# = 0
   rem if player is jumping or falling then apply 'normal' gravity
   rem if not attempt to keep the player stuck to the floor
   if vy#=0 and jumptimer=0 then vy# = vy# + 10*gravity# else vy# = vy# + gravity#
   if keystate(32)=1 then vx# = vx# + cos(angy#)/3 : vz# = vz# - sin(angy#)/3 : Move = 1 : else : Move = 0
   if keystate(30)=1 then vx# = vx# - cos(angy#)/3 : vz# = vz# + sin(angy#)/3 : Move = 2 : else : Move = 0
   if keystate(31)=1 then vx# = vx# - sin(angy#)/3 : vz# = vz# - cos(angy#)/3 : Move = 3 : else : Move = 0
   if keystate(17)=1 then vx# = vx# + sin(angy#)/3 : vz# = vz# + cos(angy#)/3 : Move = 4 : else : Move = 0

REM AND THIS IS MESSY... MANY OBJECTS FOLLOW EACH OTHER BASICALLY (9999) is the main body, (50) the gun, and (9997) the arm... the rest are hidden for death sequences...

function positionCameraToObject(obj,thirdPerson)

   REM Object and weapons
   position camera object position x(9999),object position y(9999)+10,object position z(9999)
   rotate camera object angle x(9999),object angle y(9999),object angle z(9999)
   position object 9999, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9999,object angle y(9999)+ mousemovex()/3.0 : xrotate object 9999,object angle x(9999)+mousemovey()/3.0
   position object 9998, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9998,object angle y(9999) : xrotate object 9998,object angle x(9999)
   position object 50, object position x(9999),object position y(9999), object position z(9999)
   rotate object 50, object angle x(9999),object angle y(9999),object angle z(9999)
   position object 9997, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9997,object angle y(9999) : xrotate object 9997,object angle x(9999)
   position object 9996, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9996,object angle y(9999) : xrotate object 9996,object angle x(9999)
   position object 9995, object position x(9999),object position y(9999), object position z(9999)
   position object 9994, object position x(9999),object position y(9999), object position z(9999)
   position object 9993, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9993,object angle y(9999) : xrotate object 9993,object angle x(9999)
   position object 9992, object position x(9999),object position y(9999), object position z(9999)
   yrotate object 9992,object angle y(9999) : xrotate object 9992,object angle x(9999)

 if thirdPerson=1
   pitch camera down 35
   move camera -40
   endif

Endfunction

Thanx again... sorry for not posting it the first time...

www.soundclick.com/octoberscry ---> My Doom Metal Band
www.soundclick.com/outercharm ----> Progressive Metal Stuff
<---GO NOW---> hehehe

Back to top

Profile PM Email Website

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 30th Jun 2007 12:12

Link

It's because the world camera x,y and z coordinates relative to the object totally change if you want the cam to stay at the same absolute radial distance and angle from the gun when the gun is tilting (see pic).

Not sure if "set camera to follow" would work.

Otherwise you must use trig to implement it.

Attachments

Login to view attachments

Back to top

Profile PM

Dreamon Star

17

Years of Service

User Offline

Joined: 24th Feb 2007

Location: The Frozen Wasteland

Posted: 30th Jun 2007 21:16

Link

Thanx Scorpyo, i think i get what you mean... I have no clue how I would use trig for that, but, i'll try a few things, and see if i can get it to work, so far, i've just lengthend the arm, and pushed it back, the arm shows, but, only up to the shoulder instead, so it looks a little better, and the pistol shows to a certain point when looking up, which is better but, not that good... so, i'll see what I can do with this info... thanx a ton

www.soundclick.com/octoberscry ---> My Doom Metal Band
www.soundclick.com/outercharm ----> Progressive Metal Stuff
<---GO NOW---> hehehe

Back to top

Profile PM Email Website

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 2nd Jul 2007 00:03 Edited at: 2nd Jul 2007 00:16

Link

Use the NEWXPOSITION, NEWYPOSITION, and NEWZPOSITION. Using these command you can give a new position outward from a given position and direction. For instance;

+ Code Snippet

position object 1,NEWXPOSITION(Oldxposition#,Yangle#,1)

would position the object 1 unit on the x axis at the angle given. Use the Z and Y positions to do the same from the X and Y axis, respectively.

Hope that helps,
Bishop

EDIT-

Heres a code I whipped up for you to show the basics =) just remember that the NEWYPOSITION should be based of the X angle, not the Y angle.

// setup
sync on
hide mouse
color backdrop 0

// make player
make object sphere 1,1
color object 1,rgb(255,128,0)

// make "gun"
make object cylinder 2,.5
scale object 2,100,300,100
xrotate object 2,90
fix object pivot 2
color object 2,rgb(0,0,255)

// make reference matrix
make matrix 1,10,10,10,10

// main loop
do

// simple movement
    if upkey() = 1
        move object 1,.04
    endif
    if downkey() = 1
        move object 1,-.04
    endif
    if rightkey() = 1
        yrotate object 1,wrapvalue(object angle y(1)+1)
    endif
    if leftkey() = 1
        yrotate object 1,wrapvalue(object angle y(1)-1)
    endif
    
    // position gun function
    PositionGun()
    
    // simple camera
    set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),8,5,5,0
    point camera object position x(1),object position y(1),object position z(1)
    
// loop
sync
loop

FUNCTION PositionGun()

// get new positions
    position object 2,newxvalue(object position x(1),object angle y(1),2),0,newzvalue(object position z(1),object angle y(1),2)
    point object 2,object position x(1),object position y(1),object position z(1)

ENDFUNCTION

+ Code Snippet

// setup
sync on
hide mouse
color backdrop 0

// make player
make object sphere 1,1
color object 1,rgb(255,128,0)

// make "gun"
make object cylinder 2,.5
scale object 2,100,300,100
xrotate object 2,90
fix object pivot 2
color object 2,rgb(0,0,255)

// make reference matrix
make matrix 1,10,10,10,10

// main loop
do

    // simple movement
    if upkey() = 1
        move object 1,.04
    endif
    if downkey() = 1
        move object 1,-.04
    endif
    if rightkey() = 1
        yrotate object 1,wrapvalue(object angle y(1)+1)
    endif
    if leftkey() = 1
        yrotate object 1,wrapvalue(object angle y(1)-1)
    endif
    
    // position gun function
    PositionGun()
    
    // simple camera
    set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),8,5,5,0
    point camera object position x(1),object position y(1),object position z(1)
    
// loop
sync
loop


FUNCTION PositionGun()

    // get new positions
    position object 2,newxvalue(object position x(1),object angle y(1),2),0,newzvalue(object position z(1),object angle y(1),2)
    point object 2,object position x(1),object position y(1),object position z(1)

ENDFUNCTION

Tux is my guildmaster.

Back to top

Profile PM Email

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 2nd Jul 2007 21:44 Edited at: 2nd Jul 2007 21:45

Link

He wants to achieve this:

rem Scorpyo 2007
set display mode 1024,768,32
SYNC ON
SYNC RATE 60
backdrop on
color backdrop rgb(10,100,100)
autocam off
set global collision off
set text opaque
set ambient light 70
global x#,z#,a#,s#,y#,mymousex,mymousey
global cx#,cy#,cz#,ax#,ay#,camdist#
x#=0.0:z#=0.0:a#=0.0:s#=0.0:y#=0.0:mymousex=0:mymousey=0
cx#=0.0:cy#=0.0:cz#=0.0:ax#=0.0:ay#=0.0
camdist#=-100

gosub setupmatrix
gosub makebuilding
gosub makegun
gosub putgun
do
if inkey$()="e" then sync rate 0
if inkey$()="E" then sync rate 60
gosub printdata
cameracontrol()
SYNC
loop
rem -------------ROUTINES--------------------

function cameracontrol()
mymousex=mousemovex()
mymousey=mousemovey()
if mymousey>0
  ax#=wrapvalue(ax#-2.0)
 endif
 if mymousey<0
  ax#=wrapvalue(ax#+2.0)
endif
if mymousex<0
 ay#=wrapvalue(ay#-2.0)
endif
if mymousex>0
 ay#=wrapvalue(ay#+2.0)
endif
 x#=newxvalue(x#,ay#,s#)
 z#=newzvalue(z#,ay#,s#)
 y#=get ground height(1,x#,z#)
 if upkey()=1 and s#<1.2 then s#=s#+0.02
 if downkey()=1 and s#>-1.2 then s#=s#-0.02
 if inkey$()="ù" then s#=0.0
 if inkey$()="à" then s#=10.0
cx#=newxvalue(x#,ay#,camdist#)
cz#=newzvalue(z#,ay#,camdist#)
cy#=y#+50
position camera cx#,cy#+camhgt#,cz#
yrotate camera ay#
xrotate camera ax#
endfunction
printdata:
set cursor 0,0
print "polys ",statistic(1)
print "frame rate=",screen fps()
print "x#= ",x#
print "y#= ",y#
print "z#= ",z#
print
print "cx#= ",cx#
print "cz#= ",cz#
print
print "ay#= ",ay#
print "ax#= ",ax#
print
return
rem -------------Characters----------------
makegun:
make object cube 10,10
scale object 10,100,100,400
set object 10,1,1,0,1,1,1
position object 10,x#,y#,z#
color object 10,rgb(10,10,140)
disable object zdepth 10
yrotate object 10,352
fix object pivot 10
return
putgun:
gunx#=newxvalue(cx#,ay#,50)
gunz#=newzvalue(cz#,ay#,50)
gun2z#=gunz#+sin(ay#)*-20
gun2x#=gunx#+cos(ay#)*20
position object 10,gun2x#,cy#-20,gun2z#
lock object on 10
return
rem matrix
setupmatrix:
rem ground textures
rem create  texture
cls rgb(0,100,20)
inkcolor#=rgb(255,255,255)
line 0,0,0,250
line 1,1,1,250
line 2,2,2,250
line 0,0,250,0
line 1,1,250,1
line 2,2,250,2
line 0,0,250,250
line 0,250,250,0
rem next n
get image 2,0,0,250,250
rem Make landscape
landsize=4000:grid=30:mtxrandomize=30
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
position matrix 1,-2000,0,-1000
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
rem ***********
rem get ground done
update matrix 1
return
makebuilding:
make object cube 100,1000
scale object 100,100,150,100
position object 100,500,700,2000
return
end

+ Code Snippet

rem Scorpyo 2007
set display mode 1024,768,32
SYNC ON
SYNC RATE 60
backdrop on
color backdrop rgb(10,100,100)
autocam off
set global collision off
set text opaque
set ambient light 70
global x#,z#,a#,s#,y#,mymousex,mymousey
global cx#,cy#,cz#,ax#,ay#,camdist#
x#=0.0:z#=0.0:a#=0.0:s#=0.0:y#=0.0:mymousex=0:mymousey=0
cx#=0.0:cy#=0.0:cz#=0.0:ax#=0.0:ay#=0.0
camdist#=-100

gosub setupmatrix
gosub makebuilding
gosub makegun
gosub putgun
do
if inkey$()="e" then sync rate 0
if inkey$()="E" then sync rate 60
gosub printdata
cameracontrol()
SYNC
loop
rem -------------ROUTINES--------------------

function cameracontrol()
mymousex=mousemovex()
mymousey=mousemovey()
if mymousey>0
  ax#=wrapvalue(ax#-2.0)
 endif
 if mymousey<0
  ax#=wrapvalue(ax#+2.0)
endif
if mymousex<0
 ay#=wrapvalue(ay#-2.0)
endif
if mymousex>0
 ay#=wrapvalue(ay#+2.0)
endif
 x#=newxvalue(x#,ay#,s#)
 z#=newzvalue(z#,ay#,s#)
 y#=get ground height(1,x#,z#)
 if upkey()=1 and s#<1.2 then s#=s#+0.02
 if downkey()=1 and s#>-1.2 then s#=s#-0.02
 if inkey$()="ù" then s#=0.0
 if inkey$()="à" then s#=10.0
cx#=newxvalue(x#,ay#,camdist#)
cz#=newzvalue(z#,ay#,camdist#)
cy#=y#+50
position camera cx#,cy#+camhgt#,cz#
yrotate camera ay#
xrotate camera ax#
endfunction
printdata:
set cursor 0,0
print "polys ",statistic(1)
print "frame rate=",screen fps()
print "x#= ",x#
print "y#= ",y#
print "z#= ",z#
print
print "cx#= ",cx#
print "cz#= ",cz#
print
print "ay#= ",ay#
print "ax#= ",ax#
print
return
rem -------------Characters----------------
makegun:
make object cube 10,10
scale object 10,100,100,400
set object 10,1,1,0,1,1,1
position object 10,x#,y#,z#
color object 10,rgb(10,10,140)
disable object zdepth 10
yrotate object 10,352
fix object pivot 10
return
putgun:
gunx#=newxvalue(cx#,ay#,50)
gunz#=newzvalue(cz#,ay#,50)
gun2z#=gunz#+sin(ay#)*-20
gun2x#=gunx#+cos(ay#)*20
position object 10,gun2x#,cy#-20,gun2z#
lock object on 10
return
rem matrix
setupmatrix:
rem ground textures
rem create  texture
cls rgb(0,100,20)
inkcolor#=rgb(255,255,255)
line 0,0,0,250
line 1,1,1,250
line 2,2,2,250
line 0,0,250,0
line 1,1,250,1
line 2,2,250,2
line 0,0,250,250
line 0,250,250,0
rem next n
get image 2,0,0,250,250
rem Make landscape
landsize=4000:grid=30:mtxrandomize=30
make matrix 1,landsize,landsize,grid,grid
set matrix 1,1,0,0,1,1,1,1
position matrix 1,-2000,0,-1000
prepare matrix texture 1,2,1,1
randomize matrix 1,mtxrandomize
rem ***********
rem get ground done
update matrix 1
return
makebuilding:
make object cube 100,1000
scale object 100,100,150,100
position object 100,500,700,2000
return
end

Back to top

Profile PM

Dreamon Star

17

Years of Service

User Offline

Joined: 24th Feb 2007

Location: The Frozen Wasteland

Posted: 8th Jul 2007 03:46

Link

thanks, that helped a lot... i think i got the right view i wanted now... thanks again

www.soundclick.com/octoberscry ---> My Doom Metal Band
www.soundclick.com/outercharm ----> Progressive Metal Stuff
<---GO NOW---> hehehe

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / FPS Camera

Attachments

Attachments