Вид для печати
Либо спрайт-пустышку, либо, если есть фон с изображением:
- запомнить фон в памяти командой WindowGet;
- вывести спрайт;
- через некоторое время вывести обратно фон WindowPut (затереть спрайт).
Способы перемещения спрайтов тут, раздел "Мультипликация"
В том и дело, что я оптимизации ради хотел юзать одну переменную как для анимации Алисы, так и для анимации огонька. Типа они с разным интервалом кадры меняют.Цитата:
.если старшие биты soplo_anim нигде не нужны, можно обойтись без остатка
сначала "soplo_anim := 1 - soplo_anim", потом "if soplo_anim = 0"
Но пришлось для этого задействовать две переменных. Соответственно, два инкремента, больше условий.
- - - Добавлено - - -
А вот реально, проверка бит не помешала бы.
Допустим, для огонька 0 1 нулевого бита проверять, а для алисы 0 1 первого или второго бита.
И саму переменную можно тупо инкрементировать до бесконечности, всё равно станет 0 после 255.
- - - Добавлено - - -
Как такое сделать в данном паскале?
- - - Добавлено - - -
Ещё думаю ща над рандомной генерацией препятствий.
После джавы и плюсов с их динамическими массивами, тут уже малость непривычно. Если по несколько препятствий будет генериться одновременно на экране...
- - - Добавлено - - -
Кстати, вот ещё один случай, где 16 бит важны - таймер, по которому сперва один набор препятствий, затем второй и тд. Или события там всякие. На всяких анлимитед дистанциях, а не на фиксированной карте 256х256 тайлов.
Тебе уже на ассемблер нужно переходить :)Цитата:
Сообщение от ALKO
repeatЦитата:
Сообщение от ALKO
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
- - - Добавлено - - -
Заведи обычный массив. Генери в нем рандомно и/или обнуляй неиспользуемые. Нулевые позиции не выводи.Цитата:
Сообщение от ALKO
Дофига проверок. А мне нужен шустрый скролл при этом.Цитата:
.Заведи обычный массив. Генери в нем рандомно и/или обнуляй неиспользуемые. Нулевые позиции не выводи.
- - - Добавлено - - -
Прост с таким подходом придётся в цикле по массиву шерудить в поисках неиспользуемого.
Ну если препятствий 5-10 штук, то можно и массив перебрать, недолго. А если больше, то проще завести карту. Операторы (процедуры) для карт имеются.
Во благо скорости не делал фон.Цитата:
Сообщение от Andrew771
Ща думаю не спрайтом-пустышкой затирать, а тупа атрибутами, что намного быстрее, чем заливка пиксельного слоя нулевыми значениями.
Всё равно спрайты отрисовываются по принципу SpritePutClear.
Ещё есть некоторые замечания по СпрайтГену.
Во-первых, он генерит инверсно. То есть чёрный цвет на BMP-шке для него будет нулевым битом, что при чёрном INK и белом Paper спектрума тождественно белому пикселю.
Во-вторых он генерит неиспользуемые знакоместа в том числе, что приходится вручную подчищать, и менять в инициализации общее количество знакомест. Тоже малость неудобно.
Что я делаю не так по атрибутам?
Почему-то ресетится прога.
код в писькале
Цитата:
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
Так ведь? Ща прост не за компом, не могу проверить.
Горбатыш и так шпарит слишком много данных ради примитивной графики уровня "Тамагочи".Цитата:
Сообщение от Andrew771
Так что было бы правильнее не ректанглом копировать фон в память, а по контуру знакомест спрайта.
Вот такую фитчу тоже на будущее в зх-паскаль не помешало бы, если чё.
Ну, это для тех, чьи спрайты превышают квадратик 16х16 пикселей. Как, например, в Savage.
Это фигово, AzAtom не учел. Пользуйся тогда моим конвертером, там правильно.Цитата:
Сообщение от ALKO
В тексте программы на асме Ттолько метки в начале строки должны быть, а команды не в начале строки, иначе они воспринимаются как метки.Цитата:
Сообщение от ALKO
Команды 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-ами. Вычисляются только адреса начала строк.Цитата:
Сообщение от ALKO