Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

keen: can bonk head again

This commit is contained in:
Vince Weaver 2024-04-05 15:32:13 -04:00
parent 38ded8a67c
commit d20c367e94
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
games/keen/move_keen.s
View File

@ -20,7 +20,7 @@ move_keen:
jsr check_falling ; check for/handle falling jsr check_falling ; check for/handle falling
; jsr keen_collide ; check for right/left collision jsr keen_collide ; check for right/left collision
jsr handle_jumping ; handle jumping jsr handle_jumping ; handle jumping
@ -168,7 +168,7 @@ keen_collide:
;================== ;==================
keen_check_items: keen_check_items:
jsr check_items ; jsr check_items
;=================== ;===================
; collide with head ; collide with head
@ -182,12 +182,27 @@ keen_check_head:
; check if left side of head hit hard tile ; check if left side of head hit hard tile
lda KEEN_HEAD_TILE1 sec
lda KEEN_TILEY
sbc #1
adc #>big_tilemap
sta INH
lda #0
sta INL
ldy KEEN_TILEX
bne collide_head_r
collide_head_l:
lda (INL),Y
; if tile# < ALLHARD_TILES then we are fine ; if tile# < ALLHARD_TILES then we are fine
cmp #ALLHARD_TILES cmp #ALLHARD_TILES
bcc collide_left_right ; blt bcc collide_left_right ; blt
lda KEEN_HEAD_TILE2 collide_head_r:
iny
lda (INL),Y
; if tile# < ALLHARD_TILES then we are fine ; if tile# < ALLHARD_TILES then we are fine
cmp #ALLHARD_TILES cmp #ALLHARD_TILES
bcc collide_left_right ; blt bcc collide_left_right ; blt
@ -203,6 +218,8 @@ keen_check_head:
; jsr head_noise ; jsr head_noise
collide_left_right: collide_left_right:
rts
;=================== ;===================
; collide left/right ; collide left/right
;=================== ;===================