Model Positioning Help - GameCreators Forum

Author

Message

Enlightened Gamer

14

Years of Service

User Offline

Joined: 4th Oct 2009

Location:

Posted: 8th Oct 2009 19:20

Link

Hey guys,

As part of my college course I have to make a Darkbasic game. I decided to make a first person shooter but I have become stuck at the first step!

I am trying to position the object so that it follows the camera (like you would expect of a first person shooter) but I can not get it to work correctly. I have tried to get assistance from my tutor but he could not figure out what was wrong either in the time that we get for lessons.

Here is a copy of the code I am using:

rem ===================
rem  *Create a Matrix*
rem ===================
make matrix 1,2500, 2500, 50, 50

load bitmap "mossy05.bmp", 1
get image 1, 0, 0, 256, 256
delete bitmap 1

rem ======================
rem  *Texture the Matrix*
rem ======================
prepare matrix texture 1, 1, 1, 1

rem =====================================
rem  *Randomise the Matrix (Make Hilly)*
rem =====================================
randomize matrix 1, 30

rem ===============
rem  *Sky and Fog*
rem ===============
make object sphere 99, -5000
position object 99, 1250,1250,1250
load bitmap "blue06.bmp", 2
get image 2, 0, 0, 640, 480
delete bitmap 2
texture object 99, 2
scroll object texture 99, 0.003,0.003

rem fog on
rem fog distance 3000
rem fog color RGB(128,128,128)

rem ============
rem  *Make Gun*
rem ============
rem Make Rifle
load object "sig552.3ds", 1
scale object 1, 30, 30, 30
hide object 1

rem Make Pistol
load object "mark23.x", 7
scale object 7, 30, 30, 30

rem ===============
rem  *Make Bullet*
rem ===============
make Object Sphere 2, 2
hide Object 2

rem ===============
rem  *Make Enemy*
rem ===============
load object "walk.x", 11
loop object 11, 5, total object frames(11)
set object speed 11, 10
position object 11, 1250, 35, 1250
scale object 11, 50, 50, 50

rem ==============
rem  *Play Music*
rem ==============
rem load music "Slayer_Dance.mid", 1
rem play music 1
rem loop music 1

rem ===================
rem  *Camera Settings*
rem ===================
Set camera range 1,5000
camerax = 1250
cameray = 50
cameraz = 1250
position camera camerax, cameray, cameraz
xrotate camera 0
rem =====================
rem  *Extra Setups*
rem =====================
hide mouse
sync on

rem =====================
rem  *Main Program Loop*
rem =====================
do
rem **************Camera Movement Begin****************
rem *Variables for Camera Movement*
CameraAngle = camera angle y()
CameraRotate = camera angle z()
	set cursor 0,0
	Rem Move Camera Forward
	if upkey()=1
			move camera 2
			Position object 7, camera position x()+6, camera position y()-8, camera position z()+14
			Position object 1, camera position x()+6, camera position y()-8, camera position z()+12
  			rem set object to camera orientation 7
  			rem set object to camera orientation 1
		endif
		Rem Move Camera Backward
		if downkey()=1
				move camera -2
			Position object 7, camera position x()+6, camera position y()-8, camera position z()+14
			Position object 1, camera position x()+6, camera position y()-8, camera position z()+12
  			rem set object to camera orientation 7
  			rem set object to camera orientation 1
		endif
			Rem Turn Camera Left
			if leftkey()=1
         	yrotate camera wrapvalue(CameraAngle - 2)
				yrotate object 7, wrapvalue(CameraAngle - 2)
				yrotate object 1, wrapvalue(CameraAngle - 2)
			objectx=newxvalue(camera position x(),CameraAngle+2,+14)
			objectz=newzvalue(camera position z(),CameraAngle+2,+14)
			position object 7, objectx, camera position y(), objectz
			position object 1, objectx, camera position y(), objectz
         endif
				Rem Turn Camera Right
				if rightkey()=1
               yrotate camera wrapvalue(CameraAngle + 2)
					yrotate object 7, wrapvalue(CameraAngle - 2)
					yrotate object 1, wrapvalue(CameraAngle - 2)
			objectx=newxvalue(camera position x(),CameraAngle,0)
			objectz=newzvalue(camera position z(),CameraAngle,0)
			position object 7, objectx+6, camera position y()-8, objectz+14
			position object 1, objectx+6, camera position y()-8, objectz+12
         	endif

rem Camera Position
	X# = camera position X()
	Z# = camera position Z()
	Y# = get ground height(1,X#,Z#)
	position camera X#,Y#+35,Z#

rem **************Camera Movement End*****************

rem **************Weapon Settings Begin***************
rem Change to Rifle
if keystate(3) = 1
	hide object 7
	show object 1
	Rifle = 1
	Pistol = 0
endif

rem Change to Pistol
if keystate(2) = 1
	hide object 1
	show object 7
	Rifle = 0
endif

rem Shoot Rifle Bullets
if mouseclick()=1 and bulletliferifle <20 and Rifle = 1
	load sound "machngun.wav", 1
	play sound 1
	glue object to limb 2, 1, 1
	bulletLiferifle =25
	show object 2
endif
	If bulletliferifle > 0
	dec bulletliferifle
	move object 2,60
	If bulletLiferifle = 0 then hide object 2
	endif
rem Shoot Pistol Bullets
if mouseclick()=1 and bulletlifepistol <10 and Rifle = 0
	load sound "shoot.wav", 1
	play sound 1
	glue object to limb 2, 7, 2
	bulletLifepistol =25
	show object 2
endif
	If bulletlifepistol > 0
	dec bulletlifepistol
	move object 2,25
	If bulletLifepistol = 0 then hide object 2
	endif
rem **************Weapon Settings End*****************
	sync
loop

+ Code Snippet

rem ===================
rem  *Create a Matrix*
rem ===================
make matrix 1,2500, 2500, 50, 50

load bitmap "mossy05.bmp", 1
get image 1, 0, 0, 256, 256
delete bitmap 1

rem ======================
rem  *Texture the Matrix*
rem ======================
prepare matrix texture 1, 1, 1, 1

rem =====================================
rem  *Randomise the Matrix (Make Hilly)*
rem =====================================
randomize matrix 1, 30

rem ===============
rem  *Sky and Fog*
rem ===============
make object sphere 99, -5000
position object 99, 1250,1250,1250
load bitmap "blue06.bmp", 2
get image 2, 0, 0, 640, 480
delete bitmap 2
texture object 99, 2
scroll object texture 99, 0.003,0.003

rem fog on
rem fog distance 3000
rem fog color RGB(128,128,128)

rem ============
rem  *Make Gun*
rem ============
rem Make Rifle
load object "sig552.3ds", 1
scale object 1, 30, 30, 30
hide object 1

rem Make Pistol
load object "mark23.x", 7
scale object 7, 30, 30, 30

rem ===============
rem  *Make Bullet*
rem ===============
make Object Sphere 2, 2
hide Object 2

rem ===============
rem  *Make Enemy*
rem ===============
load object "walk.x", 11
loop object 11, 5, total object frames(11)
set object speed 11, 10
position object 11, 1250, 35, 1250
scale object 11, 50, 50, 50

rem ==============
rem  *Play Music*
rem ==============
rem load music "Slayer_Dance.mid", 1
rem play music 1
rem loop music 1

rem ===================
rem  *Camera Settings*
rem ===================
Set camera range 1,5000
camerax = 1250
cameray = 50
cameraz = 1250
position camera camerax, cameray, cameraz
xrotate camera 0
rem =====================
rem  *Extra Setups*
rem =====================
hide mouse
sync on

rem =====================
rem  *Main Program Loop*
rem =====================
do
rem **************Camera Movement Begin****************
rem *Variables for Camera Movement*
CameraAngle = camera angle y()
CameraRotate = camera angle z()
	set cursor 0,0
	Rem Move Camera Forward
	if upkey()=1
			move camera 2
			Position object 7, camera position x()+6, camera position y()-8, camera position z()+14
			Position object 1, camera position x()+6, camera position y()-8, camera position z()+12
  			rem set object to camera orientation 7
  			rem set object to camera orientation 1
		endif
		Rem Move Camera Backward
		if downkey()=1
				move camera -2
			Position object 7, camera position x()+6, camera position y()-8, camera position z()+14
			Position object 1, camera position x()+6, camera position y()-8, camera position z()+12
  			rem set object to camera orientation 7
  			rem set object to camera orientation 1
		endif
			Rem Turn Camera Left
			if leftkey()=1
         	yrotate camera wrapvalue(CameraAngle - 2)
				yrotate object 7, wrapvalue(CameraAngle - 2)
				yrotate object 1, wrapvalue(CameraAngle - 2)
			objectx=newxvalue(camera position x(),CameraAngle+2,+14)
			objectz=newzvalue(camera position z(),CameraAngle+2,+14)
			position object 7, objectx, camera position y(), objectz
			position object 1, objectx, camera position y(), objectz
         endif
				Rem Turn Camera Right
				if rightkey()=1
               yrotate camera wrapvalue(CameraAngle + 2)
					yrotate object 7, wrapvalue(CameraAngle - 2)
					yrotate object 1, wrapvalue(CameraAngle - 2)
			objectx=newxvalue(camera position x(),CameraAngle,0)
			objectz=newzvalue(camera position z(),CameraAngle,0)
			position object 7, objectx+6, camera position y()-8, objectz+14
			position object 1, objectx+6, camera position y()-8, objectz+12
         	endif

	rem Camera Position
	X# = camera position X()
	Z# = camera position Z()
	Y# = get ground height(1,X#,Z#)
	position camera X#,Y#+35,Z#

rem **************Camera Movement End*****************

rem **************Weapon Settings Begin***************
rem Change to Rifle
if keystate(3) = 1
	hide object 7
	show object 1
	Rifle = 1
	Pistol = 0
endif

rem Change to Pistol
if keystate(2) = 1
	hide object 1
	show object 7
	Rifle = 0
endif

rem Shoot Rifle Bullets
if mouseclick()=1 and bulletliferifle <20 and Rifle = 1
	load sound "machngun.wav", 1
	play sound 1
	glue object to limb 2, 1, 1
	bulletLiferifle =25
	show object 2
endif
	If bulletliferifle > 0
	dec bulletliferifle
	move object 2,60
	If bulletLiferifle = 0 then hide object 2
	endif
rem Shoot Pistol Bullets
if mouseclick()=1 and bulletlifepistol <10 and Rifle = 0
	load sound "shoot.wav", 1
	play sound 1
	glue object to limb 2, 7, 2
	bulletLifepistol =25
	show object 2
endif
	If bulletlifepistol > 0
	dec bulletlifepistol
	move object 2,25
	If bulletLifepistol = 0 then hide object 2
	endif
rem **************Weapon Settings End*****************
	sync
loop

The main problem I am having is getting the object (gun) to stay with the camera as the camera turns. I have got the object to move back and forth with the camera but when the camera turns the object just rotates in the same spot.

I would be very greatful for any help that you can provide me!

Back to top

Profile PM

bobbyd

15

Years of Service

User Offline

Joined: 17th Jan 2009

Location:

Posted: 8th Oct 2009 23:37

Link

Hi

I havent tried your code but it sounds like you need the
lock object on command this locks an object to the screen all you have to do is type lock object on then type the number of the object and to unlock the object of the screen lock object off
then the object number.

Hope i helped

Back to top

Profile PM

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 9th Oct 2009 00:13

Link

That would help with simple objects, but he is using a more complex object. He already asked here about that:

http://forum.thegamecreators.com/?m=forum_view&t=158768&b=10

@ Enlightened Gamer

Does the gun move around? Does it have any animations? If not, just position the object where you want on the camera so it looks good, then press f9. This will take a screen shot of the gun at the bottom of the camera. Next, get that image which is usually stored under "C:\Program Files\Dark Basic Software\Dark Basic\", cut out the unnecessary space so you only have the gun in the image and make sure to colour the background black.

Then, make a plain object, lock it to the screen and texture it with that image. You will have much faster frame rates and the object will not look weird.

+ Code Snippet

make object plain 1,50,50 : rem size of image (it the image is 64x64, make the object size 64,64)
position object 1,0,-190,400
lock object on 1

TheComet

Make the paths of your enemies easier with WaypointPro!

Back to top

Profile PM Email Website

Enlightened Gamer

14

Years of Service

User Offline

Joined: 4th Oct 2009

Location:

Posted: 9th Oct 2009 00:38

Link

The gun does not have any animation but in my final build I am going to include a weapon model with animatiion so I want to use this early build to iron out any problems before I can focus on the fine details.

I was hoping that there would be one main way of positioning a model to the camera but it seems that there are many different ways depending on the exact requirements.

I guess doing the image method you mentioned will be fine for now and I will have to investigate futher into other methods.

Thanks for your advise... Darkbasic is a lot more complex in places then I was expecting lol.

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 9th Oct 2009 06:11

Link

Here's a link to a function for locking an object to the camera without using LOCK OBJECT ON. If you study it, you can actually see and perhaps learn the maths used. But you don't have to know what it's doing to use it.

lock object to camera

Enjoy your day.

Back to top

Profile PM

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 9th Oct 2009 07:05 Edited at: 9th Oct 2009 08:17

Link

Here's the area i think is wrong with your code. I'll post an edit if I find a way for you to do it.

+ Code Snippet

			Rem Turn Camera Left
			if leftkey()=1
         	yrotate camera wrapvalue(CameraAngle - 2)
				yrotate object 7, wrapvalue(CameraAngle - 2)
				yrotate object 1, wrapvalue(CameraAngle - 2)
			objectx=newxvalue(camera position x(),CameraAngle+2,+14)
			objectz=newzvalue(camera position z(),CameraAngle+2,+14)
			position object 7, objectx, camera position y(), objectz
			position object 1, objectx, camera position y(), objectz
         endif
				Rem Turn Camera Right
				if rightkey()=1
               yrotate camera wrapvalue(CameraAngle + 2)
					yrotate object 7, wrapvalue(CameraAngle - 2)
					yrotate object 1, wrapvalue(CameraAngle - 2)
			objectx=newxvalue(camera position x(),CameraAngle,0)
			objectz=newzvalue(camera position z(),CameraAngle,0)
			position object 7, objectx+6, camera position y()-8, objectz+14
			position object 1, objectx+6, camera position y()-8, objectz+12
         	endif

EDIT:

Threw together a crude way of doing it, but it works. I locked the object to the screen. Positioned the object to the correct place. Added a little gun lag and pointer. And there we go, we have a working fps control setup.

*Note: When you lock an object to the screen you have to make the z position greater then zero because camera position z() then becomes the 0 z position for your object.

Here's the code:

rem ==========================================
rem Setup
rem ==========================================
sync on : sync rate 0 : hide mouse : cls

rem ==========================================
rem Messing around
rem ==========================================
ink rgb(255,0,0),0
line 0,5,4,5 : line 6,5,10,5 : line 5,0,5,4 : line 5,6,5,10
get image 1,0,0,11,11
cls
line 0,6,4,6 : line 8,6,12,6 : line 6,0,6,4 : line 6,8,6,12
get image 2,0,0,13,13
cls
line 0,7,4,7 : line 10,7,14,7 : line 7,0,7,4 : line 7,10,7,14
get image 3,0,0,15,15
cls
line 0,8,4,8 : line 12,8,16,8 : line 8,0,8,4 : line 8,12,8,16
get image 4,0,0,17,17
cls
line 0,9,4,9 : line 14,9,18,9 : line 9,0,9,4 : line 9,14,9,18
get image 5,0,0,19,19
cls

rem ==========================================
rem Make matrix
rem ==========================================
make matrix 1,2500,2500,50,50

rem ==========================================
rem Make hilly
rem ==========================================
randomize matrix 1,30

rem ==========================================
rem Make guns
rem ==========================================
make object cylinder 1,100 : color object 1,rgb(128,128,128)
make object cylinder 2,100 : color object 2,rgb(128,128,128)

rem ==========================================
rem Scale guns
rem ==========================================
scale object 1,10,100,10
scale object 2,10,100,10

rem ==========================================
rem Rotate guns
rem ==========================================
xrotate object 1,90
xrotate object 2,90

rem ==========================================
rem ********_-~Lock guns to screen~-_*********
rem ==========================================
lock object on 1
lock object on 2

rem ==========================================
rem Position guns
rem ==========================================
position object 2,15,-25,50
position object 1,25,-25,50

rem ==========================================
rem Camera setup
rem ==========================================
Set camera range 1,5000
camerax = 1250
cameray = 50
cameraz = 1250
position camera camerax, cameray, cameraz
xrotate camera 0

rem ==========================================
rem pointer effect
rem ==========================================
sprite 1,315,235,1
sprite 2,314,234,2
sprite 3,313,233,3
sprite 4,312,232,4
sprite 5,311,231,5
hide sprite 1
hide sprite 2
hide sprite 3
hide sprite 4
hide sprite 5
spr=1

rem ==========================================
rem Main loop
rem ==========================================
do

rem ==========================================
rem Gun control and movement
rem ==========================================
camangy#=camera angle y()
if rightkey()=1
	yrotate camera wrapvalue(camangy#+2)
	if rot#>-6 then rot#=rot#-0.4
	if spr=5
	else
		spr=spr+1
	endif
endif
if leftkey()=1
	yrotate camera wrapvalue(camangy#-2)
	if rot#<6 then rot#=rot#+0.4
	if spr=5
	else
		spr=spr+1
	endif
endif
if leftkey()=0 and rightkey()=0
	if rot#>0
		rot#=rot#-0.2
	endif
	if rot#<0
		rot#=rot#+0.2
	endif
endif
if leftkey()=0 and rightkey()=0 and upkey()=0 and downkey()=0
	if spr=1
	else
		spr=spr-1
	endif
endif
if upkey()=1
	move camera 2
	if spr=5
	else
		spr=spr+1
	endif
endif
if downkey()=1
	move camera -2
	if spr=5
	else
		spr=spr+1
	endif
endif
for num=1 to 5
	if num=spr
		show sprite num
	else
		hide sprite num
	endif
next num
position camera camera position x(),get ground height(1,camera position x(),camera position z())+50,camera position z()
position object 1,25+rot#,-25,50
position object 2,15+rot#,-25,50

rem ==========================================
rem End Gun control and movement
rem ==========================================
sync
loop

+ Code Snippet

rem ==========================================
rem Setup
rem ==========================================
sync on : sync rate 0 : hide mouse : cls

rem ==========================================
rem Messing around
rem ==========================================
ink rgb(255,0,0),0
line 0,5,4,5 : line 6,5,10,5 : line 5,0,5,4 : line 5,6,5,10
get image 1,0,0,11,11
cls
line 0,6,4,6 : line 8,6,12,6 : line 6,0,6,4 : line 6,8,6,12
get image 2,0,0,13,13
cls
line 0,7,4,7 : line 10,7,14,7 : line 7,0,7,4 : line 7,10,7,14
get image 3,0,0,15,15
cls
line 0,8,4,8 : line 12,8,16,8 : line 8,0,8,4 : line 8,12,8,16
get image 4,0,0,17,17
cls
line 0,9,4,9 : line 14,9,18,9 : line 9,0,9,4 : line 9,14,9,18
get image 5,0,0,19,19
cls

rem ==========================================
rem Make matrix
rem ==========================================
make matrix 1,2500,2500,50,50

rem ==========================================
rem Make hilly
rem ==========================================
randomize matrix 1,30

rem ==========================================
rem Make guns
rem ==========================================
make object cylinder 1,100 : color object 1,rgb(128,128,128)
make object cylinder 2,100 : color object 2,rgb(128,128,128)

rem ==========================================
rem Scale guns
rem ==========================================
scale object 1,10,100,10
scale object 2,10,100,10

rem ==========================================
rem Rotate guns
rem ==========================================
xrotate object 1,90
xrotate object 2,90

rem ==========================================
rem ********_-~Lock guns to screen~-_*********
rem ==========================================
lock object on 1
lock object on 2

rem ==========================================
rem Position guns
rem ==========================================
position object 2,15,-25,50
position object 1,25,-25,50

rem ==========================================
rem Camera setup
rem ==========================================
Set camera range 1,5000
camerax = 1250
cameray = 50
cameraz = 1250
position camera camerax, cameray, cameraz
xrotate camera 0

rem ==========================================
rem pointer effect
rem ==========================================
sprite 1,315,235,1
sprite 2,314,234,2
sprite 3,313,233,3
sprite 4,312,232,4
sprite 5,311,231,5
hide sprite 1
hide sprite 2
hide sprite 3
hide sprite 4
hide sprite 5
spr=1

rem ==========================================
rem Main loop
rem ==========================================
do

rem ==========================================
rem Gun control and movement
rem ==========================================
camangy#=camera angle y()
if rightkey()=1
	yrotate camera wrapvalue(camangy#+2)
	if rot#>-6 then rot#=rot#-0.4
	if spr=5
	else
		spr=spr+1
	endif
endif
if leftkey()=1
	yrotate camera wrapvalue(camangy#-2)
	if rot#<6 then rot#=rot#+0.4
	if spr=5
	else
		spr=spr+1
	endif
endif
if leftkey()=0 and rightkey()=0
	if rot#>0
		rot#=rot#-0.2
	endif
	if rot#<0
		rot#=rot#+0.2
	endif
endif
if leftkey()=0 and rightkey()=0 and upkey()=0 and downkey()=0
	if spr=1
	else
		spr=spr-1
	endif
endif
if upkey()=1
	move camera 2
	if spr=5
	else
		spr=spr+1
	endif
endif
if downkey()=1
	move camera -2
	if spr=5
	else
		spr=spr+1
	endif
endif
for num=1 to 5
	if num=spr
		show sprite num
	else
		hide sprite num
	endif
next num
position camera camera position x(),get ground height(1,camera position x(),camera position z())+50,camera position z()
position object 1,25+rot#,-25,50
position object 2,15+rot#,-25,50

rem ==========================================
rem End Gun control and movement
rem ==========================================
sync
loop

Back to top

Profile PM Email

Enlightened Gamer

14

Years of Service

User Offline

Joined: 4th Oct 2009

Location:

Posted: 9th Oct 2009 22:59

Link

Thanks for all the advice guys,

I still cant figure it out while using a model with animation but I think I will forget about the animation until I learn more (I am only 3 weeks into my year long course).

However... thanks to "TheComet" for his advice, using this method should work great until I get to my final assignment when I need animation on the weapons.

Hopefully from now on my posts on the forum wont be bothering people for help lol.

Many thanks

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Model Positioning Help