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

duke: can pick up keys now

Browse Source
This commit is contained in:
Vince Weaver
2020-12-16 15:39:27 -05:00
parent d7e95d7cc7
commit f42f2cf598
2 changed files with 51 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
duke/move_duke.s
View File

@@ -104,11 +104,58 @@ done_move_duke:
;========================= ;=========================
duke_collide: duke_collide:
;==================
; check for item
;==================
duke_check_item:
lda DUKE_FOOT_OFFSET
sec
sbc #16
tax
check_red_key:
lda TILEMAP,X
cmp #31 ; red key
bne check_blue_key
jsr pickup_noise
lda INVENTORY
ora #INV_RED_KEY
sta INVENTORY
; erase red key (304,96)
lda #0
sta $A938 ; hack
jsr copy_tilemap_subset
jsr update_status_bar
jmp duke_check_head
check_blue_key:
cmp #30 ; blue key
bne duke_check_head
jsr pickup_noise
lda INVENTORY
ora #INV_BLUE_KEY
sta INVENTORY
; erase blue key
lda #0
sta $970c ; hack
jsr copy_tilemap_subset
jsr update_status_bar
jmp duke_check_head
;=================== ;===================
; collide with head ; collide with head
;=================== ;===================
duke_check_head:
; only check above head if jumping ; only check above head if jumping
lda DUKE_JUMPING lda DUKE_JUMPING
beq collide_left_right beq collide_left_right

3
duke/status_bar.s
View File

@@ -133,6 +133,9 @@ update_status_bar:
jsr update_items jsr update_items
lda #2
sta UPDATE_STATUS
rts rts
;=========================== ;===========================