Lock object on... - GameCreators Forum

Author

Message

Northern Lights

21

Years of Service

User Offline

Joined: 12th Oct 2003

Location: Minnesota, USA

Posted: 21st Aug 2004 04:08 Edited at: 21st Aug 2004 06:39

Link

Whenever I try to lock this ak47 to the screen, it flashes when I start up and then disappears. Can someone tell me why?

a=1

load object "ak47.3ds",1
scale object 1,1000,1000,1000

fix object pivot 1
set object 1,1,1,1
lock object on 1
load 3dsound "shoot.wav",1

sync on
sync rate 40

do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

gun_placement(1)
mouse_look()

if mouseclick()=1 
gosub shoot
endif

sync
loop

function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
position listener object position x(1),object position y(1),object position z(1)
rotate listener 0,camera angle y()-180,0

endfunction

function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
play sound 1
sleep 20
move object 1,1

return

+ Code Snippet

a=1

load object "ak47.3ds",1
scale object 1,1000,1000,1000




fix object pivot 1
set object 1,1,1,1
lock object on 1
load 3dsound "shoot.wav",1


sync on
sync rate 40

do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()





gun_placement(1)
mouse_look()




if mouseclick()=1 
gosub shoot
endif








sync
loop



function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
position listener object position x(1),object position y(1),object position z(1)
rotate listener 0,camera angle y()-180,0

endfunction




function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
play sound 1
sleep 20
move object 1,1

return

"Watson you idiot! Someone stole our tent!"

Back to top

Profile PM Email

Bishop

22

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 21st Aug 2004 07:57

Link

i believe (but dont quote me) than the object must be a significant distance from the camera in order for it to be locked on.....i dont know the exact distance, but i belive that it cannot be 0.....

anyway, i think thats the problem....
Bish

"But I, being poor, have only my dreams. I have spread my dreams under your feet. Tread softly because you tread on my dreams."

Back to top

Profile PM Email

Balid

21

Years of Service

User Offline

Joined: 21st Nov 2003

Location: MI, USA

Posted: 21st Aug 2004 08:37

Link

superman,

The object can not be any closer then the close culling distance of the camera. I don't remember the default distance but try this (a line before or after 'lock object on')

position object 1,3,0,10

You may need to rotate your object to get it to point in the right direction but that should position so you can see it.

Back to top

Profile PM Email Website

Northern Lights

21

Years of Service

User Offline

Joined: 12th Oct 2003

Location: Minnesota, USA

Posted: 21st Aug 2004 11:55

Link

Hmm...It still doesn't work. It doesn't have anything to do with the fact that I had to scale it up so much does it? I tried scaling it up 500 X 500 X 500 but the camera cuts of part of it.

"Watson you idiot! Someone stole our tent!"

Back to top

Profile PM Email

hyrichter

21

Years of Service

User Offline

Joined: 15th Feb 2004

Location: Arizona

Posted: 21st Aug 2004 13:13

Link

I noticed a few strange things with your code. First of all, your sync on commands should be at the top of your code before you do any drawing or anything. Next, turning off the autocam would be a good idea. Also, why does your object need to be scaled up so big? Just place it closer to the camera before you lock it on. Another thing I noticed was that you were placing your gun object at the lower right hand corner of the screen in the loop. If you do that, there's no need for the lock object command. Put the gun_placement(1) command before you lock your object.

Anyway, I went through your code and used a sphere instead of your object model. I also commented out the 3d sound parts so I could test it. Hopefully, with this you'll understand what's going on.

sync on
sync rate 40

a=1
autocam off
make object sphere 1,1
`scale object 1,1000,1000,1000

fix object pivot 1
set object 1,1,1,1
gun_placement(1)
lock object on 1
`load 3dsound "shoot.wav",1

for x=2 to 50
   make object cube x,50
   xPos=rnd(5000)
   zPos=rnd(5000)

position object x,xPos,camera position y(),zPos
next x

do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

mouse_look()

if mouseclick()=1
gosub shoot
endif

sync
loop

function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
`position listener object position x(1),object position y(1),object position z(1)
`rotate listener 0,camera angle y()-180,0

endfunction

function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
`play sound 1
sleep 20
move object 1,1

return

+ Code Snippet

sync on
sync rate 40

a=1
autocam off
make object sphere 1,1
`scale object 1,1000,1000,1000




fix object pivot 1
set object 1,1,1,1
gun_placement(1)
lock object on 1
`load 3dsound "shoot.wav",1

for x=2 to 50
   make object cube x,50
   xPos=rnd(5000)
   zPos=rnd(5000)

   position object x,xPos,camera position y(),zPos
next x




do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()






mouse_look()




if mouseclick()=1
gosub shoot
endif








sync
loop



function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
`position listener object position x(1),object position y(1),object position z(1)
`rotate listener 0,camera angle y()-180,0

endfunction




function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
`play sound 1
sleep 20
move object 1,1

return

Oh, and your gun only flashes each time you shoot. I can show you how to make it look like a gun recoiling if you want, but I'm kinda out of time right now. Anyway, I hope my ramblings didn't discourage you too much. Good luck with DB

Back to top

Profile PM Email

Lost in Thought

21

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 21st Aug 2004 13:22 Edited at: 21st Aug 2004 13:26

Link

[edit] This may not help at all stick to hyrichter's post mainly. I don't know how on this earth I ended up in the DBC forum. Guess I'm sleepier than I thought.

I don't have my DBP set up for .3ds so I converted a .3ds model to .dbo and that code

a=1

load object "H-AK47-Static.dbo",1
scale object 1,1000,1000,1000

fix object pivot 1
set object 1,1,1,1
lock object on 1
load 3dsound "test.wav",1

sync on
sync rate 40

do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

gun_placement(1)
mouse_look()

if mouseclick()=1 
	gosub shoot
endif

sync
loop

function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
position listener object position x(1),object position y(1),object position z(1)
rotate listener 0,camera angle y()-180,0

endfunction

function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
play sound 1
sleep 20
move object 1,1

return

+ Code Snippet

a=1

load object "H-AK47-Static.dbo",1
scale object 1,1000,1000,1000

fix object pivot 1
set object 1,1,1,1
lock object on 1
load 3dsound "test.wav",1

sync on
sync rate 40

do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

gun_placement(1)
mouse_look()

if mouseclick()=1 
	gosub shoot
endif

sync
loop


function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
position listener object position x(1),object position y(1),object position z(1)
rotate listener 0,camera angle y()-180,0

endfunction


function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
play sound 1
sleep 20
move object 1,1

return

Works for me. At least the gun is locked to the screen and showing. The firing code doesn't work though because you are moving the gun back to fire and then returning it without a sync command between them so you never see the gun move. Also the mouselook code is a bit messed up here.
Here are some changes. They are not the best way to do things but I kept them close to the way you were doing them to help make it clearer what I was doing.

global camx#
global camy#
global camz#
global camanglex#
global camangley#
global camanglez#
`no idea what this a=1 is for ?
a=1
`make matrix just so you can see gun locked on and mouse look.
make matrix 1, 1000, 1000, 20, 20
position matrix 1, -500, -10, -500
`load gun and set properties
load object "H-AK47-Static.dbo",1
scale object 1,1000,1000,1000
fix object pivot 1
set object 1,1,1,1
lock object on 1
`load sound
load 3dsound "test.wav",1
`sync and mouse stuff
sync on
sync rate 40
hide mouse

do

gun_placement(1)
mouse_look()

if mouseclick()=1 
	if mouseclicked = 0
		mouseclicked = 1
		gosub shoot
	endif
else
	mouseclicked = 0
endif

sync
loop

function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
position listener object position x(1),object position y(1),object position z(1)
rotate listener 0,camera angle y()-180,0

endfunction

function mouse_look()
	`rotate camera by mousemove commands
   rotate camera camanglex#+(mousemovey()*.5),camangley#+(mousemovex()*.5),0
	camanglex#=camera angle x()
	camangley#=camera angle y()
	camanglez#=camera angle z()
   `keep player from looking higher then straight up or lower than straight down.
   if wrapvalue(camanglex#)>90 and wrapvalue(camanglex#)<180 then xrotate camera 90
   if wrapvalue(camanglex#)>180 and wrapvalue(camanglex#)<270 then xrotate camera 270

endfunction

shoot:
`made movement smaller
move object 1,-.25
`added sync to show gun moved you will want to redo this a better way
`like timer based movement instead of adding an extra sync Just move
`the gun back and return to your program and let a timer move it
`back forward for you after the main loop syncs.
sync
play sound 1
sleep 20
move object 1,.25

return

+ Code Snippet

global camx#
global camy#
global camz#
global camanglex#
global camangley#
global camanglez#
`no idea what this a=1 is for ?
a=1
`make matrix just so you can see gun locked on and mouse look.
make matrix 1, 1000, 1000, 20, 20
position matrix 1, -500, -10, -500
`load gun and set properties
load object "H-AK47-Static.dbo",1
scale object 1,1000,1000,1000
fix object pivot 1
set object 1,1,1,1
lock object on 1
`load sound
load 3dsound "test.wav",1
`sync and mouse stuff
sync on
sync rate 40
hide mouse

do

gun_placement(1)
mouse_look()

if mouseclick()=1 
	if mouseclicked = 0
		mouseclicked = 1
		gosub shoot
	endif
else
	mouseclicked = 0
endif

sync
loop


function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
position listener object position x(1),object position y(1),object position z(1)
rotate listener 0,camera angle y()-180,0

endfunction


function mouse_look()
	`rotate camera by mousemove commands
   rotate camera camanglex#+(mousemovey()*.5),camangley#+(mousemovex()*.5),0
	camanglex#=camera angle x()
	camangley#=camera angle y()
	camanglez#=camera angle z()
   `keep player from looking higher then straight up or lower than straight down.
   if wrapvalue(camanglex#)>90 and wrapvalue(camanglex#)<180 then xrotate camera 90
   if wrapvalue(camanglex#)>180 and wrapvalue(camanglex#)<270 then xrotate camera 270

endfunction

shoot:
`made movement smaller
move object 1,-.25
`added sync to show gun moved you will want to redo this a better way
`like timer based movement instead of adding an extra sync Just move
`the gun back and return to your program and let a timer move it
`back forward for you after the main loop syncs.
sync
play sound 1
sleep 20
move object 1,.25

return

Hope this helps. To sleep now. Good luck.

Back to top

Profile PM Email

BearCDPOLD

21

Years of Service

User Offline

Joined: 16th Oct 2003

Location: AZ,USA

Posted: 21st Aug 2004 16:00

Link

Whoa..........500x500x500 is basically:

load object "ak47.3ds"
make object ak47.3ds 500 times as big as it was before
now try to lock it to the camera

Ya might not wanna scale so much, just a thought.

If your problem has already been fixed then ignore me, and you've just learned that scaling doesn't mess with culling (awesomeness).

Crazy Donut Productions, Current Project: Project Starbuks
Sony stole our name!

Back to top

Profile PM Email Website

Northern Lights

21

Years of Service

User Offline

Joined: 12th Oct 2003

Location: Minnesota, USA

Posted: 22nd Aug 2004 01:50 Edited at: 22nd Aug 2004 02:19

Link

I had to scale it up so big because when its at a normal size and I put it so close to the camera, a lot of it gets cut off. set camera range doesn't work if the foreground value is less than 1 so I scaled the gun up to make it look closer. Is there another way to do it?

Edit:Yay! I got the gun to lock on, but when it locks on, it draws it oddly. Looks normal when locked off.

Lock on:

Lock off:

same code that hyrichter put only with gun and sounds.

sync on
sync rate 40

a=1
autocam off
load object "ak47.x",1
scale object 1,1000,1000,1000

fix object pivot 1
set object 1,1,1,1
gun_placement(1)

`lock object on 1
load 3dsound "shoot.wav",1

for x=2 to 50
   make object cube x,50
   xPos=rnd(5000)
   zPos=rnd(5000)

position object x,xPos,camera position y(),zPos
next x

do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

mouse_look()

if mouseclick()=1
gosub shoot
endif

sync
loop

function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
`position listener object position x(1),object position y(1),object position z(1)
`rotate listener 0,camera angle y()-180,0

endfunction

function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
play sound 1
sleep 20
move object 1,1

return

+ Code Snippet

sync on
sync rate 40

a=1
autocam off
load object "ak47.x",1
scale object 1,1000,1000,1000




fix object pivot 1
set object 1,1,1,1
gun_placement(1)

`lock object on 1
load 3dsound "shoot.wav",1

for x=2 to 50
   make object cube x,50
   xPos=rnd(5000)
   zPos=rnd(5000)

   position object x,xPos,camera position y(),zPos
next x




do

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()






mouse_look()




if mouseclick()=1
gosub shoot
endif








sync
loop



function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
`position listener object position x(1),object position y(1),object position z(1)
`rotate listener 0,camera angle y()-180,0

endfunction




function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

move object 1,-1
play sound 1
sleep 20
move object 1,1

return

Thanks for helping me so far everyone.

@hyrichter: How do you make the gun recoil?

"Watson you idiot! Someone stole our tent!"

Back to top

Profile PM Email

Northern Lights

21

Years of Service

User Offline

Joined: 12th Oct 2003

Location: Minnesota, USA

Posted: 22nd Aug 2004 10:22

Link

HelloooOOOOo?

Stupid thing still won't work after all my efforts...

"Watson you idiot! Someone stole our tent!"

Back to top

Profile PM Email

hyrichter

21

Years of Service

User Offline

Joined: 15th Feb 2004

Location: Arizona

Posted: 23rd Aug 2004 07:11 Edited at: 23rd Aug 2004 07:17

Link

Hey, hey, calm down now!

I made an example of a gun recoiling and shooting a bullet. Since I don't have your gun model, I used a cylinder for the gun and a sphere for the bullet. Anyway, try this out. You may want to change some of the values to make the gun recoil faster or farther, but this gives you the genereal idea of a simple way to achieve this effect.

sync on
sync rate 40

a=1
autocam off
make object cylinder 1,1

xrotate object 1,90
fix object pivot 1
scale object 1,100,100,500

set object 1,1,1,1
gun_placement(1)
lock object on 1
`load 3dsound "shoot.wav",1
make object sphere 52,1 :`our bullet object
hide object 52
color object 52,rgb(0,0,0) :`make the bullet black

for x=2 to 50
   make object cube x,50
   xPos=rnd(5000)
   zPos=rnd(5000)

position object x,xPos,camera position y(),zPos
next x

do
camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

mouse_look()

if mouseclick()=1
   gosub shoot
endif
gosub MoveBullet :`call this each loop to keep the bullet moving.

sync
loop

function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
`position listener object position x(1),object position y(1),object position z(1)
`rotate listener 0,camera angle y()-180,0

endfunction

function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

If bulletLife=0
   `The following lines of code position the bullet to the right edge of the screen to make it
   `look like it's coming out of the gun at the proper angle.  You will have to change these values a little
   `depending on where and what angle your gun is at.

Bullet_x# = newxvalue(Camera position x(), wrapvalue(camera angle y()+90), 3)
   Bullet_z# = newzvalue(Camera position z(), wrapvalue(camera angle y()+90), 3)
   BulletLife=25
   position object 52,Bullet_x#,camera position y()-3,Bullet_Z#
   set object to camera orientation 52
   show object 52
endif

return

MoveBullet:

`The gun recoil effect is obtained by moving the gun object back slightly each loop and then moving it forward.  For the first 5 loops,
   `The gun will move backwards; then it will move back into its proper position.
   if BulletLife>20 :`while bullet life is 25,24,23,22,or 21
      move object 1,-.1 :`Move the gun backwards for the recoil effect
      move object 52,3
      dec bulletLife,1
   endif

If BulletLife<=20 and BulletLife>15
      Move object 1,.1 :`now move the gun forward again
      move object 52,3
      dec bulletLife,1
   endif

If BulletLife<=15 and BulletLife>0
      `now the gun is back in place, we can just continue moving the bullet
      move object 52,3
      dec BulletLife,1
   endif

if BulletLife<=0
      hide object 52 :`we're done with the bullet object for now, so hide it until it's shot
   endif

return

+ Code Snippet

sync on
sync rate 40

a=1
autocam off
make object cylinder 1,1

xrotate object 1,90
fix object pivot 1
scale object 1,100,100,500



set object 1,1,1,1
gun_placement(1)
lock object on 1
`load 3dsound "shoot.wav",1
make object sphere 52,1 :`our bullet object
hide object 52
color object 52,rgb(0,0,0) :`make the bullet black


for x=2 to 50
   make object cube x,50
   xPos=rnd(5000)
   zPos=rnd(5000)

   position object x,xPos,camera position y(),zPos
next x




do
camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

camanglex#=camera angle x()
camangley#=camera angle y()
camanglez#=camera angle z()

mouse_look()

if mouseclick()=1
   gosub shoot
endif
gosub MoveBullet :`call this each loop to keep the bullet moving.

sync
loop



function gun_placement(obj)

camx#=camera position x()
camy#=camera position y()
camz#=camera position z()

position object obj,camx#+2,camy#-2,camz#+3
`position listener object position x(1),object position y(1),object position z(1)
`rotate listener 0,camera angle y()-180,0

endfunction




function mouse_look()
oldcamangley# = camangley#
oldcamanglex# = camanglex#
camangley# = wrapvalue(camangley#+MousemoveX()*.2)
camanglex# = wrapvalue(camanglex#+MousemoveY()*.2)

yrotate camera curveangle(camangley#,oldcamangley#,24)
xrotate camera curveangle(camanglex#,oldcamanglex#,24)

endfunction

shoot:

If bulletLife=0
   `The following lines of code position the bullet to the right edge of the screen to make it
   `look like it's coming out of the gun at the proper angle.  You will have to change these values a little
   `depending on where and what angle your gun is at.

   Bullet_x# = newxvalue(Camera position x(), wrapvalue(camera angle y()+90), 3)
   Bullet_z# = newzvalue(Camera position z(), wrapvalue(camera angle y()+90), 3)
   BulletLife=25
   position object 52,Bullet_x#,camera position y()-3,Bullet_Z#
   set object to camera orientation 52
   show object 52
endif


return

MoveBullet:

   `The gun recoil effect is obtained by moving the gun object back slightly each loop and then moving it forward.  For the first 5 loops,
   `The gun will move backwards; then it will move back into its proper position.
   if BulletLife>20 :`while bullet life is 25,24,23,22,or 21
      move object 1,-.1 :`Move the gun backwards for the recoil effect
      move object 52,3
      dec bulletLife,1
   endif

   If BulletLife<=20 and BulletLife>15
      Move object 1,.1 :`now move the gun forward again
      move object 52,3
      dec bulletLife,1
   endif

   If BulletLife<=15 and BulletLife>0
      `now the gun is back in place, we can just continue moving the bullet
      move object 52,3
      dec BulletLife,1
   endif

   if BulletLife<=0
      hide object 52 :`we're done with the bullet object for now, so hide it until it's shot
   endif

return

As for your gun showing up strangely, I really don't know what's causing that. I think I read somewhere tha the "lock object on" command can mess up the limbs of objects. If you can't get object locking to work properly, you're best bet would be to position the gun each loop. It wouldn't be too hard. If you want to email me the gun model, I'll try it out to see what's up with it. Cheers and good luck.

Do not click the red button

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 25th Aug 2004 01:30

Link

I have the same problem with my gun models.
'Lock Object On' seems to disable object zdepth at the same time and you can't enable it again.

Current Projects: Dark_Worlds_Map_Editor version0.1 [email protected]
[img]http://www.uploadimages.net/images/331935avatar2.JPG[img]

Back to top

Profile PM Email

Northern Lights

21

Years of Service

User Offline

Joined: 12th Oct 2003

Location: Minnesota, USA

Posted: 29th Aug 2004 02:34 Edited at: 29th Aug 2004 02:37

Link

@hyrichter:please note that the hello wasn't directed at you, simply at my efforts to make it work. Thanks for the code

.
How would you position the gun on the screen? I tried rotating it with the camera and positioning it under the camera but it rotates oddly. I used the same rotation method as for the camera except I rotated the gun...

"Watson you idiot! Someone stole our tent!"

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Lock object on...