'';
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;
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);
...
