Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-09 03:31:05 +00:00
Code Issues Projects Releases Wiki Activity

lemm: implement bashers

Browse Source
This commit is contained in:
Vince Weaver 2022-03-30 15:10:49 -04:00
parent fa4e090dd8
commit d1789e1760
2 changed files with 13 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
games/lemm/TODO
View File

@ -1,3 +1,6 @@
+ bridges you can walk through from underneath, not
sure how to implement that
+ wait a second after last lemming gone to exit
+ dig off the map, end level
+ fill in some of the ground so we don't get stuck when digging

35
games/lemm/move_lemming.s
View File

@ -311,15 +311,10 @@ done_mining:
; bashing
;=====================
do_lemming_bashing:
.if 0
jsr collide_below
mining_mining:
ldy CURRENT_LEMMING
lda lemming_frame,Y
and #$f
bne no_mining_this_frame
bne no_bashing_this_frame
ldx #0
stx HGR_COLOR
@ -328,6 +323,8 @@ mining_mining:
jsr hgr_box_page_toggle
ldy CURRENT_LEMMING
lda lemming_x,Y
clc
adc lemming_direction,Y
tax
lda lemming_y,Y
ldy #9
@ -336,32 +333,20 @@ mining_mining:
jsr hgr_box_page_toggle
ldy CURRENT_LEMMING
lda lemming_x,Y
clc
adc lemming_direction,Y
tax
lda lemming_y,Y
ldy #9
jsr hgr_box
ldx CURRENT_LEMMING
inc lemming_y,X
inc lemming_y,X
inc lemming_y,X
lda lemming_x,X
ldy CURRENT_LEMMING ; FIXME: combine with earlier?
lda lemming_x,Y
clc
adc lemming_direction,X
sta lemming_x,X
adc lemming_direction,Y
sta lemming_x,Y
no_mining_this_frame:
jmp done_mining
mining_falling:
ldy CURRENT_LEMMING
lda #LEMMING_FALLING
sta lemming_status,Y
done_mining:
.endif
no_bashing_this_frame:
jmp done_move_lemming