Ce script sert a trouver d'un point 1 au point 2 jusqu'ou ira t'on avant de cogner un objet solid.

C'est une fonction recursive :

Utilisation :

Citation:
lastPointCollideX(x1,y1,x2,y2,nomd'unobjetsolid);

Code de lastPointCollideX :

Citation:

if(abs(floor(argument0)-floor(argument2))<=2 && abs(floor(argument1)-floor(argument3))<=2){return argument2;}
if(!collision_line(argument0,argument1,argument0+((argument2-argument0)/2),argument1+((argument3-argument1)/2),argument4,1,0))
{
return lastPointCollideX(argument0+((argument2-argument0)/2),argument1+((argument3-argument1)/2),argument2,argument3,argument4);
}
return lastPointCollideX(argument0,argument1,argument0+((argument2-argument0)/2),argument1+((argument3-argument1)/2),argument4);



Code de lastPointCollideY :

Citation:

if(abs(floor(argument0)-floor(argument2))<=2 && abs(floor(argument1)-floor(argument3))<=2){return argument3;}
if(!collision_line(argument0,argument1,argument0+((argument2-argument0)/2),argument1+((argument3-argument1)/2),argument4,1,0))
{
return lastPointCollideY(argument0+((argument2-argument0)/2),argument1+((argument3-argument1)/2),argument2,argument3,argument4);
}
return lastPointCollideY(argument0,argument1,argument0+((argument2-argument0)/2),argument1+((argument3-argument1)/2),argument4);



Vérifier qu'il y a bien un point de collision compris dans la Line car sinon il y aura des calculs pour rien, donc :


Citation:

if(collision_line(x,y,mouse_x,mouse_y,block,1,0))
{
draw_line(x,y,lastPointCollideX(x,y,mouse_x,mouse_y,block),lastPointCollideY(x,y,mouse_x,mouse_y,block));
}
else
{
draw_line(x,y,mouse_x,mouse_y);
}



Est une bonne facon de l'utilisé.

//collision_instant(direction,x,y,wall,bullet,maxlen)
var xx,yy,rand,obj,maxlen;
dir=argument0; //direction
xx=argument1;
yy=argument2;
obj=argument3; //stopper
obj2=argument4; //collision checker
maxlen=argument5; //maximum length for checking collision
xx_new=xx; // create the draw-to point
yy_new=yy;
repeat(maxlen/2) { //repeat however many times divided by 2
xx_new+=lengthdir_x(2,dir); //add 2 px to the line
yy_new+=lengthdir_y(2,dir);
if collision_line(xx,yy,xx_new,yy_new,obj,1,1) {
break; //and stop if there's something blocking
}
}
draw_line(xx,yy,xx_new,yy_new); //draw the new line (in draw event only!)