Категория
Информатика
Тип
курсовая работа
Страницы
4 стр.
Дата
31.07.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
118687.zip — 34.56 kb
  • igrovaja-programma_118687_1.rtf — 391.37 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

, 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\R3' then begin
SpeedGL.MediaPlayer1.FileName:='Sound\R3';
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-0.01 then
begin
Speed:=-0.01;
Gas:=false;
GasDeley:=1;
end;
end
else
if Speed=Right_death_dot then LR:=-1;
if X_Enymi1.2)or(Y_Enymi4 then CarMenuItem:=1;
if CarMenuItem0)and
(GasDeley=1) then
begin
Gas:=true;
CountNitro:=CountNitro-1;
GasDeley:=0;
PlaySound('Sound\Start_Nv',0,SND_ASYNC);
end;
end;
событие OnPaint :
procedure TSpeedGL.FormPaint(Sender: TObject);
var
ps:TPaintStruct;
begin
BeginPaint(dc,ps);
if Selected_Menu_item=''



Ваше мнение



CAPTCHA