Estructura DatosDisparo     
     byte Tocado                     // indica cuando se toca por vez primera una nave, y luego con cada nuevo 'tocado' aumenta en uno. asi este valor hasta hundirlo.
     byte Orientacion              // indica a qué lado estamos disparando del cerco.
     //byte cX                        // cordenada 'x' del primer tocado en la nave.
     //byte cY                        // cordenada 'y' del primer tocado en la nave.
     //arrayBytes Cerco(7,7)  // Array imaginario, operamos sobre un área de 7x7 (dado un tamaño de nave de 4 casillas)
Fin estructura

DatosDisparo dDisparo     // instancia de la estructura.

buleano = Funcion SiguienteDisparo(byte resultado, byte x, byte y)  //tu llama la función como te dé la gana... o atendiendo a como te reclamen.   
    Si (resultado = 2)   // Tocado
        Si (dDisparo.Tocado > 0) 
            Si (dDisparo.Tocado < 4)  
                dDisparo.Tocado += 1              // Otra casilla tocada de la nave (o de una nave contigua)
           
                Si (dDisparo.Orientacion = 1)    // avanzamos a derecha
                    x += 1
                OSi (dDisparo.Orientacion = 2)   // avanzamos hacia izquierda                
                    x -= 1                   
                OSi (dDisparo.Orientacion = 3)   // avanzamos hacia abajo                    
                    y += 1                               
                OSi (dDisparo.Orientacion = 4)   // avanzamos hacia arriba
                    y -= 1
                Fin si               
            Si no     
                dDisparo.Tocado = 0       
                Devolver FALSE          
                // NOTA2:  Si se ha tocado tantas veces como casillas tiene la nave mayor, cabe decir que hay un buque contiguo a éste (o más)...   
                // no se ha hundido, porque sino, se hubiera recibido un resultado 3.
                // Es decir: al menos dos buques tienen casillas en este área y están tocándose
                // Luego la suma de 'dDisparo.tocado' ha tocado casillas de al menos dos naves,...
                // Resolver este caso, lo dejo a tu esfuerzo y consideración...
            Fin si
        Sino  // aquí hay un buque (lo acabamos de descubrir)... insistiremos hasta hundirlo.
            // Reset valores de la estructura.
            dDisparo.Tocado = 1            
            dDisparo.Orientacion = 1
            //dDisparo.cX = x
            //dDisparo.cY = y 
            //CopiarParteDelMapaACerco
            
            x += 1   // orientación: 1, avanzamos a derecha, 'y' no cambia.              
        Fin si       
        Devolver TRUE
    Osi (Resultado = 3)                // Hundido, se supone ya restada una nave.        
        dDisparo.Tocado = 0          // si esta nave está hundida, retiramos la marca para seguir buscando alrededor...
        Devolver FALSE 
    Sino
        Si (dDisparo.Tocado > 0)              // un disparo previo acertó,                         
            Si (dDisparo.Orientacion < 4)      // si no se han agotado todas las posibilidades.
                dDisparo.Orientacion += 1      // cambiamos de orientación.
                Si (dDisparo.Orientacion = 2)  // ---> cambia de sentido en horizontal...  hacia izquierda                
                    x -= (dDisparo.Tocado + 1)  // 'y' no cambia                  
                OSi (dDisparo.Orientacion = 3) // ---> cambia a vertical abajo
                    x -= dDisparo.Tocado          // vuelve a la cordenada central (de Cerco) en el eje 'x'
                    y +=1                                // y baja una fila
                OSi (dDisparo.Orientacion = 4) // ---> cambia de sentido en vertical... hacia arriba...
                    y -= (dDisparo.Tocado + 1)  // 'x' no cambia.
                Fin si
                Devolver TRUE
            Sino                                                                               
                dDisparo.Tocado = 0       
                Devolver FALSE 
                // NOTA2:  Agotada todas las orientaciones cabe decir que hay un buque contiguo a éste...   
                // no se ha hundido, porque sino, se hubiera recibido un resultado 3.
                // Es decir: al menos dos buques tienen casillas en este área y están tocándose
                // Luego la suma de 'dDisparo.tocado' ha tocado casillas de al menos dos naves,...
                // Resolver este caso, lo dejo a tu esfuerzo y consideración...
            Fin si
        Sino         
            Devolver FALSE
        Fin si
    Fin si
Fin funcion 

// Datos jugador A
arrayBytes MapJA(x,y)    //x,y expresa dos dimensiones
arrayBytes NavesA()
entero NumNavesA

// Datos Jugador B
arrayBytes MapB(x,y)
arrayBytes NavesB()
entero NumNavesB


Funcion NuevoMapa(ancho, alto, buques() )
    alojar tamaño para MapA(ancho, alto)
    alojar tamaño para MapB(ancho, alto)

    numNavesA = buques.count   
    numNavesB = buques.count

    NavesA = buques
    NavesB = buques
Fin Funcion 

entero = Funcion Disparar(x,y, Jugador)
    byte estado 

    Si (jugador = 0) luego  // A dispara a B
        estado = MapB(x,y)  // valor de estado del mapa para esa casilla.

        Si ((estado > 0) y (estado < 255) )  // se acaba de tocar un barco.
            MapB(x,y) = 255            // casilla tocada, se marca en el mapa, el nuevo estado.
            NavesB(estado) -=1       // se resta una casilla a este barco.
            Si (NavesB(estado) = 0)  //Hundido, cuando a una nave no le quedan casillas, se considera hundido
                numNaves  -=1
                Si (numNaves = 0)   // no le quedan naves. 'jugador' ganó la partida.        
                    Devolver -1
                Fin si
            Fin si            
            Devolver 1 // esto es 'tocado/hundido' jugador sigue tirando, sigue en su turno.
       fin si
       Devolver 0  // 'agua' o ya tocada.
   Sino // jugador =1, B dispara a A
      // igual que arriba pero cambiando B, por A
   Fin si
Fin funcion

funcion MainPartida
    entero d, t, n     //d=resultado del disparo, t=turno de qué jugador.

    DecidirTamañoMapa(x,y)  // jugadores indican que tamaño tendrá el mapa.
    ArrayBytes Buques = DecidirNumeroNavesYTamaños
    NuevoMapa(x,y, buques)
    
    PosicionarFlota(buques, 0) // 0=Jugador A, se le pide que posicione sus buques en el mapa.
    PosicionarFlota(buques, 1) // 0=Jugador B,    "          "

    t = ElegirTurnoalAzar(entre 0 y 1) //t indica el jugador que tiene el turno

    // Bucle del juego hasta fin de partida.
    Hacer 
        ElegirNuevasCordenadasDeDisparo(t,x,y) // se usa 't', para que el jugador específico elija las cordenadas.
        d = Disparar(x,y, t)  //t hace referencia a que mapa del jugador afecta, 
                                    // con clases 't' en vez de ser un parámetro sería un objeto y disparo un método de dicho objeto.
        Si (d = -1) luego 
            llamar FinalPartida("Perdiste, no te quedan naves. Ganó el jugador xxxx (que tiene el turno de disparo"
        Osi (d = 0) luego // tocado o hundido
            //CambiarTurnoJugador
            t = ValorAbsoluto(1 - t) //cambiamos el turno de jugador: esto alterna cada vez entre 0,1,0,1,0,1,0,1
        sino
            // el jugador que tiene el turno, sigue disparando hasta que falle (d=0), o no queden naves (d=-1)
        Fin si
        n += 1 
    Repetir mientras ( d<> -1) //  '<>' distinto de // ó: mientras FinalPartida(d) = False

    MostrarMensaje (La partida precisó 'n' disparos para llegar a su fin...) //no es ni mucho menos la estadística que requieres, 
                        // pero no cuesta constar los disparos realizados por ambos jugadores.
Fin funcion