1 reply to this topic

[BURAK]

Hello friends


ContactX(obj)

var a, i, k;
if not place_meeting(x,y,argument0) exit
for(i=0;i<max(sprite_width,sprite_width)/2;i+=1)
{
if collision_circle(x,y,i,argument0,0,0)
{
a=i
break
}
}
for(k=0;k<360;k+=1)
{
if position_meeting(x+lengthdir_x(a,k),y+lengthdir_y(a,k),argument0)
return x+lengthdir_x(a,k)
}

ContactY(obj)

var a, i, k;
if not place_meeting(x,y,argument0) exit
for(i=0;i<max(sprite_width,sprite_width)/2;i+=1)
{
if collision_circle(x,y,i,argument0,0,0)
{
a=i
break
}
}
for(k=0;k<360;k+=1)
{
if position_meeting(x+lengthdir_x(a,k),y+lengthdir_y(a,k),argument0)
return y+lengthdir_y(a,k)
}

http://speedy.sh/jRSvM/ContactX-Y.gmk

Edited by BURAK, 04 May 2012 - 09:44 PM.

[Rockin]

thanks.
I'm happy to add that into pikselcanavari