{
gravity=place_free(x,y+1)*0.5
if vspeed>10 vspeed=10
if not place_free(x+hspeed,y) hspeed=0
if point_distance(perso.x,perso.y,x,y)>=70 && point_distance(perso.x,perso.y,x,y)<=200
{if perso.x<x {if not collision_line(perso.x,perso.y,x,y,bloc,true,false)hspeed=-4 else hspeed=4}
if perso.x>x {if not collision_line(perso.x,perso.y,x,y,bloc,true,false)hspeed=4 else hspeed=-4}
if not place_free(x+hspeed,y) hspeed=0
if collision_line(perso.x,perso.y,x,y,bloc,true,false) && not place_free(x,y+1) vspeed=-12}
if point_distance(perso.x,perso.y,x,y)>=200 {if perso.x<x hspeed=-4 else hspeed=4 if perso.y<self.y-50 && not place_free(x,y+1) vspeed=-12}
}

{

if sprite_index=monky_stance image_speed=1/6
if sprite_index=monky_walk && image_speed<1/3 image_speed+=1/30
if place_free(x,y+1) sprite_index=monky_jump
if not place_free(x,y+1) && sprite_index=monky_jump sprite_index=monky_stance
if hspeed!=0 && sprite_index=monky_stance sprite_index=monky_walk
if hspeed=0 && sprite_index=monky_walk sprite_index=monky_stance
if hspeed<0 image_xscale=1
if hspeed>0 image_xscale=-1

gravity=place_free(x,y+1)*0.5
if vspeed>10 vspeed=10
if instance_number(perso)=0 {hspeed=0 exit}

if point_distance(0,y,0,perso.y)<=50 && point_distance(x,0,perso.x,0)<=50 && point_distance(x,0,perso.x,0)>=20
{if collision_line(x,y,perso.x,perso.y,bloc,true,false)&& not place_free(x,y+1)&& hspeed=0 vspeed=-12
if perso.x<x hspeed=-4 if perso.x>x hspeed=4}

if point_distance(0,y,0,perso.y)>50 && perso.y<y && point_distance(x,0,perso.x,0)<=300
{if not collision_line(x,y,x,y-100,bloc,true,false){if not place_free(x,y+1) vspeed=-12 if hspeed=0{if perso.x<x hspeed=-4 if perso.x>x hspeed=4}}
if collision_line(x,y,x,y-100,bloc,true,false){if hspeed=0{if perso.x<x hspeed=4 if perso.x>x hspeed=-4} if not place_free(x+hspeed,y) if not place_free(x,y+1)vspeed=-12}}

if point_distance(0,y,0,perso.y)>50 && perso.y>y
{if hspeed=0 {if perso.x<x hspeed=-4 if perso.x>x hspeed=4}
if not place_free(x+hspeed,y) && place_free(x+hspeed,y-100) && not place_free(x,y+1) vspeed=12
if not place_free(x+hspeed,y) && not place_free(x+hspeed,y-100) hspeed-=hspeed*2}

if point_distance(x,0,perso.x,0)>=300 && point_distance(0,y,0,perso.y)>=200 hspeed=0

{if not place_free(x+hspeed,y){yup=1 repeat(5){if place_free(x+hspeed,y-yup) {y-=yup} else yup+=1} if not place_free(x+hspeed,y-yup) hspeed=0 yup=0}}
}

http://zone-freegames.forumactif.com/vos-projets-f39/pacwars-la-guere-des-pacs-t6184.htm