mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-29 05:29:36 +00:00
262 lines
3.5 KiB
ArmAsm
262 lines
3.5 KiB
ArmAsm
;=======================================
|
|
; Setup Beast
|
|
|
|
; FIXME: distance for count should be related
|
|
; to X distance behind on previous screen
|
|
|
|
setup_beast:
|
|
lda BEAST_OUT
|
|
beq setup_no_beast
|
|
|
|
lda #30
|
|
sta BEAST_COUNT
|
|
lda #B_STANDING
|
|
sta BEAST_STATE
|
|
|
|
lda BEAST_DIRECTION
|
|
beq setup_beast_left
|
|
|
|
setup_beast_right:
|
|
lda #248 ; -8 = 248
|
|
sta BEAST_X
|
|
jmp setup_no_beast
|
|
|
|
setup_beast_left:
|
|
lda #41
|
|
sta BEAST_X
|
|
|
|
setup_no_beast:
|
|
rts
|
|
|
|
;=======================================
|
|
; Move Beast
|
|
;
|
|
; FIXME: stop at edge of screen, or at physicist
|
|
|
|
move_beast:
|
|
lda BEAST_STATE
|
|
cmp #B_RUNNING
|
|
beq move_beast_running
|
|
cmp #B_STANDING
|
|
beq move_beast_standing
|
|
rts
|
|
|
|
;======================
|
|
; running
|
|
move_beast_running:
|
|
|
|
;=======================
|
|
; stop at edge or at physicist
|
|
|
|
lda BEAST_DIRECTION
|
|
beq check_beast_left
|
|
|
|
check_beast_right:
|
|
|
|
clc
|
|
lda BEAST_X
|
|
adc #$80
|
|
|
|
cmp RIGHT_LIMIT
|
|
bcc beast_no_stop ; (blt==bcc)
|
|
bcs stop_beast
|
|
|
|
check_beast_left:
|
|
|
|
clc
|
|
lda BEAST_X
|
|
adc #$80
|
|
|
|
cmp LEFT_LIMIT
|
|
bcs beast_no_stop ; (bge==bcs)
|
|
|
|
stop_beast:
|
|
lda #B_STANDING
|
|
sta BEAST_STATE
|
|
rts
|
|
|
|
|
|
|
|
beast_no_stop:
|
|
inc BEAST_GAIT ; cycle through animation
|
|
|
|
lda BEAST_GAIT
|
|
and #$3
|
|
cmp #$2 ; only run roughly 1/4 of time
|
|
bne b_no_move_run
|
|
|
|
lda BEAST_DIRECTION
|
|
beq b_run_left
|
|
|
|
inc BEAST_X ; run right
|
|
rts
|
|
b_run_left:
|
|
dec BEAST_X ; run left
|
|
b_no_move_run:
|
|
rts
|
|
|
|
;======================
|
|
; standing
|
|
|
|
move_beast_standing:
|
|
lda BEAST_COUNT
|
|
beq beast_stand_done ; if 0, perma-stand
|
|
|
|
dec BEAST_COUNT
|
|
bne beast_stand_done
|
|
|
|
lda #B_RUNNING
|
|
sta BEAST_STATE
|
|
|
|
beast_stand_done:
|
|
rts
|
|
|
|
;======================================
|
|
; draw beast
|
|
;======================================
|
|
|
|
draw_beast:
|
|
|
|
lda BEAST_STATE
|
|
cmp #B_STANDING
|
|
beq b_standing
|
|
cmp #B_RUNNING
|
|
beq b_running
|
|
|
|
rts
|
|
|
|
|
|
;==================================
|
|
; STANDING
|
|
;==================================
|
|
|
|
b_standing:
|
|
|
|
lda #<beast_standing
|
|
sta INL
|
|
|
|
lda #>beast_standing
|
|
sta INH
|
|
|
|
jmp finally_draw_beast
|
|
|
|
;===============================
|
|
; Running
|
|
;================================
|
|
|
|
b_running:
|
|
lda BEAST_GAIT
|
|
cmp #18
|
|
bcc brun_gait_fine ; blt
|
|
|
|
lda #0
|
|
sta BEAST_GAIT
|
|
|
|
brun_gait_fine:
|
|
; lsr
|
|
and #$fe
|
|
|
|
tax
|
|
|
|
lda beast_run_progression,X
|
|
sta INL
|
|
|
|
lda beast_run_progression+1,X
|
|
sta INH
|
|
|
|
jmp finally_draw_beast
|
|
|
|
;==================================
|
|
; COLLAPSING
|
|
;==================================
|
|
|
|
;physicist_collapsing:
|
|
|
|
; lda GAIT
|
|
; cmp #18
|
|
; bne collapse_not_done
|
|
|
|
;really_dead:
|
|
; lda #$ff
|
|
; sta GAME_OVER
|
|
; jmp finally_draw_him
|
|
|
|
;collapse_not_done:
|
|
|
|
; ldx GAIT
|
|
|
|
; lda collapse_progression,X
|
|
; sta INL
|
|
; lda collapse_progression+1,X
|
|
; sta INH
|
|
|
|
; lda FRAMEL
|
|
; and #$1f
|
|
; bne no_collapse_progress
|
|
|
|
; inc GAIT
|
|
; inc GAIT
|
|
|
|
;no_collapse_progress:
|
|
|
|
|
|
; jmp finally_draw_him
|
|
|
|
|
|
;=============================
|
|
; Actually Draw Beast
|
|
;=============================
|
|
|
|
|
|
finally_draw_beast:
|
|
lda BEAST_X
|
|
sta XPOS
|
|
|
|
lda #26
|
|
sec
|
|
sbc EARTH_OFFSET ; adjust for earthquakes
|
|
sta YPOS
|
|
|
|
lda BEAST_DIRECTION
|
|
bne b_facing_right
|
|
|
|
b_facing_left:
|
|
jmp put_sprite_crop
|
|
|
|
b_facing_right:
|
|
jmp put_sprite_flipped_crop
|
|
|
|
|
|
|
|
;======================================
|
|
; Check beast limit
|
|
;======================================
|
|
|
|
check_beast_limit:
|
|
|
|
; clc
|
|
; lda PHYSICIST_X
|
|
; adc #$80
|
|
; cmp LEFT_LIMIT
|
|
; bcs just_fine_left ; (bge==bcs)
|
|
|
|
;too_far_left:
|
|
; lda #1
|
|
; sta GAME_OVER
|
|
; rts
|
|
|
|
;just_fine_left:
|
|
|
|
; Check right edge of screen
|
|
|
|
; cmp RIGHT_LIMIT
|
|
; bcc just_fine_right ; blt
|
|
|
|
;too_far_right:
|
|
; lda #2
|
|
; sta GAME_OVER
|
|
|
|
;just_fine_right:
|
|
|
|
; rts
|