dos33fsprogs/ootw/ootw_rope.s
Vince Weaver 448f16e947 ootw: change the keyboard controls
a bit more awkward, but something that will actually work on a II+
2019-03-23 13:20:43 -04:00

351 lines
4.9 KiB
ArmAsm

; Ootw Rope course
ootw_rope:
;===========================
; Enable graphics
bit LORES
bit SET_GR
bit FULLGR
;===========================
; Setup pages (is this necessary?)
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
;=================================
; Setup right/left exit paramaters
lda #(39+128)
sta RIGHT_LIMIT
lda #(11+128)
sta LEFT_LIMIT
lda #0
sta SWING_PROGRESS
;=============================
; Load background to $c00
lda BEFORE_SWING
beq after_swing_bg
before_swing_bg:
lda #>(rope_rle)
sta GBASH
lda #<(rope_rle)
sta GBASL
jmp load_swing_bg
after_swing_bg:
lda #>(broke_rope_rle)
sta GBASH
lda #<(broke_rope_rle)
sta GBASL
load_swing_bg:
lda #$c ; load image off-screen $c00
jsr load_rle_gr
;================================
; Load quake background to $BC00
jsr gr_make_quake
;=================================
; copy $c00 to both pages $400/$800
jsr gr_copy_to_current
jsr page_flip
;=================================
; setup vars
lda #0
sta GAIT
sta GAME_OVER
;============================
; Rope Loop
;============================
rope_loop:
;============================
; Check if swinging
;============================
lda SWING_PROGRESS
beq no_swing
cmp #80 ; only load background on first frame
bne swing_not_first
lda #<no_rope_rle
sta GBASL
lda #>no_rope_rle
sta GBASH
lda #$C ; load image off-screen $C00
jsr load_rle_gr
swing_not_first:
dec SWING_PROGRESS
dec SWING_PROGRESS
ldx SWING_PROGRESS
lda swing_progression,X
sta GBASL
lda swing_progression+1,X
sta GBASH
lda #$10 ; load image off-screen $1000
jsr load_rle_gr
jsr gr_overlay_40x40
; FIXME
; jsr gr_make_quake ; make quake
jmp beyond_quake
no_swing:
;================================
; handle earthquakes
jsr earthquake_handler
beyond_quake:
;===============================
; check keyboard
jsr handle_keypress
;===============================
; move physicist
jsr move_physicist
;===============================
; check screen limits
jsr check_screen_limit
;===============================
; check if swinging off
lda PHYSICIST_STATE
cmp #P_SWINGING
bne done_swing_check
lda SWING_PROGRESS
bne done_swing_check
; swung off screen!
lda #5
sta GAME_OVER
done_swing_check:
;===============
; draw physicist
; adjust y for slope
lda PHYSICIST_X
cmp #26
bcs phys_no_adjust_y ; blt
cmp #17
bcc phys_on_platform
; lda PHYSICIST_X
sec
sbc #3
and #$fe ; our sprite code only draws even y
jmp phys_done_adjust_y
; slope is 15 - 26 ( 28 - 36)
; 26 -> 22
phys_on_platform:
lda #14
bne phys_done_adjust_y
phys_no_adjust_y:
lda #22
phys_done_adjust_y:
sta PHYSICIST_Y
lda PHYSICIST_STATE
cmp #P_SWINGING
beq hes_swinging
jsr draw_physicist
hes_swinging:
;======================
; draw foreground plant
lda #<foreground_spikes
sta INL
lda #>foreground_spikes
sta INH
lda #30
sta XPOS
lda #30
sec
sbc EARTH_OFFSET
sta YPOS
jsr put_sprite
;================
; draw falling boulder
jsr draw_boulder
;===============
; page flip
jsr page_flip
;================
; inc frame count
inc FRAMEL
bne rope_frame_no_oflo
inc FRAMEH
rope_frame_no_oflo:
;=========================
; check if done this room
;=========================
; handle game over
lda GAME_OVER
cmp #$ff
beq done_rope
; if 2 then exiting right, to pool
cmp #$2
bne check_cliff_edge
lda #0
sta PHYSICIST_X
sta EARTH_OFFSET
jmp ootw_pool
; if 1 then at edge of cliff
check_cliff_edge:
cmp #$1
bne check_swung_off
lda #0
sta GAME_OVER
;===================
; at cliff's edge
lda #0
sta BEFORE_SWING
; FIXME: check for jump
lda #80
sta SWING_PROGRESS
lda #11
sta PHYSICIST_X
lda #P_SWINGING
sta PHYSICIST_STATE
jmp not_done_rope
check_swung_off:
cmp #$5
bne not_done_rope
lda #1
sta PHYSICIST_X
sta EARTH_OFFSET
sta DIRECTION ; face right
lda #10
sta PHYSICIST_Y
lda #P_FALLING
sta PHYSICIST_STATE
jmp ootw_pool
not_done_rope:
; loop forever
jmp rope_loop
done_rope:
rts
swing_progression:
.word swing25_rle
.word swing24_rle
.word swing23_rle
.word swing22_rle
.word swing21_rle
.word swing20_rle
.word swing19_rle
.word swing18_rle
.word swing17_rle
.word swing16_rle
.word swing15_rle
.word swing14_rle
.word swing13_rle
.word swing12_rle
.word swing11_rle
.word swing10_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing08_rle
.word swing06_rle
.word swing05_rle
.word swing04_rle
.word swing03_rle
.word swing02_rle
.word swing01_rle