Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 17:29:49 +00:00
Code Issues Projects Releases Wiki Activity

ootw: have earthquake/boulders happen in rope room

Browse Source
This commit is contained in:
Vince Weaver 2019-01-20 01:54:58 -05:00
parent 166572a023
commit f25d152e20
3 changed files with 47 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ootw/earthquake.s
View File

@ -60,3 +60,32 @@ done_shake:
rts
;======================
; draw falling boulders
draw_boulder:
lda BOULDER_Y
cmp #38
bpl no_boulder
lda #<boulder
sta INL
lda #>boulder
sta INH
lda BOULDER_X
sta XPOS
lda BOULDER_Y
sta YPOS
jsr put_sprite
lda FRAMEL
and #$3
bne no_boulder
inc BOULDER_Y
inc BOULDER_Y
no_boulder:
rts

22
ootw/ootw_cavern.s
View File

@ -189,28 +189,8 @@ just_slugs:
;======================
; draw falling boulders
lda BOULDER_Y
cmp #38
bpl no_boulder
jsr draw_boulder
lda #<boulder
sta INL
lda #>boulder
sta INH
lda BOULDER_X
sta XPOS
lda BOULDER_Y
sta YPOS
jsr put_sprite
lda FRAMEL
and #$3
bne no_boulder
inc BOULDER_Y
inc BOULDER_Y
no_boulder:
;=======================
; page flip

20
ootw/ootw_rope.s
View File

@ -38,8 +38,13 @@ ootw_rope:
sta GBASL
jsr load_rle_gr
;================================
; Load quake background to $1000
jsr gr_make_quake
;=================================
; copy to both pages $400/$800
; copy $c00 to both pages $400/$800
jsr gr_copy_to_current
jsr page_flip
@ -59,9 +64,9 @@ ootw_rope:
rope_loop:
;================================
; copy background to current page
; handle earthquakes
jsr gr_copy_to_current
jsr earthquake_handler
;===============================
@ -87,10 +92,18 @@ rope_loop:
lda #30
sta XPOS
lda #30
sec
sbc EARTH_OFFSET
sta YPOS
jsr put_sprite
;================
; draw falling boulder
jsr draw_boulder
;===============
; page flip
@ -119,6 +132,7 @@ rope_frame_no_oflo:
lda #0
sta PHYSICIST_X
sta EARTH_OFFSET
jmp ootw_pool