Issues with matrix collision - GameCreators Forum

Author

Message

tbull74

14

Years of Service

User Offline

Joined: 13th Dec 2009

Location:

Posted: 18th Dec 2009 01:36 Edited at: 18th Dec 2009 01:51

Link

Hey guys, I had it working i thought until i textured the matrix. Now i can seep in and out of parrts of the matrix while i collide with others. Anyone know a fix?

rem setup
sync rate 120
rem image loading
load image "asphalt[1].jpg" ,1

rem object creation
make object sphere 1,30
color object 1, rgb (250,0,0)
position object 1,0,0,-500

make matrix 1,5000,5000,20,20
position matrix 1,-2500,-15,-2500  
randomize matrix 1,55
set matrix wireframe on 1

make object box 3,200,100,100
color object 3, rgb(0,250,0)
position object 3,0,10,0

rem sliding collision setup with sparkys collisions
SC_SetupObject 1,0,0
SC_SetupObject 3,0,0

rem main loop
do
   rem position variables
   OX# = object position x(1)
   OY# = object position y(1)
   OZ# = object position z(1)
   ANGY = object angle y(1)
  
   
   rem control inputs
   if upkey()=1 then ACCEL=1
   if downkey()=1
      move object 1, 0-RVSPD
      RVSACCEL=1
   endif
   
   if leftkey()=1 then yrotate object 1,(wrapvalue(ANGY-5))
   if rightkey()=1 then yrotate object 1,(wrapvalue(ANGY+5))
   move object 1,SPD
   if spacekey() = 1 and G# >= OY# then J# = 4.5
   rem camera
   set camera to follow OX#,OY#,OZ#,ANGY,60,0,2,1

rem new variables
   X# = OBJECT POSITION X(1)
   Y# = OBJECT POSITION Y(1)
   Z# = OBJECT POSITION Z(1)
   
   rem check for occuring collision
   
   rem speed acceleration and decceleration
   
   	 if ACCEL=1 
      	if SPD < 8 then inc SPD,1
     	 ACCEL=0
   	 else
     	 if SPD > 0 then dec SPD,1
   	 endif
  	 If RVSACCEL=1 
      	if RVSPD < 10 then inc RVSPD,1
     	 ACCEL=0
  	 else
     	 if RVSPD > 0 then dec RVSPD,1
  	 endif

rem jump
   inc Y#, J#
   G# = get ground height(1,X#,Z#)
   if J#>0 then J# = J# - .0817
   
   rem gravity 
   if G# <= Y#
   	  dec Y#, GV# 
   	  inc GV#, .0817
   else
      G# = get ground height(1,X#,Z#)
      Y# = G#
      GV# = 0
   endif

position object 1,X#,Y#,Z#

rem sparkys collision
   SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,15,1)
  
   sync
loop

rem sliding collision function
function SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn)
   C = sc_SphereSlide(0,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn)
   if C > 0
      cx# = sc_getCollisionSlideX()
      cy# = sc_getCollisionSlideY()
      cz# = sc_getCollisionSlideZ()
      position object Dyn, cx#, cy#, cz#
      sc_updateObject Dyn
      center text 50,50, "colliding"
    
   endif
endfunction
delete memblock 1

+ Code Snippet

rem setup
sync rate 120
rem image loading
load image "asphalt[1].jpg" ,1

rem object creation
make object sphere 1,30
color object 1, rgb (250,0,0)
position object 1,0,0,-500

make matrix 1,5000,5000,20,20
position matrix 1,-2500,-15,-2500  
randomize matrix 1,55
set matrix wireframe on 1

make object box 3,200,100,100
color object 3, rgb(0,250,0)
position object 3,0,10,0

rem sliding collision setup with sparkys collisions
SC_SetupObject 1,0,0
SC_SetupObject 3,0,0

rem main loop
do
   rem position variables
   OX# = object position x(1)
   OY# = object position y(1)
   OZ# = object position z(1)
   ANGY = object angle y(1)
  
   
   rem control inputs
   if upkey()=1 then ACCEL=1
   if downkey()=1
      move object 1, 0-RVSPD
      RVSACCEL=1
   endif
   
   if leftkey()=1 then yrotate object 1,(wrapvalue(ANGY-5))
   if rightkey()=1 then yrotate object 1,(wrapvalue(ANGY+5))
   move object 1,SPD
   if spacekey() = 1 and G# >= OY# then J# = 4.5
   rem camera
   set camera to follow OX#,OY#,OZ#,ANGY,60,0,2,1

   rem new variables
   X# = OBJECT POSITION X(1)
   Y# = OBJECT POSITION Y(1)
   Z# = OBJECT POSITION Z(1)
   
   rem check for occuring collision
   
   rem speed acceleration and decceleration
   
   	 if ACCEL=1 
      	if SPD < 8 then inc SPD,1
     	 ACCEL=0
   	 else
     	 if SPD > 0 then dec SPD,1
   	 endif
  	 If RVSACCEL=1 
      	if RVSPD < 10 then inc RVSPD,1
     	 ACCEL=0
  	 else
     	 if RVSPD > 0 then dec RVSPD,1
  	 endif

   rem jump
   inc Y#, J#
   G# = get ground height(1,X#,Z#)
   if J#>0 then J# = J# - .0817
   
   rem gravity 
   if G# <= Y#
   	  dec Y#, GV# 
   	  inc GV#, .0817
   else
      G# = get ground height(1,X#,Z#)
      Y# = G#
      GV# = 0
   endif

   position object 1,X#,Y#,Z#

   rem sparkys collision
   SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,15,1)
  
   sync
loop

rem sliding collision function
function SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn)
   C = sc_SphereSlide(0,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn)
   if C > 0
      cx# = sc_getCollisionSlideX()
      cy# = sc_getCollisionSlideY()
      cz# = sc_getCollisionSlideZ()
      position object Dyn, cx#, cy#, cz#
      sc_updateObject Dyn
      center text 50,50, "colliding"
    
   endif
endfunction
delete memblock 1

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 18th Dec 2009 20:52

Link

The cause of your problem is possibly because the matrix has been moved from position 0,0,0 and you may not have taken this into consideration.

So, the object's position X (in 3D space) does not correspond to the matrix directly below it (because you've moved it) and this is messing with the calculations.

Either don't move the matrix, or take the matrix offset amount into consideration.

TDK

*** TDK's New Web Site ***

Back to top

Profile PM Email Website

tbull74

14

Years of Service

User Offline

Joined: 13th Dec 2009

Location:

Posted: 19th Dec 2009 01:27

Link

thats really stupid, i cannot position a matrix without having cllision issues? how does one work with matricies for a games landscape?! Is there no workaround at all?

Back to top

Profile PM

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 19th Dec 2009 08:21

Link

hi,TDK

Is POSITION_MATRIX command broken?

Back to top

Profile PM

Veron

17

Years of Service

User Offline

Joined: 22nd Nov 2006

Location:

Posted: 19th Dec 2009 10:31

Link

I doubt anyone uses matrices for a full game landscape, personally I really dislike them for anything more than quick testing.

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 19th Dec 2009 20:51

Link

The workaround is to offset x# and z# checks to the matrix offset

G# = get ground height(1,X#-2500,Z#-2500)

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Dec 2009 00:01

Link

Quote: "Is POSITION_MATRIX command broken?"

No. Think of two scenarios:

1. Matrix at 0,0,0. When your player is at X=100 and Z=100 then it is standing on the matrix at X=100, Z=100 as 3D space and the matrix X/Z positions are the same.

2. The Matrix is shifted -2500 units on the X and Z axis. Now, when the player is at X=100 in 3D space, the matrix position below it isn't the same. As Scorpyo says, you have to deduct the matrix offset amount from both the player's X and Z position.

TDK

*** TDK's New Web Site ***

Back to top

Profile PM Email Website

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 20th Dec 2009 08:15

Link

say,
position matrix 1,-2500,-15,-2500
G# = get ground height(1,X#-2500,Z#-2500)

I am don't works.
This test.

offset 0 - good
POSITION MATRIX 1, 0, 0, 0
y#=get ground height(1,x#,z#)+5

+ Code Snippet


Rem (1) POSITION MATRIX test

create bitmap 1,32,32 : cls rgb(0,0,0) : ink rgb(0,145,0),0 : box 1,1,30,30
get image 1,0,0,32,32 : delete bitmap 1

make matrix 1,100,100,10,10

POSITION MATRIX 1, 0, 0, 0

prepare matrix texture 1,1,2,2
randomize matrix 1,30
set matrix height 1,2,5,100
update matrix 1

make object sphere 1,10
x#=50
z#=50

position camera 0,200,-100
point camera 0,100,0

sync rate 30 : sync on
rem Begin loop
do
    set cursor 0,0
    print "X:";x#
    print "Y:";y#
    print "Z:";z#

  if upkey()=1    then z#=z#+1
  if downkey()=1  then z#=z#-1
  if leftkey()=1  then x#=x#-1
  if rightkey()=1 then x#=x#+1

  y#=get ground height(1,x#,z#)+5
  position object 1,x#,y#,z#
  sync
loop

offset -100 - broken
POSITION MATRIX 1, -100, 0, 0
y#=get ground height(1,x#-100,z#)+5

+ Code Snippet


Rem (2) POSITION MATRIX test

create bitmap 1,32,32 : cls rgb(0,0,0) : ink rgb(0,145,0),0 : box 1,1,30,30
get image 1,0,0,32,32 : delete bitmap 1

make matrix 1,100,100,10,10

POSITION MATRIX 1, -100, 0, 0

prepare matrix texture 1,1,2,2
randomize matrix 1,30
set matrix height 1,2,5,100
update matrix 1

make object sphere 1,10
x#=50
z#=50

position camera 0,200,-100
point camera 0,100,0

sync rate 30 : sync on
rem Begin loop
do
    set cursor 0,0
    print "X:";x#
    print "Y:";y#
    print "Z:";z#

  if upkey()=1    then z#=z#+1
  if downkey()=1  then z#=z#-1
  if leftkey()=1  then x#=x#-1
  if rightkey()=1 then x#=x#+1

  y#=get ground height(1,x#-100,z#)+5
  position object 1,x#,y#,z#
  sync
loop

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Issues with matrix collision