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

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