3d problem help - GameCreators Forum

Author

Message

Gillypie

19

Years of Service

User Offline

Joined: 5th Jun 2005

Location: In Front Of My Computer

Posted: 7th Sep 2006 12:58

Link

aaaahhh i really need help can someone tell me why objects 13 and 3 arn\'t colliding. pleeeeeeeeeeeeeeease help.

sync rate 0
load object \"gun1.x\",13

load animation \"youwin1.avi\",1

position object 13,-150,50,-400

scale object 13,10000,10000,10000

make object cube 3,30
scale object 3,30,100,30
make object cube 1,100
scale object 1,10000,1,10000
position camera 50,0,200
make object box 2,1000,200,100
load image \"brick13.bmp\",1
load image \"tarp02.bmp\",2
load image \"shiny01.bmp\",3
position object 2,0,100,0
texture object 2,1
texture object 1,2
position object 3,50,0,200

make object box 6,1200,200,100
position object 6,100,100,300
texture object 6,1

make object box 7,100,200,1200
position object 7,-500,100,-300
texture object 7,1

make object box 8,100,200,800
position object 8,600,100,-150
texture object 8,1

make object box 9,1300,200,900
position object 9,0,100,-1000
texture object 9,1

make object box 10,200,200,300
position object 10,100,100,-200
texture object 10,1

make object box 11,10,200,400
position object 11,200,100,-350
texture object 11,3

make object cube 12,50

do

turn object left 13,5

pcx#=camera position x()
pcz#=camera position z()

sx#=object position x(3)
sz#=object position z(3)

if leftkey()=1
turn object left 3,5 
turn camera left 5
endif

if rightkey()=1
turn object right 3,5
turn camera right 5
endif

if upkey()=1 
move object 3,5
endif

if downkey()=1
move object 3,-5
endif

position camera sx#,100,sz#
position object 12,sx#,100,sz#

if object collision(2,3)
position object 3,pcx#,0,pcz#
endif

if object collision(6,3)
position object 3,pcx#,0,pcz#
endif

if object collision(7,3)
position object 3,pcx#,0,pcz#
endif

if object collision(8,3)
position object 3,pcx#,0,pcz#
endif

if object collision(9,3)
position object 3,pcx#,0,pcz#
endif

if object collision(10,3)
position object 3,pcx#,0,pcz#
endif

if object collision(11,3)
position object 3,pcx#,0,pcz#
endif

if object collision(3,13)
end
endif

if object collision(12,11)
if spacekey()=1
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
endif
endif

loop

+ Code Snippet

sync rate 0
load object \"gun1.x\",13

load animation \"youwin1.avi\",1

position object 13,-150,50,-400

scale object 13,10000,10000,10000

make object cube 3,30
scale object 3,30,100,30
make object cube 1,100
scale object 1,10000,1,10000
position camera 50,0,200
make object box 2,1000,200,100
load image \"brick13.bmp\",1
load image \"tarp02.bmp\",2
load image \"shiny01.bmp\",3
position object 2,0,100,0
texture object 2,1
texture object 1,2
position object 3,50,0,200


make object box 6,1200,200,100
position object 6,100,100,300
texture object 6,1

make object box 7,100,200,1200
position object 7,-500,100,-300
texture object 7,1

make object box 8,100,200,800
position object 8,600,100,-150
texture object 8,1

make object box 9,1300,200,900
position object 9,0,100,-1000
texture object 9,1

make object box 10,200,200,300
position object 10,100,100,-200
texture object 10,1



make object box 11,10,200,400
position object 11,200,100,-350
texture object 11,3

make object cube 12,50





do

turn object left 13,5

pcx#=camera position x()
pcz#=camera position z()

sx#=object position x(3)
sz#=object position z(3)



 
if leftkey()=1
turn object left 3,5 
turn camera left 5
endif


if rightkey()=1
turn object right 3,5
turn camera right 5
endif



if upkey()=1 
move object 3,5
endif 

if downkey()=1
move object 3,-5
endif


position camera sx#,100,sz#
position object 12,sx#,100,sz#




if object collision(2,3)
position object 3,pcx#,0,pcz#
endif

if object collision(6,3)
position object 3,pcx#,0,pcz#
endif

if object collision(7,3)
position object 3,pcx#,0,pcz#
endif

if object collision(8,3)
position object 3,pcx#,0,pcz#
endif


if object collision(9,3)
position object 3,pcx#,0,pcz#
endif


if object collision(10,3)
position object 3,pcx#,0,pcz#
endif


if object collision(11,3)
position object 3,pcx#,0,pcz#
endif

if object collision(3,13)
end
endif

if object collision(12,11)
if spacekey()=1
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
move object 11,5
endif
endif





loop

Back to top

Profile PM

JABBER

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Indiana, USA

Posted: 7th Sep 2006 18:34

Link

I was just having this problem myself and I was told to try setting "object collision to polyons", which did the trick for. They also suggested using "Sparky's collision DLL", But I've yet to find it.
I wish I could help you more but I'm an uber-noob myself, nevermind me being a member for almost two years, I wasted a year trying to learn VB2005 with use of the "TrueVision 3D" engine, But after loosing much of my hair I've returned to give DBPRO another shot,
Good Luck.
I hope one of the DB pro's can help ya with this one,

JABBER

Retired DEV team member Targetware.net
Retired DEV team memeber BF 1918 MOD
http://hosted.filefront.com/JABBER1975

Back to top

Profile PM Email Website

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 7th Sep 2006 19:48

Link

You know that if you move the object past the object you are checking for collisions with, it won't register any collition, right?
(Just saw that you moved your object something like 250 points with every single tap of space; also, why don't you just write move object 11,250 instead of move object 11,5 : move object 11,5.... over and over?

)

Also, the built in collision commands never worked all that good for me; I would reccomend the use of intersect object instead (and if you, as I back when I was told to use it, can't make out what the *** that command does from the help files, it basically gives you the distance to the nearest polygon of the given object along the straight line given by the 6 coordinates).
If intersect object gives a value lower than say, 20, you could trigger your collision event.

Det är väl så

Back to top

Profile PM Email Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 7th Sep 2006 21:51

Link

Jabber, I believe is Sparky's dll thread, though I've never used it:
http://forum.thegamecreators.com/?m=forum_view&t=31051&b=5

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / 3d problem help