IPB
ЛогинПароль:

> Помогите с графикой в игре!, не работает графика в игре
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Здравствуйте я на форуме новый. Прошу вас помочь с одной проблемой Очень прошу
Не работает графика в игре. Я запускаю ее из меню игрыона не работет. А как отдельная программа - работает
Вот текст
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

ЗАранее благодарю
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 4.12.2021 5:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name