Помогите раскрыть...

[manchester_alan]

Здрасьте всем) Вот нашел где-то морской бой, но там все совсем непонятно написано и непонятно, что за алгоритмы были использованы... Сам вот пытаюсь, пишу, но не все получается... Можете кто-нибудь растолковать или может есть уже истолкованный..? Вот сам архив с игрой...

[FaTaL]

Что там непонятного? Простой код.

[min@y™]

эту прогу писал фанат-обфускатор!
у меня от просмотра кода глаза закровоточили. ужос!
экзампл:

var k,l,i,j,t,p:integer;
    f1,f2,f3,f4:boolean;
begin
  Randomize;
  f1:=False;
  f2:=False;
  f3:=False;
  f4:=False;
  repeat
    k:=Random(10);
    l:=Random(10);
    p:=Random(2)+1;
    if check1(k,l,3,p,B)and check2(k,l,3,p)
       then
        begin
          Case p of
            1: for t:=k to k+3 do
                 B[l,t]:=4;
            2: for t:=l to l+3 do
                 B[t,k]:=4;
          end;
          dec(Ch[4]);
          f4:=True;
        end;
  until f4;

  for i:=1 to 2 do
    begin
      f3:=False;
      Repeat
        k:=Random(10);
        l:=Random(10);
        p:=Random(2)+1;
        if check1(k,l,2,p,B)and check2(k,l,2,p)
           then
            begin
              Case p of
                1: for t:=k to k+2 do
                     B[l,t]:=3;
                2: for t:=l to l+2 do
                     B[t,k]:=3;
              end;
              dec(Ch[3]);
              f3:=True;
            end;
      until f3;
    end;

    for i:=1 to 3 do
    begin
      f2:=False;
      Repeat
        k:=Random(10);
        l:=Random(10);
        p:=Random(2)+1;
        if check1(k,l,1,p,B)and check2(k,l,1,p)
           then
            begin
              Case p of
                1: for t:=k to k+1 do
                     B[l,t]:=2;
                2: for t:=l to l+1 do
                     B[t,k]:=2;
              end;
              dec(Ch[2]);
              f2:=True;
            end;
      until f2;
    end;

  for i:=1 to 4 do
    begin
      f1:=False;
      Repeat
        k:=Random(10);
        l:=Random(10);
        p:=Random(2)+1;
        if check1(k,l,0,p,B)and check2(k,l,0,p)
           then
            begin
              Case p of
                1: B[l,k]:=1;
                2: B[l,k]:=1;
              end;
              dec(Ch[1]);
              f1:=True;
            end;
      until f1;
    end;
end;

имхо, в 100500 раз быстрее написать свой хороший код с нуля!