Разработка игровой программы

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ

Таганрогский государственный радиотехнический университет

Кафедра вычислительной техники

_____________________________________________________________________

Дистанционное обучение

2000 – 2001 учебный год

КУРСОВАЯ РАБОТА

по курсу

ТЕХНОЛОГИЯ ПРОГРАММИРОВАНИЯ

Студента группы ВД – 49

Каретина Флориана Викторовича

Задание выполнил ________________ _____________________

подпись студента дата выполнения задания

Задание проверил ________________ _____________________

оценка подпись преподавателя

_______________________

дата проверки задания

Рецензия преподавателя

______________________________________________________________________

______________________________________________________________________

______________________________________________________________________

______________________________________________________________________

______________________________________________________________________

ОГЛАВЛЕНИЕ

1. Постановка задачи 3 стр.

2. Входные данные 3 стр.

3. Выходные данные 3 стр.

4. Текст программы 4 стр.

1. Постановка задачи.

Необходимо разработать игровую программу «Арканоид». Дощечки для отбивания шарика надо разместить слева и справа. Правая дощечка должна управляться клавишами «A» и «Z» (вверх и вниз соответственно), а правая дощечка должна управляться клавишами «L» и «<»>

2. Входные данные.

1. Управление дощечками пользователем.

2. Положение дощечек при приближении шарика к краям экрана.

3. Выходные данные.

1. Перемещение дощечки по экрану при нажатии определенных клавиш.

2. Отталкивание/непопадание шарика от дощечки.

3. Выдача очков играющих.

4. Звуковое сопровождение при попадании или непопадании шарика по дощечке, или отскакивания его от стенки.

Текст программы

program Game_Tenis;

uses DOS, Crt2, Graph;

var

CK, StopRun, Up1, Down1, Up2, Down2, Auto1, Auto2 :Boolean;

R1, R2, oR1, oR2, BX, BY, oBX, oBY, Step :Integer;

kX, kY, rBX, rBY :Real;

MissCount1, MissCount2 :Word;

OldInt9: procedure;

{____________________________________________________________________________}

{работа с клавиатурой по превываниям}

procedure UserInt9; interrupt;

begin

case Port[$60] of

$81: StopRun:=True; {Esc - выход}

$1E: begin CK:=True; Up1:=True; end; {вверх первая дощечка}

$9E: begin CK:=True; Up1:=False; end;

$2C: begin CK:=True; Down1:=True; end; {вниз первая дощечка}

$AC: begin CK:=True; Down1:=False; end;

$25: begin CK:=True; Up2:=True; end; {вверх вторая дощечка}

$A5: begin CK:=True; Up2:=False; end;

$32: begin CK:=True; Down2:=True; end; {вниз вторая дощечка}

$B2: begin CK:=True; Down2:=False; end;

$02: Auto1:=not Auto1; {включение/выключение авто-режима}

{для игрока 1}

$03: Auto2:=not Auto2; {включение/выключение авто-режима}

{для игрока 2}

end;

Inline ($E4/$61/$8A/$E0/$0C/$80/ {вставка в машинных кодах}

$E6/$61/$86/$E0/$E6/$61/ {для правильной работы}

$B0/$20/$E6/$20); {обработчика прерывания}

end;

{----------------------------------------------------------------------------}

{процедура установки пользовательского прерывания}

procedure SetUserInt;

begin

GetIntVec($09,@OldInt9); {сохранение старого вектора}

SetIntVec($09,Addr(UserInt9)); {установка нового}

end;

{----------------------------------------------------------------------------}

{восстановление старого вектора}

procedure SetOldInt;

begin

SetIntVec($09,@OldInt9);

end;

{----------------------------------------------------------------------------}

{процедура инициализации графического режима}

procedure InitScreen;

var

GrMode, GrDriver :Integer;

GrPath :String;

begin

GrDriver:=VGA;

GrMode:=VGAHi;

GrPath:='E:plbpbgi';

InitGraph(GrDriver, GrMode, GrPath);

SetTextStyle(2, 0, 6);

end;

{----------------------------------------------------------------------------}

{процедура обновления количества очков игроков}

procedure RefrCount;

var

s1 :String;

begin

SetFillStyle(1,0);

Bar(610, 230, 639, 250);

Str(MissCount1, s1);

OutTextXY(614,232, s1);

Bar(0, 0, 29, 479);

Str(MissCount2, s1);

OutTextXY(5,232, s1);

Bar(0, 230, 29, 250);

Str(MissCount2, s1);