point_direction(x,y,xprevious,yprevious)

show_message("X = "+string(x)+" Y = "+string(y)+" Xprevious = "+string(xprevious)+" Yprevious = "+string(yprevious))

/*          0        1        2          3      4      5          6            7                8          9        10      11
 *ARM_arme( arme , munition , cadence , vitesse , nbr , precision , viser , longueur_canon , longueur_feu , frottement , mode , nbr_rafale )
 *
 *
 *0  arme            = objet de l'arme
 *1  munition        = objet de la munition
 *2  cadence          = nombre de step entre 2 tir
 *3  vitesse          = la vitesse
 *4  nbr              = le nombre de balles par tir
 *5  precision        = la precision des balles tirer
 *6  viser            = deviation des balles pendant long tir
 *7  longueur_canon  = longueur du canon (en pxl de la ou le feu demarrera)
 *8  longueur_feu    = longueur de la flamme (en pxl de la longueur de la flamme)
 *9  frottement      = ralitissement de la vitesse de la balle par step
 *10 mode            =  0 : coup par coup
 *                        1 : raffale
 *                        2 : auto
 *11 nbr_rafale      = nombre de balles de la rafale
 *
 *
 *
 *
 *
 */

with argument0 //avec l'arme
begin

if !variable_local_exists("cadence")
    {
    cadence=0
    }
if !variable_local_exists("viser")
    {
    viser=0
    }
   
part_type_direction(tir,angle-(30/2),angle+(30/2),0,0)

if mouse_check_button_pressed(mb_left) && cadence<=0 //si clic souri gauche
    {
    cadence=argument2 // cadence de tir de l'arme
    pe_tir=part_emitter_create(ps_tir)
    part_emitter_region(ps_tir,pe_tir,x+(lengthdir_x(argument7,angle)),x+(lengthdir_x(argument7+argument8,angle)),y+(lengthdir_y(argument7,angle)),y+(lengthdir_y(argument7+argument8,angle)),ps_shape_line,ps_distr_linear)
    part_emitter_burst(ps_tir,pe_tir,tir,10)
    repeat(argument4) //nombre de balle tirer
        {
        with instance_create(argument0.x+(lengthdir_x(argument7,angle)),argument0.y+(lengthdir_y(argument7,angle)),argument1)//avec la ou les balle(s)
            {
            pe_trainer=part_emitter_create(argument0.ps_trainer)
            direction=(argument0.angle-(argument5/2)-(argument0.viser/2))+random(argument5+argument0.viser) //precision de tir
            speed=argument3 //vitesse de tir de la balle
            }
        }
    }
   
with argument1 //avec la ou les balle(s)
    {
    if speed>argument3/3
        {
        speed-=argument9  //frottement
        }
    if speed<argument3/2
        {
        gravity=0.35  //gravite
        }
    angle=point_direction(x,y,xprevious,yprevious)
    show_message(string(point_direction(x,y,xprevious,yprevious)))
    part_type_orientation(argument0.trainer,point_direction(x,y,xprevious,yprevious),point_direction(x,y,xprevious,yprevious),0,0,1)
    part_emitter_region(argument0.ps_trainer,pe_trainer,x-5,x+5,y-5,y+5,ps_shape_rectangle,ps_distr_gaussian) //region de l'emetteur
    part_emitter_stream(argument0.ps_trainer,pe_trainer,argument0.trainer,1) //activiter de l'emetteur
    if collision_line(x,y,xprevious,yprevious,solid,0,1) || hors_view(argument1,0) //si collision, ou sorti de view
        {
        part_emitter_destroy(argument0.ps_trainer,pe_trainer) //detruire l'emetteur
        instance_destroy() //détruire l'instance
        }
    }
if cadence>0
    {
    cadence-=1
    }

end

part_type_orientation(argument0.trainer,point_direction(x,y,xprevious,yprevious),point_direction(x,y,xprevious,yprevious),0,0,1)