PacMan

//déclaration des variables servant à faire bloquer PacMan contre les mur

//Si pacman de déplace vers la droite

if argument0==1
{
    if (place_free(x+32,y) && place_snapped(32,32))           
        {             
            direction = 0;
            speed = 2;
            sprite_index = PacMan_R_spr;
            image_speed = 1/4;
        }
}   

//Si pacman de déplace vers la gauche
if argument1==1
{
    if (place_free(x-32,y) && place_snapped(32,32))           
        {             
            direction = 180;
            speed = 2;
            sprite_index = PacMan_L_spr;
            image_speed = 1/4;
        }
}

//Si pacman de déplace vers le haut
if argument2==1
{
    if (place_free(x,y-32) && place_snapped(32,32))           
        {             
            direction = 90;
            speed = 2;
            sprite_index = PacMan_H_spr;
            image_speed = 1/4;
        }
}

//Si pacman de déplace vers le bas
if argument3==1
{
    if (place_free(x,y+32) && place_snapped(32,32))           
        {             
            direction = 270;
            speed = 2;
            sprite_index = PacMan_B_spr;
            image_speed = 1/4;
        }
}

if (place_free(x+32,y)

for({var i; i=0}; if( place_free(x+1,y) and i<32); i+=1){
    // ton code ici
}

//déclaration des variables servant à faire bloquer PacMan contre les mur
var i
//Si pacman de déplace vers la droite


if argument0==1
{           
    for({var i; i=0}; (place_free(x+1,y) and i<32); i+=1)
        {
            if place_snapped(32,32)
                {
                    direction = 0;
                    speed = 2;
                    sprite_index = PacMan_R_spr;
                    image_speed = 1/4;
                }
        }
}   

//Si pacman de déplace vers la gauche
if argument1==1
{
    for({var i; i=0}; (place_free(x-1,y) and i<32); i+=1)           
        { 
            if place_snapped(32,32)
                {         
                    direction = 180;
                    speed = 2;
                    sprite_index = PacMan_L_spr;
                    image_speed = 1/4;
                }
        }
}

//Si pacman de déplace vers le haut
if argument2==1
{
    for({var i; i=0}; (place_free(x,y-1) and i<32); i+=1)           
        { 
            if place_snapped(32,32)
                {           
                    direction = 90;
                    speed = 2;
                    sprite_index = PacMan_H_spr;
                    image_speed = 1/4;
                }
        }
}

//Si pacman de déplace vers le bas
if argument3==1
{
    for({var i; i=0}; (place_free(x,y+1) and i<32); i+=1)           
        {   
            if place_snapped(32,32)
                {       
                    direction = 270;
                    speed = 2;
                    sprite_index = PacMan_B_spr;
                    image_speed = 1/4;
                }
        }
}

//Si pacman de déplace vers la droite

if argument0==1
{           
    if (place_free(x+1,y) && place_snapped(32,32))
        {     
            direction = 0;
            speed = 2;
            sprite_index = PacMan_R_spr;
            image_speed = 1/4;
        }
    else
        {
            direction = 0;
            speed = 0;
            sprite_index = PacMan_R_spr;
            image_speed = 1/4; 
        }
}   

//Si pacman de déplace vers la gauche
if argument1==1
{
    if (place_free(x-1,y) && place_snapped(32,32))           
        { 
            direction = 180;
            speed = 2;
            sprite_index = PacMan_L_spr;
            image_speed = 1/4;
        }
    else
        {
            direction = 180;
            speed = 0;
            sprite_index = PacMan_R_spr;
            image_speed = 1/4; 
        }
}

//Si pacman de déplace vers le haut
if argument2==1
{
    if (place_free(x,y+1) && place_snapped(32,32))           
        {           
            direction = 90;
            speed = 2;
            sprite_index = PacMan_H_spr;
            image_speed = 1/4;
        }
    else
        {
            direction = 90;
            speed = 0;
            sprite_index = PacMan_R_spr;
            image_speed = 1/4; 
        }
}

//Si pacman de déplace vers le bas
if argument3==1
{
    if (place_free(x,y-1) && place_snapped(32,32))           
        {             
            direction = 270;
            speed = 2;
            sprite_index = PacMan_B_spr;
            image_speed = 1/4;
        }
    else
        {
            direction = 270;
            speed = 0;
            sprite_index = PacMan_B_spr;
            image_speed = 1/4;
        }
}

en_collision = 0;

PacMan_B_obj.pac_direction=argument0;

//Si pacman se déplace vers la droite
if PacMan_B_obj.pac_direction==1 && place_snapped(32,32)
{           
            if (!place_free(x+32,y))
            {
                    PacMan_B_obj.pac_direction = PacMan_B_obj.old_direction;
                    speed = 0;
                    move_snap(32,32);
                    en_collision = 1;
            }
            else
            {
                direction = 0;
                sprite_index = PacMan_R_spr;
                image_speed = 1/4;
                speed = 2;
                en_collision = 0; 
            } 
}   

//Si pacman de déplace vers la gauche
if PacMan_B_obj.pac_direction==2 && place_snapped(32,32)
{

            if (!place_free(x-32,y))           
            {
                PacMan_B_obj.pac_direction = PacMan_B_obj.old_direction;
                speed = 0;
                move_snap(32,32);
                en_collision = 1;

            }
            else
            {
                direction = 180;
                sprite_index = PacMan_L_spr;
                image_speed = 1/4;
                speed = 2;
                en_collision = 0; 
            }
}

//Si pacman de déplace vers le haut
if PacMan_B_obj.pac_direction==3 && place_snapped(32,32) 
{
           
            if (!place_free(x,y-32))                 
            {
                PacMan_B_obj.pac_direction = PacMan_B_obj.old_direction;
                speed = 0;
                move_snap(32,32);
                en_collision = 1;
            }
            else
            {
                direction = 90;
                sprite_index = PacMan_H_spr;
                image_speed = 1/4;
                speed = 2;
                en_collision = 0; 
            }
}

//Si pacman de déplace vers le bas
if PacMan_B_obj.pac_direction==4 && place_snapped(32,32)
{
           
            if (!place_free(x,y+32))           
            {
                PacMan_B_obj.pac_direction = PacMan_B_obj.old_direction;
                speed = 0;
                move_snap(32,32);
                en_collision = 1;
            }
            else
            {
                speed = 2;
                en_collision = 0;
                direction = 270;
                sprite_index = PacMan_B_spr;
                image_speed = 1/4;               
            }
}

if(keyboard_check(vk_left) && place_snapped(16, 16)) {
    if(place_free(x-1, y)) {
        direction = 180
        speed = 2
    }
}
else
if(keyboard_check(vk_right) && place_snapped(16, 16)) {
    if(place_free(x+1, y)) {
        direction = 0
        speed = 2
    }
}
if(keyboard_check(vk_up) && place_snapped(16, 16)) {
    if(place_free(x, y-1)) {
        direction = 90
        speed = 2
    }
}
if(keyboard_check(vk_down) && place_snapped(16, 16)) {
    if(place_free(x, y+1)) {
        direction = 270
        speed = 2
    }
}

if(place_snapped(16, 16)
  && !place_free(x + lengthdir_x(1, direction), y + lengthdir_y(1, direction)))
{
    speed = 0
}

key[0]=vk_right  key[1]=vk_up
key[2]=vk_left  key[3]=vk_down

for(i=0; i<4; i+=1) {
  if(keyboard_check(key[i]) && place_snapped(16, 16)) {
    lx = lengthdir_x(1, i*90)
    ly = lengthdir_y(1, i*90)
    if(place_free(x+lx, y+ly)) {
        direction = i*90
        speed = 2
        break
    }
  }
}

if(place_snapped(16, 16) && !place_free(x + lengthdir_x(1, direction), y + lengthdir_y(1, direction)))
    speed = 0

key[0]=vk_right  key[1]=vk_up
key[2]=vk_left  key[3]=vk_down
for(i=0; i<4; i+=1) {
    lx[i]=lengthdir_x(1, i*90)
    ly[i]=lengthdir_y(1, i*90)
}

for(i=0; i<4; i+=1) {
  if(keyboard_check(key[i]) && place_snapped(16, 16)) {
    if(place_free(x+lx[i], y+ly[i])) {
        direction = i*90
        speed = 2
        break
    }
  }
}

if(place_snapped(16, 16) && !place_free(x+lx[direction div 90], y + ly[direction div 90]))
    speed = 0

Coll = 0; //On initialise la variable de collision a 0

// Ce script gère le déplacement de PacMan ainsi que les collision avec les murs
// Paramètre en entrée :
//      argument0 = PacMan_B_obj.PacMan_dir = 1; // On indique que pacman doit se déplacer ( 1=Oui, 0 = Non)
//      argument1 = PacMan_B_obj.PacMan_dir_y = 0; //On indique le nombre de pixel de déplacement Y
//      argument2 = PacMan_B_obj.PacMan_dir_x = 32; //On indique le nombre de pixel de déplacement X
//      argument3 = PacMan_B_obj.PacMan_dir_direction = 0; //On indique la direction a prendre par PacMan ( 0= droite, 180= Gauche, 90= Haut, 270= Bas)
//      argument4 = PacMan_B_obj.PacMan_dir_sprite_index = 1; //On indique le numéro du sprite a prendre ( voir script mv_pacman_scr ).
//      argument5 = Taille de la case de déplacement dans la room

if argument0==1 && place_snapped(argument5,argument5) //Si on demande à PacMan de se déplacer et qu'il est dans une grille de 32*32 alors
{           
    if (!place_free(x+argument2,y+argument1)) // Si il y a collision a la position x+ PacMan_B_obj.PacMan_dir_x et y+ PacMan_B_obj.PacMan_dir_y alors
    {
        speed = 0; //On dit a PacMan de se stopper
        move_snap(argument5,argument5); //On le replace dans une grille de 32*32
        Coll = 1; //On fait en sorte que la valeur de debug des collsion prenne la valeur 1
    }
    else // Sinon il n'y as pas de collision
    {
        direction = argument3; //Sinon on dit a PacMan d'aller dans le direction de PacMan_B_obj.PacMan_dir_direction
            switch(argument4) // En fonction de la valeur de PacMan_B_obj.PacMan_dir_sprite_index, on choisit le sprite
                {
                    case 1: //Mouvement vers la droite
                      sprite_index = PacMan_R_spr;
                      break; // On force la sortie de la boucle, pour qu'il change bien a chaque step
                    case 2: //Mouvement vers la droite
                      sprite_index = PacMan_L_spr;
                      break;
                    case 3: //Mouvement vers la droite
                        sprite_index = PacMan_H_spr;
                        break;
                    case 4: //Mouvement vers la droite
                        sprite_index = PacMan_B_spr;
                        break;
                }
        speed = 2; //On fixe la vite de déplacement de PacMan.
        Coll = 0; //On fait en sorte que la valeur de debug des collsion prenne la valeur 0 
    } 
}

// #############################################
// #### Script de déplacement de Namcap V 1 ####
// ####      Made By Shrom & Doyou        ####
// ####    Special thanks to : onilink_    ####
// #############################################

// Déplacement si il n'y a pas de collision
for(i=0; i<4; i+=1) // Pour i allant de 1 à 4 en fonction de la direction choisit
{
  if(keyboard_check(key[i]) && place_snapped(32, 32)) // Si l'on a appuyé sur une touche et que Namcap est placé dans une grille de 32*32
  {
    if(place_free(x+lx[i], y+ly[i])) // Si il y a de la place entre Namcap et un objet de type "solid" en position X et Y calculé dans l'evénement "Create"
        {
            switch(i) // On fonction de la direction, on choisit le sprite à afficher.
            {
                case 0:
                    sprite_index = Namcap_R_spr // Sprite Droite
                    break
                case 2:
                    sprite_index = Namcap_L_spr // Sprite Gauche
                    break
                case 1:
                    sprite_index = Namcap_H_spr // Sprite Haut
                    break
                case 3:
                    sprite_index = Namcap_B_spr // Sprite Bas
                    break
            }                                       
        direction = i*90 // on va dans la direction choisit en fonction de la touche préssée.
        speed = 2 // On fixe la vitesse
        break // on sort du "If", car il n'y a pas de collision, donc on est sur qu'il ne fasse pas le "IF" suivant
    }
  }
}
//Si il y a une collision, donc si il n'y as pas de place, on arrete Namcap
if(place_snapped(32, 32) && !place_free(x+lx[direction div 90], y + ly[direction div 90]))
    {
        speed = 0
    }