TPS problem! - GameCreators Forum

Author

Message

OmegaGT96

15

Years of Service

User Offline

Joined: 15th Mar 2011

Location: Italy

Posted: 15th Mar 2011 15:27

Link

I'm creating a third person shooter, but I have a problem: I can't rotate the camera around the player.
Thanks in advance

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 15th Mar 2011 17:07

Link

What I would tend to do, is tilt the camera forward a little, and rotate it's Y axis to suit the player. So maybe something like this: (assuming object 100 is your player)

Rotate camera 15,object angle y(100),0

Then position that at the player object, maybe adding some to the Y position...

Position camera object position x(100),object position y(100)+10.0,object position z(100)

Now that's more like a depressed FPS camera, but if you move the camera backwards it should give a reasonable 3rd person camera...

Move camera -200

You will have to adjust those scales. But remember curveangle, and how that could smoothen things out - for example, use a variable to track the cameras X and Y angles, and set them to the player angle. This gives smoother results, and will let you see the character when it turns, because the curvevalue will move the camera in X steps.

So... before your main loop, set those to default values - not really that important in DBPro but I find it's good for helping me remember variable names.

camAX#=0.0 : camAY#=0.0
camTAX#=0.0 : camTAY#=0.0

That's a target X and Y angle, and the current X and Y angle, to allow smooth rotation.

Now inside your main loop, you need to adjust the current angles to suit the target angles once you've calculated the targets, so camAX# moving towards camTAX#...

camTAX#=15.0
camTAY#=object angle y(100)

camAX#=curveangle(camTAX#,camAX#,10.0)
camAY#=curveangle(camTAY#,camAY#,10.0)

Rotate camera camAX#,camAY#,0.0
Position camera object position x(100),object position y(100)+10.0,object position z(100)
Move camera -200

There's lots you can do with that to make it better, like adjustable zoom, have it wind up and zoom out to show a top down map view, or even project an intersection line from the player to the new camera position, and set the camera to the collision point if there is one.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

OmegaGT96

15

Years of Service

User Offline

Joined: 15th Mar 2011

Location: Italy

Posted: 15th Mar 2011 23:39

Link

Problem. I have attached the game.
Here's the source code:

Rem Project: MyFPS
Rem Created: Saturday, March 12, 2011

Rem ***** Main Source File *****
set dir "media" : hide mouse  : sync rate 60 : set camera fov 70
SET DISPLAY MODE 1280, 1024, 32
set window off
rem ***** Variabili globali *****
global player = 1
global healt = 100
global ammo = 100

initialize_player()
load_level()

set global collision on

do 
player_control()  
text 0,10,"FPS = "+str$(screen fps()) 
text 0,25,"Gioco creato interamente da OmegaGT" 
LOOP

Function player_control()
X_PLAYER = object position x(1)
Y_PLAYER = object position y(1)
Z_PLAYER = object position z(1)

camTAX#=30.0
camTAY#=object angle y(player)

camAX#=curveangle(camTAX#,camAX#,1.0)
camAY#=curveangle(camTAY#,camAY#,1.0)

Rotate camera camAX#,camAY#,0.0
Position camera object position x(player),object position y(player)+100.0,object position z(player)
Move camera -200

mov_speed= 5
if upkey() and leftkey() then mov_speed=4 
if upkey() and rightkey() then mov_speed=4
if upkey() then move object 1,mov_speed
if downkey() then move object 1,-mov_speed
if leftkey() then turn object left player,5
if rightkey() then turn object right player,5
EndFunction

function load_level()
load object "level1/level.x", 2
make object plane 3,3000,3000
xrotate object 3, 90
position object 3,0,-150,0
load image "water.jpg",2
texture object 3,2
set ambient light 100

ENDFUNCTION

Function initialize_player()
load object "player.x",player
load image "tommy_6_D2.dds",1,1
texture object player,1
position object player,800,70,0
rotate object player,0,180,0
fix object pivot player
scale object player,200,200,200
EndFunction

Function MouseLook(xTarget, yTarget, zTarget, hDist#, vDist#, Speed#)

`Continue from where we last were
   hAngle# = hAngle# + Speed#
   vAngle# = vAngle# + vDist#

`Tricky part: Make a 'circular' camera movement
   xPos# = xTarget + cos(hAngle#) * hDist#
   yPos# = yTarget + vAngle#
   zPos# = zTarget + sin(hAngle#) * hDist#

`Position Camera in it's new place and point it at our main character
   Position Camera xPos#, yPos#, zPos#
   Point Camera xTarget, yTarget, zTarget

`Usually you'll want the camera just a tad higher then the char, so do that now
   Position Camera xPos#, yPos# + 200, zPos#

`Point our Main Character in the same direction as our camera
   Rotate Object 1, Object Angle X(1), Camera Angle Y(), Object Angle Z(1)

EndFunction

+ Code Snippet

 Rem Project: MyFPS
Rem Created: Saturday, March 12, 2011

Rem ***** Main Source File *****
set dir "media" : hide mouse  : sync rate 60 : set camera fov 70
SET DISPLAY MODE 1280, 1024, 32
set window off
rem ***** Variabili globali *****
global player = 1
global healt = 100
global ammo = 100

initialize_player()
load_level()


set global collision on

do 
player_control()  
text 0,10,"FPS = "+str$(screen fps()) 
text 0,25,"Gioco creato interamente da OmegaGT" 
LOOP

Function player_control()
X_PLAYER = object position x(1)
Y_PLAYER = object position y(1)
Z_PLAYER = object position z(1)

camTAX#=30.0
camTAY#=object angle y(player)

camAX#=curveangle(camTAX#,camAX#,1.0)
camAY#=curveangle(camTAY#,camAY#,1.0)

Rotate camera camAX#,camAY#,0.0
Position camera object position x(player),object position y(player)+100.0,object position z(player)
Move camera -200

mov_speed= 5
if upkey() and leftkey() then mov_speed=4 
if upkey() and rightkey() then mov_speed=4
if upkey() then move object 1,mov_speed
if downkey() then move object 1,-mov_speed
if leftkey() then turn object left player,5
if rightkey() then turn object right player,5
EndFunction


function load_level()
load object "level1/level.x", 2
make object plane 3,3000,3000
xrotate object 3, 90
position object 3,0,-150,0
load image "water.jpg",2
texture object 3,2
set ambient light 100

ENDFUNCTION


Function initialize_player()
load object "player.x",player
load image "tommy_6_D2.dds",1,1
texture object player,1
position object player,800,70,0
rotate object player,0,180,0
fix object pivot player
scale object player,200,200,200
EndFunction

Function MouseLook(xTarget, yTarget, zTarget, hDist#, vDist#, Speed#)

   `Continue from where we last were
   hAngle# = hAngle# + Speed#
   vAngle# = vAngle# + vDist#

   `Tricky part: Make a 'circular' camera movement
   xPos# = xTarget + cos(hAngle#) * hDist#
   yPos# = yTarget + vAngle#
   zPos# = zTarget + sin(hAngle#) * hDist#

   `Position Camera in it's new place and point it at our main character
   Position Camera xPos#, yPos#, zPos#
   Point Camera xTarget, yTarget, zTarget

   `Usually you'll want the camera just a tad higher then the char, so do that now
   Position Camera xPos#, yPos# + 200, zPos#

   `Point our Main Character in the same direction as our camera
   Rotate Object 1, Object Angle X(1), Camera Angle Y(), Object Angle Z(1)

EndFunction

Back to top

Profile PM Email Website

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 16th Mar 2011 00:56

Link

Ahh, seems that turning an object left or right can mess the returned angle up. Works now, added some globals, and right click to rotate the camera.

Rem Project: MyFPS
Rem Created: Saturday, March 12, 2011

Rem ***** Main Source File *****
set dir "media" : hide mouse  : sync rate 60 : set camera fov 70
SET DISPLAY MODE 1280, 1024, 32
set window off
rem ***** Variabili globali *****
global player = 1
global healt = 100
global ammo = 100
global camAX# camAY# camTAX# camTAY#
global player_ang#

initialize_player()
load_level()

set global collision on

do
player_control()
text 0,10,"FPS = "+str$(screen fps())
text 0,25,"Gioco creato interamente da OmegaGT"
text 0,40,"CamXY Angle:"+str$(camAX#)+","+str$(camAY#)
LOOP

Function player_control()
X_PLAYER = object position x(1)
Y_PLAYER = object position y(1)
Z_PLAYER = object position z(1)

mb=mouseclick()

camTAX#=30.0
camTAY#=wrapvalue(player_ang#)

`No right click, so reset camera
if mb<>2
camAX#=curveangle(camTAX#,camAX#,10.0)
camAY#=curveangle(camTAY#,camAY#,10.0)
endif

Rotate camera camAX#,camAY#,0.0
Position camera object position x(player),object position y(player)+100.0,object position z(player)

`Right click then rotate camera
if mb=2
   inc camAX#,mousemovey()
   inc camAY#,mousemovex()
endif

Move camera -200
rotate object player,0,player_ang#,0

mov_speed= 5
if upkey() and leftkey() then mov_speed=4
if upkey() and rightkey() then mov_speed=4
if upkey() then move object 1,mov_speed
if downkey() then move object 1,-mov_speed
if leftkey() then dec player_ang#,5
if rightkey() then inc player_ang#,5
EndFunction

function load_level()
load object "level1/level.x", 2
make object plane 3,3000,3000
xrotate object 3, 90
position object 3,0,-150,0
load image "water.jpg",2
texture object 3,2
set ambient light 100

ENDFUNCTION

Function initialize_player()
load object "player.x",player

load image "tommy_6_D2.dds",1,1
texture object player,1
position object player,800,70,0
rotate object player,0,180,0
fix object pivot player
scale object player,200,200,200
EndFunction

Function MouseLook(xTarget, yTarget, zTarget, hDist#, vDist#, Speed#)

`Continue from where we last were
   hAngle# = hAngle# + Speed#
   vAngle# = vAngle# + vDist#

`Tricky part: Make a 'circular' camera movement
   xPos# = xTarget + cos(hAngle#) * hDist#
   yPos# = yTarget + vAngle#
   zPos# = zTarget + sin(hAngle#) * hDist#

`Position Camera in it's new place and point it at our main character
   Position Camera xPos#, yPos#, zPos#
   Point Camera xTarget, yTarget, zTarget

`Usually you'll want the camera just a tad higher then the char, so do that now
   Position Camera xPos#, yPos# + 200, zPos#

`Point our Main Character in the same direction as our camera
   Rotate Object 1, Object Angle X(1), Camera Angle Y(), Object Angle Z(1)

EndFunction

+ Code Snippet

 Rem Project: MyFPS
Rem Created: Saturday, March 12, 2011

Rem ***** Main Source File *****
set dir "media" : hide mouse  : sync rate 60 : set camera fov 70
SET DISPLAY MODE 1280, 1024, 32
set window off
rem ***** Variabili globali *****
global player = 1
global healt = 100
global ammo = 100
global camAX# camAY# camTAX# camTAY#
global player_ang#

initialize_player()
load_level()

set global collision on

do
player_control()
text 0,10,"FPS = "+str$(screen fps())
text 0,25,"Gioco creato interamente da OmegaGT"
text 0,40,"CamXY Angle:"+str$(camAX#)+","+str$(camAY#)
LOOP

Function player_control()
X_PLAYER = object position x(1)
Y_PLAYER = object position y(1)
Z_PLAYER = object position z(1)

mb=mouseclick()

camTAX#=30.0
camTAY#=wrapvalue(player_ang#)

`No right click, so reset camera
if mb<>2
camAX#=curveangle(camTAX#,camAX#,10.0)
camAY#=curveangle(camTAY#,camAY#,10.0)
endif

Rotate camera camAX#,camAY#,0.0
Position camera object position x(player),object position y(player)+100.0,object position z(player)

`Right click then rotate camera
if mb=2
   inc camAX#,mousemovey()
   inc camAY#,mousemovex()
endif

Move camera -200
rotate object player,0,player_ang#,0

mov_speed= 5
if upkey() and leftkey() then mov_speed=4
if upkey() and rightkey() then mov_speed=4
if upkey() then move object 1,mov_speed
if downkey() then move object 1,-mov_speed
if leftkey() then dec player_ang#,5
if rightkey() then inc player_ang#,5
EndFunction


function load_level()
load object "level1/level.x", 2
make object plane 3,3000,3000
xrotate object 3, 90
position object 3,0,-150,0
load image "water.jpg",2
texture object 3,2
set ambient light 100

ENDFUNCTION


Function initialize_player()
load object "player.x",player

load image "tommy_6_D2.dds",1,1
texture object player,1
position object player,800,70,0
rotate object player,0,180,0
fix object pivot player
scale object player,200,200,200
EndFunction

Function MouseLook(xTarget, yTarget, zTarget, hDist#, vDist#, Speed#)

   `Continue from where we last were
   hAngle# = hAngle# + Speed#
   vAngle# = vAngle# + vDist#

   `Tricky part: Make a 'circular' camera movement
   xPos# = xTarget + cos(hAngle#) * hDist#
   yPos# = yTarget + vAngle#
   zPos# = zTarget + sin(hAngle#) * hDist#

   `Position Camera in it's new place and point it at our main character
   Position Camera xPos#, yPos#, zPos#
   Point Camera xTarget, yTarget, zTarget

   `Usually you'll want the camera just a tad higher then the char, so do that now
   Position Camera xPos#, yPos# + 200, zPos#

   `Point our Main Character in the same direction as our camera
   Rotate Object 1, Object Angle X(1), Camera Angle Y(), Object Angle Z(1)

EndFunction

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

OmegaGT96

15

Years of Service

User Offline

Joined: 15th Mar 2011

Location: Italy

Posted: 16th Mar 2011 15:06

Link

OOOH, thanks

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 16th Mar 2011 21:14

Link

@Van B - nice FPS camera/curveangle tutorial, Thanks!

Back to top

Profile PM Email

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 16th Mar 2011 23:56

Link

No problem, curveangle and curvevalue are really handy for smoothing things out huh!

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / TPS problem!