Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Написание игр _ Помогите с графикой в игре!
Автор: C20 28.04.2007 18:06
Здравствуйте я на форуме новый. Прошу вас помочь с одной проблемой Очень прошу
Не работает графика в игре. Я запускаю ее из меню игрыона не работет. А как отдельная программа - работает
Вот текст
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 28.04.2007 22:34
А что имеется в виду под запуском из игры?
•Ты ето запускаеш через процедуру.
•Ты запускаеш ЕХЕшник.
Иль может ещё что-нибудь ,что я не упомянул?
Автор: SkyBoy 1.07.2007 10:44
setcolor ?? что за??
в паскале такого нет
Автор: volvo 1.07.2007 14:14
в паскале такого нет
