Здравствуйте я на форуме новый. Прошу вас помочь с одной проблемой Очень прошу
Не работает графика в игре. Я запускаю ее из меню игрыона не работет. А как отдельная программа - работает
Вот текст
zastavka:
Clrscr;
D:=EGA;
R:=EGAHi;
InitGraph(d,r,'');
If GraphResult<>grOk
then Writeln(GraphErrorMsg(GraphResult))
Else Begin
readln;
y:=200;
For i:=1 to 50 do
Begin
if i<10 then SetColor(4);
if (i>10)and(i<20) then SetColor(14);
if (i>20)and(i<27) then SetColor(2);
if (i>27)and(i<32) then SetColor(1);
if i>32 then SetColor(13);
Ellipse(325,y,10,180,220,180); {抬ォィッ・ュ・ 、罐ィ}
y:=y+1;
Delay(30000);
end;
Readln;
CloseGraph;
end;
Readln;
Readln;
Goto start;
с помощью CASE перехожу к метке - GOTO zastavka
ЗАранее благодарю