Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 22:30:49 +00:00
Code Issues Projects Releases Wiki Activity

duke: right/left collisions sorta work

Browse Source
This commit is contained in:
Vince Weaver 2020-12-13 19:25:30 -05:00
parent da8c6a6044
commit 8e04567265
2 changed files with 49 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
duke/draw_duke.s
View File

@ -1,4 +1,6 @@
DUKE_SPEED = $80
;=========================
; move duke
;=========================
@ -8,6 +10,8 @@ move_duke:
jsr check_falling
jsr duke_collide
jsr handle_jumping
lda DUKE_WALKING
@ -24,7 +28,7 @@ duke_scroll_right:
clc
lda DUKE_XL
adc #$40
adc #DUKE_SPEED
sta DUKE_XL
bcc skip_duke_scroll_right
@ -39,7 +43,7 @@ skip_duke_scroll_right:
duke_walk_right:
lda DUKE_XL
clc
adc #$40
adc #DUKE_SPEED
sta DUKE_XL
bcc dwr_noflo
inc DUKE_X
@ -56,7 +60,7 @@ duke_scroll_left:
sec
lda DUKE_XL
sbc #$40
sbc #DUKE_SPEED
sta DUKE_XL
bcs skip_duke_scroll_left
@ -72,7 +76,7 @@ duke_walk_left:
lda DUKE_XL
sec
sbc #$40
sbc #DUKE_SPEED
sta DUKE_XL
bcs dwl_noflo
dec DUKE_X
@ -92,9 +96,49 @@ done_move_duke:
duke_collide:
lda DUKE_DIRECTION
beq done_duke_collide
bmi check_left_collide
check_right_collide:
lda DUKE_FOOT_OFFSET
clc
adc #1 ; underfoot is on next row (+16)
tax
lda TILEMAP,X
; if tile# < 32 then we are fine
cmp #32
bcc done_duke_collide ; blt
lda #0 ;
sta DUKE_WALKING
jmp done_duke_collide
check_left_collide:
lda DUKE_FOOT_OFFSET
sec
sbc #1 ; underfoot is on next row (+16)
tax
lda TILEMAP,X
; if tile# < 32 then we are fine
cmp #32
bcc done_duke_collide ; blt
lda #0 ;
sta DUKE_WALKING
jmp done_duke_collide
done_duke_collide:
rts
;=========================
; check_jumping
;=========================

2
duke/keyboard.s
View File

@ -192,7 +192,7 @@ space_pressed:
lda DUKE_JUMPING
bne done_keypress ; don't jump if already jumping
lda #6
lda #7
sta DUKE_JUMPING
jmp done_keypress