1. Заголовок или название темы должно быть информативным ! 2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code]. 3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК ! 4.НЕ используйте форум для личного общения! 5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
end; Procedure MainMenu; Const menu:array[1..2] of string[20]=('New game!','Exit'); Var i,y1: integer; pos:byte; kb:char; Begin kb:=#1; SetTextStyle(4,0,2); pos:=1; y1:=centry-30; for i:=1 to 2 do begin if i=pos then begin setcolor(1); OutTextXY(230,y1,'New game!'); end else begin setcolor(15); OutTextXY(230,y1,'Exit'); end;
y1:=y1+30; end; repeat y1:=centry-30; kb:=readkey; case kb of #72:if pos>1 then Dec(pos) else pos:=3;
#80:if pos<2 then Inc(pos) else pos:=1; end;
for i:=1 to 2 do begin if i=pos then begin setcolor(1); OutTextXY(230,y1,menu[i]); end else begin setcolor(15); OutTextXY(230,y1,menu[i]); end; y1:=y1+30; end; until kb=#13; begin if pos=1 then begin game; cleardevice; end;
Ошибка 002. Я чего-то спойлеры не нашёл как делать, извините.
драйвер конвертил
binobj egavga.bgi egavga.obj egavga.bgi
Здесь стоило бы BINOBJ пожаловаться на третий параметр, потому что под таким именем его, наверное, не достать из Паскаля. Надо переделать так, чтоб там было что–то, что годится для имени процедуры, и объявить эту процедуру через «procedure; external;» как в примерах. А та часть, где файл открывается извне и читается в память, не нужна, если файл встраивается.
Сообщение отредактировано: OCTAGRAM -
--------------------
If you want to get to the top, you have to start at the bottom