[GAME] WORMED!

[shao]

Bueno, voy a ver como lo consigo hacer lo que busco, ¡gracias por la info!.

[AmakaSt]

Bueno, voy a ver como lo consigo hacer lo que busco, ¡gracias por la info!.

Hola Shao,

Aquí te dejo el código de una función constraint adaptada a Div:

Code: Select all

function constraint(id1, fijaID1, id2, fijaID2, distancia);
private
    xdist; 
    ydist; 
    dist; 
    diff; 
    angulo; 
    correccion;

begin    
	if (fijaID1 and fijaID2) return; end

	xdist 	= id1.x - id2.x;
    ydist 	= id1.y - id2.y;
    dist 	= sqrt(xdist * xdist + ydist * ydist);
    diff 	= dist - distancia;
    
    if (abs(diff) < 1) return; end
    
    angulo	= -atan2(xdist, ydist);
    
    if (fijaID1 or fijaID2)
    	correccion = diff;
    else
    	correccion = diff / 2;
    end
    
	if (!fijaID1)
        id1.x += correccion * (sin(angulo) / 1000);
        id1.y -= correccion * (cos(angulo) / 1000);
		
        id1.angle = atan2(id2.y-id1.y, id2.x-id1.x);
    end

    if (!fijaID2)
        id2.x -= correccion * (sin(angulo) / 1000);
        id2.y += correccion * (cos(angulo) / 1000);

        id2.angle = atan2(id1.y-id2.y, id1.x-id2.x);
	end
end

Con eso ya es solo llamar a la función con las ids de los procesos implicados:

Code: Select all

constraint(_id[0], true, _id[1], false, 40); //_id[0] la cabeza del gusano
constraint(_id[2], true, _id[3], false, 40);

Un saludo.

[shao]

Gracias Amaka, la probaré mas tarde.

¿No estaría mejor en recursos esto?.