Разработка игрового приложения на языке PascalABC.NET

1.Информационный ресурс о играх. URL: http://www.kongregate.com/games/Moly/gorillas-bas

2.Сайт факультета математики, механики и компьютерных наук Южного федерального университета. URL: http://pascalabc.net/

3.Материал из Википедии, свободной энциклопедии. URL: http://ru.wikipedia.org/wiki/Worms

4.Материал из Википедии, свободной энциклопедии. URL: http://ru.wikipedia.org/wiki/Angry_Birds

5.Материал из Википедии, свободной энциклопедии. URL: http://ru.wikipedia.org/wiki/Баллистика

Приложение А

Тексты основных программных модулей

uses GraphABC, ABCObjects, Timers;

const

window_x = 1000; { ширина окна }

window_y = 700; { высота окна }

g = 9.81; { гравитационная постоянная }

pi = 3.14; { математическая константа }

time_step = 41; { время хода в секундах }

type

Players = class(PictureABC)

private

Name: string; { имя игрока }

Life: integer; { кол-во жизней }

X,Y: integer; { расположение башен }

Power_x: integer; { расположение индикатора силы по Х }

Color: System.Drawing.Color; { цвет игрока }

protected

constructor Create(x,y: integer; fname: string);

begin

inherited;

self.X:=x;

self.Y:=y;

end;

procedure SetName(Name: string);

begin

self.Name := Name;

end;

procedure SetLife(Life: integer);

begin

self.Life := Life;

end;

procedure SetColor(Color: System.Drawing.Color);

begin

self.Color := Color;

end;

procedure LifeInit;

begin

Life := 100;

end;

public

property PName: string read Name write SetName;

property PLife: integer read Life write SetLife;

property PColor: System.Drawing.Color read Color write SetColor;

end;

CGame = class

private

Start, StepStatus: boolean;

Angle, Speed, EventEnable, Sec, Counter: integer;

Ball, MenuBG, InfoStep, InfoTime, InfoNameP1, InfoNameP2, PowerP1, PowerP2, RightBG, LeftBG, Celebration: PictureABC;

ButtonStart, ButtonExit, ButtonRestart: PictureABC;

Player1, Player2, ActPlayer, PasPlayer: Players;

TDisplay: Timer;

protected

constructor Create;

begin

SetWindowWidth(window_x);

SetWindowHeight(window_y);

CenterWindow;

SetSmoothingOn;

OnKeyDown := KeyDown;

OnMouseDown := Mouse;

MenuBG := new PictureABC(0, 0, 'models\bg.png');

Player1 := new Players(0, 580, 'models\original_tower.png');

Player2 := new Players(880, 580, 'models\original_tower.png');

TDisplay := new Timer(1000, Seconds);

Player1.Power_x := 120;

Player2.Power_x := -90;

Ball := new PictureABC(window_x, window_y, 'models\core_2.png');

InfoStep := new PictureABC(window_x div 2 - 150, 20, 'models\step.png');

InfoTime := new PictureABC(window_x div 2 - 60, window_y - 620, 'models\form_button.png');

PowerP1 := new PictureABC(Player1.X+Player1.Power_x-3, Player1.Y+60, 'models\power3.png');

PowerP2 := new PictureABC(Player2.X+Player2.Power_x-3, Player2.Y+60, 'models\power3.png');

RightBG := new PictureABC(Player2.x, Player2.y-50, 'models\right_bg.png');

LeftBG := new PictureABC(Player1.x, Player2.y-50, 'models\left_bg2.png');

Celebration := new PictureABC((window_x div 2) - 200 , window_y div 3, 'models\celebration.png');

IndicatorPrint;

Hidden;

ButtonStart := new PictureABC((window_x div 2) - 80, window_y div 3, 'models\button_start.png');

ButtonExit := new PictureABC((window_x div 2) - 80, (window_y div 3)+50, 'models\button_exit1.png');

ButtonRestart := new PictureABC(20, 10, 'models\button_restart.png');

ButtonRestart.Visible := FALSE;

end;

{ Метод определяет координаты полета снаряда }

procedure Physics(v0, angle: real);

var x,y: integer;

t: real;

begin

while t<15 do begin

t := t+0.03;

y := ActPlayer.y-round(5*(v0*sin(Angle*pi/180)*t-g*t*t/2));

x := 50+ActPlayer.x+round(5*(v0*cos(Angle*pi/180)*t));

if y > window_y then continue;

if x > window_x then continue;

Ball.MoveTo(x, y);

if PasPlayer.Intersect(Ball) then begin

if PasPlayer.Life < 1 then begin

GameOver; EXIT;

end;

PasPlayer.Life -= 1;

LifePrint;

end;

sleep(5);

end;

if PasPlayer.Life < 100 then ChangeTower;

end;

{ Метод определяет активного игрока }

procedure ActivePlayer(player: Players);

begin

TDisplay.Stop;

TDisplay.Start;

ActPlayer := player;

EventEnable := 1; { Если равно 1, то разрешно одно нажатие на Enter }

Angle := 90; { Задаем начальный угол }

Sec := time_step;

Speed := 0; { Начальная скорость }

IndicatorPrint;

StepPrint;

end;

{ Метод определяет кто является не активны игроком }

procedure PassivePlayer(player: Players);

begin

PasPlayer := player;

end;

{ Таймер отсчитывает сколько имеется секунд на ход }

procedure Seconds;

var sub_nil: string;

begin

dec(Sec);

if (Sec < 10) then sub_nil := '0'

else sub_nil := '';

if Sec < 1 then begin

Counter += 1;

StepStatus := TRUE;

end;

InfoTime.FontColor := ActPlayer.Color;

InfoTime.Text := '00:' + sub_nil + Sec.ToString;

end;

{ Запуск игры }

procedure GameInit;

begin

Show;

LifePrint;

NamePrint;

StepStatus := TRUE;

Counter := 0;

while TRUE do begin

if StepStatus = TRUE then begin

if (Counter mod 2 = 0) then begin

ActivePlayer(Player1);

PassivePlayer(Player2);

StepStatus := FALSE;

end else begin

ActivePlayer(Player2);

PassivePlayer(Player1);

StepStatus := FALSE;

end;

end;

sleep(1000);

end;

end;

{ Рестарт игры }

procedure RestartGame;

begin

Player1.LifeInit;

Player2.LifeInit;

LifePrint;

TDisplay.Start;

Sec := time_step;

Celebration.Visible := FALSE;

Player1.ChangePicture('models\original_tower.png');

Player2.ChangePicture('models\original_tower.png');

end;

{ Конец игры }

procedure GameOver;

begin

TDisplay.Stop;

Celebration.Visible := TRUE;

Celebration.TextScale := 0.6;

Celebration.FontColor := clWhite;

Celebration.Text := ActPlayer.Name + ' одержал победу!';

end;

private

{ Метод вывод на экран ход текущего игрока }

procedure StepPrint;

begin

InfoStep.FontColor := ActPlayer.Color;

InfoStep.Text := 'Ход игрока: ' + ActPlayer.Name;

end;

{ Состояние жизней }

procedure LifePrint;

var life: string;

begin

Player1.FontColor := clWhite;

Player2.FontColor := clWhite;

Player1.TextScale := 0.4;

Player2.TextScale := 0.4;

Player1.Text := Player1.Life.ToString;

Player2.Text := Player2.Life.ToString;

end;

{ Ники игроков }

procedure NamePrint;

begin

PowerP1.FontColor := Player1.Color;

PowerP2.FontColor := Player2.Color;

PowerP1.Text := Player1.Name;

PowerP2.Text := Player2.Name;

end;

{ Индикаторы силы }

procedure IndicatorPrint;

begin

PowerP1.Redraw;

PowerP2.Redraw;

end;

{ Метод меняет изображение башни в зависимости от уроня HP }

procedure ChangeTower;

begin

if (PasPlayer.Life > 90) and (PasPlayer.Life < 100) then PasPlayer.ChangePicture('models\tower_crack\1.png')

else if PasPlayer.Life > 80 then PasPlayer.ChangePicture('models\tower_crack\2.png')

else if PasPlayer.Life > 70 then PasPlayer.ChangePicture('models\tower_crack\3.png')

else if PasPlayer.Life > 60 then PasPlayer.ChangePicture('models\tower_crack\4.png')

else if PasPlayer.Life > 50 then PasPlayer.ChangePicture('models\tower_crack\5.png')

else if PasPlayer.Life > 40 then PasPlayer.ChangePicture('models\tower_crack\6.png')

else if PasPlayer.Life > 30 then PasPlayer.ChangePicture('models\tower_crack\7.png')

else if PasPlayer.Life > 20 then PasPlayer.ChangePicture('models\tower_crack\8.png')

else if PasPlayer.Life > 10 then PasPlayer.ChangePicture('models\tower_crack\9.png')

else if PasPlayer.Life > 0 then PasPlayer.ChangePicture('models\tower_crack\10.png');

end;

{ Скрытие графических элементов }

procedure Hidden;

begin

if InfoTime.Visible = TRUE then InfoTime.Visible := FALSE;

if InfoStep.Visible = TRUE then InfoStep.Visible := FALSE;

if Player1.Visible = TRUE then Player1.Visible := FALSE;

if Player2.Visible = TRUE then Player2.Visible := FALSE;

if PowerP1.Visible = TRUE then PowerP1.Visible := FALSE;

if PowerP2.Visible = TRUE then PowerP2.Visible := FALSE;

if Celebration.Visible = TRUE then Celebration.Visible := FALSE;

end;

{ Показать графические элементы }

procedure Show;

begin

if InfoTime.Visible = FALSE then InfoTime.Visible := TRUE;

if InfoStep.Visible = FALSE then InfoStep.Visible := TRUE;

if Player1.Visible = FALSE then Player1.Visible := TRUE;

if Player2.Visible = FALSE then Player2.Visible := TRUE;

if PowerP1.Visible = FALSE then PowerP1.Visible := TRUE;

if PowerP2.Visible = FALSE then PowerP2.Visible := TRUE;

end;

{ События }

procedure KeyDown(key: integer);

begin

if (Angle > 135) then Angle -= 2;

if (Angle < 45) then Angle += 2;

if (Speed > 98) then Speed -= 2;

if (Speed < 1) then Speed += 2;

case key of

VK_Right:

begin

Angle-=2;

RightBG.Redraw;

LeftBG.Redraw;

SetPenColor(clWhite);

line(50+ActPlayer.x, ActPlayer.y, 50+ActPlayer.x+Round(50*cos((0+Angle)*pi/180)), ActPlayer.y-Round(50*sin((0+Angle)*pi/180)));

end;

VK_Left:

begin

Angle+=2;

RightBG.Redraw;

LeftBG.Redraw;

SetPenColor(clWhite);

line(50+ActPlayer.x, ActPlayer.y, 50+ActPlayer.x+Round(50*cos((0+Angle)*pi/180)), ActPlayer.y-Round(50*sin((0+Angle)*pi/180)));

end;

VK_Enter:

begin

if EventEnable = 1 then begin

Physics(Speed/1.5, Angle);

EventEnable := 0;

Counter+=1;

StepStatus := TRUE;

RightBG.Redraw;

LeftBG.Redraw;

end;

end;

VK_Up:

begin

SetPenColor(clRed);

line(ActPlayer.X+ActPlayer.Power_x+Speed, ActPlayer.Y+80, ActPlayer.X+ActPlayer.Power_x+Speed, ActPlayer.y+62);

Speed+=2;

end;

VK_Down:

begin

SetPenColor(clWhite);

line(ActPlayer.X+ActPlayer.Power_x+Speed, ActPlayer.Y+80, ActPlayer.X+ActPlayer.Power_x+Speed, ActPlayer.y+62);

Speed-=2;

end;

end; { конец case }

end;

procedure Mouse (x,y,mousebutton: integer);

begin

if ButtonStart.PtInside(x, y) then begin

ButtonStart.Destroy;

ButtonExit.MoveTo(20, 50);

Start := TRUE;

ButtonRestart.Visible := TRUE;

end;

if ButtonExit.PtInside(x, y) then begin

Halt;

end;

if ButtonRestart.PtInside(x, y) then begin

RestartGame;

end;

end;

end; { конец класса }

var

Game: CGame := new CGame;

begin

while Game.Start <> TRUE do sleep(500);

Game.Player1.PName := 'Орк';

Game.Player2.PName := 'Гэндальф';

Game.Player1.PColor := clGold;

Game.Player2.PColor := clWhite;

Game.Player1.LifeInit;

Game.Player2.LifeInit;

Game.GameInit;

end.

Приложение Б

Техническое задание по ГОСТ 19.201-78 ЕСПД

Б1. Введение

Наименование программы

Наименование - Игра «2 башни»

Б2. Основания для разработки

Разработка проводится на основании:

задания на курсовой проект по специальности 231000 «Программная Инженерия» факультета «Информатика и вычислительная техника» Донского государственного технического университета;

задания на программную реализацию игры, данного Слоновским Алексеем Владимировичем.

Тема курсового проекта: Программная реализация игры «2 башни».

Б3. Назначение разработки

Б3.1. Функциональное назначение

Предоставление пользователю возможности электронного прохождения игры «2 башни».

Б3.2. Эксплуатационное назначение

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

Б4. Требования к программе или программному изделию

Программное изделие должно состоять из одной программы:

программа «2 башни» - программа моделирующая игру 2 башни;

использование небольшого объема оперативной памяти компьютера;

возможность использования ПП на любой версии MS Windows, начиная с версии 2000;

удобный и интуитивно понятный интерфейс приложения.

Б4.1. Требования к функциональным характеристикам

Игра «2 башни» должна обеспечивать возможность выполнения перечисленных ниже функций:

функция графического вывода на экран;

Функция запуска новой игры;

функция управления углом атаки;

функция управления скоростью атаки;

функция запуска снаряда;

функция выхода из игры.

Б4.1.1. Выходные данные системы

Вывод на экран графического отображения всех объектов игрового процесса .

Б4.2. Условия эксплуатации

Б4.2.1. Климатические условия эксплуатации

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

Б4.2.2. Требования к видам обслуживания

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

Б4.2.3 Требования к численности и квалификации персонала

Необходима 1 штатная единица-опертор.

Б4.2.4 Требования к составу и параметрам технических средств

В состав технических средств должен входить IBM-совместимый персональный компьютер (ПЭВМ), включающий в себя:

процессор Pentium-3 с тактовой частотой не менее 1 ГГц;

оперативную память объемом не менее 512 Мб;

жесткий диск со скорость не менее 5400 об/мин и свободным местом не менее 100Мб;

SVGA-совместимый видеоадаптер;

монитор с разрешением не менее 800x600 пикселей;

клавиатуру;

мышь.

Б4.3. Требования к маркировке и упаковке

Программа поставляется в виде программного изделия - на дистрибутивном (внешнем оптическом) носителе (компакт-диске).

Б4.3.1. Требования к маркировке

Требования к маркировке программного изделия не предъявляются.

Б4.3.2. Требования к упаковке

Упаковка программного изделия должна осуществляться согласно требованиям предприятия-изготовителя носителя информации.

Б4.4. Требования к транспортированию и хранению

Допускается транспортирование программного изделия в транспортной таре всеми видами транспорта.

При транспортировании и хранении программного изделия должна быть предусмотрена защита от попадания пыли и атмосферных осадков. Не допускается кантование программного изделия.

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

Б5. Требования к программной документации

Программная документация должна содержать:

лист задания;

алгоритмы решения;

пояснительная записка;

тексты основных программных модулей;

техническое задание (по ГОСТ 19.201-78).

Б6. Стадии и этапы разработки

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

анализ требований;

разработка технического задания;

разработка программного продукта;

тестирование системы;

внедрение;

составление акта внедрения.

Разработка программного средства осуществляется одним человеком в период с ноября по декабрь 2012 года.

Б7. Порядок контроля и приемки

Порядок и контроль приёмки определяются преподавателем «ПОВТ и АС» и основаны на демонстрации знаний технологии и умении создавать программные средства для различных предметных областей. Главным требованием к приему является наличие корректно работающей программы и отчета, представленного в печатном виде.

Б8. Приложение к техническому заданию. Обоснование выбора технологии

Для реализации программного средства выбрано приложение PascalABC.NET, в связи с его использованием в процессе обучения.

Разработчик студент группы ВПР 22 Голиков Иван /_______/ 27.12.2012

Размещено на Allbest.ru