Стратегия в морском бою

[Олександр17]

Я на Delphi 7 делаю игру морской бой, и сделал три уровня сложности, помогите написать тактику для компютера на сложности Hard...

[Alex Cones]

Easy - комп иногда тупит.
Normal - комп играет нормально.
Hard - Он иногда "подсматривает".

[_-Re@l-_]

Easy - комп иногда тупит.

Лучше в Easy вообще сделать рандомный выбор клетки в которую стрелять

[Олександр17]

Ком играет нормально ето как???

[Alex Cones]

Вы же сказали, что сделали все, кроме Hard.

[Олександр17]

Нет я сделал толко Easy???

[Alex Cones]

???

Это вопрос?

[Олександр17]

Звиняюсь,
Нет, я только сделал Easy!!!

[Alex Cones]

Вот. Теперь измените его так, чтобы комп при попадании продолжал добивать - это Normal. А на харде он должен раз из 4-х выстрелов мимо "подсматривал" и попадал на пятый.

[Олександр17]

Помогите ето оформить как надо?
Вот что у меня ест...

PHP код:

if (v<>0)and(checkbox2.Checked=true) then
      begin{Normal}
          if (c4x[1]=k)and(c4y[1]=p) then begin str1[c4x[2],c4y[2]]:=true;   str1[c4x[3],c4y[3]]:=true; str1[c4x[4],c4y[4]]:=true;end;
           if (c4x[2]=k)and(c4y[2]=p) then begin str1[c4x[1],c4y[1]]:=true; str1[c4x[3],c4y[3]]:=true; str1[c4x[4],c4y[4]]:=true;end;
           if (c4x[3]=k)and(c4y[3]=p) then begin str1[c4x[2],c4y[2]]:=true; str1[c4x[1],c4y[1]]:=true; str1[c4x[4],c4y[4]]:=true;end;
           if (c4x[4]=k)and(c4y[4]=p) then begin str1[c4x[2],c4y[2]]:=true; str1[c4x[3],c4y[3]]:=true; str1[c4x[1],c4y[1]]:=true;end;

           if (c3x1[1]=k)and(c3y1[1]=p) then begin str1[c3x1[2],c3y1[2]]:=true; str1[c3x1[3],c3y1[3]]:=true;end;
           if (c3x1[2]=k)and(c3y1[2]=p) then begin str1[c3x1[1],c3y1[1]]:=true; str1[c3x1[3],c3y1[3]]:=true;end;
           if (c3x1[3]=k)and(c3y1[3]=p) then begin str1[c3x1[1],c3y1[1]]:=true; str1[c3x1[2],c3y1[2]]:=true;end;

           if (c3x2[1]=k)and(c3y2[1]=p) then begin str1[c3x2[2],c3y2[2]]:=true; str1[c3x2[3],c3y2[3]]:=true;end;
           if (c3x2[2]=k)and(c3y2[2]=p) then begin str1[c3x2[1],c3y2[1]]:=true; str1[c3x2[3],c3y2[3]]:=true;end;
           if (c3x2[3]=k)and(c3y2[3]=p) then begin str1[c3x2[1],c3y2[1]]:=true; str1[c3x2[2],c3y2[2]]:=true;end;

           if (c2x1[1]=k)and(c2y1[1]=p) then str1[c2x1[2],c2y1[2]]:=true;
           if (c2x1[2]=k)and(c2y1[2]=p) then str1[c2x1[1],c2y1[1]]:=true;

           if (c2x2[1]=k)and(c2y2[1]=p) then str1[c2x2[2],c2y2[2]]:=true;
           if (c2x2[2]=k)and(c2y2[2]=p) then str1[c2x2[1],c2y2[1]]:=true;

           if (c2x3[1]=k)and(c2y3[1]=p) then str1[c2x3[2],c2y3[2]]:=true;
           if (c2x3[2]=k)and(c2y3[2]=p) then str1[c2x3[1],c2y3[1]]:=true;
         {  end; }
      end
      else begin
              v:=random(3); {HARD}
              if (v=2)and(checkbox3.Checked) then begin
              k:=0;p:=0;
              while not((mas[k,p]=true)and(str1[k,p]=false))do
              begin
                 inc(p);
                 k:=0;
                 while (not((mas[k,p]=true)and(str1[k,p]=false)))and(k<11)do
                 begin
                  inc(k);
                 end;
              end;
              if not((mas[k,p]=true)and(str1[k,p]=false)) then
              begin
                 v:=0;
                      k:=random(10)+1;
                      p:=random(10)+1;
                      while str1[k,p] do
                      begin
                         k:=random(10)+1;
                         p:=random(10)+1;
                      end
              end             
              end
              else begin
                      v:=0;{EASY}
                      k:=random(10)+1;
                      p:=random(10)+1;
                      while str1[k,p] do
                      begin
                         k:=random(10)+1;
                         p:=random(10)+1;
                      end;
              end;
           end;