Игровая программа

Игровая программа

Министерство образования Российской Федерации

Новокузнецк, 2005

Министерство образования Российской Федерации

Новокузнецк, 2005

КУРСОВОЙ ПРОЕКТ

КУРСОВОЙ ПРОЕКТ

КП. 2203. 04. 35. ПЗ

Введение

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

Цель игры проехать расстояние 20 километров.

Во время игры на дороге будут встречаться:

Другие машины (противники) препятствующие прохождению, при столкновении отнимающие у вас 1 единицу топлива;

Значок в виде бочки (топливо), восполняющий потери при столкновении или при продолжительной езде;

Нитро, элемент ускорения помогающий развить на некоторое время большую скорость.

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

КП. 2203. 04. 35. ПЗ

1. Общая часть

1.3 Компилятор в машинный код

1.4 Объектно-ориентированная модель программных компонентОВ

VBX’ы приходили, “как есть”, и ни исправить, ни добавить ничего было нельзя.

1.5 Масштабируемые средства для построения баз данных

1.7 Библиотека визуальных компонентов

2. Специальная часть

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

2.3 Проектирование пп

2.4 Основные алгоритмы для событий на форме и компонентах

Клавиши действующие в игре:

Клавиши действующие и в меню и в игре:

«K» (англ.) используется для отображения координат нахождения курсора мыши на форме, результат выводится в заголовок формы;

«F» (англ.) используется для отображения количества кадров в секунду, результат выводится в заголовок формы;

5. тестирование

СОДЕРЖАНИЕ

1.6 Некоторые особенности Delphi

1.9 Поддержка OLE 2.0, DDE и VBX

2.2 Минимальные технические требования и ОС

3. разработка

4. Документирование

Профессиональный колледж №

Специальность:__________________

__________________________________

Дисциплина __Технология разработки программных продуктов_

Тема _____Игровая программа «Автомобильные гонки»______

________________________________________________

( КР. 2203. 04. 35. ПЗ )

РАСЧЕТНО-ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

Руководитель _______ ________________ _____________________

Дата Личная подпись Расшифровка подписи

Нормоконтролер ______ ____________ _____________________

Зав. кафедрой ______ ____________ _____________________

Выполнил студент группы ____________________________________

Оценка ____________________________________________________

СОДЕРЖАНИЕ ВВЕДЕНИЕ 3 1. ОБЩАЯ ЧАСТЬ 4 1.1 ЯЗЫК ПРОГРАММИРОВАНИЯ DELPHI 4 1.2 Delphi. Основные характеристики продукта 4 1.3 Компилятор в машинный код 6 1.4 Объектно-Ориентированная модель программных компонентОВ 6 1.5 Масштабируемые средства для построения баз даннЫх 8 1.6 Некоторые особенности Delphi 8 1.7 Библиотека визуальных компонентов 9 1.8 Структурное объектно-ориентированное программирование 9 1.9 Поддержка OLE 2.0, DDE и VBX 10 2. Специальная часть 10 2.1 Постановка задачи 10 2.2 Минимальные технические требования и ОС 10 2.3 Проектирование пп 11 2.4 Основные алгоритмы для событий на форме и компонентах 12 3. разработка 12 3.1 Кратко описания программной среды разработки 12 3.2 Реализация основных алгоритмов в среде разработки 12 4. Документирование 13 4.1 Инструкция пользователя по пп 13 5. Тестирование 15 5.1 тестирование функций пп 15 5.2 тестирование надёжности 15 Приложение 16
					КП. 2203. 04. 35. ПЗ

Изм	Лист	№ докум	Подп	Дата
Разраб.				Игровая программа «Автомобильные гонки»	Лит	Лист	Листов
Пров.					2	24
Н. контр
Утв.

приложение

Событие таймера:

procedure FNTimeCallBack(uTimerID, uMessage: UINT;dwUser, dw1, dw2: DWORD) stdcall;

var

word:DWORD;

begin

Inc(CountTickTimer);

if (((PressedKey[19]=true)or

(PressedKey[80]=true))and(CountTickTimer>100))and(CountFuel>0) then

if(not Pause) then begin

Pause:=true;

CountTickTimer:=0;

end

else

begin

Pause:=false;

CountTickTimer:=0;

end;

if not Pause then begin

if Selected_Menu_item='Start' then //Нажата клавиша Start

begin

if SpeedGL.MediaPlayer1.FileName<>'Sound\Race.mp3' then begin

SpeedGL.MediaPlayer1.FileName:='Sound\Race.mp3';

SpeedGL.MediaPlayer1.Open;

SpeedGL.MediaPlayer1.Play;

end;

if (PressedKey[27]=true)and(CountTickTimer>100) then

begin

Selected_Menu_item:='';

SpeedGL.MediaPlayer1.Stop;

SpeedGL.MediaPlayer1.Close;

SpeedGL.MediaPlayer1.FileName:='';

Menu_item:=2;

CountTickTimer:=0;

Speed:=0.0;

sound:=false;

CountFuel:=8;

CountKM:=0;

end;

//торможение

if PressedKey[40]=true then

begin

Speed:=Speed+0.00002;

GasDeley:=1;

end;

if (CountFuel>0)and(CountKM<20) then if PressedKey[38]=true then Speed:=Speed-0.000005;//разгон

if (PressedKey[39]=true)and(Speed<-0.00001) then X_KordCar:=X_KordCar+0.00005-Speed/5;//поворот вправо с учётом скорости

if (PressedKey[37]=true)and(Speed<-0.00001) then X_KordCar:=X_KordCar-0.00005+Speed/5;//поворот влево с учётом скорости

if (PressedKey[40]=False)and(PressedKey[38]=False) then begin Speed:=Speed+0.000003; GasDeley:=1; end;//торможение инерцией

if Speed>0 then Speed:=0;//скорость торможения

//////////////////////////////////////////////////////////

if (Gas)and(CountFuel<>0) then

begin

GasDeley:=GasDeley+0.0005;

if GasDeley>=1 then Speed:=Speed+0.00005 else Speed:=-0.025;

if Speed>-0.01 then

begin

Speed:=-0.01;

Gas:=false;

GasDeley:=1;

end;

end

else

if Speed<-0.01 then Speed:=-0.01;//ограничение скорости

//////////////////////////////////////////////////////////

Y_Kord:=Y_Kord+Speed;//наращивание скорости

if EnymiGoToWay then begin

Y_Enymi:=Y_Enymi+Speed+0.0085;

X_Enymi:=X_Enymi+(0.001*LR);

if X_Enymi>=Right_death_dot then LR:=-1;

if X_Enymi<=Left_death_dot then LR:=1;

if (Y_Enymi>1.2)or(Y_Enymi<-1.2)then EnymiGoToWay:=false;

end;

if FuelGoToWay then

Y_KordFuel:=Y_KordFuel+Speed; //Перемещение элементов

if (Speed<>0)and(Speed<-0.00002)and(CountFuel>0) then

CountFuel:=CountFuel+MinusFuel/(Speed*50); //Уменьшение топлива

if (CountFuel<=0)or(CountKM>=20) then begin Gas:=false; GasDeley:=1; Speed:=Speed+0.000003; end;

if (Speed<-0.005)and(MinusFuel=0.00002) then MinusFuel:=MinusFuel*10 else

if MinusFuel=0.0002 then MinusFuel:=MinusFuel/10;

if Y_Kord<=-2.0 then Y_Kord:=0;//перестановка кадров

if X_KordCar>=Right_death_dot then

begin

X_KordCar:=Right_death_dot;//ограничение справа

if Speed<-0.001 then begin Speed:=Speed+0.00002; GasDeley:=1; end;//Уменьшение скорости при прикосновении к бардюру справап

end;

if X_KordCar<=Left_death_dot then

begin

X_KordCar:=Left_death_dot;//ограничение слева

if Speed<-0.001 then begin Speed:=Speed+0.00002; GasDeley:=1; end;//Уменьшение скорости при прикосновении к бардюру слева

end;

end

else

if (PressedKey[27]=true)and(CountTickTimer>100) then

begin

Selected_Menu_item:='';

Menu_item:=2;

CountTickTimer:=0;

Speed:=0.0;

Pause:=false;

sound:=false;

CountFuel:=8;

CountKM:=0;

end;

if Selected_Menu_item='' then //Нажата клавиша Esc в игре или ничего не выбрано

begin

if SpeedGL.MediaPlayer1.FileName<>'Textures\Video\SL_Start_Logo.avi' then

if SpeedGL.MediaPlayer1.FileName<>'Sound\Main_Menu.mp3' then begin

SpeedGL.MediaPlayer1.FileName:='Sound\Main_Menu.mp3';

SpeedGL.MediaPlayer1.Open;

SpeedGL.MediaPlayer1.Play;

end;

if CountTickTimer>100 then begin

if PressedKey[27]=true then

begin

SpeedGL.MediaPlayer1.Stop;

SpeedGL.MediaPlayer1.Close;

SpeedGL.MediaPlayer1.FileName:='';

Selected_Menu_item:='Exit';

CountTickTimer:=0;

end;

if PressedKey[40]=true then

begin

Inc(Menu_item);

PlaySound('Sound\Select_MainMenu.wav',0,SND_ASYNC);

CountTickTimer:=0;

end; //вниз

if PressedKey[38]=true then

begin

Dec(Menu_item);

PlaySound('Sound\Select_MainMenu.wav',0,SND_ASYNC);

CountTickTimer:=0;

end;//вверх

if CountTickTimer>1000 then CountTickTimer:=110;

end;

if Menu_item>4 then Menu_item:=1;//ограничение

if Menu_item<1 then Menu_item:=4;// в пределах 4 пунктов

if PressedKey[13]=true then begin

PlaySound('Sound\Choose_MainMenu.wav',0,SND_ASYNC);

case Menu_item of

1:begin

Selected_Menu_item:='Start';

Score:=0;

FuelGoToWay:=false;

NextKM_GenerFuel:=1;

CountKM:=0;

CountFuel:=8;

CountNitro:=0;

MinusFuel:=0.00002;

Y_KordFuel:=1.5;

FuelGoToWay:=false;

GasDeley:=1;

Gas:=false;

NextKmEnymy:=0.3;

Y_Enymi:=1.2;

end;

2:begin Selected_Menu_item:='Car'; end;

3:begin Selected_Menu_item:='Actors'; end;

4:begin Selected_Menu_item:='Exit'; end;

end;

if CountTickTimer>100 then begin

if Selected_Menu_item='Actors' then //Нажата клавиша Sound

begin

if SpeedGL.MediaPlayer1.FileName<>'Sound\Actor.mp3' then begin

SpeedGL.MediaPlayer1.FileName:='Sound\Actor.mp3';

SpeedGL.MediaPlayer1.Open;

SpeedGL.MediaPlayer1.Play;

end;

if PressedKey[27]=true then

begin

Selected_Menu_item:='';

SpeedGL.MediaPlayer1.Stop;

SpeedGL.MediaPlayer1.Close;

SpeedGL.MediaPlayer1.FileName:='';

CountTickTimer:=0;

end;

if Selected_Menu_item='Car' then //Нажата клавиша Car

begin //Car

if SpeedGL.MediaPlayer1.FileName<>'Sound\Garage.mp3' then begin

SpeedGL.MediaPlayer1.FileName:='Sound\Garage.mp3';

SpeedGL.MediaPlayer1.Open;

SpeedGL.MediaPlayer1.Play;

end;

if PressedKey[27]=true then

begin

Selected_Menu_item:='';

SpeedGL.MediaPlayer1.Stop;

SpeedGL.MediaPlayer1.Close;

SpeedGL.MediaPlayer1.FileName:='';

CountTickTimer:=0;

OldSelectMenyItem:='Car';

end;

if PressedKey[37]=true then

begin

Dec(CarMenuItem);

CountTickTimer:=0;

LeftButton:=true;

PlaySound('Sound\Select_CarMenu.wav',0,SND_ASYNC);

end;

if PressedKey[39]=true then

begin

Inc(CarMenuItem);

CountTickTimer:=0;

RightButton:=true;

PlaySound('Sound\Select_CarMenu.wav',0,SND_ASYNC);

end;

if CarMenuItem>4 then CarMenuItem:=1;

if CarMenuItem<1 then CarMenuItem:=4;

end; //Car

end;//CountTickTimer

if Selected_Menu_item='Exit' then //Нажата клавиша Exit в гланом меню

begin

SpeedGL.MediaPlayer1.Free;

Application.Terminate;

Application.ProcessMessages;

end;

InvalidateRect(SpeedGL.Handle, nil, False);//перерисовка

if (Symvol=0)and

(PressedKey[78]=true)and

(CountNitro>0)and

(GasDeley=1) then

begin

Gas:=true;

CountNitro:=CountNitro-1;

GasDeley:=0;

PlaySound('Sound\Start_Nitro.wav',0,SND_ASYNC);

end;

событие OnPaint:

procedure TSpeedGL.FormPaint(Sender: TObject);

var

ps:TPaintStruct;

begin

BeginPaint(dc,ps);

if Selected_Menu_item='' then

begin

case Menu_item of

1:begin LeftTiresMeny:=-0.849; RightTiresMeny:=0.8; TopTiresMeny:=0.76; end;

2:begin LeftTiresMeny:=-1.1; RightTiresMeny:=1.0; TopTiresMeny:=0.4; end;

3:begin LeftTiresMeny:=-0.8; RightTiresMeny:=0.8; TopTiresMeny:=0.0; end;

4:begin LeftTiresMeny:=-0.8; RightTiresMeny:=0.8; TopTiresMeny:=-0.58; end;

end;

if OldSelectMenyItem='Car' then begin

if RemoveMeny>=0.0 then begin RemoveMeny:=0.0; OldSelectMenyItem:='' end else

RemoveMeny:=RemoveMeny+0.018;

glCallList(Background);

glPushMatrix;

glTranslatef(RemoveMeny,0.0,0.0);

glCallList(StringMeny);

glPopMatrix;

end

else begin

glCallList(Background);//Загрузка фона

glCallList(StringMeny);//Загрузка надписей в меню

end;

if (Selected_Menu_item<>'Car')and(RemoveMeny=0.0) then begin

Angel:=Angel+1;

if Angel=360 then Angel:=0;

glCallList(8);//Загрузка колеса

glPushMatrix;

glScalef(0.5,0.66,0.5);

glTranslatef(LeftTiresMeny,TopTiresMeny,0.0);

glRotatef(Angel,0.0,0.0,1.0);

glCallList(Tires);

glPopMatrix;

glPushMatrix;

glScalef(0.5,0.66,1.0);

glTranslatef(RightTiresMeny,TopTiresMeny,0.0);

glRotatef(Angel,0.0,0.0,1.0);

glCallList(Tires);

glPopMatrix;

end;

if Selected_Menu_item='Start' then //Нажата клавиша Start игра началась

begin //Start

// glClear(GL_COLOR_BUFFER_BIT); //медленное стирание

glPushMatrix;

glTranslatef(0.0,Y_Kord,0.0);

glCallList(WayDesert_1);

glPopMatrix;

glPushMatrix;

glTranslatef(0.0,Y_Kord+1.99,0.0);

glCallList(WayDesert_1);

glPopMatrix;

if not Pause then

if Speed<>0 then CountKM:=CountKM+abs(Speed/27);//количесто пройденых километров

// Caption:=FloatToStrF(CountKM,ffNumber,6,3);

//Генерирование Бензина или Нитро на дороге

if (CountKM>NextKM_GenerFuel)and(FuelGoToWay=False)and(speed<>0) then

begin

if Random(2)=1 then X_KordFuel:=Random*0.5 else X_KordFuel:=-Random*0.5;

FuelGoToWay:=true;

Y_KordFuel:=1.5;

Inc(NextKM_GenerFuel,1);

if not FuelOrNitro then FuelOrNitro:=true else FuelOrNitro:=false;

end;

if (FuelGoToWay)and(Y_KordFuel<-1.2) then FuelGoToWay:=False;

//Прорисовка Бензина или Нитро

if not KordObjectItems(X_KordFuel,Y_KordFuel,0.05,0.065,X_KordCar,Y_KordCar,CarXPogresh,CarYPogresh) then

begin // KordObject

glPushMatrix;

glTranslatef(X_KordFuel,Y_KordFuel,0.0);

if FuelOrNitro then glCallList(ItemFuelList) else glCallList(ItemNitroList);

glPopMatrix;

end//KordObject

else

begin

Y_KordFuel:=1.5;

FuelGoToWay:=False;

PlaySound('Sound\Get_Nitro_Fuel.wav',0,SND_ASYNC);

if FuelOrNitro then if CountFuel<20 then CountFuel:=CountFuel+1;

if not FuelOrNitro then if CountNitro<=10 then CountNitro:=CountNitro+1;

end;

//////////////////////////////////////////////////////

{Caption:=FloatToStrF(CountFuel,ffNumber,6,3)+' '+

FloatToStrF(CountNitro,ffNumber,6,3)+' '+

FloatToStrF(CountKM,ffNumber,6,3)+' '+

FloatToStrF(GasDeley,ffNumber,6,3);}

//////////////////////////////////////////////////////

if (CountKM>NextKmEnymy)and(EnymiGoToWay=False)and(speed<>0) then

begin

NumbrCar:=random(9)+1;

EnymiGoToWay:=true;

NextKmEnymy:=NextKmEnymy+0.1;

Y_Enymi:=1.2;

end;

if (EnymiGoToWay)and(Y_Enymi<-1.2) then EnymiGoToWay:=False;

if not KordObjectEnimy(X_Enymi,Y_Enymi,0.08,0.130,X_KordCar,Y_KordCar,CarXPogresh-0.05,CarYPogresh-0.05) then

begin // KordObject

glPushMatrix;

glTranslatef(X_Enymi,Y_Enymi,0.0);

glCallList(EnymiCars[NumbrCar]);

glPopMatrix;

end//KordObject

else

begin

Y_Enymi:=1.2;

EnymiGoToWay:=False;

GasDeley:=1;

Gas:=false;

Speed:=-0.001;

PlaySound('Sound\Denger_Sound.wav',0,SND_ASYNC);

if CountFuel>0 then CountFuel:=CountFuel-1;

if CountFuel<0 then CountFuel:=0;

end;

//рисование машины

if ChooseCar='ShotWarKiller' then begin

glPushMatrix;

glTranslatef(X_KordCar,Y_KordCar,0.0);

glCallList(WarKiller);

glPopMatrix;

end;

if ChooseCar='ShotFlash' then begin

glPushMatrix;

glTranslatef(X_KordCar,Y_KordCar,0.0);

glCallList(Flash);

glPopMatrix;

end;

if ChooseCar='ShotGembic' then begin

glPushMatrix;

glTranslatef(X_KordCar,Y_KordCar,0.0);

glCallList(Gembic);

glPopMatrix;

end;

if ChooseCar='ShotGlass' then begin

glPushMatrix;

glTranslatef(X_KordCar,Y_KordCar,0.0);

glCallList(Glass);

glPopMatrix;

end;

//Проигрыш и выигрышь в игре

if (CountFuel<=0)and(CountKM<20) then begin glCallList(GameOver); if not sound then sound:=true; end;

if CountKM>=20 then begin glCallList(YouWin); if not sound then sound:=true; end;

if ((CountFuel<=0)or(CountKM>=20))and(Speed>=0)then begin

glPushMatrix;

glTranslatef(0.0,-0.4,0.0);

glCallList(PressEsc);

glPopMatrix

end;

//Игровое меню

glPushMatrix;

glTranslatef(0.7,0.58,0.0);

glScalef(1.5,1.5,1.0);

glCallList(GameMenu);

glPopMatrix;

//Надписи на меню

glPushMatrix;

glTranslatef(0.64,0.68,1.0);

glCallList(FontList);

glPopMatrix;

if Pause then glCallList(PauseToGame);

end; //Start

if Selected_Menu_item='Car' then //Нажата клавиша Car

begin //Car

if RemoveMeny<=-0.5 then RemoveMeny:=-0.5 else RemoveMeny:=RemoveMeny-0.018;

glCallList(Background);

glPushMatrix;

glTranslatef(RemoveMeny,0.0,0.0);

glCallList(StringMeny);

glPopMatrix;

if RemoveMeny<=-0.5 then

begin

//Меню

glPushMatrix;

glTranslatef(0.5,0.2,0.0);

glCallList(sub>MenuInCar);

glPopMatrix;

DeleyButtonInCarMeny;

//Выбирается машина

case CarMenuItem of

1:begin

//ShotWarKiller

glPushMatrix;

glTranslatef(0.5,0.12,0.0);

glCallList(ShotWarKiller);

glPopMatrix;

ChooseCar:='ShotWarKiller';

CarXPogresh:=XPogreshWarKiller;

CarYPogresh:=YPogreshWarKiller;

end;

2:begin

//ShotFlash

glPushMatrix;

glTranslatef(0.5,0.12,0.0);

glCallList(ShotFlash);

glPopMatrix;

ChooseCar:='ShotFlash';

CarXPogresh:=XPogreshFlash;

CarYPogresh:=YPogreshFlash;

end;

3:begin

//ShotGembic

glPushMatrix;

glTranslatef(0.5,0.12,0.0);

glCallList(ShotGembic);

glPopMatrix;

ChooseCar:='ShotGembic';

CarXPogresh:=XPogreshFlash;

CarYPogresh:=YPogreshFlash;

end;

4:begin

//ShotGlass

glPushMatrix;

glTranslatef(0.5,0.12,0.0);

glCallList(ShotGlass);

glPopMatrix;

ChooseCar:='ShotGlass';

CarXPogresh:=XPogreshFlash;

CarYPogresh:=YPogreshFlash;

end;

end;//Case

end;//RemoveMeny

end; //Car

if Selected_Menu_item='Actors' then //Нажата клавиша Actors

begin

glCallList(Actor);

end;

if Selected_Menu_item='Exit' then //Нажата клавиша Exit

begin

end;

SwapBuffers(DC);

EndPaint(DC,ps);

{if Selected_Menu_item='Start'then begin

Canvas.Brush.Color:=clWhite;

Canvas.TextOut(500,40,'Бензин: '+FloatToStrF(CountFuel,ffNumber,6,3)+'л');

Canvas.TextOut(500,55,'Нитро: '+FloatToStrF(CountNitro,ffNumber,6,3)+'кг/см');

Canvas.TextOut(500,70,'К.метры: '+FloatToStrF(CountKM,ffNumber,6,3)+'км');

end;}

Caption:=StatisticCaption;

//Поддержка аппаратного ускорителя и версия OpenGL клавиша 'a'

if PressedKey[65]=true then

Caption:='OpenGL: '+

StrPas(glGetString(GL_VERSION))+

' '+

StrPas(glGetString(GL_VENDOR))+

' '+

StrPas(glGetString(GL_RENDERER));

if PressedKey[70]=true then //Показывать Fps -- клавиша 'f'

begin

newCount:=GetTickCount;

Inc(frameCount);

If abs(newCount - lastCount) > 1000 then

begin

StatisticCaption:='FPS: '+FloatToStr(frameCount);

lastCount := newCount;

frameCount := 0;

end;

if PressedKey[75]=true then

StatisticCaption:='X='+FloatToStrF(xpos,ffNumber,4,3)+

' '+'Y='+FloatToStrF(ypos,ffNumber,4,3);

if (PressedKey[70]=false)and

(PressedKey[75]=false)and

(PressedKey[65]=false)then StatisticCaption:='SpeedLine';

end;

procedure TSpeedGL.FormDestroy(Sender: TObject);

begin

//glDeleteLists(1,1);

timeKillEvent(uTimerID);

wglMakeCurrent (0, 0);

wglDeleteContext (hrc);

ReleaseDC (Handle, DC);

end;

procedure TSpeedGL.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

//////////////////////////////////////////////

xpos:=2*X/ClientWidth-1;

ypos:=2*(ClientHeight-Y)/ClientHeight-1;

//////////////////////////////////////////////

if Selected_Menu_item='' then begin //Selected_Menu_item

if (xpos>-0.3)and(ypos>0.4)and

(xpos<0.3)and(ypos>0.4)and

(xpos<0.3)and(ypos<0.6)and

(xpos>-0.3)and(ypos<0.6)then begin

if Menu_item<>1 then

PlaySound('Sound\Select_MainMenu.wav',0,SND_ASYNC);

Menu_item:=1;

end;

if (xpos>-0.3)and(ypos>0.15)and

(xpos<0.3)and(ypos>0.15)and

(xpos<0.3)and(ypos<0.35)and

(xpos>-0.3)and(ypos<0.35)then begin

if Menu_item<>2 then

PlaySound('Sound\Select_MainMenu.wav',0,SND_ASYNC);

Menu_item:=2;

end;

if (xpos>-0.3)and(ypos>-0.1)and

(xpos<0.3)and(ypos>-0.1)and

(xpos<0.3)and(ypos<0.1)and

(xpos>-0.3)and(ypos<0.1)then begin

if Menu_item<>3 then

PlaySound('Sound\Select_MainMenu.wav',0,SND_ASYNC);

Menu_item:=3;

end;

if (xpos>-0.3)and(ypos>-0.5)and

(xpos<0.3)and(ypos>-0.5)and

(xpos<0.3)and(ypos<-0.3)and

(xpos>-0.3)and(ypos<-0.3)then begin

if Menu_item<>4 then

PlaySound('Sound\Select_MainMenu.wav',0,SND_ASYNC);

Menu_item:=4;

end;

{if Selected_Menu_item='Start' then

begin

end;}

end; //Selected_Menu_item

end;

Введение

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

Цель игры проехать расстояние 20 километров.

Во время игры на дороге будут встречаться:

Другие машины (противники) препятствующие прохождению, при столкновении отнимающие у вас 1 единицу топлива;

Значок в виде бочки (топливо), восполняющий потери при столкновении или при продолжительной езде;

Нитро, элемент ускорения помогающий развить на некоторое время большую скорость.

Игра разрабатывалась в среде Delphi 5 с использованием библиотеки OpenGL версия 1.3.4582 помогающей ускорить вывод графического движка, Pixia версия 2.4g для создания и редактирования текстур, Image Editor версия 3.0 для создания иконок, 3D-Stydio Max версия 5.0 для создания моделей машин (игрока).

КП. 2203. 04. 35. ПЗ