mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-13 03:29:32 +00:00
lemm: proper explosion destruction
This commit is contained in:
parent
30debf1373
commit
55b05b28a6
|
@ -520,43 +520,60 @@ draw_explosion:
|
||||||
|
|
||||||
; first erase pit in background art
|
; first erase pit in background art
|
||||||
|
|
||||||
jsr hgr_hlin_page_toggle ; toggle to page2
|
|
||||||
|
|
||||||
ldx #0
|
ldx #0
|
||||||
sta HGR_COLOR
|
stx HGR_COLOR
|
||||||
|
|
||||||
|
; (X,A) to (X,A+Y) where X is xcoord/7
|
||||||
|
jsr hgr_box_page_toggle
|
||||||
ldy CURRENT_LEMMING
|
ldy CURRENT_LEMMING
|
||||||
|
|
||||||
; line from (x,a) to (x+y,a)
|
|
||||||
lda lemming_x,Y
|
lda lemming_x,Y
|
||||||
asl
|
|
||||||
adc lemming_x,Y
|
|
||||||
asl
|
|
||||||
adc lemming_x,Y ; multiply by 7
|
|
||||||
tax
|
tax
|
||||||
pha
|
|
||||||
|
|
||||||
lda lemming_y,Y
|
lda lemming_y,Y
|
||||||
clc
|
ldy #11
|
||||||
adc #9
|
jsr hgr_box
|
||||||
|
|
||||||
ldy #7
|
|
||||||
|
|
||||||
jsr hgr_hlin
|
|
||||||
|
|
||||||
; line from (x,a) to (x+y,a)
|
|
||||||
pla
|
|
||||||
tax
|
|
||||||
|
|
||||||
ldy CURRENT_LEMMING
|
ldy CURRENT_LEMMING
|
||||||
|
lda lemming_x,Y
|
||||||
|
tax
|
||||||
|
inx
|
||||||
lda lemming_y,Y
|
lda lemming_y,Y
|
||||||
ldy #7
|
ldy #8
|
||||||
clc
|
jsr hgr_box
|
||||||
adc #10
|
|
||||||
jsr hgr_hlin
|
ldy CURRENT_LEMMING
|
||||||
|
lda lemming_x,Y
|
||||||
|
tax
|
||||||
|
dex
|
||||||
|
lda lemming_y,Y
|
||||||
|
ldy #8
|
||||||
|
jsr hgr_box
|
||||||
|
|
||||||
|
|
||||||
jsr hgr_hlin_page_toggle ; toggle back to page1
|
jsr hgr_box_page_toggle
|
||||||
|
|
||||||
|
ldy CURRENT_LEMMING
|
||||||
|
lda lemming_x,Y
|
||||||
|
tax
|
||||||
|
lda lemming_y,Y
|
||||||
|
ldy #11
|
||||||
|
jsr hgr_box
|
||||||
|
|
||||||
|
ldy CURRENT_LEMMING
|
||||||
|
lda lemming_x,Y
|
||||||
|
tax
|
||||||
|
inx
|
||||||
|
lda lemming_y,Y
|
||||||
|
ldy #8
|
||||||
|
jsr hgr_box
|
||||||
|
|
||||||
|
ldy CURRENT_LEMMING
|
||||||
|
lda lemming_x,Y
|
||||||
|
tax
|
||||||
|
dex
|
||||||
|
lda lemming_y,Y
|
||||||
|
ldy #8
|
||||||
|
jsr hgr_box
|
||||||
|
|
||||||
|
|
||||||
jsr click_speaker
|
jsr click_speaker
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user