Fix bugs

N1ghtF1re · Jan 22, 2018 · aabcb3a · aabcb3a
1 parent 852dc87
commit aabcb3a
Show file tree

Hide file tree

Showing 5 changed files with 465 additions and 0 deletions.
diff --git a/SeaBattle.exe b/SeaBattle.exe
diff --git a/Source code/Game.pas b/Source code/Game.pas
@@ -337,6 +337,22 @@ procedure TFieldForm.player2FieldMouseDown(Sender: TObject;
         else
         begin
           EnemyMatrix.Cells[x, y] := 'K';
+          if ( (x+1) in [1..10] ) then
+            EnemyMatrix.Cells[x+1, y] := '*';
+          if ( (y+1) in [1..10] ) then
+            EnemyMatrix.Cells[x, y+1] := '*';
+          if ( (x-1) in [1..10] ) then
+            EnemyMatrix.Cells[x-1, y] := '*';
+          if ( (y-1) in [1..10] ) then
+            EnemyMatrix.Cells[x, y-1] := '*';
+          if ( ((y-1) in [1..10] ) and ((x-1) in [1..10])) then
+            EnemyMatrix.Cells[x-1, y-1] := '*';
+          if ( ((y+1) in [1..10] ) and ((x-1) in [1..10])) then
+            EnemyMatrix.Cells[x-1, y+1] := '*';
+          if ( ((y-1) in [1..10] ) and ((x+1) in [1..10])) then
+            EnemyMatrix.Cells[x+1, y-1] := '*';
+          if ( ((y+1) in [1..10] ) and ((x+1) in [1..10])) then
+            EnemyMatrix.Cells[x+1, y+1] := '*';
             LSX:=0;
             LSY:=0;
         end;

diff --git a/Source code/Win32/Debug/Game.dcu b/Source code/Win32/Debug/Game.dcu
diff --git a/Source code/Win32/Debug/SeaBattle.exe b/Source code/Win32/Debug/SeaBattle.exe