5 replies to this topic

[MasterOfKings]

Hey all,

I got a little bored so I decided to throw together a script that draws a simple line of col1 and col2, based upon range_finder(). The lite version will draw only col.

Pro / Standard...

Spoiler

/*  draw_laser()
**  by MasterOfKings
**  based on range_finder()
**
**  General form: draw_laser(x,y,dir,range,obj,col1,col2)
**
**  Argument list..
**    argument0 (x)     :  Starting x coordinate
**    argument1 (y)     :  Starting y coordinate
**    argument2 (dir)   :  Direction of laser
**    argument3 (range) :  Maximum range of laser
**    argument4 (obj)   :  Object which blocks the laser
**    argument5 (col1)  :  First colour
**    argument6 (col2)  :  Second colour
**
**  Usage: Draws a laser which can be blocked by obj.
*/
var dx,dy,xx,yy;
dx=lengthdir_x(argument3,argument2);
dy=lengthdir_y(argument3,argument2);
xx=argument0+dx;
yy=argument1+dy;
if (collision_line(argument0,argument1,xx,yy,argument4,true,true)!=noone) {
    while ((abs(dx)>=1) || (abs(dy)>=1)) {
        dx*=0.5;
        dy*=0.5;
        if (collision_line(argument0,argument1,xx,yy,argument4,true,true)!=noone) {
            xx-=dx;
            yy-=dy;
        }
        else {
            xx+=dx;
            yy+=dy;
        }
    }
}
draw_line_color(argument0,argument1,xx,yy,argument5,argument6);

An example of use would be...

if (keyboard_check(vk_space)) {
    draw_laser(x,y,direction,1000,objWall,c_red,c_orange);
}

Lite...

Spoiler

/*  draw_laser()
**  by MasterOfKings
**  based on range_finder()
**
**  General form: draw_laser(x,y,dir,range,obj,col)
**
**  Argument list..
**    argument0 (x)     :  Starting x coordinate
**    argument1 (y)     :  Starting y coordinate
**    argument2 (dir)   :  Direction of laser
**    argument3 (range) :  Maximum range of laser
**    argument4 (obj)   :  Object which blocks the laser
**    argument5 (col)   :  Colour
**
**  Usage: Draws a laser which can be blocked by obj.
**
**  Note: Can be used in Lite.
*/
var dx,dy,dc,xx,yy;
dx=lengthdir_x(argument3,argument2);
dy=lengthdir_y(argument3,argument2);
dc=draw_get_color();
xx=argument0+dx;
yy=argument1+dy;
if (collision_line(argument0,argument1,xx,yy,argument4,true,true)!=noone) {
    while ((abs(dx)>=1) || (abs(dy)>=1)) {
        dx*=0.5;
        dy*=0.5;
        if (collision_line(argument0,argument1,xx,yy,argument4,true,true)!=noone) {
            xx-=dx;
            yy-=dy;
        }
        else {
            xx+=dx;
            yy+=dy;
        }
    }
}
draw_set_color(argument5);
draw_line(argument0,argument1,xx,yy);
draw_set_color(dc);

An example of use would be...

if (keyboard_check(vk_space)) {
    draw_laser(x,y,direction,1000,objWall,c_red);
}

Edited by MasterOfKings, 24 February 2012 - 08:37 AM.

[Tobias(NL)]

Quite impressive! Works fine!

[treeco123]

It doesn't work in lite because of the draw_line_color, works fine with draw_line and draw_set_color though.

Edited by treeco123, 30 January 2012 - 08:31 PM.

[Helios Machina]

It doesn't work in lite because of the draw_line_color, works fine with draw_line and draw_set_color though.

Yeaaaah unfortunately most code like this doesn't work in lite, and they can be really hard to pull off without using the draw functions. Which reminds me that I gotta go upgrade sometime, pretty embarrassing that I haven't done that yet. Used 6.1 pro back in the day, but apparently that doesn't really count anymore, lol :c

[MasterOfKings]

EDIT: See top post for Lite version.

Edited by MasterOfKings, 24 February 2012 - 08:39 AM.

[Helios Machina]

Making it lite-friendly is easy, but you lose the possibility of a gradient. Simply...

Spoiler

/*  draw_laser()
**  by MasterOfKings
**  based on range_finder()
**
**  General form: draw_laser(x,y,dir,range,obj,col)
**
**  Argument list..
**    argument0 (x)     :  Starting x coordinate
**    argument1 (y)     :  Starting y coordinate
**    argument2 (dir)   :  Direction of laser
**    argument3 (range) :  Maximum range of laser
**    argument4 (obj)   :  Object which blocks the laser
**    argument5 (col)   :  Colour
**
**  Usage: Draws a laser which can be blocked by obj.
*/
var dx,dy,dc,xx,yy;
dx=lengthdir_x(argument3,argument2);
dy=lengthdir_y(argument3,argument2);
dc=draw_get_color();
xx=argument0+dx;
yy=argument1+dy;
if (collision_line(argument0,argument1,xx,yy,argument4,
true,true)!=noone) {
    while ((abs(dx)>=1) || (abs(dy)>=1)) {
        dx*=0.5;
        dy*=0.5;
        if (collision_line(argument0,argument1,xx,yy,argument4,
true,true)!=noone) {
            xx-=dx;
            yy-=dy;
        }
        else {
            xx+=dx;
            yy+=dy;
        }
    }
}
draw_set_color(argument5);
draw_line(argument0,argument1,xx,yy);
draw_set_color(dc);

Sweeeet, it just doesn't look as pretty now, lol. Oh well, it's still great for the functionality. Thanks for being smarter than me on the subject and actually helping <3