Autor Tema: The Life For A Ship (buscaminas) (Leído 8025 veces)

obandomarco · « **en:** Jueves 6 de Abril de 2006, 21:43 »

tengo que hacer este juego que es muy similar a buscaminas como puedo empezar?

. La compañía de juegos electrónicos, Funny Games, ha decidido crear un nuevo juego para lanzarlo al mercado. El nombre del juego es “The life for a ship” (“La vida por un barco”). El entorno del juego se desarrolla de la siguiente manera: En una matriz de 10 x 10, la cual simula un océano, se han perdido cinco barcos.

En este océano habitan 10 tiburones. Su tarea será recorrer a nado el océano hasta encontrar los cinco barcos. Cada vez que usted es atrapado por un tiburón se le resta una vida.

A lo largo del océano también hay cinco botes, cada uno de los cuales le aumentará en uno su cantidad de vidas al ser ubicado. En cada turno, el participante elegirá coordenadas donde desea buscar.

Ganará el jugador que encuentre los cinco barcos sin haber perdido todas sus vidas. Cada vez que acierte, el programa le incrementará sus puntos en 10.

El juego terminará cuando el náufrago haya sido devorado diez veces.

En un archivo, deberá controlar los diez mejores puntajes (top ten) obtenidos por los jugadores, así como la mejor calificación. Esta será actualizada cada vez que alguien mejore dicha puntuación y visualizada al finalizar el juego.

Enko

Aqui no se hacen tareas.

¿Dudas puntuales?

obandomarco

No decia que me la hicieran solo, preguntaba como podia empezar, de todos modos muchas gracias...voy a buscar ayuda en otro foro

obandomarco

disculpa yo no escribi eso fue mi hermano, escucha necesito tu ayuda, no necesito que lo hagas sino como empiezo, primero creo la matriz de 10x10, luego que me aconsejas? seguir, tengo varios ejemplos de la web, pero no estoy seguro, disculpas de nuevo y ojala que me puedas ayudar

Enko

No se si entendí como es el juego, pero supongo que sería una especie de buscaminas.

necesitarías una matriz de 10x10 de tipo Byte o Integer:
0. nada
1: barco
2: tiburon

Lo primer que deberías hacer, es poder hacer que te redistribuya los tiburones y barcos en la matriz al Azar.
Luego, simplemente pides al jugador que ingrese una coordenada, y segun sea barco o tiburon, el das o sacas puntos......

Eso sería una idea básica muy por arriba, lo que necesitaría es que preguntes cosas más puntuales así poder ayudarte

obandomarco

no puedo correrlo me da un error 200: division by zero???

Enko

Necesitas el parche para la librería CRT. Este error ocurre con procesadores superiores a P2.

http://foros.solocodigo.com/index.php?show...12078&hl=parche

obandomarco

ya lo arregle gracias!!

obandomarco

mira ya cree que el aleatorio utilizando el random no se si estara bien, me gustaria que le vieras, pero tengo otra duda como hago para que solo me hago 10 tiburones y 5 barcos y los demas libres que un if??? o no se

obandomarco

espero tu respuesta, x favor cuando puedas, escribeme, estoy en problemas tengo que entregar esto el lunes, este es mi primer curso en pascal se manejar ciclos, matrices, todo lo simple, pero no entiendo bien lo de los archivos, como lo de guardar los mejores puntajes, esto es lo que llevo dame una manita, para seguir avanzando gracias!!!

Enko

Cita de: "obandomarco"

mira ya cree que el aleatorio utilizando el random no se si estara bien, me gustaria que le vieras, pero tengo otra duda como hago para que solo me hago 10 tiburones y 5 barcos y los demas libres que un if??? o no se

Código: Text

 
const 
   NADA = 0;
   TIBURON = 1;
   BARCO = 2;
var
  Mar: array[1..10,1..10] of Byte;
 
{Esto inicia el tablero poniendo tiburones y barcos en siempre la misma posicion, 
despues, con otro procedimiuento se mezcla}
procedure Init;
var
  i,j : integer;
begin
   for i:=1 to 10 do
      for J:=1 to 10 do
          Mar[i,j] := NADA;
   for i:=1 to 10 do Mar[i,1] := TIBURON;
   for  i:=1 to 5 do Mar[i,2] := BARCO;
end;
 
{Intercambia dos variables}
procedure Intercambiar(var A,B: Integer);
var
  C: Integer;
begin
   C := A;
   A := B;
   B := C;
end;
 
{esto mezcla los campos y los desordena, de manera que uno se asegura que 
hay 10 tiburones y 10 barcos}
procedure Mezclar;
var
   i,j, nI, nJ: integer;
begin
    for i:=1 to 10 do
      for J:=1 to 10 do
      begin
         nI := RAndom(10)+1;
         nJ := RAndom(10)+1;
         Intercambiar(Mar[i,j], Mar[nI, nJ];
      end;
end;
 
 

Acordate de Poner un RAndomize al prencipio de todo en el Begin principal.
El codigo velo como un pseudocodigo porque nunca lo probé ya uqe aca no tengo compilador.
nI := RAndom(10)+1;nI := RAndom(10)+1;

Enko

Código: Text

 
procedure Guardar(Nombre: String; Puntaje: Integer);
var
  F: TEXT;
begin
   Assign(F, 'MejoresPuntajes.txt');{asigna al archivo su direccion}
   {&#036;I-} {desactiva control entrada/salida}
   Append(F); {intenta poner el puntero al final de archivo, por si este existe}
   if IOResult &#60;&#62; 0 then {archivo no existe y hay que recrearlo} 
   begin
     WriteLn('No se encuentra el archivo');
     WriteLn('Desea crear uno nuevo');
     res := ReadKey;
     if (res = 's') or (res = 'S') then ReWrite(F);
   end;
 {&#036;I+}
   WriteLn(F, Nombre, '      ', Puntaje); {escribe en el archivo de texto, puntaje y nombre}
    Close(F); {cierra el archivo}
end;
 
 

en este codigo lo que hace, es intentar escribir al final de un archivo, si este no existe, crea uno nuevo.

Esto hay que hacerlo así porque en TurboPascal (creo que es lo que vos usas) no existe FileExiste(nombre) que te dice si existe un archivo

podes usar el siguente código pero ASEGURATE que haya un ARCHIVO llamado "MejoresPuntajes.txt" enla carpeta de la ejecutable. (de tu programa)

Código: Text

 
procedure Guardar(Nombre: String; Puntaje: Integer);
var
  F: TEXT;
begin
   Assign(F, 'MejoresPuntajes.txt');
   Append(F); 
   WriteLn(F, Nombre, '      ', Puntaje); 
   Close(F); {cierra el archivo}
end;
 
 

obandomarco

muchisimas gracias!!!, mira tengo un error en esto

begin
for i:=1 to 10 do
for J:=1 to 10 do
begin
nI := RAndom(10)+1;
nJ := RAndom(10)+1;
Intercambiar(Mar[i,j], Mar[nI, nJ]);
end;
end;

en intercambiar dice error 26 : type of mismatch (no me deja poner la coma), ya probe cambiandolo de diferentes maneras pero me sale lo mismo, creo que es muy simple pero no encuentre el error...

obandomarco

ademas del procedimiento de guardar que me diste, puedo usar cualquiera??; para que el usuario busque las cordenadas cuando ya este la matriz lista que procedimiento puedo utilizar...

Enko

Código: Text

 
const
  NADA = 0;
  TIBURON = 1;
  BARCO = 2;
var
 Mar: array[1..10,1..10] of Integer;
 i,j: Integer;
{Esto inicia el tablero poniendo tiburones y barcos en siempre la misma posicion,
despues, con otro procedimiuento se mezcla}
procedure Init;
var
 i,j : integer;
begin
  for i:=1 to 10 do
     for J:=1 to 10 do
         Mar[i,j] := NADA;
  for i:=1 to 10 do Mar[i,1] := TIBURON;
  for  i:=1 to 5 do Mar[i,2] := BARCO;
end;
 
{Intercambia dos variables}
procedure Intercambiar(var A,B: Integer);
var
 C: Integer;
begin
  C := A;
  A := B;
  B := C;
end;
 
{esto mezcla los campos y los desordena, de manera que uno se asegura que
hay 10 tiburones y 10 barcos}
procedure Mezclar;
var
  i,j, nI, nJ: integer;
begin
   for i:=1 to 10 do
     for J:=1 to 10 do
     begin
        nI := RAndom(10)+1;
        nJ := RAndom(10)+1;
        Intercambiar(Mar[i,j], Mar[nI, nJ]);
     end;
end;
 
begin
   Init;
   Mezclar;
   for j:=1 to 10 do
     for i:=1 to 10 do
     begin
       Write(Mar[i,j], ' ');
       if i=10 then WriteLn;
     end;
  readln;
end.
 
 

Enko

Cita de: "obandomarco"

ademas del procedimiento de guardar que me diste, puedo usar cualquiera??; para que el usuario busque las cordenadas cuando ya este la matriz lista que procedimiento puedo utilizar...

Lees por teclado la coordenada X, despues la Y..... Luego verificas que es lo que hay en Mar[X,Y] y sumas o bajas puntos segun sea el resultado.

obandomarco

disculpa la molestia, pero todavia tengo el error 26:type of mismatch en procedimiento mezclar; no me deja poner la coma en intercambiar(mar[i,j],mar[ni,nj]);

obandomarco

para moverme puedo usar esto?

procedure mover;
writeln('Digite el numero de fila en que desee moverse');
readln(i);
writeln('Digite el numero de fila en que desee moverse');
readln(j);

recorro la matriz y debe haber algun comando que me lleve "gotoxy", este sirve?

Enko

Cita de: "obandomarco"

para moverme puedo usar esto?

procedure mover;
writeln('Digite el numero de fila en que desee moverse');
readln(i);
writeln('Digite el numero de fila en que desee moverse');
readln(j);

recorro la matriz y debe haber algun comando que me lleve "gotoxy", este sirve?

Código: Text

 
case Mar[i,j] of
  NADA:
     begin
          {lo que tengas que hacer por si est'a vacia}
      end;
  TIBURON:
      begin
          {lo que tengs que hacer si es un tiburon}
       end;
   BARCOS:
       begin
           {lo que tengas que hacer si hay un barco}
        end;
end;
 
 

para sacar el type mismatch, pone que todo sea Integer, y saca los tipos Byte (seguramente es eso, en el codigo que te pase lo hab'ia coregido y compilo)

obandomarco

perfecto ya lo pude correr pero no me lo esta mezclando, queda asi
1111111111
2222200000
0000000000
0000000000
0000000000
0000000000
0000000000
0000000000
0000000000
0000000000

como hago para tapar todos con asteriscos pero que no pierdan las caracteristicas para que el usuario no pueda verlos???

obandomarco

ya hice lo de las coordenadas para moverme pero necesito, mezclarlos, cubrirlos todos con una asterisco o algo asi(no se como hacerlo), y meterlo dentro de un ciclo para que los vaya descartando hasta que encuentre los barcos o pierda todas las vidas...

Enko

El procedimiento para mezclar ya te lo había pasado.
(podrías aunque sea tomarte la molestia de ver el código

)

Para tapar con asteriscos tendrías que tener un matriz a parte que te indique si esa casilla fue abierta.
Las cosa sería que cada jugada que hagas, pongas esa casilla de la matriz a Verdadero, cosa que te indicaría si se puede mostrar y ademas si el jugador ya hizo esa jugada....

Código: Text

 
CasillasDescubiertas: array[1..10,1..10] of Boolean;

Código: Text

 
procedure ImprimirMar;
var
  i,j: Integer;
for i:=1 to 10 do
    for J:=1 to 10 do
    begin
       if CasillasDescubiertas[i,j]  then Write(Mar[i,j], ' ')
       else Write('* ');
       if i=10 then WriteLn;
    end;
end;
 
 

Código: Text

 
procedure mover;
writeln('Digite el numero de fila en que desee moverse');
readln(i);
writeln('Digite el numero de fila en que desee moverse');
readln(j);
if CasillasDescubiertas[i,j] then {la jugada ya fue hecha}
if not CasillasDescubiertas[i,j] then
begin
   CasillasDescubiertas[i,j] := True; 
   {y todas las demas cosas.....}
end;
[CODE]
 
 

Enko

Por sierto, NO TE ESTOY PASANDO CÓDIGO COMPLETO, tendrás que ADAPTARLO A TUS NECESIDADES VOS MISMO.

Saiyan1

Hola muchachos.

Como vi que este codigo habia quedado colgado... lo agarré.. y lo terminé.
A ver si no me denuncian por robo de propiedad intelectual.. jeje.

Hace 3 meses y medio que empece a estudiar para analista programador.. asi que con lo que estuve aprendiendo, lo terminé.

Está verificado.. y ya lo jugamos bastante.. jejeje.
Esta bueno.

Enko, si te parece, lo pongo acá... que decis?

Saludos!!!