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

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;

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;