Ray()

////////////////////////////////////////////////////////////////////////////
// -- -- ray(xfrom,yfrom,direction,maxdistance,object,sections);          //
// -- -- sets the variables "rx" and "ry" to the ray's endpoint by default//
////////////////////////////////////////////////////////////////////////////

var _x,_y,_i,_s;
_x = argument0;
_y = argument1;
_i = 0;
_s = 1;

repeat(argument5)
{
    if collision_line(
    _x+lengthdir_x((argument3/argument5)*_i,argument2),
    _y+lengthdir_y((argument3/argument5)*_i,argument2),
    _x+lengthdir_x(((argument3/argument5)*_s)*_i+1,argument2),
    _y+lengthdir_x(((argument3/argument5)*_s)*_i+1,argument2),
    argument4,1,1)
    {
        _s = _s/2;
        if argument3/argument5 = 2
        {
            rx = _x+lengthdir_x((argument3/argument5)*_i,argument2);
            ry = _y+lengthdir_y((argument3/argument5)*_i,argument2);
            exit;
        }
    }
    else
    {
        _i += 1;
        if argument3/argument5 = 2
        {
            rx = _x+lengthdir_x(((argument3/argument5)*_s)*_i+1,argument2);
            ry = _y+lengthdir_x(((argument3/argument5)*_s)*_i+1,argument2);
            exit;
        }
        if _i = argument5-1
        {
            rx = _x+lengthdir_x(argument3,argument2);
            ry = _y+lengthdir_y(argument3,argument2);
            exit;
        }
    }
}