Can anyone provide a laser beam particle effect example, like a function which takes start and destination inputs and generates a laser beam from start to destination coordinates?

They are good examples but I need one done only with SED script editor and maybe a pcx file. I need an example causing a line from a corner of the screen to the middle.

You're not asking for a sample but for a completed piece of work. Go through the tutorials and try if for yourself. If you get into any difficulties don't hesitate to ask for advice here. But please don't ask other people to do the work for you.

And please DO NOT CROSSPOST.

http://www.opserver.de/ubb7/ubbthreads.php?ubb=showflat&Number=413369#Post413369

Ok I have managed to make this code which seems to do what I need:

ENTITY* gun1;
ENTITY* gun2;

function p_alphafade(PARTICLE *p)
{
p.alpha -= p.skill_a*time_step;
if (p.alpha <= 0) p.lifespan = 0;
}

function p_trace(PARTICLE *p)
{
set(p, BRIGHT|TRANSLUCENT|BEAM);
p.size = 1;
p.skill_a = 20; // fade factor
p.event = p_alphafade;
p.red =255;
p.blue=20;
p.green=128;
}

action tracer_right()
{
VECTOR last_pos;
while(1){
vec_set(last_pos,my.x);
my.z +=1.5;
my.y +=2;
if (my.y>1){break;}
effect(p_trace,1,my.x,vec_sub(last_pos,my.x));
wait(1);
}
}

action tracer_left()
{
VECTOR last_pos;
while(1){
vec_set(last_pos,my.x);
my.z +=1.5;
my.y -=2;
if (my.y<-1){break;}
effect(p_trace,1,my.x,vec_sub(last_pos,my.x));
wait(1);
}
}

function main()
{
vec_set(sky_color,vector(0,0,0));
level_load(NULL);
video_window(NULL,NULL,0,"Laser demo");
vec_set(camera.x,vector(-250,0,50));
vec_set(camera.pan,vector(0,-15,0));
while (1){
if (mouse_left == 1){
gun1=ent_create(NULL,vector(-100,-170,-80),tracer_right);
gun2=ent_create(NULL,vector(-100,170,-80),tracer_left);
}
//if(proc_status(tracer_right) == 0){ent_remove(gun1);}
//if(proc_status(tracer_left) == 0){ent_remove(gun2);}
wait(1);
}
}

However the entities need to be destroyed otherwise after a couple of fires they will cause an error. I tried using the commented lines in the main function but they causes errors.

Excellent work. And you did it all by yourself. :-)

Thanks

However the entities need to be destroyed otherwise after a couple of fires they will cause an error. I tried using the commented lines in the main function but they causes errors.

What error do these entities cause?

Everytime I press the mouse button a new entity is created. After several clicks it gave me an error:

Not enough entities reserved(1000)

So I think that I must kill the entities created with each mouse click when the particle effect has finished.

I have solved it by using this in the fire loop:

if(proc_status(tracer_right) < 5){gun1=ent_create(NULL,vector(-100,-170,-80),tracer_right);}
if(proc_status(tracer_left) < 5){gun2=ent_create(NULL,vector(-100,170,-80),tracer_left);}

This way it is not causing the error so often(only rarely). But do I still need to kill the entities created or particle entities die by themselves?

I added these lines instead of the commented ones but do not seem to make much difference:

if(proc_status(tracer_right) == 0){ptr_remove(gun1);}
if(proc_status(tracer_left) == 0){ptr_remove(gun2);}