ZX Like Pascal

[Andrew771]

Выяснилось, что с ReadKey(key1, key2); работать неудобно, потому, что искомый код может оказаться в key1 или key2 и нужно их оба проверять. Если их будет 10, то совсем можно будет зашиться. Нужно что-то другое придумать.

Не нужно обе проверять, если только одна клавиша, а только первую переменную key1, т.к. асмовская процедура заполняет всегда сначала key1, если хотя бы одна клавиша нажата.
С 10-ю да, нужно подумать. Может, сортировать коды по возрастанию в буфере клавиш... Но это замедлит чтение.
Вернуться к конструкции if KeyPressed then ReadKey? Т.е. KeyPressed определяет, нажато ли хоть одно что-нибудь, а ReadKey уже медленная процедура для 10 клавиш.

- - - Добавлено - - -

Не реализовал функции ArrayClear - ищу способ

Это просто обнуление числового массива или заполнение пустыми строками строкового массива. На асме я сделал через команду ldir, чтобы юзер не писал свою медленно работающую пошлость for i:=1 to i_max do a[i]:=0;

MapSearch - толком не понял, что она ищет.

В ней куча опций. Ищет заданное значение клетки или диапазон значений клеток в области клеток карты (карта - двумерный массив типа byte).

[Advertiser]

[AzAtom]

Не нужно обе проверять, если только одна клавиша, а только первую переменную key1

А если 2? Например, мы можем идти и начать стрелять, тогда в key1 код "вправо", а в key2 код "огонь", а можем просто стрелять, тогда в key1 уже код "огонь". Можем пойти стреляя, тогда в key1 код "огонь", а в key2 код "вправо". Можем перестать стрелять и код "вправо" переместиться в key1. В общем, пока не однозначно.

Это просто обнуление числового массива или заполнение пустыми строками строкового массива.

Это понятно, но в дельфи в процедуру не передаются двумерные массивы напрямую. Это можно обойти, конечно, но тогда будет написано по другому, например я сделал тестовую программу, где пришлось написать MapSet(map[0,0],mapspr,0,0,32,24); вместо MapSet(map,mapspr,0,0,32,24);

- Далее, в дельфи объявленные переменные не обязательно идут друг за другом, поэтому, все спрайты карты пришлось объединить в один большой массив.

- Вдруг выяснилось, что если захочется попробовать спрайты с атрибутами и без них, то придётся править все спрайты, что неудобно. Почему бы не сделать все спрайты с атрибутами, а при сброшенном флаге "спрайты с атрибутами" просто не копировать атрибуты. Да, это будет на 10% больше места занимать, но будет гораздо удобнее.

- Ещё задумал написать генератор спрайтов. Можно будет загрузить в него 1 битную картинку, а она выдаст её в текстовом виде для вставки в исходник программы. Или такой уже есть?

- - - Добавлено - - -

Сейчас у меня вот, что получилось TestZXPas02.rar.

- - - Добавлено - - -

Кнопки 1 и 2 показывают цифры 1 и 2, кнопки 0 и пробел - выход из программы.

[Alex Rider]

А если 2? Например, мы можем идти и начать стрелять, тогда в key1 код "вправо", а в key2 код "огонь", а можем просто стрелять, тогда в key1 уже код "огонь". Можем пойти стреляя, тогда в key1 код "огонь", а в key2 код "вправо". Можем перестать стрелять и код "вправо" переместиться в key1. В общем, пока не однозначно.

Сделайте уже метод ReadKey как в Паскале, чтобы возвращал только одну кнопку, и function CheckKeys(Keys: string): Word, в которой в Keys передаются проверяемые кнопки в виде строки символов (например, "MQAOP"), а в результате установлены биты нажатых кнопок (например, для вверх-вправо-огонь - %11001). Тогда управление в игре можно будет хранить в строках (хоть у пользователя запрашивай, хоть константами забивай, особенно, если для джойстика придумать символы тоже) и проверять единообразно-безобразно.