Posicionamiento de barcos en batalla naval

[Chompiras]

Empezado por marcoszorrilla

Según el caso que expones yo terminaría el trabajo con el StringGrid y luego iniciaría otro con un DrawGrid, si acaso este segundo no lo llevas a buen término tendrás por lo menos el otro.

Si la verdad que tenes razon en lo que decis. El que mucho abarca poco aprieta.
Gracias de nuevo

[[Héctor Randolph]]

Cuando ya tengas resuelto el problema de posicionar los barcos a través de una matriz, tal vez quieras aventurarte a crear la interfaz gráfica; pero, como dice Marcos, primero resuelve el funcionamiento del juego y el resto es sólo la apariencia.

Mi sugerencia es que lo hagas simple, puedes utilizar un ImageList para guardar los iconos y escribir directamente sobre el Canvas de un PaintBox.

Te dejo un ejemplo adjunto para que te des una idea de como puedes lograr el efecto.

Si no te queda tiempo para dibujar los barquitos, prueba con esta suite de imagenes que puedes descargar gratuitamente.

SpriteLib GPL

Saludos y suerte.

[Chompiras]

De acuerdo hector, gracias por la ayuda.

[Chompiras]

Estoy en la parte que el jugador elige donde quiere que vayan sus barcos. Esto lo hice como me suigirieron, poniendo x en donde el jugador quiera poner sus barcos. Lo cual lo hice haciendo (valga la redundancia) que en el evento selectcell se ponga una x en la celda elegida por el usuario para los barcos. El tema mio es el siguiente:
¿ Hay manera que la unica forma de selecionar una celda sea a traves del mouse ?

Otra cosa...¿ si el jugador se equivoca de posicion, como podria hacer para remover la x (o sea que evento del stringgrid deberia utilizar) ?

[marcoszorrilla]

Como el StringGrid tiene unas coordenadas que tu ya conoces, puedes pedir al usuario en unos simples edits que ponga las coordenadas de sus barcos y botón para validad los datos, en tanto no valide se pueden corregir las mismas.

A la salida de cada edit, puedes limpiar mediante un ciclo todas las coordenadas y redibujarlas de nuevo, esto no llevará prácticamente tiempo y no se notará, de esta manera te garantizas que si corrige alguna se borren todas las X y tras acabar el ciclo del borrado recorres los edits y vuelves a pintarlas.

Un Saludo.

[Chompiras]

Yo ya tengo dos combobox que cada vez que cambia su valor se modifica el stringrid de acuerdo al nuevo tamaño. Ahora lo que quiero hacer es poner dos combobox mas para que el jugador pueda elegir la cantidad y longitud de los barcos. El tema es el siguiente:
Para hacer esto... ¿ aun es posible hacerlo con un stringrid ?...en donde yo veo la complicacion es en que, si el jugador tiene un barco de una longitud de 3, por ejemplo (aclaracion: el usuario debe elegir la misma longitud para todos los barcos) no se como hacer para que el usuario pueda elegir si quiere ponerlo vertical o horizontal sobre el mapa.

Otra cosa, yo tengo en el mismo formulario, la seleccion del tamaño del mapa, la configuracion de la cantidad y longitud de barcos, y el posicionamiento de los barcos en si... pero creo que estoy complicando la cosa...tal vez seria mejor que en un formulario tenga la seleccion del tamaño del mapa, la configuracion del tamaño y cantidad de barcos, y en el otro los posicione...¿verdad?

Lo ultimo, hector no entiendo esta parte del codigo que vos me pasaste (el del zip):

Código Delphi [-]
for j:=0 to 9 do
   for i:=0 to 9 do
   ImageList1.Draw(PaintBox1.Canvas,i*ANCHO,j*ALTO,Matriz[j,i]);

Pd: Hector, muy buena la suite de imagenes, lo unico malo es que no hay una de un barco. Igual me sirven bastante, ya que de ahi puedo sacar la imagen del mar y la de la explosion...EDIT: perdon, acabo de ver las imagenes de nuevo y encontre a los barcos, retiro lo dicho entonces.

[[Héctor Randolph]]

Espero no haberte confundido demasiado, la manera que a mi se me ocurrió para representar el tablero fue por medio de una matriz de NxN, en cada entrada puedes colocar un número digamos 0,1,2, etc. Estos números corresponden a un índice en la lista de imagenes que previamente tienes cargadas.

La matriz tiene esta apariencia.

0 1 0 0
0 0 0 0
0 0 2 0
0 0 0 0

De tal manera que en donde aparezca un número 0 se dibujara el fondo del mar y con los demás números se dibujarán otros objetos.

El código que te muestro a continuación transforma los valores de la matriz en coordenadas dentro del Canvas (lienzo) del control PaintBox.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  ANCHO=32;  ALTO=32;
  MAR=0;  AVION=1;  EXPLOSION=2;
var
  i,j: Integer;
 Matriz: array [0..9, 0..9] of Integer;
begin
 for j:=0 to 9 do
   for i:=0 to 9 do
      Matriz[j,i]:=MAR; // Rellenar la matriz completa de ceros
 // Colocamos dos objetos en la matriz tan solo como ejemplo
 Matriz[8,8]:=AVION; // Colocar un objeto en la posición (8,8)
 Matriz[4,4]:=EXPLOSION; // Colocar otro objeto en la posición (4,4)

 // Dibujamos la matriz en el PaintBox
 for j:=0 to 9 do
   for i:=0 to 9 do
   ImageList1.Draw(PaintBox1.Canvas,i*ANCHO,j*ALTO,Matriz[j,i]);
end;

El doble for recorre todas las entradas de la matriz y uso el método Draw(Canvas,X,Y,Indice) del ImageList para dibujar la imagen sobre el canvas del PaintBox, observa que el indice se obtiene de las entradas de la matriz.

Bueno, esta podría ser una forma de representarlo pero no es la única.

Saludos