Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-05 21:34:30 +00:00
Code Issues Projects Releases Wiki Activity

ootw: add falling boulder

Browse Source
This commit is contained in:
Vince Weaver 2019-01-18 00:27:32 -05:00
parent 07476896d5
commit 17cc990e5a
4 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ootw/ootw.s
View File

@ -23,6 +23,9 @@ ootw:
lda #1 lda #1
sta DIRECTION sta DIRECTION
lda #40
sta BOULDER_Y
jsr ootw_pool jsr ootw_pool
;=========================== ;===========================

31
ootw/ootw_cavern.s
View File

@ -94,6 +94,16 @@ earthquake_init:
lda #200 lda #200
sta EQUAKE_PROGRESS sta EQUAKE_PROGRESS
lda #0
sta BOULDER_Y
jsr random16
lda SEEDL
and #$1f
clc
adc #4
sta BOULDER_X
earth_mover: earth_mover:
lda EQUAKE_PROGRESS lda EQUAKE_PROGRESS
beq earth_still beq earth_still
@ -144,7 +154,28 @@ done_shake:
;====================== ;======================
; draw falling boulders ; draw falling boulders
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:
;======================= ;=======================
; page flip ; page flip

7
ootw/ootw_sprites.inc
View File

@ -361,6 +361,13 @@ caught8:
.byte $aa,$aa,$aa,$aa .byte $aa,$aa,$aa,$aa
.byte $aa,$aa,$aa,$5e .byte $aa,$aa,$aa,$5e
;============================
; Falling boulder
boulder:
.byte $3,$2
.byte $22,$22,$2a
.byte $22,$22,$22

2
ootw/zp.inc
View File

@ -138,6 +138,8 @@ HGR_COLOR = $E4
GAME_OVER = $E5 GAME_OVER = $E5
EQUAKE_PROGRESS = $E6 EQUAKE_PROGRESS = $E6
EARTH_OFFSET = $E7 EARTH_OFFSET = $E7
BOULDER_X = $E8
BOULDER_Y = $E9
;SHIPY = $E4 ;SHIPY = $E4
;YADD = $E5 ;YADD = $E5
;LOOP = $E6 ;LOOP = $E6