Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-23 20:29:15 +00:00
Code Issues Projects Releases Wiki Activity

lemm: proper explosion destruction

Browse Source
This commit is contained in:
Vince Weaver 2022-03-28 01:29:12 -04:00
parent 30debf1373
commit 55b05b28a6
1 changed files with 43 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
games/lemm/draw_lemming.s
View File

@ -520,43 +520,60 @@ draw_explosion:
; first erase pit in background art
jsr hgr_hlin_page_toggle ; toggle to page2
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
; line from (x,a) to (x+y,a)
lda lemming_x,Y
asl
adc lemming_x,Y
asl
adc lemming_x,Y ; multiply by 7
tax
pha
lda lemming_y,Y
clc
adc #9
ldy #7
jsr hgr_hlin
; line from (x,a) to (x+y,a)
pla
tax
ldy #11
jsr hgr_box
ldy CURRENT_LEMMING
lda lemming_x,Y
tax
inx
lda lemming_y,Y
ldy #7
clc
adc #10
jsr hgr_hlin
ldy #8
jsr hgr_box
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