Вид для печати
Самый простой пук наверное можно изобразить битом 0 порта 1. Что проще всего делать в режиме 8255 BSR. Если я ничего не путаю, это будет примерно так:
Порт 0: Бит 7 = 0, биты 3:1 - номер бита, бит 0 = значение. То есть
Код:mvi a, 1
out 0 ; 8255 CSR
; <какое-то время>
mvi a, 0
out 0
; <какое-то время>
Ну если нужен не просто щелчёк динамиком, а типа как звук нажатия клавиш в МДОСе, то там используется такой код (из МДОС Т-72):
Код:; звук нажатия клавиши
L_F6F6: MVI H, 030h ; Счётчик 1
XRA A
L_F6F9: MVI L, 040h ; Счётчик 2
L_F6FB: DCR L
JNZ L_F6FB ; Задержка 40h циклов
XRI 001h ; А=0000 000х, режим оперирования битами, инверсия бита 0
OUT 000h
DCR H
JNZ L_F6F9 ; Цикл, повтор 30h раз
Цитата:
Сообщение от Improver
Ну вот а я предлагаю не просто гнать туда 0 и 1 , а код самой программы... получится не просто "зззззз", а "хр-хр-хр" :)
Выбрать только нужный фрагмент, экспериментальным путём.
Опробовал этот вариант. Не сказать что прям блестяще, но использовать вполне можно.Цитата:
Сообщение от ivagor
Скрытый текст
Код:rnd16:
lxi h,65535
dad h
shld rnd16+1
rnc
mvi a,00000001b ; flipped 80h - 10000000b
xra l
mov l,a
mvi a,01101000b ; flipped 16h - 00010110b
xra h
mov h,a
shld rnd16+1
ret
Код:ld hl,$C000
ld bc,$1000
Start_A:
push bc
push hl
call rnd16
ex de,hl
pop hl
ld a,e
ld (hl),a
inc hl
ld a,d
ld (hl),a
inc hl
pop bc
dec bc
ld a,b
or c
jp nz,Start_A
[свернуть]
https://pic.maxiol.com/images2/16068....202012011.png
- - - Updated - - -
Но вот этот вариант выглядит получше: https://wikiti.brandonw.net/index.ph...C_16-bit_seeds
Скрытый текст
Код:Random16:
ld hl,(seed1)
ld b,h
ld c,l
add hl,hl
add hl,hl
inc l
add hl,bc
ld (seed1),hl
ld hl,(seed2)
add hl,hl
sbc a,a
and %00101101
xor l
ld l,a
ld (seed2),hl
add hl,bc
ret
seed1: dw 12345
seed2: dw 54321
[свернуть]
https://pic.maxiol.com/images2/16068....202012012.png
- - - Updated - - -
В аттаче второй драфт.
Улучшения:
- Применять светлую/тёмную тему в зависимости от ситуации
- Уменьшить задержки на 25-30%
- Улучшить маппинг клавиш: АР2 escape
- Генерация случайного числа
Что ещё собираюсь сделать:
- Улучшить маппинг клавиш: задублировать Look/Shoot
- Моргать бордюром когда игрок получает урон
- Звук "тык" при look/shoot
- Сжатие основной части через LZSA1, распаковка
Поэтому я и написал "если устроит lfsr". Как написано по ссылке "On their own, LCGs and LFSRs don't produce great results and are generally very cyclical". В качестве rnd общего назначения lfsr не так хорош, но в некоторых случаях именно то, что нужно.Цитата:
Сообщение от nzeemin
nzeemin, а это "фишка" такая, что лабиринт "не сходится" ?
Типа комнаты находятся на разных этажах, и некоторые двери являются переходом на другой этаж?
Хороший вопрос. нет, он вполне себе "сходится", т.е. укладывается на плоскость.Цитата:
Сообщение от KTSerg
Просто некоторые переходы - длинные, длинной в целую комнату.
nzeemin, может и под Специалист сделаете порт Desolate?
игрушка прикольная
Надо сначала доделать порты под Спектрум и Вектор, а там видно будет. У меня ещё много работы.Цитата:
Сообщение от zx_
Посмотрел, экран Специалиста неудобный для этой игрушки, игровая часть экрана будет уже слишком маленькая. Так что скорее нет.
Драфт 3 в аттаче.
Что нового:
- Сжатие основной части через LZSA1, распаковка - спасибо @ivagor за распаковщик!
- Звук "тык" при look/shoot - использовал код который дал @Improver
- Моргать бордюром когда игрок получает урон
- Улучшить маппинг клавиш: задублировать Look/Shoot
Маппинг клавиш теперь такой (если я всё сделал правильно конечно):
- Движение в четырёх направлениях - стрелки.
- Look/shoot - УС, Пробел
- Переключатель Look/Shoot - ТАБ, РУС/ЛАТ
- Инвентарь - 'I', 'M'
- Закрыть диалог (Escape) - АР2, ЗБ, ПС
- Выход в меню - 'P', 'R'
Что ещё собираюсь сделать:
- Багфиксы и возможно ещё какие-то мелочи
В целом состояние - "почти готово".