mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-03 16:29:56 +00:00
190 lines
3.0 KiB
ArmAsm
190 lines
3.0 KiB
ArmAsm
;=============================
|
|
;=============================
|
|
; recalc_walk_collision
|
|
;=============================
|
|
;=============================
|
|
; far left limit is LEVEL_LEFT limit
|
|
; far right limit is LEVEL_RIGHT limit
|
|
; any LOCKED doors in the way also stop things
|
|
; FIXME: only door collision if on same level
|
|
recalc_walk_collision:
|
|
|
|
lda RIGHT_LIMIT
|
|
sta RIGHT_WALK_LIMIT
|
|
|
|
lda LEFT_LIMIT
|
|
sta LEFT_WALK_LIMIT
|
|
|
|
lda NUM_DOORS
|
|
beq done_recalc_walk_right_collision
|
|
|
|
recalc_walk_left:
|
|
|
|
lda PHYSICIST_X
|
|
|
|
ldx NUM_DOORS
|
|
dex
|
|
recalc_walk_left_loop:
|
|
|
|
cmp door_x,X
|
|
bcc recalc_walk_left_continue ; bcs
|
|
|
|
lda door_status,X
|
|
cmp #DOOR_STATUS_LOCKED
|
|
bne recalc_walk_left_continue
|
|
|
|
; early exit
|
|
lda door_x,X
|
|
ora #$80
|
|
sta LEFT_WALK_LIMIT
|
|
jmp done_recalc_walk_left_collision
|
|
|
|
recalc_walk_left_continue:
|
|
dex
|
|
bpl recalc_walk_left_loop
|
|
|
|
done_recalc_walk_left_collision:
|
|
|
|
lda PHYSICIST_X
|
|
|
|
ldx #0
|
|
recalc_walk_right_loop:
|
|
|
|
cmp door_x,X
|
|
bcs recalc_walk_right_continue ; bge
|
|
|
|
lda door_status,X
|
|
cmp #DOOR_STATUS_LOCKED
|
|
bne recalc_walk_right_continue
|
|
|
|
; early exit
|
|
lda door_x,X
|
|
sec
|
|
sbc #4
|
|
ora #$80
|
|
sta RIGHT_WALK_LIMIT
|
|
jmp done_recalc_walk_right_collision
|
|
|
|
recalc_walk_right_continue:
|
|
inx
|
|
cpx NUM_DOORS
|
|
bne recalc_walk_right_loop
|
|
|
|
done_recalc_walk_right_collision:
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
;=============================
|
|
;=============================
|
|
; calc_gun_right_collision
|
|
;=============================
|
|
;=============================
|
|
; far right limit is LEVEL_RIGHT
|
|
; any LOCKED or CLOSED doors stop things
|
|
; any shield stops things
|
|
; our friend stops things
|
|
; any enemies stop things
|
|
|
|
calc_gun_right_collision:
|
|
|
|
lda RIGHT_LIMIT
|
|
and #$7f
|
|
sta RIGHT_SHOOT_LIMIT
|
|
|
|
lda NUM_DOORS
|
|
beq done_calc_gun_right_collision
|
|
|
|
calc_gun_right_doors:
|
|
|
|
|
|
ldx #0
|
|
calc_gun_right_loop:
|
|
|
|
lda PHYSICIST_X
|
|
|
|
cmp door_x,X
|
|
bcs calc_gun_right_continue ; bge
|
|
|
|
lda door_status,X
|
|
cmp #DOOR_STATUS_LOCKED
|
|
beq calc_gun_right_door_there
|
|
cmp #DOOR_STATUS_CLOSED
|
|
bne calc_gun_right_continue
|
|
|
|
calc_gun_right_door_there:
|
|
; early exit
|
|
lda door_x,X
|
|
sta RIGHT_SHOOT_LIMIT
|
|
jmp done_calc_gun_right_collision
|
|
|
|
calc_gun_right_continue:
|
|
inx
|
|
cpx NUM_DOORS
|
|
bne calc_gun_right_loop
|
|
|
|
done_calc_gun_right_collision:
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
;=============================
|
|
;=============================
|
|
; calc_gun_left_collision
|
|
;=============================
|
|
;=============================
|
|
; far right limit is LEVEL_LEFT
|
|
; any LOCKED or CLOSED doors stop things
|
|
; any shield stops things
|
|
; our friend stops things
|
|
; any enemies stop things
|
|
|
|
calc_gun_left_collision:
|
|
|
|
lda LEFT_LIMIT
|
|
and #$7f
|
|
sta LEFT_SHOOT_LIMIT
|
|
|
|
lda NUM_DOORS
|
|
beq done_calc_gun_left_collision
|
|
|
|
calc_gun_left_doors:
|
|
|
|
|
|
ldx NUM_DOORS
|
|
dex
|
|
calc_gun_left_loop:
|
|
lda PHYSICIST_X
|
|
|
|
cmp door_x,X
|
|
bcc calc_gun_left_continue ; blt
|
|
|
|
lda door_status,X
|
|
cmp #DOOR_STATUS_LOCKED
|
|
beq calc_gun_left_door_there
|
|
cmp #DOOR_STATUS_CLOSED
|
|
bne calc_gun_left_continue
|
|
|
|
calc_gun_left_door_there:
|
|
; early exit
|
|
lda door_x,X
|
|
sta LEFT_SHOOT_LIMIT
|
|
jmp done_calc_gun_left_collision
|
|
|
|
calc_gun_left_continue:
|
|
dex
|
|
bpl calc_gun_left_loop
|
|
|
|
done_calc_gun_left_collision:
|
|
|
|
|
|
rts
|
|
|
|
|