Duda sobre como programar el juego Timbiriche

[[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 .

[[Lepe]]

En lo que me toca, ya he dicho que uso un panel al que se le pueden poner las lineas independientes, y la parte lógica (la clase TCuadro) informa mediante un evento cuando se cierra un cuadro a la parte gráfica. En ese evento es cuando repinto el fondo de un color si está cerrado o no.

El dibujar una linea, se hace en la parte gráfica, al hacer clic cerca de los bordes , detecto qué borde es y directamente lo pinto, despues informo a TCuadro, y este propaga un mensaje por sus vecinos para ver si se deben cerrar o no. Básicamente es como una onda expansiva, en cuanto a eficiencia no es nada bueno, pero son las primeras pruebas que he realizado.

Mi Tcuadro queda así (aunque no descarto cambios):

Código Delphi [-]
type
  TCuadro = class;
  TNotifyText = procedure (Sender:Tcuadro; Cerrado:boolean) of object;
  TLineas = (lNorte, lSur,lEste, lOeste);
  SetOflineas = set of TLineas;

  TCuadro = Class(TObject)
  protected
    Semaforo:Boolean;
  public
    constructor Create();
  published
    property Oeste:Boolean read FOeste Write SetOeste default False;
    property Norte:Boolean read FNorte Write SetNorte default False;
    property Sur:Boolean read GetSur;
    property Este:Boolean read GetEste;

    property VecinoNorte :Tcuadro read VNorte Write SetVNorte;
    property VecinoSur   :Tcuadro read VSur Write SetVSur;
    property VecinoOeste :Tcuadro read VOeste Write SetVOeste;
    property VecinoEste  :TCuadro read VEste Write SetVEste;

    property Cerrado:Boolean read GetCerrado Write SetCerrado;
    property Lineas:SetOflineas read GetLineas;
    property NLineas :Integer read GetNLineas;
    property Contro:TComponent read Fcontrol Write Fcontrol;

    property OnCierre:TNotifyText read FOncierre Write FOnCierre;
    procedure CompruebaCierre;
  end;

Sur y Este, lo que hacen es ver si su vecino tiene el Oeste marcado, o si es el borde inferior/derecho del Timbiriche

Al inicio, VecinoXXXXX será nil, y al crear la cuadrícula es cuando se unen unos con otros.

Lineas y NLineas, son propiedades de ayuda, para ver qué lineas tiene pintada un cuadro determinado.

Contro es el control de la interfaz gráfica al que está asociado, Mi Panel. Una vez creado el Panel en tiempo de ejecución, y la clase, los asocio mediante esa propiedad, igual que se hace con un TAction.

Por último, tenemos el evento de cierre, que me indica el cuadro que se ha cerrado.