Effect scripts

//Laser Script by TemplarGFX
//This script is used to check for collisions over
//a distince in a direction in a single step.
//It returns either the distance travelled before
//hitting a blocking object, the id of the enemy we hit,
//or 0 if no collision occurs

//argument0 = direction to shoot
//argument1 = max distance to shoot
//argument2 = object you want to damage
//argument3 = blocking object
//argument4 = precision (1<->argument1)

//returns 0 : no collision
//returns -distance : distance to colliding point for blocking object (negative value)
//returns id : id of object to damage
var tempx,tempy;

for (i=argument4;i<=argument1;i+=argument4)
 {
 tempx = self.x + lengthdir_x(i,argument0);
 tempy = self.y + lengthdir_y(i,argument0);
 if (collision_line(self.x,self.y,tempx,tempy,argument2,1,1) > 0)
  {
  return collision_line(self.x,self.y,tempx,tempy,argument2,1,1);
  break;
  }
 if (collision_line(self.x,self.y,tempx,tempy,argument3,1,1) > 0)
  {
  return -i;
  break;
  }
 }
return 0

laser_length = 700;
laser_check = LaserScript(direction,laser_length,enemy_obj,wall_obj,10);
if (laser_check == 0)
 {
 draw_line(x,y,x+lengthdir_x(laser_length,direction),y+lengthdir_y(laser_length,direction));
 }
if (laser_check < 0)
 {
 draw_line(x,y,x+lengthdir_x(-laser_check,direction),y+lengthdir_y(-laser_check,direction));
 }
if (laser_check > 0)
 {
 draw_line(x,y,laser_check.x,laser_check.y);
 with (laser_check)
  {
  instance_destroy();
  }
 }

/*
  Draw Lightning Script
  Ben Grabau 2007
*/
var x1,x2,y1,y2,split_frq,dir,dir2,xx,yy,xfat,yfat;

// Self explanatory:
// Set the position for the to and from "zaps"
x1=argument0
y1=argument1
x2=argument2
y2=argument3

// between 3 & 10 works best (higher number = faster, less effect)
// this number is also the minimum draw distance
// please, no less than 1
split_frq=argument4

// DO NOT EDIT BELOW THIS LINE... OR ELSE! lol
while point_distance(x1,y1,x2,y2)>=split_frq {
dir = point_direction(x1,y1,x2,y2);
dir2 = dir - 45 + random(90)
xx=lengthdir_x(split_frq,dir2)
yy=lengthdir_y(split_frq,dir2)
xfat=lengthdir_x(split_frq+1,dir2)
yfat=lengthdir_y(split_frq+1,dir2)

    /*  LINE DRAWING  */
    draw_set_color($FF8000)
    draw_set_alpha(.4)
    draw_line_width(x1,y1,x1+xfat,y1+yfat,5)
    draw_line_width(x1,y1,x1+xfat,y1+yfat,10)
    draw_set_color(c_white)
    draw_set_alpha(.5)
    draw_line_width(x1,y1,x1+xx,y1+yy,3)
    draw_set_alpha(1)
    draw_line(x1,y1,x1+xx,y1+yy)
    /*  END LINE DRAWING */

x1=x1+xx
y1=y1+yy
}

/*
arg0=x1
arg1=y1
arg2=x2
arg3=y2
arg4=quality
arg5=primitive
arg6=electricity-color
arg7=glow-color
arg8=glow radius
arg9=shakivness
arg10=glow alpha
*/




electricity_draw(512,384,mouse_x,mouse_y,8,pr_linestrip,merge_color(c_blue,c_white,.2+random(.3)),c_blue,20,10,0.1)

Sname = part_system_create();
particle1 = part_type_create();
particle2 = part_type_create();

part_type_shape(particle1,pt_shape_flare)
part_type_size(particle1,0.20,0.30,0.50,0)
part_type_scale(particle1,0.10,0.20)
part_type_color3(particle1,33023,8454143,33023)
part_type_alpha3(particle1,0.30,0.50,0)
part_type_speed(particle1,0.40,1,0,0)
part_type_direction(particle1,0,359,0,20)
part_type_gravity(particle1,0.20,90)
part_type_orientation(particle1,90,90,0,0,1)
part_type_blend(particle1,1)
part_type_life(particle1,1,40)

part_type_shape(particle2,pt_shape_smoke)
part_type_size(particle2,1,1,0,0)
part_type_scale(particle2,0.50,0.50)
part_type_color1(particle2,12632256)
part_type_alpha3(particle2,0.10,0.40,0)
part_type_speed(particle2,0.50,0.50,0,0)
part_type_direction(particle2,0,359,0,0)
part_type_gravity(particle2,0.20,90)
part_type_orientation(particle2,0,359,0,1,1)
part_type_blend(particle2,0)
part_type_life(particle2,60,60)

part_type_death(particle1,1,particle2)

emitter1 = part_emitter_create(Sname);

part_emitter_region(Sname,emitter1,x-5,x+5,y-5,y+5,ps_shape_ellipse ,1);
part_emitter_stream(Sname,emitter1,particle1,1);

Sname = part_system_create();
particle1 = part_type_create();
particle2 = part_type_create();

part_type_shape(particle1,pt_shape_flare)
part_type_size(particle1,0.20,0.30,0.50,0)
part_type_scale(particle1,0.10,0.20)
part_type_color3(particle1,33023,8454143,33023)
part_type_alpha3(particle1,0.30,0.50,0)
part_type_speed(particle1,0.40,1,0,0)
part_type_direction(particle1,0,359,0,20)
part_type_gravity(particle1,0.20,90)
part_type_orientation(particle1,90,90,0,0,1)
part_type_blend(particle1,1)
part_type_life(particle1,1,40)

part_type_shape(particle2,pt_shape_smoke)
part_type_size(particle2,1,1,0,0)
part_type_scale(particle2,0.50,0.50)
part_type_color1(particle2,12632256)
part_type_alpha3(particle2,0.10,0.40,0)
part_type_speed(particle2,0.50,0.50,0,0)
part_type_direction(particle2,0,359,0,0)
part_type_gravity(particle2,0.20,90)
part_type_orientation(particle2,0,359,0,1,1)
part_type_blend(particle2,0)
part_type_life(particle2,60,60)

part_type_death(particle1,1,particle2)

emitter1 = part_emitter_create(Sname);

part_emitter_region(Sname,emitter1,x-5,x+5,y-5,y+5,ps_shape_ellipse ,1);
part_emitter_stream(Sname,emitter1,particle1,1);