Moteur de gravité

fric = volume * pression;
v = ( ( j * vitesse ) / fric ) + ( global.vent_vit * cos( global.vent_dir ) );
if i > 0
{
g = ( ( i * poid ) / fric ) + ( global.vent_vit * sin( global.vent_dir ) );
}
if i < 0
{
g = ( ( i * ( 6 - poid ) ) / fric ) + ( global.vent_vit * sin( global.vent_dir ) );
}
//gravité
if place_free( x + sign(v), y + sign(g) ) and g ! = 0 and v ! = 0
{
i += gravite;
saut = false;
r = abs(g) / abs(v);
for (s=0; s<abs(g); s+=1)
{
for (t=0 + (abs(g) / r ); t < abs(v); t += 1 )
{
if place_free(x + t * sign(v), y + s * sign(g) ) and ! place_free(x + t * sign(v) + sign(v), y + s * sign(g) + sign(g) )
{
x += t;
y += s;
break;
break;
}
}
}
}
if place_free(x,y+sign(g)) and g!=0 and v=0
{
i+=gravite;
saut=false;
for (s=0;s<abs(g); s+=1)
{
if place_free(x,y+s*sign(g)) and !place_free(x,y+s*sign(g)+sign(g))
{
y+=s;
break;
}
}
}
if place_free(x+sign(v),y) and g=0 and v!=0
{
for (t=0;t<abs(v); t+=1)
{
if place_free(x+t*sign(v),y) and !place_free(x+t*sign(v)+sign(v),y)
{
x+=t;
break;
}
}
}
if (place_free(x,y+g))
{y+=g;}
else
{i=0;
saut=true;
saut2=true;}
if (place_free(x+v,y))
{x+=v;}
else
{j=0;}