dos33fsprogs/ootw/ootw_c2_cage.s
2019-07-18 19:14:33 -04:00

652 lines
12 KiB
ArmAsm

; Ootw Checkpoint2 -- Despite all my Rage...
ootw_cage:
;===========================
; Enable graphics
bit LORES
bit SET_GR
bit FULLGR
;===========================
; Setup pages (is this necessary?)
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
;=============================
; Load background to $c00
lda #>(cage_rle)
sta GBASH
lda #<(cage_rle)
sta GBASL
lda #$c ; load image off-screen $c00
jsr load_rle_gr
;=================================
; copy to screen
jsr gr_copy_to_current
jsr page_flip
;=================================
; setup vars
lda #0
sta GAME_OVER
sta CAGE_AMPLITUDE
sta CAGE_OFFSET
sta CAGE_GUARD
bit KEYRESET ; clear keypress
;============================
; Cage Loop
;============================
cage_loop:
;================================
; copy background to current page
;================================
jsr gr_copy_to_current
;=======================
; draw miners mining
;=======================
jsr ootw_draw_miners
;======================
; draw cage
;======================
lda #11
sta XPOS
lda #0
sta YPOS
lda CAGE_AMPLITUDE
cmp #3
beq cage_amp_2
cmp #2
beq cage_amp_2
cmp #1
beq cage_amp_1
cage_amp_0:
lda #<cage_center_sprite
sta INL
lda #>cage_center_sprite
sta INH
jsr put_sprite_crop
jmp done_drawing_cage
cage_amp_1:
lda CAGE_OFFSET
and #$0e
tay
lda cage_amp1_sprites,Y
sta INL
lda cage_amp1_sprites+1,Y
sta INH
jsr put_sprite_crop
jmp done_drawing_cage
cage_amp_2:
lda CAGE_OFFSET
and #$0e
tay
lda cage_amp2_sprites,Y
sta INL
lda cage_amp2_sprites+1,Y
sta INH
jsr put_sprite_crop
done_drawing_cage:
;======================
; draw guard
;======================
lda CAGE_GUARD
cmp #15
bcs guard_patrol ; bge
; guard changing uniform
; CAGE_GUARD=0..14
lda #34
sta XPOS
lda #28
sta YPOS
lda CAGE_GUARD
asl
tay
lda changing_guard_sprites,Y
sta INL
lda changing_guard_sprites+1,Y
sta INH
jsr put_sprite_crop
jmp done_cage_guard
guard_patrol:
; guard patroling
; CAGE_GUARD=15+
; switch direction if at end
lda alien0_direction
bne patrolling_right
patrolling_left:
lda alien0_x
cmp #22
bcs patrolling_move ; bge
lda #A_TURNING
sta alien0_state
jmp patrolling_move
patrolling_right:
lda alien0_x
cmp #34
bcc patrolling_move ; blt
lda #A_TURNING
sta alien0_state
patrolling_move:
lda CAGE_AMPLITUDE
cmp #2
beq guard_yelling
cmp #3
beq guard_shooting
jmp guard_move_and_draw
guard_yelling:
lda alien0_x
cmp #21
bne guard_move_and_draw
lda #A_YELLING
sta alien0_state
jmp guard_move_and_draw
guard_shooting:
; guard shooting
; lda alien0_x
; cmp #21
; bne guard_move_and_draw
; lda #A_SHOOTING_UP
; sta alien0_state
; jmp guard_move_and_draw
guard_move_and_draw:
jsr move_alien
jsr draw_alien
done_cage_guard:
;===============================
; check keyboard
lda KEYPRESS
bpl cage_continue
inc CAGE_AMPLITUDE
lda CAGE_AMPLITUDE
check_amp1:
cmp #1
bne check_amp2
; lda #1 ; if amp=1, guard gets gun out
sta alien0_gun
jmp cage_continue
check_amp2:
cmp #2
bne check_amp3
; if amp=2, guard shouts
jmp cage_continue
check_amp3:
cmp #3
bne check_amp4 ; if amp=3, guard shoots
check_amp4:
cmp #4 ; if amp=4, cage falls
bne cage_continue
;===========================
; Done with cage, enter jail
bit KEYRESET ; clear keyboard
rts
cage_continue:
bit KEYRESET ; clear keyboard
;===============
; page flip
jsr page_flip
;================
; inc frame count
inc FRAMEL
bne cage_frame_no_oflo
inc FRAMEH
cage_frame_no_oflo:
;================
; move cage
lda FRAMEL ; slow down a bit
and #$7
bne no_move_cage
lda CAGE_AMPLITUDE
beq no_move_cage
inc CAGE_OFFSET
no_move_cage:
;=====================
; move cage guard
lda FRAMEL ; slow down a bit
and #$f
bne no_move_cage_guard
lda CAGE_GUARD
cmp #15
bcc guard_ch ; blt, 0..14
jmp no_move_cage_guard ; 15+
guard_ch:
; CAGE_GUARD = 0..14
inc CAGE_GUARD
; jmp no_move_cage_guard
guard_done_change:
lda CAGE_GUARD
cmp #15
bne no_move_cage_guard
; start patrol
lda #1
sta alien0_out
lda #33
sta alien0_x
lda #30
sta alien0_y
lda #A_WALKING
sta alien0_state
lda #0
sta alien0_gait
lda #0
sta alien0_direction
inc CAGE_GUARD ; now 16
no_move_cage_guard:
;===========================
; check if done this level
lda GAME_OVER
cmp #$ff
beq done_cage
; check if done this level
; cmp #$2
; bne not_to_right
; exit to right
; lda #0
; sta PHYSICIST_X
; sta WHICH_CAVE
; jmp ootw_cavern
;not_to_right:
; cmp #$1
; bne not_done_pool
; lda #37
; sta PHYSICIST_X
; jmp ootw_rope
; loop forever
jmp cage_loop
done_cage:
rts
cage_amp1_sprites:
.word cage_center_sprite
.word cage_right1_sprite
.word cage_right1_sprite
.word cage_right1_sprite
.word cage_center_sprite
.word cage_left1_sprite
.word cage_left1_sprite
.word cage_left1_sprite
cage_amp2_sprites:
.word cage_center_sprite
.word cage_right1_sprite
.word cage_right2_sprite
.word cage_right1_sprite
.word cage_center_sprite
.word cage_left1_sprite
.word cage_left2_sprite
.word cage_left1_sprite
cage_center_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$58,$A8,$98,$58,$A8,$A8,$58,$AA,$AA
.byte $AA,$AA,$55,$AA,$BB,$55,$AA,$AA,$55,$AA,$AA
.byte $AA,$AA,$55,$AB,$00,$55,$77,$77,$55,$AA,$AA
.byte $AA,$AA,$55,$AA,$00,$55,$07,$07,$55,$AA,$AA
.byte $AA,$AA,$55,$AA,$44,$55,$00,$50,$55,$AA,$AA
.byte $AA,$AA,$55,$AA,$44,$55,$05,$00,$55,$AA,$AA
.byte $AA,$AA,$85,$8A,$87,$85,$80,$80,$85,$AA,$AA
cage_right1_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$A5,$5A,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$85,$8A,$8A,$8A,$AA
.byte $AA,$AA,$AA,$58,$A8,$98,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$BB,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$55,$AB,$00,$55,$77,$77,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$00,$55,$07,$57,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$44,$55,$05,$50,$55,$AA
.byte $AA,$AA,$AA,$55,$AA,$44,$55,$00,$00,$55,$AA
.byte $AA,$AA,$AA,$85,$87,$87,$85,$80,$80,$55,$AA
cage_right2_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$A5,$5A,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$AA,$AA,$8A,$85,$A8,$5A,$AA
.byte $AA,$AA,$AA,$AA,$58,$98,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$AA,$55,$BB,$55,$AA,$AA,$55,$AA
.byte $AA,$AA,$AA,$AA,$55,$00,$55,$77,$77,$55,$AA
.byte $AA,$AA,$AA,$AA,$55,$00,$55,$07,$57,$58,$5A
.byte $AA,$AA,$AA,$AA,$AA,$55,$44,$55,$50,$00,$55
.byte $AA,$AA,$AA,$AA,$AA,$55,$44,$55,$00,$80,$85
.byte $AA,$AA,$AA,$AA,$AA,$85,$87,$A8,$A8,$AA,$AA
cage_left1_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$5A,$A5,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$8A,$8A,$8A,$85,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$55,$AA,$B9,$55,$A8,$A8,$58,$AA,$AA,$AA
.byte $AA,$55,$BA,$0B,$55,$AA,$AA,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$00,$55,$7A,$7A,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$40,$55,$77,$77,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$44,$55,$00,$00,$55,$AA,$AA,$AA
.byte $AA,$55,$AA,$74,$55,$00,$05,$55,$AA,$AA,$AA
.byte $AA,$A8,$A8,$A8,$A8,$80,$80,$85,$AA,$AA,$AA
cage_left2_sprite:
.byte 11,11
.byte $AA,$AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$AA,$55,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$AA,$5A,$A5,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$58,$A8,$85,$8A,$AA,$AA,$AA,$AA,$AA,$AA
.byte $AA,$55,$AA,$B9,$55,$A8,$58,$AA,$AA,$AA,$AA
.byte $AA,$55,$BA,$0B,$55,$AA,$55,$AA,$AA,$AA,$AA
.byte $AA,$55,$AA,$00,$55,$7A,$55,$AA,$AA,$AA,$AA
.byte $5A,$A5,$4A,$40,$55,$77,$55,$AA,$AA,$AA,$AA
.byte $55,$AA,$44,$55,$55,$55,$AA,$AA,$AA,$AA,$AA
.byte $85,$8A,$74,$55,$00,$55,$AA,$AA,$AA,$AA,$AA
.byte $AA,$AA,$A8,$A8,$80,$85,$AA,$AA,$AA,$AA,$AA
changing_guard_sprites:
.word changing_guard1_sprite ; 0
.word changing_guard2_sprite ; 1
.word changing_guard3_sprite ; 2
.word changing_guard4_sprite ; 3
.word changing_guard5_sprite ; 4
.word changing_guard6_sprite ; 5
.word changing_guard7_sprite ; 6
.word changing_guard8_sprite ; 7
.word changing_guard9_sprite ; 8
.word changing_guard10_sprite ; 9
.word changing_guard11_sprite ; 10
.word changing_guard11_sprite ; 11
.word changing_guard11_sprite ; 12
.word changing_guard12_sprite ; 13
.word changing_guard13_sprite ; 14
changing_guard1_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$0A
.byte $0A,$00,$00,$00
.byte $A0,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
changing_guard2_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$0A
.byte $00,$00,$00,$00
.byte $A0,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
changing_guard3_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$00
.byte $00,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$AA,$00,$00
.byte $AA,$0A,$00,$00
changing_guard4_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$00
.byte $00,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$A0,$00,$00
.byte $AA,$AA,$00,$00
.byte $AA,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard5_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$00
.byte $0A,$00,$00,$00
.byte $00,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $AA,$A0,$00,$50
.byte $AA,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard6_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$0A,$00,$AA
.byte $AA,$00,$00,$00
.byte $AA,$00,$00,$00
.byte $00,$00,$00,$00
.byte $00,$00,$70,$50
.byte $00,$AA,$77,$55
.byte $A0,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard7_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$77,$75,$AA
.byte $0A,$07,$00,$00
.byte $00,$50,$00,$00
.byte $00,$00,$00,$00
.byte $00,$00,$70,$50
.byte $00,$AA,$77,$55
.byte $A0,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard8_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$77,$75,$AA
.byte $AA,$A7,$00,$00
.byte $00,$50,$00,$00
.byte $00,$00,$00,$00
.byte $00,$00,$70,$50
.byte $00,$A0,$77,$55
.byte $00,$AA,$07,$05
.byte $AA,$0A,$00,$00
changing_guard9_sprite:
.byte 4,9
.byte $AA,$AA,$AA,$AA
.byte $AA,$77,$77,$AA
.byte $0A,$00,$00,$0A
.byte $70,$00,$00,$50
.byte $77,$00,$00,$55
.byte $A7,$00,$00,$A5
.byte $7A,$A0,$A0,$5A
.byte $07,$AA,$AA,$05
.byte $00,$AA,$AA,$00
changing_guard10_sprite:
.byte 4,9
.byte $22,$A2,$A2,$22
.byte $22,$77,$77,$22
.byte $02,$00,$00,$02
.byte $70,$00,$00,$50
.byte $77,$00,$00,$55
.byte $A7,$00,$00,$A5
.byte $7A,$A0,$00,$5A
.byte $07,$AA,$A0,$05
.byte $00,$AA,$AA,$00
changing_guard11_sprite:
.byte 4,9
.byte $22,$02,$02,$22
.byte $22,$77,$77,$22
.byte $02,$00,$00,$02
.byte $70,$00,$00,$50
.byte $77,$00,$00,$55
.byte $A7,$00,$00,$AA
.byte $7A,$A0,$A0,$5A
.byte $07,$AA,$AA,$05
.byte $00,$AA,$AA,$00
changing_guard12_sprite:
.byte 4,9
.byte $22,$A2,$A2,$22
.byte $72,$57,$75,$22
.byte $77,$07,$00,$A2
.byte $AA,$77,$00,$AA
.byte $AA,$77,$10,$AA
.byte $AA,$00,$00,$AA
.byte $AA,$77,$A0,$55
.byte $AA,$07,$AA,$05
.byte $0A,$00,$0A,$00
changing_guard13_sprite:
.byte 4,9
.byte $22,$A2,$A2,$22
.byte $72,$57,$75,$22
.byte $77,$07,$00,$A2
.byte $AA,$00,$77,$AA
.byte $AA,$77,$10,$AA
.byte $AA,$00,$00,$AA
.byte $AA,$77,$A0,$55
.byte $AA,$07,$AA,$05
.byte $0A,$00,$0A,$00