beta11: tier1: 3d collision question

Author

Message

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 10:05

Link

Hi,

I have a collision problem.
I'll try and explain myself as clearly as possible.
I'm making a 3d tetris game and the collision function I'm using is simple,

+ Code Snippet

hit1 = objectRayCast(0,oldx#,oldy#,oldz#,getobjectx(active),getobjecty(active),getobjectz(active))

It works fine in this example,

But when the two objects are clipping,

it doesn't.

Can anyone help me remedy this? It kind of spoils the game.

Thanks,
miki

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 10:19

Link

did SetObjectCollisionMode( iGround, 1 ) not work for you?

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 10:49

Link

Hi Markus,

Isn't SetObjectCollisionMode() default?

Just tried it anyway and the problem still occurs.

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 10:57

Link

i think about,ohh, i remember its only for the raycast.
I thought it was a complete collision system.

at your problem you can use more raycasts for each block in the object. now you use only 1 middle point.

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 11:03

Link

Quote: "use more raycasts for each block in the object"

Interesting, how do I assign raycasts to each block?

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 11:05 Edited at: 4th May 2013 11:07

Link

the original object position + offset.
with block i mean each sqare/cube in tile.

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 11:11

Link

do you mean like this?
hit1 = ObjectRayCast(0,oldx#+5,oldy#,oldz#,getobjectx(active)+5,getobjecty(active),getobjectz(active))

in the end

Back to top

Profile PM Email Website

Cliff Mellangard 3DEGS

Developer

18

Years of Service

User Offline

Joined: 20th Feb 2006

Location: Sweden

Posted: 4th May 2013 12:10

Link

This is again that we are missing a simple box collison command in agk.

You could also simply use sphere cast at the corners of your blocks.
This way do you get collision every time a block overlapps Another one.
With this do i mean you test for a sphere colliosion at all the corners of the Active block and can veary easy detect wath corner is overlapping.
My English is poor but i hope its clear wath i mean

Android 2.3 , ZTE Skate , 480x800 , 800 mhz , Samsung Galaxy Y , 240x320 , 832 mhz , Sony ericson arc 480x854 , 1 ghz
Android 4.0 , Dmtech 3g 9738B , 1024x768 , 9.7 inches , 1.2 ghz

Back to top

Profile PM Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 12:39

Link

yes i mean like this.
also you can use a array and place a abstract 3d world in it.
you can move only to a position thats free.
eaxample:
11000000
01110000
00001100
00001100

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 12:47

Link

Thanks Cliff Mellangard 3DEGS

I just tried

+ Code Snippet

for t = 1 to 20
hit1 = ObjectRayCast(0,(oldx#-10)+t,oldy#,oldz#,(getobjectx(active)-10)+t,getobjecty(active),getobjectz(active))
next t

That didn't work.

I'll try your suggestion now...

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 13:27

Link

i mean this by offset, each middle of x is a raycast.
you must know the rotating of the block.
XX
XXX

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 13:51

Link

Hmm!

This could be sorted if there was polygon collision detection.

(Is Wigan listening?)

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 14:14

Link

maybe we get a collision system if the 3d part is finished this year.
working in a array and then visualize it in 3d is much simpler.

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 14:20

Link

Quote: "working in a array and then visualize it in 3d is much simpler."

I'm trying to get my head around it, but finding it difficult conceptually.

Still, what are Saturdays for, eh?

in the end

Back to top

Profile PM Email Website

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 14:54

Link

@ Cliff Mellangard 3DEGS

After trying it out on one block type, your sphere-collision system seems to work,
but it triples (at least) the amount of code needed.
Once again, one has to take rotation into consideration.

I'll continue with the other four block types and keep you posted...

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 16:33 Edited at: 4th May 2013 16:33

Link

just for fun i made a 3d visualisation

see download:

Attachments

Login to view attachments

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 18:12

Link

Quote: "just for fun i made a 3d visualisation
see download:"

Nice!
Very nice!

Now you really ***k** my head!

I'll learn from it.

------------------------------------------------

I'm working on a method based on arrays at the moment.
I'll keep you posted.

Thanks,
miki.

ps.

I once read "there are two kinds of people...
those who succeed...
and those who give up"

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 18:28

Link

the disadvantage with the array is that the smooth moving of blocks in 3d
is very special. but its only moving from one state to another.

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 4th May 2013 18:46

Link

Quote: "the disadvantage with the array is that the smooth moving of blocks in 3d
is very special. but its only moving from one state to another."

I'm attempting to place the raycast in a block of 3x3... 1-9.
Using #5 as the center
And the rotation is in steps of 90 degrees...
The blocks are 5 units each and they move up, down or across in units of 5.
So it shouldn't be so complicated .... (me thinks!!)

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 4th May 2013 20:44

Link

I can imagine.

Back to top

Profile PM Email

miki

19

Years of Service

User Offline

Joined: 7th Jan 2005

Location:

Posted: 5th May 2013 11:34 Edited at: 5th May 2013 11:36

Link

This is what I came up with.
And it works!

` raycast for 3d tetris shapes
`
dim x[5] : dim y[5]
active=1
createobjectbox(active,15,5,5)
setobjectvisible(active,0)
`
do
`
if getrawkeystate(37)=1
undim x[0] : undim y[0]
dim x[5] : dim y[5]
chosen = random(1,5)
angle = 90 * random(0,3)
setobjectrotation(active,0,0,angle)
gosub b_pos_data
endif
`
print("chosen = " + str(chosen))
print("angle = " +str(ceil(getobjectanglez(active))))
print("x1 = " + str(x[1]) + " : " + "y1 = " + str(y[1]))
print("x2 = " + str(x[2]) + " : " + "y2 = " + str(y[2]))
print("x3 = " + str(x[3]) + " : " + "y3 = " + str(y[3]))
print("x4 = " + str(x[4]) + " : " + "y4 = " + str(y[4]))
`
sync()
loop
`-------------------------------------------------------------------------------------
`-----------------------------------------------------------------------------------
b_pos_data:
`-----------------------------------  0 degrees   ------------------
if ceil(getobjectanglez(active))=0
if chosen=1:e=1:endif
if chosen=2:d=1:e=1:f=1:endif
if chosen=3:b=1:d=1:e=1:f=1:endif
if chosen=4:b=1:c=1:d=1:e=1:endif
if chosen=5:c=1:d=1:e=1:f=1:endif
endif
`-----------------------------------  90 degrees   ------------------
if ceil(getobjectanglez(active))=90
if chosen=1:e=1:endif
if chosen=2:b=1:e=1:h=1:endif
if chosen=3:b=1:d=1:e=1:h=1:endif
if chosen=4:a=1:d=1:e=1:h=1:endif
if chosen=5:a=1:b=1:e=1:h=1:endif
endif
`-----------------------------------  180 degrees   ------------------
if ceil(getobjectanglez(active))=180
if chosen=1:e=1:endif
if chosen=2:d=1:e=1:f=1:endif
if chosen=3:d=1:e=1:f=1:h=1:endif
if chosen=4:e=1:f=1:g=1:h=1:endif
if chosen=5:d=1:e=1:f=1:g=1:endif
endif
`-----------------------------------  -90 degrees   ------------------
if ceil(getobjectanglez(active))=-89
if chosen=1:e=1:endif
if chosen=2:b=1:e=1:h=1:endif
if chosen=3:b=1:e=1:f=1:h=1:endif
if chosen=4:b=1:e=1:f=1:i=1:endif
if chosen=5:b=1:e=1:h=1:i=1:endif
endif
gosub b_value
return

`------------------------------------------------------------------------------------------------------
`-----------------------------------------------------------------------------------------------------
b_value:
n=0
if a=1 : x=-5:y=5:inc n:x[n]=x:y[n]=y:endif
if b=1 : x=0:y=5:inc n:x[n]=x:y[n]=y:endif
if c=1 : x=5:y=5:inc n:x[n]=x:y[n]=y:endif
if d=1 : x=-5:y=0:inc n:x[n]=x:y[n]=y:endif
if e=1 : x=0:y=0:inc n:x[n]=x:y[n]=y:endif
if f=1 : x=5:y=0:inc n:x[n]=x:y[n]=y:endif
if g=1 : x=-5:y=-5:inc n:x[n]=x:y[n]=y:endif
if h=1 : x=0:y=-5:inc n:x[n]=x:y[n]=y:endif
if i=1 : x=5:y=-5:inc n:x[n]=x:y[n]=y:endif
a=0:b=0:c=0:d=0:e=0:f=0:g=0:h=0:i=0
sleep(500)
return

+ Code Snippet

` raycast for 3d tetris shapes
`
dim x[5] : dim y[5]
active=1
createobjectbox(active,15,5,5)
setobjectvisible(active,0)
`
do
`
if getrawkeystate(37)=1
undim x[0] : undim y[0]
dim x[5] : dim y[5]
chosen = random(1,5)
angle = 90 * random(0,3)
setobjectrotation(active,0,0,angle)
gosub b_pos_data
endif
`
print("chosen = " + str(chosen))
print("angle = " +str(ceil(getobjectanglez(active))))
print("x1 = " + str(x[1]) + " : " + "y1 = " + str(y[1]))
print("x2 = " + str(x[2]) + " : " + "y2 = " + str(y[2]))
print("x3 = " + str(x[3]) + " : " + "y3 = " + str(y[3]))
print("x4 = " + str(x[4]) + " : " + "y4 = " + str(y[4]))
`
sync()
loop
`-------------------------------------------------------------------------------------
`-----------------------------------------------------------------------------------
b_pos_data:
`-----------------------------------  0 degrees   ------------------
if ceil(getobjectanglez(active))=0
if chosen=1:e=1:endif
if chosen=2:d=1:e=1:f=1:endif
if chosen=3:b=1:d=1:e=1:f=1:endif
if chosen=4:b=1:c=1:d=1:e=1:endif
if chosen=5:c=1:d=1:e=1:f=1:endif
endif
`-----------------------------------  90 degrees   ------------------
if ceil(getobjectanglez(active))=90
if chosen=1:e=1:endif
if chosen=2:b=1:e=1:h=1:endif
if chosen=3:b=1:d=1:e=1:h=1:endif
if chosen=4:a=1:d=1:e=1:h=1:endif
if chosen=5:a=1:b=1:e=1:h=1:endif
endif
`-----------------------------------  180 degrees   ------------------
if ceil(getobjectanglez(active))=180
if chosen=1:e=1:endif
if chosen=2:d=1:e=1:f=1:endif
if chosen=3:d=1:e=1:f=1:h=1:endif
if chosen=4:e=1:f=1:g=1:h=1:endif
if chosen=5:d=1:e=1:f=1:g=1:endif
endif
`-----------------------------------  -90 degrees   ------------------
if ceil(getobjectanglez(active))=-89
if chosen=1:e=1:endif
if chosen=2:b=1:e=1:h=1:endif
if chosen=3:b=1:e=1:f=1:h=1:endif
if chosen=4:b=1:e=1:f=1:i=1:endif
if chosen=5:b=1:e=1:h=1:i=1:endif
endif
gosub b_value
return

`------------------------------------------------------------------------------------------------------
`-----------------------------------------------------------------------------------------------------
b_value:
n=0
if a=1 : x=-5:y=5:inc n:x[n]=x:y[n]=y:endif
if b=1 : x=0:y=5:inc n:x[n]=x:y[n]=y:endif
if c=1 : x=5:y=5:inc n:x[n]=x:y[n]=y:endif
if d=1 : x=-5:y=0:inc n:x[n]=x:y[n]=y:endif
if e=1 : x=0:y=0:inc n:x[n]=x:y[n]=y:endif
if f=1 : x=5:y=0:inc n:x[n]=x:y[n]=y:endif
if g=1 : x=-5:y=-5:inc n:x[n]=x:y[n]=y:endif
if h=1 : x=0:y=-5:inc n:x[n]=x:y[n]=y:endif
if i=1 : x=5:y=-5:inc n:x[n]=x:y[n]=y:endif
a=0:b=0:c=0:d=0:e=0:f=0:g=0:h=0:i=0
sleep(500)
return

Thanks Markus and Cliff.

in the end

Back to top

Profile PM Email Website

Markus

Valued Member

20

Years of Service

User Offline

Joined: 10th Apr 2004

Location: Germany

Posted: 5th May 2013 12:24

Link

ok cu at showcase

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / beta11: tier1: 3d collision question

Attachments