руссификация Паскаля в Graph.

[Вадим Буренков]

Почти написал игру на паскале (пинбол). Сначала была на английском но потом решил перевести. Сделал функцию по переводу англ. в рус. (по кодам букв), и столкнулся с проблемой: русский текст отображается только до инициализации графического режима. После этого коды букв меняются, и вместо русских букв появляются кракозябры.
Как появился интернет скачал русификатор но ничего не изменилось. Может кто знает как решить проблему?

[Dj_smart]

Вы имеете в виду оболочку паскаля? Она выдает крякозябры?
По моему, это неистрибимо, откомпилили, посмотрели результат, перезапустили оболочку и по новой

[Вадим Буренков]

Вы имеете в виду оболочку паскаля?

Нет. С оболочкой все впорядке.
Программа состоит из главного меню (в CRT) и самой игры(в GRAPH).
Как запускаю игру,попадаю в меню(на русском).Нажимаю "Играть"
и запускается графический режим.Если после этого выйти обратно в меню(CRT), то вместо русских символов кракозябры.

То есть русификация работает только до инициализации графического режима.
P.S Я могу выложить игру сюда.

[Stilet]

Да давай.Любопытно взглянуть.

[Вадим Буренков]

Игра глючная и сырая, буду заново делать используя те же функции.
Работают первые несколько уровней,частично меню с командами. В определенных местах вылетает.
Просто когда начинал делать игру еще плохо знал программирование, потом забросил это дело.
Когда продолжил, понял что забыл смысл большей части кода, а в игре куча ошибок.

[JTG]

Чтоб русский в графике отображался, надо указать адрес таблицы символов, вектор прерывания 1F.

uses graph, dos;

{$L EGA3FONT.OBJ}
procedure Ega3Font; external;

var gd, gm: integer;

begin
  SetIntVec($1F, @Ega3Font);
  gd := detect;
  InitGraph(gd, gm, '');
  OutTExtXY(260, 220, 'Что-то в dos-кодировке');
  ReadLn;
  CloseGraph;
end.

EGA3FONT - шрифт, выдранный из русского доса, содержит символы с кодами 128-255 (русские буквы и псевдографика), пропущенный через утилиту binobj и слинкованный с программой.

В аттаче пример и русские векторные шрифты (те, что через SetTextStyle выбираются)

[Вадим Буренков]

Спасибо "Великий и могучий".
А можно как-либо увеличить скорость прорисовки в GRAPH (например установка какого нибудь другого драйвера)
И еще : как в BGI256 работать с таким количеством цветов? Существуют ли какие программы определения нужного цвета.

Кстати, если кому нужно я написал прогу для рисования (рисунок сохраняется в спрайт в .pas файл).