Курсовая работа: Игровая программа

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;