lemm: properly remove background for miner

This commit is contained in:
Vince Weaver 2022-03-28 01:16:55 -04:00
parent 6d5b1ff592
commit 30debf1373
1 changed files with 18 additions and 3 deletions

View File

@ -301,11 +301,26 @@ mining_mining:
and #$f
bne no_mining_this_frame
ldx #0
stx HGR_COLOR
; (X,A) to (X,A+Y) where X is xcoord/7
jsr hgr_box_page_toggle
ldy CURRENT_LEMMING
lda lemming_x,Y
tay
lda #$0 ; clear out dirt (FIXME: block?)
sta (GBASL),Y
tax
lda lemming_y,Y
ldy #9
jsr hgr_box
jsr hgr_box_page_toggle
ldy CURRENT_LEMMING
lda lemming_x,Y
tax
lda lemming_y,Y
ldy #9
jsr hgr_box
ldx CURRENT_LEMMING
inc lemming_y,X