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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Вожак стада
***

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

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


А что имеется в виду под запуском из игры?
•Ты ето запускаеш через процедуру.
•Ты запускаеш ЕХЕшник.
Иль может ещё что-нибудь ,что я не упомянул?


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






setcolor ?? что за??
в паскале такого нет
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
setcolor ?? что за??
в паскале такого нет
Правда? А может, прежде чем что-то утверждать, ты соизволишь хотя бы посмотреть Help по этому слову? Или это уже не принято теперь среди начинающих программистов? dry.gif
 К началу страницы 
+ Ответить 

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

 





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