ZX Like Pascal

[Andrew771]

Либо спрайт-пустышку, либо, если есть фон с изображением:
- запомнить фон в памяти командой WindowGet;
- вывести спрайт;
- через некоторое время вывести обратно фон WindowPut (затереть спрайт).

Способы перемещения спрайтов тут, раздел "Мультипликация"

[ALKO]

.если старшие биты soplo_anim нигде не нужны, можно обойтись без остатка
сначала "soplo_anim := 1 - soplo_anim", потом "if soplo_anim = 0"

В том и дело, что я оптимизации ради хотел юзать одну переменную как для анимации Алисы, так и для анимации огонька. Типа они с разным интервалом кадры меняют.
Но пришлось для этого задействовать две переменных. Соответственно, два инкремента, больше условий.

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

А вот реально, проверка бит не помешала бы.
Допустим, для огонька 0 1 нулевого бита проверять, а для алисы 0 1 первого или второго бита.
И саму переменную можно тупо инкрементировать до бесконечности, всё равно станет 0 после 255.

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

Как такое сделать в данном паскале?

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

Ещё думаю ща над рандомной генерацией препятствий.
После джавы и плюсов с их динамическими массивами, тут уже малость непривычно. Если по несколько препятствий будет генериться одновременно на экране...

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

Кстати, вот ещё один случай, где 16 бит важны - таймер, по которому сперва один набор препятствий, затем второй и тд. Или события там всякие. На всяких анлимитед дистанциях, а не на фиксированной карте 256х256 тайлов.

[Andrew771]

А вот реально, проверка бит не помешала бы.

Тебе уже на ассемблер нужно переходить

Как такое сделать в данном паскале?

repeat
anim:=anim+1;
if anim>3 then anim:=0;
case anim of
0: огонек_0, алиса_0;
1: огонек_1, алиса_0;
2: огонек_0, алиса_1;
3: огонек_1, алиса_1;
end;
until...

Хотя, если огонек и алиса независимы, то лучше две переменных юзать.

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

Ещё думаю ща над рандомной генерацией препятствий.
После джавы и плюсов с их динамическими массивами, тут уже малость непривычно. Если по несколько препятствий будет генериться одновременно на экране...

Заведи обычный массив. Генери в нем рандомно и/или обнуляй неиспользуемые. Нулевые позиции не выводи.

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

Ещё думаю ща над рандомной генерацией препятствий.
После джавы и плюсов с их динамическими массивами, тут уже малость непривычно. Если по несколько препятствий будет генериться одновременно на экране...

Заведи обычный массив. Генери в нем рандомно и/или обнуляй неиспользуемые. Нулевые позиции не выводи.

[ALKO]

.Заведи обычный массив. Генери в нем рандомно и/или обнуляй неиспользуемые. Нулевые позиции не выводи.

Дофига проверок. А мне нужен шустрый скролл при этом.

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

Прост с таким подходом придётся в цикле по массиву шерудить в поисках неиспользуемого.

[Andrew771]

Ну если препятствий 5-10 штук, то можно и массив перебрать, недолго. А если больше, то проще завести карту. Операторы (процедуры) для карт имеются.

[ALKO]

Либо спрайт-пустышку

Во благо скорости не делал фон.
Ща думаю не спрайтом-пустышкой затирать, а тупа атрибутами, что намного быстрее, чем заливка пиксельного слоя нулевыми значениями.
Всё равно спрайты отрисовываются по принципу SpritePutClear.

[Advertiser]

[ALKO]

Ещё есть некоторые замечания по СпрайтГену.
Во-первых, он генерит инверсно. То есть чёрный цвет на BMP-шке для него будет нулевым битом, что при чёрном INK и белом Paper спектрума тождественно белому пикселю.

Во-вторых он генерит неиспользуемые знакоместа в том числе, что приходится вручную подчищать, и менять в инициализации общее количество знакомест. Тоже малость неудобно.

[ALKO]

Что я делаю не так по атрибутам?
Почему-то ресетится прога.

код в писькале

attrx:=1;
attry:=1;
asm(ATTR);

код в блоке асма

ATTR
LD B, _ATTRY
LD C, _ATTRX
; расчет адреса атрибутов знакоместа в DE, B-вертик.координата, C-гориз.координата
LD A,B
RRCA
RRCA
RRCA
LD E,A
AND 31
OR 88
LD D,A
LD A,E
AND 252
OR C
LD E,A
LD (DE),0
RET

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

хмм... ща ищу доки по Z80... кажись LD (DE) берёт значения только с аккумулятора.
Или я чёто путаю...

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

Наверное всё-таки надо присвоить в аккум. значение цвета

LD A, 0
LD (DE), A

Так ведь? Ща прост не за компом, не могу проверить.

[ALKO]

Либо спрайт-пустышку, либо, если есть фон с изображением:
- запомнить фон в памяти командой WindowGet;
- вывести спрайт;
- через некоторое время вывести обратно фон WindowPut (затереть спрайт).

Горбатыш и так шпарит слишком много данных ради примитивной графики уровня "Тамагочи".
Так что было бы правильнее не ректанглом копировать фон в память, а по контуру знакомест спрайта.
Вот такую фитчу тоже на будущее в зх-паскаль не помешало бы, если чё.
Ну, это для тех, чьи спрайты превышают квадратик 16х16 пикселей. Как, например, в Savage.

[Andrew771]

Ещё есть некоторые замечания по СпрайтГену.
Во-первых, он генерит инверсно. То есть чёрный цвет на BMP-шке для него будет нулевым битом, что при чёрном INK и белом Paper спектрума тождественно белому пикселю.
Во-вторых он генерит неиспользуемые знакоместа в том числе, что приходится вручную подчищать, и менять в инициализации общее количество знакомест. Тоже малость неудобно.

Это фигово, AzAtom не учел. Пользуйся тогда моим конвертером, там правильно.

Что я делаю не так по атрибутам?
Почему-то ресетится прога.

В тексте программы на асме Ттолько метки в начале строки должны быть, а команды не в начале строки, иначе они воспринимаются как метки.
Команды ld (de),0 не существует, так что ты правильно написал:
ld a,0
ld (de),a
Правда, принято у продвинутых перцев вместо ld a,0 писать xor a, команда занимает 1 байт и выполняется быстрее.
А в данной процедуре можно заменить во всех командах de на hl (т.е. d на h, e на l), тогда можно будет написать одной командой ld (hl),0, такая команда есть.

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

Так что было бы правильнее не ректанглом копировать фон в память, а по контуру знакомест спрайта.

Не факт, что будет быстрее копировать. Т.к. нужно бегать по всему спрайту, вычислять координаты каждого знакоместа. А так прямоугольная область копируется ldir-ами. Вычисляются только адреса начала строк.