Морской бой на Delphi 7

[hqpz]

Не я сделаю всё остальное. Мне просто нужен код твоей работы и, желательно, подробное объяснение что зачем и как ставить. Просто я хочу понять весь процесс. Так как в инсте щас туго с преподавательским составом. Нам просто дают задание сидеть и заниматься с прогой под названием - Изучаем Delphi и всё. А понял или нет твои проблемы. Да и прога там с глюками всякими. Короче бред. Вот и ищу помощи на стороне. =(. мне надо только посмотреть твой код и комментарии и разобраться. А потом сделаю свою игру.

Ну что можешь скинуть код и описание что да как ставить и куда =) на hqpz007@mail.ru ? Просто позарез надо. =( Буду оч благодарен

[Вавел из ГМТУ]

Всё писалось с ходу, ничего особо не обдумывалось.

Типы

TPole = Array [1..10, 1..10] Of Byte;

Паблик формы

// Процедура отрисовки поля.
Procedure PrintPole(Pole : TImage; P : TPole);
// Бот.
Procedure Bot;

Вар

  // Игровое поле. 1 - поле игрока. 2 - поле врага.
  // 1 - выстрел. 2 - корабль. 20 - мёртвый корабль. 3 - корабль врага.
  P1, P2 : TPole;
  P1Win, P2Win : Integer; // Отслеживаем выйгрыш.

// Бот.
Procedure TForm1.Bot;
Var
  x, y : integer;
Begin
Randomize;
// Определим координаты выстрела.
Repeat
  x := Random(10) + 1;
  y := Random(10) + 1;
Until (P1[x,y] <> 1) And (P1[x,y] <> 20);
// Если бот промахнулся.
If (P1[x,y] <> 1) And (P1[x,y] <> 2) Then P1[x,y] := 1;
// Если бот попал в корабль.
If P1[x,y] = 2 Then Begin
  P1[x,y] := 20;
  P2Win := P2Win + 1;
End;
// Отрисуем наше поле.
PrintPole(Pole1, P1);
End;

// Процедура отрисовки поля.
// Pole - компонент TImage на котором надо рисовать.
// P - массив, который надо отрисовать.
Procedure TForm1.PrintPole(Pole : TImage; P : TPole);
Var
  i, x, y : Integer;
Begin
// Заливка цветом "вода".
Pole.Canvas.Brush.Style := bsSolid;
Pole.Canvas.Brush.Color := RGB(200, 200, 200);
Pole.Canvas.Rectangle(0,0,200,200);
// Рисуем сетку.
For i := 1 To 10 Do
  Begin
    Pole.Canvas.MoveTo(i * 20, 0);
    Pole.Canvas.LineTo(i * 20, 200);
    Pole.Canvas.MoveTo(0, i * 20);
    Pole.Canvas.LineTo(200, i * 20);
  End;
// Пройдёмся по массиву и отрисуем поля.
For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Begin
        If P[x, y] = 1 Then Begin // Рисуем выстрелы.
          Pole.Canvas.Brush.Style := bsSolid;
          Pole.Canvas.Brush.Color := RGB(0, 0, 0);
          Pole.Canvas.Ellipse((x-1) * 20 + 4, (y-1) * 20 + 4, (x-1) * 20 + 16, (y-1) * 20 + 16);
        End;
        // Если мы пытаемся отрисовать вражеский кораблик, то цикл начинается снова.
        If IntToStr(P[x, y])[1] = '3' Then Continue;
        If IntToStr(P[x, y])[1] = '2' Then Begin // Рисуем корабли.
            Pole.Canvas.Brush.Style := bsSolid;
            Pole.Canvas.Brush.Color := RGB(200, 5, 5);
            Pole.Canvas.Rectangle((x-1) * 20, (y-1) * 20, (x-1) * 20 + 21, (y-1) * 20 + 21);
        End;
        If IntToStr(P[x, y])[2] = '0' Then Begin // Рисуем мёртвые части корабля.
          Pole.Canvas.Brush.Color := RGB(0, 0, 0);
          Pole.Canvas.MoveTo((x-1) * 20 , (y-1) * 20);
          Pole.Canvas.LineTo((x-1) * 20 + 20, (y-1) * 20 + 20);
          Pole.Canvas.MoveTo((x-1) * 20 + 20 , (y-1) * 20);
          Pole.Canvas.LineTo((x-1) * 20, (y-1) * 20 + 20);
        End;
      End;
  End;
// Проверим, а может ктото уже выйграл?
If P1Win = 20 Then Begin ShowMessage('Вы победитель!'); Application.Terminate; End;
If P2Win = 20 Then Begin ShowMessage('Пока неудачник!'); Application.Terminate; End;
End;

// Процедура обработки щелчка по вражескому полю..
Procedure TForm1.Pole2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  i : Integer;
  Mis : Boolean;
Begin
// Определим чему равен x.
For i := 0 To 9 Do
  If (x >= 20 * i) And (x <= 20 + i * 20) Then
    Begin
      x := i + 1;
      Break;
    End;
// Определим чему равен y.
For i := 0 To 9 Do
  If (y >= 20 * i) And (y <= 20 + i * 20) Then
    Begin
      y := i + 1;
      Break;
    End;
// Присвоем значение выстрела указанному элементу массива.
// Если мы сюда уже стреляли.
If (P2[x,y] = 1) Or (P2[x,y] = 20) Then Begin
  ShowMessage('Тут уже стреляли..');
  Mis := True;
End;
// Если мы промахнулись.
If (P2[x,y] <> 1) And (P2[x,y] <> 3) And (P2[x,y] <> 20) Then P2[x,y] := 1;
// Если мы попали в корабль врага.
If P2[x,y] = 3 Then Begin
  P2[x,y] := 20;
  P1Win := P1Win + 1;
End;
// Отрисуем поле врага.
PrintPole(Pole2, P2);
// Заставим бота ответить нам (если мы не промахнулись.).
If Mis = False Then Bot;
End;

// При создании формы.
Procedure TForm1.FormCreate(Sender: TObject);
Begin
//Заполним массив от балды (сделаем вид игры)
// Наше поле
// Нарисуем пару кораблей.
P1[8,8] := 2;
P1[7,1] := 2;
P1[7,10] := 2;
P1[6,10] := 2;
P1[5,5] := 2; P1[5,6] := 2;
P1[8,3] := 2; P1[9,3] := 2;
P1[4,8] := 2; P1[5,8] := 2;
P1[3,3] := 2; P1[4,3] := 2; P1[5,3] := 2;
P1[2,7] := 2; P1[2,8] := 2; P1[2,9] := 2;
P1[1,1] := 2; P1[1,2] := 2; P1[1,3] := 2; P1[1,4] := 2;
// Поле врага.
// Нарисуем пару кораблей.
P2[1,1] := 3;
P2[10,1] := 3;
P2[1,8] := 3;
P2[8,5] := 3;
P2[6,6] := 3; P2[6,7] := 3;
P2[9,9] := 3; P2[9,10] := 3;
P2[9,7] := 3; P2[10,7] := 3;
P2[5,2] := 3; P2[6,2] := 3; P2[7,2] := 3;
P2[3,10] := 3; P2[4,10] := 3; P2[5,10] := 3;
P2[3,3] := 3; P2[3,4] := 3; P2[3,5] := 3; P2[3,6] := 3;
// Заставим отрисовать поля.
PrintPole(Pole1, P1);
PrintPole(Pole2, P2);
End;

[Arigato]

Когда-то, очень давно, писал эту статью: http://aka-alex.narod.ru/seabattle.htm
Описывается алгоритм игры компьютера (расстановка кораблей и ход компьютера). Может чем поможет...

[hqpz]

Спасибо вам огромное. =)

[SERG1980]

Делал когда то мор бой правда по сети, но расстановка кораблей там есть

[hqpz]

А почему когда я вставляю твой код(чисто проверить) и запускаю, Delphi постоянно ругается на Type и public? Вечно придерается к чемуто.

[Вавел из ГМТУ]

Покажи куда ты вставил?

[SERG1980]

Сообщение от hqpz

А почему когда я вставляю твой код(чисто проверить) и запускаю, Delphi постоянно ругается на Type и public? Вечно придерается к чемуто.

Не надо ничего вставлять просто откомпилируй и всё

[hqpz]

да то что просто откомпилировать я знаю. Просто я хочу переделать игру немного. Но для этого мне надо код перенести в делфи. А еще лучше просто передай(залей на обменник) мне проект свой. Я так лучше пойму что куда писать. Чтобы открыть твой файл и увидеть код готовый к запуску.

[hqpz]

Еще просьба =) залей куда нибудь скрины с твоей формой и окна куда ты код прописал. Только не на форум а то я отсюда не могу скачивать.(на файлообменник жедательно).