glRotatef (Angel, 0.0,0.0,1.0);
glCallList (Tires);
glPopMatrix;
end;
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 glCal...
