AABB Collision problem - GameCreators Forum

Author

Message

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 22:16

Link

Hi there. I've been fiddling around with Aabb collision system . I got the code working but I can't figure out why sliding collision works like a charm in z axis but get stuck in x axis . I think it must be something with te IF IF IF only the first condition works but no the rest....if I move (if x lines) to the top then x axis works perfect but z axis crash ..any idea

Here's what I have so far .

// Project: AABB Collision
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Collision" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

createobjectbox(1,2,1,2)

createobjectbox(20,20,1,6) 
setobjectcolor(20,0,255,0,0)
setobjectposition(20,0,0,50)

createobjectbox(21,30,1,2) 
setobjectcolor(21,255,255,0,0)
setobjectposition(21,-20,0,20)

createobjectbox(22,15,1,10) 
setobjectcolor(22,0,0,200,0)
setobjectposition(22,5,0,35)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
tn#=90
do
	
  `old coords
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif

if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5
  
  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)
for t= 20 to 22  
  maxz2#=GetObjectMeshSizeMaxZ(t,1)
  minz2#=GetObjectMeshSizeMinZ(t,1)
  maxx2#=GetObjectMeshSizeMaxx(t,1)
  minx2#=GetObjectMeshSizeMinx(t,1)
   
  z1#=getobjectz(1)
  x1#=getobjectx(1)
  z2#=getobjectz(t)
  x2#=getobjectx(t)
  
  if z#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#<z2# then z#=oldz#
  if z#+minz1#<z2#+maxz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#>z2# then z#=oldz#
 
  if x#+maxx1#>x2#+minx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#<x2# then x#=oldx#  
  if x#+minx1#<x2#+maxx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#>x2# then x#=oldx#   
  next
   
  setobjectrotation(30,0,-tn#,0)

Sync()
loop

+ Code Snippet

// Project: AABB Collision
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Collision" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts



createobjectbox(1,2,1,2) 

createobjectbox(20,20,1,6) 
setobjectcolor(20,0,255,0,0)
setobjectposition(20,0,0,50)

createobjectbox(21,30,1,2) 
setobjectcolor(21,255,255,0,0)
setobjectposition(21,-20,0,20)

createobjectbox(22,15,1,10) 
setobjectcolor(22,0,0,200,0)
setobjectposition(22,5,0,35)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
tn#=90
do
	
  `old coords
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif  

  if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5
  
  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)
for t= 20 to 22  
  maxz2#=GetObjectMeshSizeMaxZ(t,1)
  minz2#=GetObjectMeshSizeMinZ(t,1)
  maxx2#=GetObjectMeshSizeMaxx(t,1)
  minx2#=GetObjectMeshSizeMinx(t,1)
   
  z1#=getobjectz(1)
  x1#=getobjectx(1)
  z2#=getobjectz(t)
  x2#=getobjectx(t)
  
  if z#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#<z2# then z#=oldz#
  if z#+minz1#<z2#+maxz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#>z2# then z#=oldz#
 
  if x#+maxx1#>x2#+minx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#<x2# then x#=oldx#  
  if x#+minx1#<x2#+maxx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#>x2# then x#=oldx#   
  next
   
  setobjectrotation(30,0,-tn#,0)
  

    Sync()
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 29th Jan 2019 22:22

Link

Nice... AABB vortex (cube) collisioning.- axis aligned bounding box

Awesome

Ill review code and help if i can

Back to top

Profile

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 22:25

Link

Ok mate ....take your time !

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 29th Jan 2019 22:29

Link

Your trying a little vortex world stuff arent you - great stuff

We are all remembered at least (Minecraft uses AABB)....lots must be too shy to comment.. Not to worry

Moving on..

Catch up soon with your inspriration idea of AABB

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 29th Jan 2019 22:56

Link

Why do you need to include the position of the object in your calculations? Min/max should return the bounds

Back to top

Profile PM

puzzler2018

User Banned

Posted: 29th Jan 2019 22:57

Link

Object bounds correct

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 29th Jan 2019 23:00

Link

From a 2d Tutorial

+ Code Snippet

if player1.minx < player2.maxx and
    player1.maxx > player2.minx and
    player1.miny < player2.maxy and
    player1.maxy > player2.miny
    print("Collision Detected");
endif

So for 3D should be

+ Code Snippet

if player1.minx < player2.maxx and
    player1.maxx > player2.minx and
    player1.miny < player2.maxy and
    player1.maxy > player2.miny and
    player1.minz < player2.maxz and
    player1.maxz > player2.minz
    print("Collision Detected");
endif

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 23:14 Edited at: 29th Jan 2019 23:16

Link

@blink0k Does GetObjectMeshSizeMaxZ /X /y give us the exactly coords. ??

Edit ...I will test it again Thanks.

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 29th Jan 2019 23:16 Edited at: 29th Jan 2019 23:17

Link

Stop guessing games, just read up on stuff instead - Knowledge!!!!

https://en.wikipedia.org/wiki/Bounding_volume

dont like wrong guessing games...

Back to top

Profile

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 23:20

Link

@puzzler I Know what you mean....I just thought it was an easy task ...I will keep trying...thanks for the link

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 29th Jan 2019 23:21

Link

I keep trying too with AABB - still going to review your code

Back to top

Profile

puzzler2018

User Banned

Posted: 29th Jan 2019 23:23 Edited at: 29th Jan 2019 23:25

Link

Thats probably why no one answers - cause no one knows or they are just not procrastinating at this present time lol too busy with their love lives - headache lol JEFFFFFFREEEEEEEE TEA TIME - YES MAAAAAM

Back to top

Profile

puzzler2018

User Banned

Posted: 29th Jan 2019 23:31

Link

ill have think x

Back to top

Profile

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 23:35 Edited at: 29th Jan 2019 23:37

Link

Quote: "Why do you need to include the position of the object in your calculations? Min/max should return the bounds"

Just tried to do the calculation without the object coords x/z and it get stuck .... I know that min /max give us object bounds, but we need to know aswell the real position x/z of every other box

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 29th Jan 2019 23:40 Edited at: 29th Jan 2019 23:41

Link

You example shows a 2D boxes which all collide perfectly in 2D

What is wrong or what would you like to do differently

Back to top

Profile

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 23:43 Edited at: 29th Jan 2019 23:46

Link

Well it works ...of course but it doesn's slide ...

Edited.
This piece of code in Java, shows that they take into acount the player.x

Quote: "if(player1.x < player2.x + player2.width &&
player1.x + player1.width > player2.x &&
player1.y < player2.y + player2.height &&
player1.y + player1.height > player2.y)
{
System.out.println("Collision Detected");
}"

2 Edit.

Any way ...thanks for testing....it was just not to get bored here

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 29th Jan 2019 23:47

Link

Dont understand - its doing what you programmed - do you want a print "Collision Detected" message or something or convert it 3D

I works, So confused right now,

What you trying to acheive

Back to top

Profile

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 29th Jan 2019 23:50 Edited at: 29th Jan 2019 23:56

Link

1. I was wrong. The Min/Max values are local NOT world

2. They also don't take into account the rotation of the object. If however you use FixObjectPivot(), the co-ordinates will accommodate the rotation

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_SPACE        32
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40

#constant	TRUE	1
#constant	FALSE	0

type	bounds
	minx	as float
	maxx	as float
	miny	as float
	maxy	as float
	minz	as float
	maxz	as float
endtype
	
type point
	x	as float
	y	as float
	z	as float
endtype

b1 = CreateObjectBox(1, 1, 1)

b2 = CreateObjectBox(1, 1, 1)

SetObjectPosition(b2, 2, 0, 0)
SetObjectPosition(b1, -2, 0, 0)

//shuffle()
SetCameraPosition(1,0,3,-7)

p as point

do
	
	if GetRawKeyPressed(KEY_RIGHT)
		SetObjectPosition(b2, GetObjectX(b2) + 0.5, GetObjectY(b2), GetObjectZ(b2))
	endif
	
	if GetRawKeyPressed(KEY_LEFT)
		SetObjectPosition(b2, GetObjectX(b2) - 0.5, GetObjectY(b2), GetObjectZ(b2))
	endif
	
	if GetRawKeyPressed(KEY_UP)
		p.x = GetObjectX(b2)
		p.y = GetObjectY(b2)
		p.z = GetObjectZ(b2)				
		SetObjectPosition(b2, 0, 0, 0)
		RotateObjectLocalX(b2, 5)
		RotateObjectLocalY(b2, 5)
		RotateObjectLocalZ(b2, 5)				
		FixObjectPivot(b2)
		SetObjectPosition(b2, p.x, p.y, p.z)		
	endif

Print("RIGHT/LEFT-Move box, UP-Rotate box")
	
	if AABB(b1, b2) = TRUE
		print("Collision")
	else
		print("Miss")
	endif
	
	
    Sync()
loop

function	AABB(o1 as integer, o2 as integer)
	b1	as bounds
	b2	as bounds
	r	as integer

b1 = GetBounds(o1)
	b2 = GetBounds(o2)
	
	r = 0
	
	if 	b1.minx < b2.maxx and b1.maxx > b2.minx and	b1.miny < b2.maxy and b1.maxy > b2.miny and	b1.minz < b2.maxz and b1.maxz > b2.minz
		r = 1
	endif
	
endfunction r

function	GetBounds(o as integer)
	b	as bounds
	b.minx = GetObjectSizeMinX(o) + getObjectX(o)
	b.maxx = GetObjectSizeMaxX(o) + getObjectX(o)
	b.miny = GetObjectSizeMinY(o) + getObjectY(o)
	b.maxy = GetObjectSizeMaxY(o) + getObjectY(o)
	b.minz = GetObjectSizeMinZ(o) + getObjectZ(o)
	b.maxz = GetObjectSizeMaxZ(o) + getObjectZ(o)
	
endfunction b

+ Code Snippet

 


// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#constant KEY_SPACE        32
#constant KEY_LEFT         37
#constant KEY_UP           38
#constant KEY_RIGHT        39
#constant KEY_DOWN         40


#constant	TRUE	1
#constant	FALSE	0


type	bounds
	minx	as float
	maxx	as float
	miny	as float
	maxy	as float
	minz	as float
	maxz	as float
endtype
	
type point
	x	as float
	y	as float
	z	as float
endtype

b1 = CreateObjectBox(1, 1, 1)

b2 = CreateObjectBox(1, 1, 1)

SetObjectPosition(b2, 2, 0, 0)
SetObjectPosition(b1, -2, 0, 0)

//shuffle()
SetCameraPosition(1,0,3,-7)

p as point

do
	
	if GetRawKeyPressed(KEY_RIGHT)
		SetObjectPosition(b2, GetObjectX(b2) + 0.5, GetObjectY(b2), GetObjectZ(b2))
	endif
	
	if GetRawKeyPressed(KEY_LEFT)
		SetObjectPosition(b2, GetObjectX(b2) - 0.5, GetObjectY(b2), GetObjectZ(b2))
	endif
	
	if GetRawKeyPressed(KEY_UP)
		p.x = GetObjectX(b2)
		p.y = GetObjectY(b2)
		p.z = GetObjectZ(b2)				
		SetObjectPosition(b2, 0, 0, 0)
		RotateObjectLocalX(b2, 5)
		RotateObjectLocalY(b2, 5)
		RotateObjectLocalZ(b2, 5)				
		FixObjectPivot(b2)
		SetObjectPosition(b2, p.x, p.y, p.z)		
	endif

	
	
	Print("RIGHT/LEFT-Move box, UP-Rotate box")
	
	if AABB(b1, b2) = TRUE
		print("Collision")
	else
		print("Miss")
	endif
	
	
    Sync()
loop

function	AABB(o1 as integer, o2 as integer)
	b1	as bounds
	b2	as bounds
	r	as integer

	b1 = GetBounds(o1)
	b2 = GetBounds(o2)
	
	r = 0
	
	if 	b1.minx < b2.maxx and b1.maxx > b2.minx and	b1.miny < b2.maxy and b1.maxy > b2.miny and	b1.minz < b2.maxz and b1.maxz > b2.minz
		r = 1
	endif
	
endfunction r

function	GetBounds(o as integer)
	b	as bounds
	b.minx = GetObjectSizeMinX(o) + getObjectX(o)
	b.maxx = GetObjectSizeMaxX(o) + getObjectX(o)
	b.miny = GetObjectSizeMinY(o) + getObjectY(o)
	b.maxy = GetObjectSizeMaxY(o) + getObjectY(o)
	b.minz = GetObjectSizeMinZ(o) + getObjectZ(o)
	b.maxz = GetObjectSizeMaxZ(o) + getObjectZ(o)
	
endfunction b

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 29th Jan 2019 23:55 Edited at: 29th Jan 2019 23:58

Link

Quote: " They also don't take into account the rotation of the object. If however you use FixObjectPivot(), the co-ordinates will accommodate the rotation"

Exactly ..!! we don't need here to fix object pivot as we just check for collision in not rotated boxes...this is Ok for a dungeon system...

What I can't understand, is why when I move x lines above z lines ( I mean if z if x ) if I put x first...then it slide ok in x but wrong in z

Edited.
@blink0k hei this code is nice....I will study later. thanks

I'm not a grumpy grandpa

Back to top

Profile PM Email

Golelorn

7

Years of Service

User Offline

Joined: 20th Nov 2016

Location:

Posted: 30th Jan 2019 03:46 Edited at: 30th Jan 2019 04:07

Link

As your object rotates the values will need to be adjusted. At some point minimum x becomes minimum z, max z or max x and vice versa. As blink0k pointed out, these are based off the model space not world space.

I've attached what I use for angles 0, 90, 180 and 270. It will at least give you a start. I am sure there is a math formula... I didn't think about it at the time I created this.

+ Code Snippet

	px# = GetObjectX( obj )
	pz# = GetObjectZ( obj )
	angle = GetObjectAngleY( obj )
	if angle = 0 
		min_x# = px# + GetObjectSizeMinX( Obj )
		max_x# = px# + GetObjectSizeMaxX( Obj )
		min_z# = pz# + GetObjectSizeMinZ( Obj )
		max_z# = pz# + GetObjectSizeMaxZ( Obj )
	elseif angle = 270
		max_x# = px#-GetObjectSizeMinZ( Obj ) //min_z#
		min_x# = px#-GetObjectSizeMaxZ( Obj ) //max_z#
		max_z# = pz#+GetObjectSizeMaxX( Obj ) //max_x# 
		min_z# = pz#+GetObjectSizeMinX( Obj ) //min_x#
	elseif angle = 180
		max_x# = px#-GetObjectSizeMinX( Obj )
		min_x# = px#-GetObjectSizeMaxX( Obj )
		max_z# = pz#-GetObjectSizeMinZ( Obj )
		min_z# = pz#-GetObjectSizeMaxZ( Obj )
	elseif angle = 90
		max_x# = px#+GetObjectSizeMaxZ( Obj )
		min_x# = px#+GetObjectSizeMinZ( Obj )
		max_z# = pz#-GetObjectSizeMinX( Obj )
		min_z# = pz#-GetObjectSizeMaxX( Obj )
	endif

If you're building a random dungeon system the direction matters.

if direction = 1 
		if GetObjectZ( ObjID )-34 < Max_z and GetObjectZ( ObjID )-34 > Min_z then z_intersection = 1
		if GetObjectX( ObjID ) <  GetObjectX( ObjID_test )+18 and GetObjectX( ObjID ) > GetObjectX( ObjID_test )-18 then x_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	elseif direction = 2 
		if GetObjectZ( ObjID )+34 < Max_z and GetObjectZ( ObjID )+34 > Min_z then z_intersection = 1
		if GetObjectX( ObjID ) <  GetObjectX( ObjID_test )+18 and GetObjectX( ObjID ) > GetObjectX( ObjID_test )-18 then x_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	elseif direction = 3
		if GetObjectX( ObjID )-34 < Max_x and GetObjectX( ObjID )-34 > Min_x then x_intersection = 1
		if GetObjectZ( ObjID ) <  GetObjectZ( ObjID_test )+18 and GetObjectZ( ObjID ) > GetObjectZ( ObjID_test )-18 then z_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	elseif direction = 4
		if GetObjectX( ObjID )+34 < Max_x and GetObjectX( ObjID )+34 > Min_x then x_intersection = 1
		if GetObjectZ( ObjID ) <  GetObjectZ( ObjID_test )+18 and GetObjectZ( ObjID ) > GetObjectZ( ObjID_test )-18 then z_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	endif

+ Code Snippet

	if direction = 1 
		if GetObjectZ( ObjID )-34 < Max_z and GetObjectZ( ObjID )-34 > Min_z then z_intersection = 1
		if GetObjectX( ObjID ) <  GetObjectX( ObjID_test )+18 and GetObjectX( ObjID ) > GetObjectX( ObjID_test )-18 then x_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	elseif direction = 2 
		if GetObjectZ( ObjID )+34 < Max_z and GetObjectZ( ObjID )+34 > Min_z then z_intersection = 1
		if GetObjectX( ObjID ) <  GetObjectX( ObjID_test )+18 and GetObjectX( ObjID ) > GetObjectX( ObjID_test )-18 then x_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	elseif direction = 3
		if GetObjectX( ObjID )-34 < Max_x and GetObjectX( ObjID )-34 > Min_x then x_intersection = 1
		if GetObjectZ( ObjID ) <  GetObjectZ( ObjID_test )+18 and GetObjectZ( ObjID ) > GetObjectZ( ObjID_test )-18 then z_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	elseif direction = 4
		if GetObjectX( ObjID )+34 < Max_x and GetObjectX( ObjID )+34 > Min_x then x_intersection = 1
		if GetObjectZ( ObjID ) <  GetObjectZ( ObjID_test )+18 and GetObjectZ( ObjID ) > GetObjectZ( ObjID_test )-18 then z_intersection = 1
		if z_intersection = 1 and x_intersection = 1 then intersection = 1
	endif

So if you are interested - I included how I break down angles and get a directional movement. With minor adjustments you should be able to use this to get the exact size based off any rotation.

+ Code Snippet

	if angle_player = 360.0 then angle_player = 0.0
	if angle_player >=0.0 and angle_player <= 90.0
		x_dir = angle_player/90.0*-speed
		z_dir = (90.0-angle_player)/90.0*-speed
	elseif angle_player >90.0 and angle_player <= 180.0
		x_dir = (180.0-angle_player)/90*-speed
		z_dir = (angle_player-90.0)/90.0*speed
	elseif angle_player >180.0 and angle_player <= 270.0
		x_dir = (angle_player-180.0)/90.0*speed
		z_dir = (270.0-angle_player)/90.0*speed
	elseif angle_player >270.0 and angle_player < 360.0
		x_dir = (360-angle_player)/90.0*speed
		z_dir = (angle_player-270)/90.0*-speed
	endif

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 30th Jan 2019 12:27

Link

@Golelorn thanks for your feedback. My object doesn't rotate ....it just move in space. The objet that we see rotating is just a helper to see the direccion against the object moves.

The code works ok... it does detect correctly when there is a collision but somehow I'm not happy with the last result as sliding collision needs some other algorithm. Thanks any way .

I'm not a grumpy grandpa

Back to top

Profile PM Email

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 30th Jan 2019 14:16 Edited at: 30th Jan 2019 14:17

Link

Quote: "What I can't understand, is why when I move x lines above z lines ( I mean if z if x ) if I put x first...then it slide ok in x but wrong in z "

+ Code Snippet

	if z#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#<z2# then z#=oldz#
	if z#+minz1#<z2#+maxz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#>z2# then z#=oldz#
  
	if x#+maxx1#>x2#+minx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#<x2# then x#=oldx#  
	if x#+minx1#<x2#+maxx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#>x2# then x#=oldx#

Your original code had issues as it changes the z# value back to its old value then uses it to check the lines below but as its been changed then no collision will be detected. If ANY collision occurs both z# and x# need to be set to their old values and no need to do any further checks.

Sliding collision is slightly harder and involves detecting the first collision point then moving only in X or Z after that.

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 30th Jan 2019 14:43

Link

@Bengismos Hi mate.

Quote: "
Bengismo wrote. Your original code had issues as it changes the z# value back to its old value
"

Correct about z# change value back ...thats the way z# slide, but once it detect collision . I add some lines to the same code to show that collision really happens ...What I'm trying to do here is to get Sliding Collision with AABB system .

// Project: AABB Collision
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Collision" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

createobjectbox(1,2,1,2)

createobjectbox(20,20,1,6) 
setobjectcolor(20,0,255,0,0)
setobjectposition(20,0,0,50)

createobjectbox(21,30,1,2) 
setobjectcolor(21,255,255,0,0)
setobjectposition(21,-20,0,20)

createobjectbox(22,15,1,10) 
setobjectcolor(22,0,0,200,0)
setobjectposition(22,5,0,35)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
tn#=90
do
	
  `old coords
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif

if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5
  
  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)
for t= 20 to 22  
  maxz2#=GetObjectMeshSizeMaxZ(t,1)
  minz2#=GetObjectMeshSizeMinZ(t,1)
  maxx2#=GetObjectMeshSizeMaxx(t,1)
  minx2#=GetObjectMeshSizeMinx(t,1)
   
  z1#=getobjectz(1)
  x1#=getobjectx(1)
  z2#=getobjectz(t)
  x2#=getobjectx(t)
  
  if z#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#<z2# then z#=oldz# 
  if z#+minz1#<z2#+maxz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#>z2# then z#=oldz# 
 
  if x#+maxx1#>x2#+minx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#<x2# then x#=oldx#  
  if x#+minx1#<x2#+maxx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#>x2# then x#=oldx#   
  
  if z#+maxz1#+0.2>z2#+minz2# and z#+minz1#-0.2<z2#+maxz2# and x1#+maxx1#>x2#+minx2# and x1#+minx1#<x2#+maxx2# then colli=1 else colli=0
  
  if colli>0 then print("                        C O L L I S I O N    D E T E C T E D ")
  next
   
  setobjectrotation(30,0,-tn#,0)
  
    
    
    Sync()
loop
collis:
colli=1
return

+ Code Snippet

// Project: AABB Collision
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Collision" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts



createobjectbox(1,2,1,2) 

createobjectbox(20,20,1,6) 
setobjectcolor(20,0,255,0,0)
setobjectposition(20,0,0,50)

createobjectbox(21,30,1,2) 
setobjectcolor(21,255,255,0,0)
setobjectposition(21,-20,0,20)

createobjectbox(22,15,1,10) 
setobjectcolor(22,0,0,200,0)
setobjectposition(22,5,0,35)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
tn#=90
do
	
  `old coords
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif  

  if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5
  
  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)
for t= 20 to 22  
  maxz2#=GetObjectMeshSizeMaxZ(t,1)
  minz2#=GetObjectMeshSizeMinZ(t,1)
  maxx2#=GetObjectMeshSizeMaxx(t,1)
  minx2#=GetObjectMeshSizeMinx(t,1)
   
  z1#=getobjectz(1)
  x1#=getobjectx(1)
  z2#=getobjectz(t)
  x2#=getobjectx(t)
  
  if z#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#<z2# then z#=oldz# 
  if z#+minz1#<z2#+maxz2# and x#+maxx1#>x2#+minx2#  and x#+minx1# <x2#+maxx2# and z1#>z2# then z#=oldz# 
 
  if x#+maxx1#>x2#+minx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#<x2# then x#=oldx#  
  if x#+minx1#<x2#+maxx2# and z#+maxz1#>z2#+minz2#  and z#+minz1# <z2#+maxz2# and x1#>x2# then x#=oldx#   
  
  if z#+maxz1#+0.2>z2#+minz2# and z#+minz1#-0.2<z2#+maxz2# and x1#+maxx1#>x2#+minx2# and x1#+minx1#<x2#+maxx2# then colli=1 else colli=0
  
  if colli>0 then print("                        C O L L I S I O N    D E T E C T E D ")
  next
   
  setobjectrotation(30,0,-tn#,0)
  
    
    
    Sync()
loop
collis:
colli=1
return

I'm not a grumpy grandpa

Back to top

Profile PM Email

Bengismo

6

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 30th Jan 2019 15:59

Link

To be honest im not sure what your trying to do but if its just to slide on any edge then this works and is simpler too

// Project: AABB Collision
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Collision" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

createobjectbox(1,2,1,2)

createobjectbox(20,20,1,6) 
setobjectcolor(20,0,255,0,0)
setobjectposition(20,0,0,50)

createobjectbox(21,30,1,2) 
setobjectcolor(21,255,255,0,0)
setobjectposition(21,-20,0,20)

createobjectbox(22,15,1,10) 
setobjectcolor(22,0,0,200,0)
setobjectposition(22,5,0,35)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
tn#=90
do
	
  `old coords
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif

if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5
  
  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)

for t= 20 to 22  
		maxz2#=GetObjectMeshSizeMaxZ(t,1)
		minz2#=GetObjectMeshSizeMinZ(t,1)
		maxx2#=GetObjectMeshSizeMaxx(t,1)
		minx2#=GetObjectMeshSizeMinx(t,1)
   
		z1#=getobjectz(1)
		x1#=getobjectx(1)
		z2#=getobjectz(t)
		x2#=getobjectx(t)
  
  
		if z#+maxz1#>z2#+minz2# and oldx#+maxx1#>x2#+minx2# and oldx#+minx1# <x2#+maxx2# and z#+minz1#<z2#+maxz2# 
			z#=oldz#
		endif

if oldz#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2# and x#+minx1# <x2#+maxx2# and oldz#+minz1#<z2#+maxz2# 
			x#=oldx# 
			
		endif

next t
   
	setobjectrotation(30,0,-tn#,0)
  
    Sync()
loop

+ Code Snippet

// Project: AABB Collision
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB Collision" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts



createobjectbox(1,2,1,2) 

createobjectbox(20,20,1,6) 
setobjectcolor(20,0,255,0,0)
setobjectposition(20,0,0,50)

createobjectbox(21,30,1,2) 
setobjectcolor(21,255,255,0,0)
setobjectposition(21,-20,0,20)

createobjectbox(22,15,1,10) 
setobjectcolor(22,0,0,200,0)
setobjectposition(22,5,0,35)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
tn#=90
do
	
  `old coords
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif  

  if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5
  
  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)

	for t= 20 to 22  
		maxz2#=GetObjectMeshSizeMaxZ(t,1)
		minz2#=GetObjectMeshSizeMinZ(t,1)
		maxx2#=GetObjectMeshSizeMaxx(t,1)
		minx2#=GetObjectMeshSizeMinx(t,1)
   
		z1#=getobjectz(1)
		x1#=getobjectx(1)
		z2#=getobjectz(t)
		x2#=getobjectx(t)
  
  
		if z#+maxz1#>z2#+minz2# and oldx#+maxx1#>x2#+minx2# and oldx#+minx1# <x2#+maxx2# and z#+minz1#<z2#+maxz2# 
			z#=oldz#
		endif

		if oldz#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2# and x#+minx1# <x2#+maxx2# and oldz#+minz1#<z2#+maxz2# 
			x#=oldx# 
			
		endif

	next t
   
	setobjectrotation(30,0,-tn#,0)
  
    Sync()
loop

Back to top

Profile PM

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 30th Jan 2019 17:25 Edited at: 30th Jan 2019 17:28

Link

This post has been marked by the post author as the answer.

Wow Bengismo !! you did it !! .... changing just two stupid lines awesome you are an axe !! Thanks so much ...that was somehow driving crazy ...I always thought it was an easy task .

Edit.
Here's is an example of what I'm trying to do...just a AABB sliding collision for my retro Dungeon to hell.

// Project: AABB SLIDING COLLISION by Bengismo)
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB SLIDING COLLISON" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
r=makecolor(100,100,100)
drawbox(0,0,64,128,r,r,r,r,1)
g=makecolor(70,70,70)
drawbox(64,0,128,128,g,g,g,g,1)
getimage(1,0,0,128,128)
SetImageWrapU(1,1)
SetImageWrapV(1,1)

createobjectbox(1,3,1,3) 
SetObjectVisible(1,0)
createobjectbox(20,20,5,6) 
setobjectimage(20,1,0)
setobjectposition(20,0,0,50)
createobjectbox(21,30,5,2) 
setobjectimage(21,1,0)
setobjectposition(21,-20,0,20)
createobjectbox(22,15,5,10) 
setobjectimage(22,1,0)
setobjectposition(22,5,0,35)
createobjectbox(23,5,5,30)
setobjectposition(23,-20,0,50)
cloneobject(24,23)
setobjectposition(24,-30,0,50)

createobjectbox(100,300,1,300)
setobjectposition(100,0,-2,0)
setobjectimage(100,1,0)
SetObjectUVScale(100,0,10,1)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
SetObjectVisible(30,0)

for i= 20 to 24
	setobjectimage(i,1,0)
	SetObjectUVScale(i,0,10,1)
next
tn#=90
SetSunActive(0)
SetAmbientColor(0,0,0)
createpointlight(1,0,0,0,50,255,255,0)

do
	
  `guardar vieja z
  
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif

if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5

maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)
for t= 20 to 24  
  maxz2#=GetObjectMeshSizeMaxZ(t,1)
  minz2#=GetObjectMeshSizeMinZ(t,1)
  maxx2#=GetObjectMeshSizeMaxx(t,1)
  minx2#=GetObjectMeshSizeMinx(t,1)
   
  z1#=getobjectz(1)
  x1#=getobjectx(1)
  z2#=getobjectz(t)
  x2#=getobjectx(t)
  
 if z#+maxz1#>z2#+minz2# and oldx#+maxx1#>x2#+minx2# and oldx#+minx1# <x2#+maxx2# and z#+minz1#<z2#+maxz2# 
	z#=oldz#
 endif

if oldz#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2# and x#+minx1# <x2#+maxx2# and oldz#+minz1#<z2#+maxz2# 
	x#=oldx#
endif
  next
   
  setcameraposition(1,getobjectx(30),getobjecty(30)+1,getobjectz(30))
  setcamerarotation(1,0,GetObjectAngleY(30)+90,0)
  setpointlightposition(1,getcamerax(1),2,getcameraz(1))
  setobjectrotation(30,0,-tn#,0)

Sync()
loop

+ Code Snippet

// Project: AABB SLIDING COLLISION by Bengismo)
// Created: 2019-01-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "AABB SLIDING COLLISON" )
SetWindowSize( 800, 600, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 800, 600 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
r=makecolor(100,100,100)
drawbox(0,0,64,128,r,r,r,r,1)
g=makecolor(70,70,70)
drawbox(64,0,128,128,g,g,g,g,1)
getimage(1,0,0,128,128)
SetImageWrapU(1,1)
SetImageWrapV(1,1)



createobjectbox(1,3,1,3) 
SetObjectVisible(1,0)
createobjectbox(20,20,5,6) 
setobjectimage(20,1,0)
setobjectposition(20,0,0,50)
createobjectbox(21,30,5,2) 
setobjectimage(21,1,0)
setobjectposition(21,-20,0,20)
createobjectbox(22,15,5,10) 
setobjectimage(22,1,0)
setobjectposition(22,5,0,35)
createobjectbox(23,5,5,30)
setobjectposition(23,-20,0,50)
cloneobject(24,23)
setobjectposition(24,-30,0,50)

createobjectbox(100,300,1,300)
setobjectposition(100,0,-2,0)
setobjectimage(100,1,0)
SetObjectUVScale(100,0,10,1)

createobjectbox(30,2,2,0.5) 
setobjectcolor(30,255,0,0,0)

setcamerarange(1,0.1,2000)
setcameraposition(1,0,70,30)
SetCameraLookAt(1,0,0,30,0)
SetObjectVisible(30,0)

for i= 20 to 24
	setobjectimage(i,1,0)
	SetObjectUVScale(i,0,10,1)
next
tn#=90
SetSunActive(0)
SetAmbientColor(0,0,0)
createpointlight(1,0,0,0,50,255,255,0)

do
	
  `guardar vieja z
  
  oldx#=x#
  oldz#=z#
  
  if ( GetRawKeyState( 38 ) ) 
	  x#=x#+(cos(tn#))*0.3
	  z#=z#+(sin(tn#))*0.3
  endif  

  if ( GetRawKeyState( 40) ) 
	  x#=x#+(cos(tn#))*-0.3
	  z#=z#+(sin(tn#))*-0.3
  endif  
 
  setobjectposition(1,x#,0,z#)
  setobjectposition(30,x#,0,z#)
 
  
  if ( GetRawKeyState( 37)) then tn#=tn#+5
  if ( GetRawKeyState( 39)) then tn#=tn#-5

  maxz1#=GetObjectMeshSizeMaxZ(1,1)
  minz1#=GetObjectMeshSizeMinZ(1,1)
  maxx1#=GetObjectMeshSizeMaxx(1,1)
  minx1#=GetObjectMeshSizeMinx(1,1)
for t= 20 to 24  
  maxz2#=GetObjectMeshSizeMaxZ(t,1)
  minz2#=GetObjectMeshSizeMinZ(t,1)
  maxx2#=GetObjectMeshSizeMaxx(t,1)
  minx2#=GetObjectMeshSizeMinx(t,1)
   
  z1#=getobjectz(1)
  x1#=getobjectx(1)
  z2#=getobjectz(t)
  x2#=getobjectx(t)
  
 if z#+maxz1#>z2#+minz2# and oldx#+maxx1#>x2#+minx2# and oldx#+minx1# <x2#+maxx2# and z#+minz1#<z2#+maxz2# 
	z#=oldz#
 endif

 if oldz#+maxz1#>z2#+minz2# and x#+maxx1#>x2#+minx2# and x#+minx1# <x2#+maxx2# and oldz#+minz1#<z2#+maxz2# 
	x#=oldx#
endif
  next
   
  setcameraposition(1,getobjectx(30),getobjecty(30)+1,getobjectz(30))
  setcamerarotation(1,0,GetObjectAngleY(30)+90,0)
  setpointlightposition(1,getcamerax(1),2,getcameraz(1))
  setobjectrotation(30,0,-tn#,0)
  

    Sync()
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

puzzler2018

User Banned

Posted: 30th Jan 2019 17:59

Link

Work well and pretty cool here too, well done to all and Bengismo for finding the solution. Awesome

Back to top

Profile

Sorry your browser is not supported!

AppGameKit Classic Chat / [SOLVED] AABB Collision problem