Вид для печати
Если в Cauldron (в процессе работы программы) по адресу "8628" заменить код на такой
то тогда "нечисть" взлетающая в ночной воздух, не сможет сразу броситься на ГГ. Константой 0017 можно регулировать минимальное время "страха".Код:ld hl,003C
call 627E
ld de,0017
add hl,de
push hl
ld hl,(A22D)
ld de,00FD
call 6194
ld a,h
or l
pop hl
jr z,8644
я гонял rzx на максимальной скорости, а потом вручную проходил те ветки, которых не было в прохождении (к примеру, когда геймовер, или когда в менюшке выбираются разные пункты)Цитата:
Сообщение от goodboy
Если в Cauldron (в процессе работы программы) по адресу "8C35-8D18" заменить код на такой
Скрытый текст
Код:
ld hl,(A237)
ld de,0005
call 6194
ld a,h
or l
jr z,8C8F
ld hl,(A197)
ld a,h
or l
jr z,8C8F
ld hl,(A245)
ex de,hl
ld hl,(A247)
ld a,h
or d
jr nz,8C8F
ld a,l
cp 05
ld a,e
jr z,8C66
ex de,hl
cp 05
ld hl,(A243)
inc hl
inc hl
jr z,8C71
jr 8C8F
; 8C66
cp 05
ld hl,(A243)
inc hl
dec hl
jr nz,8C71
jr 8C8F
; 8C71
ex de,hl
push hl
ld hl,(A241)
dec hl
call 6201
ld de,0005
call 6194
ld a,h
or l
pop hl
jr z,8C8F
ld a,42
cp l
jr nz,8C8C
ld l,45
ld (A237),hl
; 8C8F
ld hl,(A195)
ld de,0017
call 6194
ld a,h
or l
jr z,8CBC
ld hl,(A237)
ld a,h
and a
ld a,l
jr nz,8CB2
cp 41
jr c,8CB2
cp 43
jr nc,8CB2
ld hl,0001
ld (A231),hl
; 8CB2
cp 44
jr nz,8CBC
ld hl,0005
ld (A239),hl
; 8CBC
ld hl,(A239)
ld de,0005
call 619D
ld a,h
or l
jr z,8CF5
ld hl,(A237)
ld a,h
and a
ld a,l
jr nz,8CF5
cp 42
jr z,8CEF
cp 45
jr z,8CEF
cp 44
jr nz,8CF5
ex de,hl
ld hl,(A23B)
call 6194
ld a,h
or l
jr z,8CF5
ld hl,(A197)
ld a,h
or l
jr nz,8CF5
ld hl,0005
ld (A237),hl
; 8CF5
; это место освободилось
db 0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0
db 0,0,0,0,0,0,0,0
db 0,0,0,0
[свернуть]
то тогда прыгать под землей станет проще - можно подбегать к самому краю перед прыжком, или, приземляясь и зацепившись за краешек, так же быстро добежать до середины площадки. Чтобы в тех же местах, где с площадки можно было спрыгнуть на площадку прямо вниз - эта возможность не исчезла, патч работает только в движении. Остановившись на краю площадки, можно обнаружить, что падение произойдет, как и раньше. В итоге патч значительно облегчает перемещения, делая доступными несколько новых проходов - например, в склепе при дальних прыжках.
Если в Cauldron (в процессе работы программы) по адресу "64AC" записать 04, по адресу A542 записать D4, CE, 10, 02, 06, по адресу "A9DA" записть 04, C7, 5F, по адресу "A9CD" записать 04, а затем по адресам "9818-985F" заменить код на такой
Скрытый текст
Код:; 9818
ld hl,(A287)
ld a,h
and a
ld a,l
ld hl,1
jr nz,9866
cp 0E
jr nz,982A
ld (A149),hl
; 982A
cp 0C
jr nz,9837
ld (A145),hl
call 764f
jp 994a
; 9837
cp 0D
jr nz,9844
ld (A147),hl
call 764f
jp 994a
; 9844
cp 04
jr nz,9866
call 984e
jp 994a
; 984e
ld hl,(9C82)
ex de,hl
ld hl,(A161)
xor a
sbc hl,de
ret nc
ex de,hl
ld (A161),hl
jp 76A7
[свернуть]
то тогда в подземельях появятся источники магии для пополнения сил.
Если в Cauldron II (в процессе работы программы) в трех местах сделать такие замены кода:
Скрытый текст
Код:;magic pushes for playable jumps
equ 0xfd97
;
mpush:
;
cp 3
ret z
; no roll - so no loss of control
ld a,(ix-57)
xor (ix-61)
and 0x0c
ld c,a
ld b,(ix+3)
xor b
and 0x0c
ret z
; dirs mismatch - trying to change dir
ld a,b
and 0x03
or c
ld c,a
; new dir prepared
ld a,(0xe5f0)
ld b,0
cp 0x32
jr c,mpchk
; magic no less than 20% - first magic push per jump
inc b
cp 0x35
jr c,mpchk
; magic no less then 50% - more magic pushes
inc b
;
mpchk:
ld a,(mpushes)
cp b
ret nc
; have the push power yet
inc a
ld (mpushes),a
ld (ix+3),c
ret
;
; fddb
;
mpushes db 0
;53 bytes
;____________________
;add magic push check at every movement
;...
equ 0xd517
;
jp z,0xcfe5
call mpush
;...
;6 bytes
;____________________
;reset magic push counter at landing
equ 0xd00b
;...
xor (ix-61)
and 0c
or (ix-46)
ld c,a
; got new horizontal movement
ld a,(ix+3)
and 03
or c
; mixed with old vertical movement
ld (ix-48),a
xor a
ld (mpushes),a
nop
;...
;23 bytes
[свернуть]
то тогда "заряженная" тыква станет куда управляемей. с 20% магии и выше получит право изменить направление в полете, а с 50% - дважды.
Патч JETPAC для управления стандартными кнопками:
Q - вверх
A - вниз
O - лево
P - право
SPACE - огонь
Патч накладывать по брейкпоинту на #6000 при загрузке.
Код:org $7345
ld a,$df ; Row: P,O,I,U,Y
out ($fd),a ; Set port for reading keyboard
in a,($fe) ; ...and read that row of keys
bit 0,a
jr z,right
bit 1,a
jr z,left
jr nokey
left:
ld a,$fd ; #REGa=LEFT_KEY : 1111 1101
ret ;
right:
ld a,$fe ; #REGa=RIGHT_KEY : 1111 1110
ret ;
nokey:
ld a,$ff ; #REGa=No input detected
ret ;
;#7374 len=0x7374-0x7345=47
org $737d
ld a,$7f ; Row: Space,Sym,M,N,B
loop_1:
out ($fd),a ; Set port for reading keyboard
in a,($fe) ; ...and read that row of keys
and $01
jr z,fire
ld a,$7f ; Row: Space,Sym,M,N,B
djnz loop_1 ; Loop back and read input again
ld a,$ff ; Still no input detected
ret ;
fire:
ld a,$ef ; #REGa=FIRE : 1110 1111
ret ;
;#7393 len=0x7393-0x737d=22
org $739c
ld a,$fb ; Row: Q,W,E,R,T
loop_2:
out ($fd),a ; Set port for reading keyboard
in a,($fe) ; ...and read that row of keys
and $01 ;
jr z,up
ld a,$fb ; Row: Q,W,E,R,T
djnz loop_2 ; Loop back and read input again
ld a,$ff ; Still no input detected
ret ;
up:
ld a,$f7 ; #REGa=UP (thrust) : 1111 1110
ret ;
;#73b2 len=0x73b2-0x739c=22
А какие эмули позволяют удобно патчить?
подобное уже былоЦитата:
Сообщение от ZXMAK
https://spectrumcomputing.co.uk/SCRt...1.scr&border=0