inventory ESC does not end the game, more dirt in liquid dirt

This commit is contained in:
2022-11-12 20:08:15 -05:00
parent 327b78a105
commit ce6ca29479
5 changed files with 6 additions and 3 deletions
+1 -1
View File
@@ -6,7 +6,7 @@
;Miami & Warsaw 2022
;---------------------------------------------------
.def TARGET = 800 ; 5200 ; or 800
.def TARGET = 800 ;5200 ; or 800
;atari800 -5200 -cart ${outputFilePath} -cart-type 4
;atari800 -run ${outputFilePath}
;---------------------------------------------------
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+4 -1
View File
@@ -387,7 +387,10 @@ ChoosingItemForPurchase
jsr PutLitteChar ; Places pointer at the right position
jsr getkey
bit escFlag
spl:jmp WaitForKeyRelease ; like jsr ... : rts
bpl @+
mva #0 escFlag
jmp WaitForKeyRelease ; like jsr ... : rts
@
cmp #@kbcode._tab ; $2c ; Tab
jeq ListChange
cmp #@kbcode._left ; $06 ; cursor left
+1 -1
View File
@@ -601,7 +601,7 @@ DiggerCharacter
; ------------------------
.proc liquiddirt
mva #sfx_liquid_dirt sfx_effect
mwa #254 FillCounter
mwa #510 FillCounter
jmp xliquiddirt
.endp
; ------------------------