Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-13 03:29:32 +00:00
Code Issues Projects Releases Wiki Activity

lemm: update move on mining

Browse Source
This commit is contained in:
Vince Weaver 2022-03-30 14:55:49 -04:00
parent c5bf82598b
commit fa4e090dd8
1 changed files with 10 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
games/lemm/move_lemming.s
View File

@ -262,76 +262,51 @@ do_lemming_digging:
; mining ; mining
;===================== ;=====================
do_lemming_mining: do_lemming_mining:
lda lemming_y,Y
clc
adc #9
tax
lda hposn_high,X ; set up collision check underfoot
clc
adc #$20
sta GBASH
lda hposn_low,X
sta GBASL
lda lemming_x,Y ; if fell through,then fall
tay
lda (GBASL),Y
and #$7f
beq mining_falling
mining_mining:
ldy CURRENT_LEMMING ldy CURRENT_LEMMING
lda lemming_frame,Y lda lemming_frame,Y
and #$f and #$f
bne no_mining_this_frame bne no_mining_this_frame ; only move dirt on frame 0
ldx #0 ldx #0 ; erase background
stx HGR_COLOR stx HGR_COLOR
; (X,A) to (X,A+Y) where X is xcoord/7 ; (X,A) to (X,A+Y) where X is xcoord/7
jsr hgr_box_page_toggle
jsr hgr_box_page_toggle ; erase box page1
ldy CURRENT_LEMMING ldy CURRENT_LEMMING
lda lemming_x,Y lda lemming_x,Y
tax tax
lda lemming_y,Y lda lemming_y,Y
ldy #9 ldy #10
jsr hgr_box jsr hgr_box
jsr hgr_box_page_toggle jsr hgr_box_page_toggle ; erase box page2
ldy CURRENT_LEMMING ldy CURRENT_LEMMING
lda lemming_x,Y lda lemming_x,Y
tax tax
lda lemming_y,Y lda lemming_y,Y
ldy #9 ldy #10
jsr hgr_box jsr hgr_box
ldx CURRENT_LEMMING ldx CURRENT_LEMMING ; move 3 lines down
inc lemming_y,X inc lemming_y,X
inc lemming_y,X inc lemming_y,X
inc lemming_y,X inc lemming_y,X
lda lemming_x,X lda lemming_x,X ; move left or right
clc clc
adc lemming_direction,X adc lemming_direction,X
sta lemming_x,X sta lemming_x,X
no_mining_this_frame: no_mining_this_frame:
jmp done_mining
mining_falling:
ldy CURRENT_LEMMING
lda #LEMMING_FALLING
sta lemming_status,Y
done_mining: done_mining:
jmp done_move_lemming jmp done_move_lemming
;===================== ;=====================
; bashing ; bashing
;===================== ;=====================