Find content
Not Telling
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
