Browse Source

More robust menu touch

main
Devine Lu Linvega 4 years ago
parent
commit
5810fa55ef
  1. 14
      src/manifest.tal

14
src/manifest.tal

@ -44,6 +44,7 @@
;on-mouse-menu .Mouse/vector DEO2
;on-control-menu .Controller/vector DEO2
#ff ;draw-cat/sel STA
;draw-cat JSR2
BRK
@ -62,9 +63,18 @@ BRK
;hand-icn .Screen/addr DEO2
#4f .Mouse/state DEI #00 NEQ ADD .Screen/sprite DEO
;draw-cat/sel LDA #ff EQU ,&no-sub JCN
.Mouse/y DEI2 #03 SFT2 NIP #01 SUB ;draw-sub/sel STA
;draw-cat/sel LDA #ff ;draw-sub JSR2
BRK
&no-sub
.Mouse/state DEI ;on-menu-touch JCN2
.Mouse/y DEI2 #0007 GTH2 ;on-menu-leave JCN2
( don't leave if menu is active )
;draw-cat/sel LDA #ff EQU
.Mouse/y DEI2 #0007 GTH2
#0101 EQU2 ;on-menu-leave JCN2
BRK
@ -161,7 +171,7 @@ JMP2r
LDAk STH INC2 ;skip-str JSR2
STHr #00
&subcat
#01 [ LIT &mask $1 ] AND ;draw-chr/color STA
DUP [ LIT &sel $1 ] EQU INC [ LIT &mask $1 ] AND ;draw-chr/color STA
[ LIT2 &anchor $2 ] .Screen/x DEO2
#00 OVR INC #30 SFT2 .Screen/y DEO2
SWP2 #0004 ADD2 ;draw-str JSR2 SWP2

Loading…
Cancel
Save