Помощь - Поиск - Пользователи - Календарь
Полная версия: Игра лабиринт
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Другие языки
pas
Помогите написать игру лабиринт. Игра должна быть оформлена.
Меню
1.Играть
2.Помощ(Тут управление ну и т.д.)
3.Выход
Цель игры: Инраеш типо роботом ( можно изобразить ввиде точки или квадрата) Должен от точки начала лабиринта дойти до точки конца лабиринта.
Нужно использовать модуль: Graph и можно crt.
Lapp
Цитата(pas @ 23.06.2011 22:38) *
Помогите написать игру лабиринт. Игра должна быть оформлена.
Меню
1.Играть
2.Помощ(Тут управление ну и т.д.)
3.Выход
Цель игры: Инраеш типо роботом ( можно изобразить ввиде точки или квадрата) Должен от точки начала лабиринта дойти до точки конца лабиринта.
Нужно использовать модуль: Graph и можно crt.

Интересно, какой из "других языков" ты подразумеваешь? Особенно, учитывая выделенную мной фразу..

Уважаемый pas/Изелдор, ты в курсе, что на этом форуме запрещено создавать несколько профилей? Прочти Правила, плз (ссылка вверху страницы).
pas
Что делает эта процедура???

procedure initbgi;
var
grdriver,
grmode,
errcode : integer;
begin
grdriver := DETECT;
grmode := EGAhi;
initgraph(grdriver, grmode, 'e:\bp\bgi');
errcode:= graphresult;
if errcode <> grok then
begin
writeln('Graphics error: ', grapherrormsg(errcode));
halt(1);
end;
end;

Freedom
Цитата(pas @ 25.06.2011 22:27) *

Что делает эта процедура???

procedure initbgi;
var
grdriver,
grmode,
errcode : integer;
begin
grdriver := DETECT;
grmode := EGAhi;
initgraph(grdriver, grmode, 'e:\bp\bgi');
errcode:= graphresult;
if errcode <> grok then
begin
writeln('Graphics error: ', grapherrormsg(errcode));
halt(1);
end;
end;



Инициализирует графический режим
Lapp

М
pas, будешь продолжать игнорировать вопросы (особенно, администратора) - получишь по башке.


Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.