Многое захватывает в таком творчестве. И не сам процесс игры, а разработка игровой вселенной, ее проектирование и реализация. Когда можно слить воедино сценарий, графику, музыку, искусно задуманный и умело запрограммированный алгоритм -- создать единый фантастический мир, живущий по законам, которые ты же для него и придумал.

В данной курсовой работе речь пойдет о создании несложной игровой программы «Морской бой», которая и будет являться объектом исследования.

В первой главе данной курсовой работы рассматриваются аспекты программирования игр с использованием визуальных компонентов, в пункте 1.1. приводится аналитический обзор игрового программного обеспечения, классификация игр. В пункте 1.2. приводится описание компонентов, используемых при реализации практической части курсовой работы. В пункте 1.3. показываются возможности использования визуальных компонентов.

Во второй главе приведены этапы разработки программы, такие как постановка задачи, алгоритм реализации и описание пользовательского интерфейса.

В заключении приведены выводы по курсовой работе, достоинства и недостатки визуальных методов программирования.

Список использованных источников содержит полный перечень технической литературы, использованной для написания данной курсовой работы.

Приложения содержат блок-схемы всех процедур программы, и текст самой программы.

TLabel служит для отображения текста на экране. Можно изменить шрифт и цвет метки, если дважды щелкнуть на свойство Font в Инспекторе Объектов. Видно, что это легко сделать и во время выполнения программы, написав всего одну строчку кода.

Этот компонент доступен из модуля STDCTRLS, и находится на странице Палитры компонентов Standard.

Компонент представляет собой статический текст. С помощью этого компонента на рабочей поверхности формы можно отобразить информацию, сделать пояснения и показать названия других компонентов. Но он имеет и другую важную функцию -- если в составе текста TLabel есть символы-акселераторы, информация об их нажатии может передаваться от TLabel другому элементу управления.

Свойства компонента приведены в табл.1:

Таблица 1

TPanel - управляющий, похожий на TGroupBox, используется в декоративных целях. Чтобы использовать TPanel, просто поместите его на форму и затем положите другие компоненты на него. Теперь при перемещении TPanel будут передвигаться и эти компоненты. TPanel используется также для создания панели инструментов и окна статуса.

Этот компонент доступен из модуля EXTCTRLS, и находится на странице Палитры компонентов Standard.

Этот компонент -- является несущей конструкцией для размещения других элементов управления. В отличие от простой рамки (TBevel) панель сама является оконным элементом управления и родителем для всех размещенных на ней компонентов. Часто ее используют для создания панелей инструментов, строк состояния и т. п.

За внешнее оформление панели отвечают свойства:

(Pb) property Bevel Inner: TPanelBevel;

(Рb) property BevelOuter: TPanelBevel;

TPanelBevel = (bvNone, bvLowered, bvRaised) ;

(Pb) property BevelWidth: TBevelWidth;

TBevelWidth = 1..Maxint;

(Pb) property BorderWidth: TBorderWidth;

TBorderWidth = 0..Maxint ;

На границах панели размещаются две специальные окаймляющие рамки (bevels): Bevellnner и BevelOuter. При помощи комбинации белого и серого цветов они имитируют трехмерность -- приподнятость (bvRaised) или утоп-ленность (bvLowered). Обе рамки имеют ширину BevelWidth. Наружная -- BevelOuter -- расположена прямо по периметру панели, вторая -- Bevellnner -- внутри на расстоянии BorderWidth от нее. Обе могут быть невидимыми (bvNone), приподнятыми или утопленными.

Комбинируя сочетания bvLowered/bvRaised, можно создать вокруг панели "ров" или "вал".

Иллюзию трехмерности может подчеркнуть также стиль обрамления компонента:

(Pb) property BorderStyle: TBorderStyle;

TBorderStyle = bsNone .. bsSingle;

Значение bsSingle означает, что панель будет окаймлена черной линией единичной толщины (по периметру, снаружи от обеих рамок).

Выравнивание текста заголовка панели определяется при помощи свойства:

(Pb) property Alignment: TAlignment;

Компонент TImage

Запуск программы осуществляется следующим образом: необходимо открыть папку, содержащую данную игру, и найти исполняемый файл morb.exe. На этом файле следует выполнить двойной щелчок левой клавишей манипулятора мышь.

Проект программы состоит из файла проекта, содержащего необходимые конструкции для исполнения, и двух модулей Unit1 и Unit2 .

Модуль Unit2 предназначен для вывода окна, содержащего информацию о программе и об авторе (рис.1).

Размещено на http://www.allbest.ru/

51

65

Модуль Unit1 является основным модулем проекта, содержащим все необходимые для работы программы процедуры.

После запуска программы на экран выводится основная форма Form1 (рис.2), на которой расположены следующие объекты:

1. Главное меню

2. Игровое поле человека

Размещено на http://www.allbest.ru/

51

65

Игра, т. е. работа программы начинается сразу после запуска, так же при запуске начинается случайная расстановка кораблей компьютера (См. приложение). (процедура FormCreate)

Каждое из полей (игрока и компьютера) представляет собой матрицу 10 на 10 в самом начале заполненную нолями. К тому же поля как игрока так и компьютера представляют собой картинку которая изменяется при том или ином действии.

Расстановка кораблей противника происходит от 4х палубного к одно палубному.

Координаты четырехпалубного корабль выбираются случайно(переменная m и переменная n) случайно лишь с условием того чтобы он не выходил за границы поля при этом выбирается случайное горизонтальное или вертикальное положение (переменная z). При этом координаты корабля помечаются цифрами «2» в матрице.

Трехпалубные и двухпалубные корабли расстанавливаются точно также только дополнительно идет сравнение на пересечение и соприкосновение кораблей друг с другом.

Однопалубным кораблям незачем проверка выхода за границы поля, поэтому проверка происходит только на пересечение и соприкосновение.

К тому же расстановка трехпалубных кораблей происходит в цикле до тех пор пока не будет расстановлено два корабля, двухпалубные - пока не буду расстановлены три корабля, и однопалубные - пока не будут расстановлены четыре корабля.

Первоначально на форму выводится сообщение «Расставьте корабли», это означает что игроку следует расставить свои корабли перед началом работы.

Процедура rastkor.

При передвижении мыши по полю игрока ячейкам матрицы (в зависимости от расстанавливаемого корабля) присваивается значение 1. При этом при каждом изменении происходит прорисовка матрицы, для того чтобы пользователь мог видеть происходящие изменения.

При изменении ячейка матрицы со значением «0» рисуется белым квадратом, со значением «1» желтым.

При нажатии правой клавиши мыши происходит ротация корабля, проверка на ротацию происходит перед движением мыши.

Расстановка корабля происходит по нажатии левой клавиши мыши на поле игрока.

Процедура nash

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

Также каждый из кораблей расстанавливается в зависимости от количества его палуб, т.е. четырехпалубный - один, трехпалубных - два, двухпалубных - три, однопалубных - четыре.

При этом ячейке матрицы поля игрока присваивается значение «2». После каждого нажатия происходит прорисовка поля игрока, для этого каждая ячейка с цифрой «2» закрашивается серым.

После того как все корабли расставлены (k11<0) начинается обмен выстрелами с компьютером.

Процедура vistrel.

Выстрел производится при нажатии на одну из клеток поля компьютера. Если ячейка имеет значение «0»(пустая клетка) то ячейке присваивается значение «3», ячейка имеет значение «2» то ячейке присваивается значение «4».

Затем происходит прорисовка поля компьютера. Клетка которой соответствует ячейка со значением «3» рисуется маленький квадрат, клетка которой соответствует ячейка со значением «4» проверяется ранен или убит корабль если убит то рисуется красный квадрат, если ранен то рисуется серый квадрат перечеркнутый красным крестом.

После происходит проверка выиграл ли игрок или нет, для этого матрица компьютера сканируется и если не находится ни одной ячейки со значением «2» то выходит сообщение -

«Поздравляю!

Вы победили.»

Если не находится то проверяется если игрок опал в ячейку со значением «2» то ему предоставляется ещё один выстрел, и т. д. пока игрок не попадет в ячейку со значением «0».

Тогда наступает очередь хода компьютера.

Компьютер выбирает произвольную клетку из поля игрока и если её значение равно «0» то значение становится равным «3», если значение равно «2» от значение клетки становится равным «4».

Затем происходит прорисовка поля компьютера. Клетка которой соответствует ячейка со значением «3» рисуется маленький квадрат, клетка которой соответствует ячейка со значением «4» проверяется ранен или убит корабль если убит то рисуется красный квадрат, если ранен то рисуется серый квадрат перечеркнутый красным крестом.

Компьютер стреляет до тех пор пека не попадет в клетку со значением «0».

После происходит проверка проиграл ли игрок или нет, для этого матрица игрока сканируется и если не находится ни одной ячейки со значением «2» то выходит сообщение -

«Вы проиграли.

Попробуйте ещёраз!»

Более подробно смотрите исходный текст программы Приложение 1.

Реализация справочной информации

Справочная информация (правила игры) реализована с помощью программы Microsoft Help WorkShop. Эта программа позволяет создать файл справочной информации для Windows, используя текст формата Rich Edit Text. В процессе работы этой программы создается файл проекта справки *.hpj, который впоследствии может быть откомпилирован в файл справки (*.hlp).

В данной курсовой работе был создан файл проекта справки morb.hpj, который был откомпилирован с помощью программы Microsoft Help WorkShop в файл morb.hlp (рис.3).

Размещено на http://www.allbest.ru/

51

65

Более подробно см. Приложение 2.

Описание пользовательского интерфейса

Игра - Новая игра (горячая клавиша F2) - начать новую игру после окончания.

Игра - Выход - выход из программы.

Помощь - Справка (горячая клавиша F1) - Вызов справки.

Помощь - О программе - Короткая информация о программе.

ЗАКЛЮЧЕНИЕ

В результате выполнения данной курсовой работы был получен игровой программный продукт, названный «Морской бой». Было проведено исследование компонентов программной среды Borland Delphi 6.0, которые использовались при создании игры.

В результате исследования были выявлены следующие недостатки полученного программного продукта:

1. Низкий исскуственный интеллект, т.е. ход компьютера осуществляется случайным образом, что делает маловероятным победу компьютера;

2. Невозможность возврата на несколько ходов назад;

3. Работоспособность приложения только в среде Windows;

4. Невозможность автоматической расстановки кораблей игрока.

Однако, помимо недостатков, есть и достоинства у этого программного продукта:

1. Создана интерактивная справка с правилами игры;

2. Программный продукт малотребователен к системным ресурсам компьютера. Минимальная конфигурация: процессор - не ниже Pentium, оперативная память - не ниже 16 Mb, операционная система - Windows 95 / 98/ Me / NT / 2000 / XP.

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

Литература

1. Фаронов В.В. Delphi 4. Учебный курс. -М.: Нолидж, 1999. -447с.

2. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. -М.:Нолидж, 1997. -616с.

Размещено на http://www.allbest.ru/

Приложение 1

Исходный текст

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Menus, XPMan;

type

TForm1 = class(TForm)

Panel1: TPanel;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label25: TLabel;

Panel2: TPanel;

Image2: TImage;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label26: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

N5: TMenuItem;

Label12: TLabel;

Label24: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

procedure FormCreate(Sender: TObject);

procedure rastkor(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure nash(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N2Click(Sender: TObject);

procedure vistrel(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

i,j,g,x1,y1,k11,k21,

k33,k32,k31,m3,m2,m1, //кол-во 3х 2х 1х кораблей

m,n,z:integer;

rot, //ротация кораблей

riad,rnd, //для того что бы рядом не ставились,нужна для рандомирования

win,lose, //проверка на победу или поражение

bum, //проверка выстрела компьютера

kon, //проверка конца игры

cokil: boolean; //попал ли комрьютер

b1,b2:Array[1..14,1..14] of integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

rot:=false; //заполнение переменных

kon:=false;

k11:=3;

k33:=2;

k32:=5;

k31:=9;

m3:=0;

m2:=0;

m1:=0;

label13.Height:=0;

label14.Height:=0;

label15.Height:=0;

label16.Height:=0;

label17.Height:=0;

label18.Height:=0;

label19.Height:=0;

label20.Height:=0;

label21.Height:=0;

label22.Height:=0;

label23.Height:=0;

label26.Height:=0;

label12.Caption:='Расставьте корабли';

For i:=1 to 10 do //рисует сетку поля игрока

for j:=1 to 10 do

begin

b1[i,j]:=0;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*i,20*j);

end;

randomize;

m:=random(10)+1;

n:=random(10)+1;

z:=(random(100) mod 2);

//расстановка клораблей компьютера

//четырехпалубный

case n of

1..7:

case m of

1..7: for i:=0 to 3 do

if z=0 then

b2[m+i,n]:=2

else

b2[m,n+i]:=2;

8..10: for i:=0 to 3 do

if z=0 then

b2[m-i,n]:=2

else

b2[m,n+i]:=2;

end;

8..10:

case m of

1..7: for i:=0 to 3 do

if z=0 then

b2[m+i,n]:=2

else

b2[m,n-i]:=2;

8..10: for i:=0 to 3 do

if z=0 then

b2[m-i,n]:=2

else

b2[m,n-i]:=2;

end;

end;

//трехпалубные

while m3<2 do begin

m:=random(10)+1;

n:=random(10)+1;

z:=(random(100) mod 2);

case n of

1..7:

case m of

1..7: case z of

0: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m,n+1]<>2) and

(b2[m+1,n+2]<>2) and

(b2[m-1,n+2]<>2) and

(b2[m,n+2]<>2) and

(b2[m+1,n+3]<>2) and

(b2[m-1,n+3]<>2) and

(b2[m,n+3]<>2) and

(b2[m,n+3]<>2) then

begin

for i:=0 to 2 do

b2[m,n+i]:=2;

m3:=m3+1

end;

1: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n]<>2) and

(b2[m+2,n-1]<>2) and

(b2[m+2,n+1]<>2) and

(b2[m+2,n]<>2) and

(b2[m+3,n-1]<>2) and

(b2[m+3,n+1]<>2) and

(b2[m+3,n]<>2) and

(b2[m+3,n]<>2) then begin

for i:=0 to 2 do

b2[m+i,n]:=2;

m3:=m3+1

end

end;

8..10: case z of

0: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m-2,n-1]<>2) and

(b2[m-2,n+1]<>2) and

(b2[m-2,n]<>2) and

(b2[m-3,n-1]<>2) and

(b2[m-3,n+1]<>2) and

(b2[m-3,n]<>2) then

begin

for i:=0 to 2 do

b2[m-i,n]:=2;

m3:=m3+1

end;

1: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m,n+1]<>2) and

(b2[m+1,n+2]<>2) and

(b2[m-1,n+2]<>2) and

(b2[m,n+2]<>2) and

(b2[m+1,n+3]<>2) and

(b2[m-1,n+3]<>2) and

(b2[m,n+3]<>2) and

(b2[m,n+3]<>2) then

begin

for i:=0 to 2 do

b2[m,n+i]:=2;

m3:=m3+1

end;

end

end;

8..10:

case m of

1..7: case z of

0: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+2,n-1]<>2) and

(b2[m+2,n+1]<>2) and

(b2[m+2,n]<>2) and

(b2[m+3,n-1]<>2) and

(b2[m+3,n+1]<>2) and

(b2[m+3,n]<>2) then begin

for i:=0 to 2 do

b2[m+i,n]:=2;

m3:=m3+1

end;

1: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n-2]<>2) and

(b2[m-1,n-2]<>2) and

(b2[m,n-2]<>2) and

(b2[m+1,n-3]<>2) and

(b2[m-1,n-3]<>2) and

(b2[m,n-3]<>2) then

begin

for i:=0 to 2 do

b2[m,n-i]:=2;

m3:=m3+1

end

end;

8..10: case z of

0: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n-2]<>2) and

(b2[m-1,n-2]<>2) and

(b2[m,n-2]<>2) and

(b2[m+1,n-3]<>2) and

(b2[m-1,n-3]<>2) and

(b2[m,n-3]<>2) then

begin

for i:=0 to 2 do

b2[m,n-i]:=2;

m3:=m3+1

end;

1: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m-2,n-1]<>2) and

(b2[m-2,n+1]<>2) and

(b2[m-2,n]<>2) and

(b2[m-3,n-1]<>2) and

(b2[m-3,n+1]<>2) and

(b2[m-3,n]<>2) then

begin

for i:=0 to 2 do

b2[m-i,n]:=2;

m3:=m3+1

end

end

end

end

end;

//двухпалубные

while m2<3 do begin

m:=random(10)+1;

n:=random(10)+1;

z:=(random(100) mod 2);

case n of

1..8:

case m of

1..8: case z of

0: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m,n+1]<>2) and

(b2[m+1,n+2]<>2) and

(b2[m-1,n+2]<>2) and

(b2[m,n+2]<>2) then

begin

for i:=0 to 1 do

b2[m,n+i]:=2;

m2:=m2+1

end;

1: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n]<>2) and

(b2[m+2,n-1]<>2) and

(b2[m+2,n+1]<>2) and

(b2[m+2,n]<>2) then begin

for i:=0 to 1 do

b2[m+i,n]:=2;

m2:=m2+1

end

end;

9..10: case z of

0: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m-2,n-1]<>2) and

(b2[m-2,n+1]<>2) and

(b2[m-2,n]<>2) then

begin

for i:=0 to 1 do

b2[m-i,n]:=2;

m2:=m2+1

end;

1: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m,n+1]<>2) and

(b2[m+1,n+2]<>2) and

(b2[m-1,n+2]<>2) and

(b2[m,n+2]<>2) then

begin

for i:=0 to 1 do

b2[m,n+i]:=2;

m2:=m2+1

end;

end

end;

9..10:

case m of

1..8: case z of

0: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+2,n-1]<>2) and

(b2[m+2,n+1]<>2) and

(b2[m+2,n]<>2) then begin

for i:=0 to 1 do

b2[m+i,n]:=2;

m2:=m2+1

end;

1: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n-2]<>2) and

(b2[m-1,n-2]<>2) and

(b2[m,n-2]<>2) then

begin

for i:=0 to 1 do

b2[m,n-i]:=2;

m2:=m2+1

end

end;

9..10: case z of

0: if (b2[m,n]<>2) and

(b2[m-1,n-1]<>2) and

(b2[m-1,n]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m,n-1]<>2)and

(b2[m+1,n+1]<>2)and

(b2[m+1,n]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n-2]<>2) and

(b2[m-1,n-2]<>2) and

(b2[m,n-2]<>2) then

begin

for i:=0 to 1 do

b2[m,n-i]:=2;

m2:=m2+1

end;

1: if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m-2,n-1]<>2) and

(b2[m-2,n+1]<>2) and

(b2[m-2,n]<>2) then

begin

for i:=0 to 1 do

b2[m-i,n]:=2;

m2:=m2+1

end

end

end

end

end;

//подлодки

while m1<4 do begin

m:=random(10)+1;

n:=random(10)+1;

while m1<4 do begin

m:=random(10)+1;

n:=random(10)+1;

if (b2[m,n]<>2) and

(b2[m+1,n+1]<>2) and

(b2[m,n+1]<>2) and

(b2[m-1,n+1]<>2) and

(b2[m-1,n]<>2)and

(b2[m-1,n-1]<>2)and

(b2[m,n-1]<>2) and

(b2[m+1,n-1]<>2) and

(b2[m+1,n]<>2) then begin

b2[m,n]:=2;

m1:=m1+1;

end

end;

end;

end;

procedure TForm1.rastkor(Sender: TObject; Shift: TShiftState; X,

Y: Integer); //расстановка кораблей на поле игрока

begin

image1.Canvas.Brush.Color:=clwhite;

y1:=(Y div 20)+1;

x1:=(X div 20)+1;

For i:=1 to 10 do

for j:=1 to 10 do

begin

if (b1[i,j]<>2) and (b1[i,j]<>3) and (b1[i,j]<>4) then

begin

b1[i,j]:=0;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*i,20*j);

end;

end;

if rot=false then begin //ротация кораблей по горизонтали

case k11 of //смотрит какой корабль надо располагать

0: begin if (b1[x1,y1]<>2) then

for i:=0 to 0 do

b1[x1+i,y1]:=1; end;

1: begin if (b1[x1,y1]<>2) and (b1[x1+1,y1]<>2)then

for i:=0 to 1 do begin

b1[x1+i,y1]:=1 end; end;

2: begin if (b1[x1,y1]<>2) and (b1[x1+1,y1]<>2) and (b1[x1+2,y1]<>2) then

for i:=0 to 2 do

b1[x1+i,y1]:=1; end;

3: begin if (b1[x1,y1]<>2) and (b1[x1+1,y1]<>2) and (b1[x1+2,y1]<>2) and (b1[x1+3,y1]<>2) then

for i:=0 to 3 do

b1[x1+i,y1]:=1; end;

end;

For i:=1 to 10 do //рисует желтым цветом текущее положение корабля

for j:=1 to 10 do

begin

if (b1[i,j]=1) then

begin

image1.Canvas.Brush.Color:=clyellow;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*(i),20*(j));

end;

end;

end

else //ротация кораблей по вертикали

begin

case k11 of

0: begin if (b1[x1,y1]<>2) then

for i:=0 to 0 do

b1[x1,y1+i]:=1; end;

1: begin if (b1[x1,y1]<>2) and (b1[x1,y1+1]<>2)then

for i:=0 to 1 do begin

b1[x1,y1+i]:=1 end; end;

2: begin if (b1[x1,y1]<>2) and (b1[x1,y1+1]<>2) and (b1[x1,y1+2]<>2) then

for i:=0 to 2 do

b1[x1,y1+i]:=1; end;

3: begin if (b1[x1,y1]<>2) and (b1[x1,y1+1]<>2) and (b1[x1,y1+2]<>2) and (b1[x1,y1+3]<>2) then

for i:=0 to 3 do

b1[x1,y1+i]:=1; end;

end;

For i:=1 to 10 do

for j:=1 to 10 do

begin

if (b1[i,j]=1) then

begin

image1.Canvas.Brush.Color:=clyellow;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*(i),20*(j));

end;

end;

end;

end;

procedure TForm1.nash(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer); //процедура постановки корабля

begin

x1:=(X div 20)+1;

y1:=(Y div 20)+1;

if k11>=0 then begin //смотрит поставлены все корабли или нет

if button=mbright then begin //производит ротацию корабля по нажатии правой кн мыши

if rot=true then

rot:=false

else

rot:=true;

begin

image1.Canvas.Brush.Color:=clwhite;

For i:=1 to 10 do //рисует в пустых клетках белые квадрвты

for j:=1 to 10 do

begin

if b1[i,j]<>2 then

begin

b1[i,j]:=0;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*i,20*j);

end;

end;

if rot=false then begin //ротация кораблей по горизонтали

case k11 of //смотрит какой корабль сейчас надо расстанавливать

0: begin if (b1[x1,y1]<>2) then

b1[x1,y1]:=1; end;

1: begin if (b1[x1,y1]<>2) and (b1[x1+1,y1]<>2)then

for i:=0 to 1 do begin

b1[x1+i,y1]:=1 end; end;

2: begin if (b1[x1,y1]<>2) and (b1[x1+1,y1]<>2) and (b1[x1+2,y1]<>2) then

for i:=0 to 2 do

b1[x1+i,y1]:=1; end;

3: begin if (b1[x1,y1]<>2) and (b1[x1+1,y1]<>2) and (b1[x1+2,y1]<>2) and (b1[x1+3,y1]<>2) then

for i:=0 to 3 do

b1[x1+i,y1]:=1; end;

end;

For i:=1 to 10 do //рисует желтым цветом корабль(ещё не поставленный)

for j:=1 to 10 do

begin

if (b1[i,j]=1) then

begin

image1.Canvas.Brush.Color:=clyellow;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*(i),20*(j));

end;

end;

end

else //ротация кораблей по вертикали

begin

case k11 of //смотрит какой корабль сейчас надо расстанавливать

0: begin if (b1[x1,y1]<>2) then

b1[x1,y1]:=1; end;

1: begin if (b1[x1,y1]<>2) and (b1[x1,y1+1]<>2)then

for i:=0 to 1 do begin

b1[x1,y1+i]:=1 end; end;

2: begin if (b1[x1,y1]<>2) and (b1[x1,y1+1]<>2) and (b1[x1,y1+2]<>2) then

for i:=0 to 2 do

b1[x1,y1+i]:=1; end;

3: begin if (b1[x1,y1]<>2) and (b1[x1,y1+1]<>2) and (b1[x1,y1+2]<>2) and (b1[x1,y1+3]<>2) then

for i:=0 to 3 do

b1[x1,y1+i]:=1; end;

end;

For i:=1 to 10 do //рисует желтым цветом корабль(ещё не поставленный)

for j:=1 to 10 do

begin

if (b1[i,j]=1) then

begin

image1.Canvas.Brush.Color:=clyellow;

image1.Canvas.Rectangle(20*i-20,20*j-20,20*(i),20*(j));

end;

end;

end;

end;

end

else

if rot=false then begin //ставит корабль по горизонтали

case k11 of //смотрит какой корабль ставить

0: case x1 of //смотрит есть ли рядом с однопалубным кораблём другие корабли

1: if (b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1]<>2) then

begin

b1[x1,y1]:=2;

riad:=true

end

else

riad:=false;

2..10: if (b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1-1,y1+1]<>2) and

(b1[x1-1,y1]<>2)and

(b1[x1-1,y1-1]<>2)and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1]<>2) then begin

b1[x1,y1]:=2;

riad:=true

end

else

riad:=false;

end;

1: case x1 of //смотрит есть ли рядом с двупалубным кораблём другие корабли

1:if(b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+2,y1-1]<>2) and

(b1[x1+2,y1+1]<>2) and

(b1[x1+2,y1]<>2) and (x1+1<11)

then

for i:=0 to k11 do

begin

b1[x1+i,y1]:=2;

riad:=true

end

else

riad:=false;

2..10: if (b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1-1,y1+1]<>2) and

(b1[x1-1,y1]<>2)and

(b1[x1-1,y1-1]<>2)and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+2,y1-1]<>2) and

(b1[x1+2,y1+1]<>2) and

(b1[x1+2,y1]<>2) and (x1+1<11) then

for i:=0 to k11 do begin

b1[x1+i,y1]:=2;

riad:=true

end

else

riad:=false;

end;

2: case x1 of //смотрит есть ли рядом с трехпалубным кораблём другие корабли

1: if (b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+2,y1-1]<>2) and

(b1[x1+2,y1+1]<>2) and

(b1[x1+3,y1-1]<>2) and

(b1[x1+3,y1+1]<>2) and

(b1[x1+3,y1]<>2) and (x1+2<11) then

for i:=0 to k11 do begin

b1[x1+i,y1]:=2;

riad:=true

end

else

riad:=false;

2..10:

if (b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1-1,y1+1]<>2) and

(b1[x1-1,y1]<>2)and

(b1[x1-1,y1-1]<>2)and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+2,y1-1]<>2) and

(b1[x1+2,y1+1]<>2) and

(b1[x1+3,y1-1]<>2) and

(b1[x1+3,y1+1]<>2) and

(b1[x1+3,y1]<>2) and (x1+2<11) then

for i:=0 to k11 do begin

b1[x1+i,y1]:=2;

riad:=true

end

else

riad:=false

end;

3: if x1+3<11 then //ставит четырехпалубный корабль

begin

for i:=0 to k11 do

b1[x1+i,y1]:=2;

riad:=true

end

else

riad:=false;

end;

if riad=true then begin //смотрит если корабль поставлен то уменьшает счетчик

if (k11=3) then

begin;

k11:=k11-1;

end;

if (k11=2) and (k33=0) then

begin

k11:=k11-1;

k33:=k33-1

end

else

k33:=k33-1;

if (k11=1) and (k32=0) then

begin

k11:=k11-1;

k32:=k32-1

end

else

k32:=k32-1;

if (k11=0) and (k31=0) then

begin

k11:=k11-1;

k31:=k31-1

end

else

k31:=k31-1;

end;

end

else //ставит корабль по горизонтали

begin

case k11 of //смотрит какой корабль ставить

0: case x1 of //смотрит есть ли рядом с однопалубным кораблём другие корабли

1: if (b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1]<>2) then

begin

b1[x1,y1]:=2;

riad:=true

end

else

riad:=false;

2..10: if

(b1[x1,y1]<>2) and

(b1[x1+1,y1+1]<>2) and

(b1[x1,y1+1]<>2) and

(b1[x1-1,y1+1]<>2) and

(b1[x1-1,y1]<>2)and

(b1[x1-1,y1-1]<>2)and

(b1[x1,y1-1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1]<>2) then begin

b1[x1,y1]:=2;

riad:=true

end

else

riad:=false;

end;

1: case x1 of //смотрит есть ли рядом с двупалубным кораблём другие корабли

1: if (b1[x1,y1]<>2) and

(b1[x1,y1-1]<>2)and

(b1[x1+1,y1+1]<>2)and

(b1[x1+1,y1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1+2]<>2) and

(b1[x1,y1+2]<>2) and (y1+1<11) then

for i:=0 to k11 do begin

b1[x1,y1+i]:=2;

riad:=true

end

else

riad:=false;

2..10:

if (b1[x1,y1]<>2) and

(b1[x1-1,y1-1]<>2) and

(b1[x1-1,y1]<>2) and

(b1[x1-1,y1+1]<>2) and

(b1[x1,y1-1]<>2)and

(b1[x1+1,y1+1]<>2)and

(b1[x1+1,y1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1+2]<>2) and

(b1[x1-1,y1+2]<>2) and

(b1[x1,y1+2]<>2) and (y1+1<11) then

for i:=0 to k11 do begin

b1[x1,y1+i]:=2;

riad:=true

end

else

riad:=false

end;

2: case x1 of //смотрит есть ли рядом с двупалубным кораблём другие корабли

1:if (b1[x1,y1]<>2) and

(b1[x1,y1-1]<>2)and

(b1[x1+1,y1+1]<>2)and

(b1[x1+1,y1]<>2) and

(b1[x1+1,y1-1]<>2) and

(b1[x1+1,y1+2]<>2) and

(b1[x1+1,y1+3]<>2) and