Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с графикой в игре!
Форум «Всё о Паскале» > Pascal, Object Pascal > Написание игр
C20
Здравствуйте я на форуме новый. Прошу вас помочь с одной проблемой Очень прошу
Не работает графика в игре. Я запускаю ее из меню игрыона не работет. А как отдельная программа - работает
Вот текст
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

ЗАранее благодарю
mamont001
А что имеется в виду под запуском из игры?
•Ты ето запускаеш через процедуру.
•Ты запускаеш ЕХЕшник.
Иль может ещё что-нибудь ,что я не упомянул?
SkyBoy
setcolor ?? что за??
в паскале такого нет
volvo
Цитата
setcolor ?? что за??
в паскале такого нет
Правда? А может, прежде чем что-то утверждать, ты соизволишь хотя бы посмотреть Help по этому слову? Или это уже не принято теперь среди начинающих программистов? dry.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.