mirror of https://git.sr.ht/~rabbits/oquonie
Piano room steps
This commit is contained in:
parent
88114ea976
commit
f86adf4d57
|
@ -26,19 +26,20 @@
|
||||||
#0180 .Screen/height DEO2
|
#0180 .Screen/height DEO2
|
||||||
|
|
||||||
;on-mouse .Mouse/vector DEO2
|
;on-mouse .Mouse/vector DEO2
|
||||||
|
;on-control .Controller/vector DEO2
|
||||||
;on-frame .Screen/vector DEO2
|
;on-frame .Screen/vector DEO2
|
||||||
|
|
||||||
#142a .Audio0/adsr DEO2
|
#0111 .Audio0/adsr DEO2
|
||||||
#ed .Audio0/volume DEO
|
#ed .Audio0/volume DEO
|
||||||
;sin-pcm .Audio0/addr DEO2
|
;sin-pcm .Audio0/addr DEO2
|
||||||
#0100 .Audio0/length DEO2
|
#0100 .Audio0/length DEO2
|
||||||
|
|
||||||
#133d .Audio1/adsr DEO2
|
#0111 .Audio1/adsr DEO2
|
||||||
#de .Audio1/volume DEO
|
#de .Audio1/volume DEO
|
||||||
;sin-pcm .Audio1/addr DEO2
|
;sin-pcm .Audio1/addr DEO2
|
||||||
#0100 .Audio1/length DEO2
|
#0100 .Audio1/length DEO2
|
||||||
|
|
||||||
#12ed .Audio2/adsr DEO2
|
#0111 .Audio2/adsr DEO2
|
||||||
#cc .Audio2/volume DEO
|
#cc .Audio2/volume DEO
|
||||||
;sin-pcm .Audio2/addr DEO2
|
;sin-pcm .Audio2/addr DEO2
|
||||||
#0100 .Audio2/length DEO2
|
#0100 .Audio2/length DEO2
|
||||||
|
@ -50,7 +51,7 @@ BRK
|
||||||
@on-frame ( -> )
|
@on-frame ( -> )
|
||||||
|
|
||||||
[ LIT &f $1 ] INCk ,&f STR
|
[ LIT &f $1 ] INCk ,&f STR
|
||||||
DUP #08 DIVk MUL SUB #00 NEQ ?&skip
|
DUP #0a DIVk MUL SUB #00 NEQ ?&skip
|
||||||
[ LIT &b $1 ] INCk ,&b STR #3f AND
|
[ LIT &b $1 ] INCk ,&b STR #3f AND
|
||||||
play-bar
|
play-bar
|
||||||
&skip
|
&skip
|
||||||
|
@ -58,6 +59,16 @@ BRK
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
|
@on-control ( -> )
|
||||||
|
|
||||||
|
.Controller/key DEI
|
||||||
|
DUP ( esc ) #1b NEQ ?&no-esc
|
||||||
|
#0000 ;on-frame/f STA ;on-frame/b STA
|
||||||
|
&no-esc
|
||||||
|
POP
|
||||||
|
|
||||||
|
BRK
|
||||||
|
|
||||||
@on-mouse ( -> )
|
@on-mouse ( -> )
|
||||||
|
|
||||||
( clear last cursor )
|
( clear last cursor )
|
||||||
|
@ -90,13 +101,14 @@ BRK
|
||||||
DUP mod-c .song/c STZ
|
DUP mod-c .song/c STZ
|
||||||
DUP get-a #00 SWP ;notes-lut ADD2 LDA send
|
DUP get-a #00 SWP ;notes-lut ADD2 LDA send
|
||||||
DUP get-b #00 SWP ;notes-lut ADD2 LDA send
|
DUP get-b #00 SWP ;notes-lut ADD2 LDA send
|
||||||
( DUP get-c send )
|
|
||||||
draw-song
|
draw-song
|
||||||
|
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@send ( pitch -- )
|
@send ( pitch -- )
|
||||||
|
|
||||||
|
!play-note
|
||||||
|
|
||||||
DUP #00 EQU ?&skip
|
DUP #00 EQU ?&skip
|
||||||
#00 .Console/write DEO
|
#00 .Console/write DEO
|
||||||
DUP #30 ADD .Console/write DEO
|
DUP #30 ADD .Console/write DEO
|
||||||
|
|
|
@ -874,6 +874,12 @@ JMP2r
|
||||||
|
|
||||||
@e/note =e/blank/draw =&collide =e/blank/load
|
@e/note =e/blank/draw =&collide =e/blank/load
|
||||||
&collide ( e* -- )
|
&collide ( e* -- )
|
||||||
|
|
||||||
|
fx/repair
|
||||||
|
( id ) LDAk #00 SWP
|
||||||
|
( key ) DUP2 ADD2 ;explode-lut ADD2
|
||||||
|
( value ) LDA2k #0004 ADD2 SWP2 STA2
|
||||||
|
|
||||||
DUP2 #0003 ADD2 LDA play-piano
|
DUP2 #0003 ADD2 LDA play-piano
|
||||||
LDA !try-move/walk
|
LDA !try-move/walk
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue