Buenas noches comunidad, me encuentro creando un juego pero me encuentro en este problema... tengo 2 componentes Timage que son
imgchar1.picture (de 50x50)
imgchar2.picture (de 50x50)
imgchar1 lo controla el usuario
imgchar2 lo controla el ordenador con un componente TTIMER siguiendo a imgchar1
Lo que quiero hacer es que cuando char2 alcance a char1 termine el juego
este es el codigo que emple teniendo en cuenta que cada personaje mide 50x50... la idea de mi algoritmo es que cuando char2 este en el rango XY de char1, por "logica" estaria en sus escalas XY y el juego tendria que terminar pero n me queda
Delphi no me da error ni nada pero el algoritmo no funciona
aqui el codigo:
Código:
//Codigo dentro de un componente Timer a un intervalo de 1//
Var
c1X, c1Xn, c1Y, c2Y, c1Yn, c2Yn, c2X, c2Xn : integer;
begin
c1X := imgchar1.Left;
c1Xn := c1X + 50;
c1Y := imgchar1.Top;
c1Yn := imgchar1.Top + 50;
c2X := imgchar2.Left;
c2Xn := c2X + 50;
c2Y := imgchar2.Top;
c2Yn := imgchar2.Top + 50;
if (c2X in [c1X..c1Xn]) and (c2Y in[c1Y..c1Yn]) then
begin
showmessage('Dentro del rango');
end;
Las variables estan constituidas de la siguiente manera:
c1X = 'c1' de char1 / 'X' de coordenadas X
c1Xn = 'c1' de char1 / 'X' de coordenadas X / 'n' de numero elevado a la n potencia (incognita)
(Los mismo se aplica para c1Y - tanto para char1 como para char2)
Si alguien da con el error de este algoritmo porfavor hechenme la mano
Gracias por su tiempo