Duda sobre como programar el juego Timbiriche

[[Lepe]]

Pues yo abogo porque un cuadrado esté formado por 2 lineas nada más .

La idea es que esas líneas son las que estarían al Norte y al Oeste del centro del cuadrado, y dos Vecinos, VecinoSur, VecinoEste.

Supongo que no se entiende, aqui va pintado un Timbiriche de 4 casillas Cada color representa un solo cuadrado.

 -  -
|1 |2
 -  -
|3 |4

Ya sé que queda Abierto por la derecha y por abajo, veamos la declaración en delphi:

Código Delphi [-]
type
Tcuadrado = class;

Tcuadrado = Class(Tobject)
public
   Norte: Boolean;
   Oeste:Boolean;
   VecinoSur:Tcuadrado;
   VecinoEste:Tcuadrado;
end;

Si VecinoSur es nil significa que ese lado corresponde con el borde inferior del Timbiriche.

Si VecinoEste es nil significa que ese lado corresponde con el borde Derecho del Timbiriche.

Para pintar el borde izquierdo del timbiriche, pondríamos a true el Oeste de ese cuadro.
Para pintar el borde superior del timbiriche, pondríamos a true el Norte de ese cuadro.

Para que se cierre un cuadrado comprobamos los siguientes elementos:
- Norte = True
- Oeste = True
- VecinoSur = nil ó bien que VecinoSur.Norte = True
- VecinoEste =nil ó bien que VecinoEste.Oeste = True

Personalmente lo veo conceptualmente más claro[...] una vez que se ha entendido el concepto

Quizás declararlo como TObject sea demasiado, quizás con punteros sería más eficiente, por claridad, lo pongo así.

PD: Desarrollar esta idea surge de las aportaciones de roman y Delphius, ya que tener claro qué cuadrado se va a pintar, y acceder a sus vecinos es bastante engorroso, quizás este híbrido pueda servir de ayuda.

saludos

[[Lepe]]

Bien pensado, hace falta:

Código Delphi [-]
type
Tcuadrado = class;

Tcuadrado = Class(Tobject)
public
   Norte: Boolean;
   Oeste:Boolean;

   VecinoSur:Tcuadrado;
   VecinoEste:Tcuadrado;
   VecinoNorte:Tcuadrado;
   VecinoOeste:Tcuadrado;
end;

Para poder navegar y propagar los cuadrados cerrados. Me refiero a cuando se cierra un cuadrado y se puede seguir cerrando otros cuadros más. Aquí se necesita tener las direcciones de los demás cuadrados y comprobar hacia donde se puede propagar el cierre de cuadros.

saludos

[[Héctor Randolph]]

Con respecto a la inteligencia artificial del juego de timbiriche, leí algunos artículos y en realidad no es nada sencillo programarlo; hay que meterse con árboles de búsqueda, heurísticas y lo propio de la inteligencia artificial, sin embargo encontré esta sencilla propuesta:

The computer player is to follow a very simple AI algorithm to determine which side should be selected.

1. If the fourth side of a box can be selected, select such a side. If multiple fourth sides exist, randomly select one of them.
2. If no fourth side exists and a first or second side of a box can be selected, select such a side. If multiple first or second sides exist, randomly select one of them.
3. If only the only choice is selecting the third side of a box, select such a side. If multiple third sides exist, randomly select one of them.

Por lo pronto les dejo un enlace bastante entretenido

Dot & Boxes

[mifiar]

Hola, gracias por sus respuestas, he estado revisando con detenimiento cada una de las ideas expuestas, pero no alcanzo a comprenderlas del todo ya que soy relativamente nuevo en esto, además de que se me dificulta algo , pero la lucha le hago , si pudieran explicarme las ideas aún mas detalladas se los agradecería . En lo que respecta a las ideas que tenía para realizar este programa se me atraviesa un inconveniente; les expongo la idea:

 pv:=0;
  ph:=0;
  
  
  	for a := 0 to 5 do
  	begin
  	  for b := 0 to 4 do
  	  begin
  		Imagenes[a,b]:=TShape.Create(Self);
  		Imagenes[a,b].Parent := Form1;
  		Imagenes[a,b].Left := ph+10;
  		Imagenes[a,b].Top := pv+10;
  		Imagenes[a,b].height := 7;
  		Imagenes[a,b].width := 7;
  		Imagenes[a,b].Shape := stCircle;
  		Imagenes[a,b].OnMouseDown:= CirclesMouseDown;
  		Imagenes[a,b].OnMouseMove:= CirclesMouseMove;
  		pv:=pv+50;
  		  if b=4 then
  		  begin
  		  pv:=0;
  		  end;
  	  end;
  	  ph:=ph+50;
  	end;

Es para crear la cuadrícula; lo que sucede es que no se como hacer referencia a un elemento en particular, dado que son creados en tiempo de ejecución. Tambien realicé un evento OnMouseDown y se lo asigné a cada uno de los puntos (o pequeños circulos) de la cuadrícula, con el objetivo de obtener la posicion que ocupan dentro de la forma, pero esa posicion la toma con relacion al objeto creado y no a la forma; conocen alguna manera de hacer que tome la posicion con respecto a la forma ? Se siguen aceptando sugerencias , gracias.

[[Lepe]]

En qué tienes dudas, y cual de las alternativas te gusta más, porque hay distintas formas de hacerlo en este mismo hilo.

Por cierto, siempre puedes hacer referencia a través de Imagenes[fila, columna].

Veo que estas intentando hacer el cuadriculado mediante TShapes, te aconsejo que busques algún componente ya hecho. En mi caso he usado el TLMDSimplePanel de las libreria LMDTOOLS (direccion en google), son gratis, y permite dibujar un panel, poniendo las lineas por separado, es decir, pinto los bordes de blanco, y cuando se hace clic en un lateral, pinto ese lado nada más de color negro. Pintar es simplemente decirle al panel BorderSides := BorderSides + bsLeft para añadir el borde izquierdo.

Si tienes que implementarlo todo a mano.... mi más sincero pésame

saludos

[roman]

Empezado por Lepe

Si tienes que implementarlo todo a mano.... mi más sincero pésame

No tanto. Yo lo haría dibujando directamente en un PaintBox. No es tan complicado ya que sólo son segmentos horizontales y verticales y si acaso, rellenar los cuadros ya cerrados del color de cada jugador. Al final de cuentas resulta más fácil que andar colocando shapes aquí y allá, además de que sería más lento.

Yo también preguntaría cuáles son las dudas específicas y de qué opción le interesa. Creo que nosostros ya hicimos nuestro esfuerzo. Ahora le toca a él.

// Saludos

[mifiar]

Hola, si me pudieran explicar Lepe y Roman sus metodos un poco mas a fondo ademas de como asociar la parte gráfica con el codigo que me proponen si no es mucha molestia.

En lo de hacer referencia a los objetos lo que pasa que al momento de seleccionarlo, ya en tiempo de ejecución, no encuentro la manera de saber cual de los componentes creados, los circulos en este caso, estoy seleccionando. Si me pudieran explicar tambien lo como hacer que las coordenadas de los pixeles me las de de acuerdo a la posicion que estan en la forma y no con respecto al objeto creado . Gracias .