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

ootw: c1: more beast work, plus some debugging stuff

Browse Source
This commit is contained in:
Vince Weaver 2019-08-19 02:21:35 -04:00
parent 2619a75503
commit f102c687bf
4 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ootw/ootw_c1_beast.s
View File

@ -28,14 +28,23 @@ setup_beast_right:
lda WHICH_CAVE lda WHICH_CAVE
cmp #4 cmp #4
bne beast_left_set_normal beq beast_right_rope
cmp #2
beq beast_right_end
jmp beast_right_set_normal
; give time to get zapped
beast_right_end:
lda #220
jmp beast_right_set_x
beast_right_rope:
lda #240 lda #240
jmp beast_left_set_x jmp beast_right_set_x
beast_left_set_normal: beast_right_set_normal:
lda #248 ; -8 = 248 lda #246 ; -8 = 248
beast_left_set_x: beast_right_set_x:
sta BEAST_X sta BEAST_X
jmp setup_no_beast jmp setup_no_beast

8
ootw/ootw_c1_mesa.s
View File

@ -48,11 +48,6 @@ mesa_left:
lda #$c ; load image off-screen $c00 lda #$c ; load image off-screen $c00
jsr load_rle_gr jsr load_rle_gr
;=================================
; copy to screen
; jsr gr_copy_to_current
; jsr page_flip
;================================= ;=================================
; setup vars ; setup vars
@ -62,6 +57,9 @@ mesa_left:
sta GAME_OVER sta GAME_OVER
sta LEVELEND_PROGRESS sta LEVELEND_PROGRESS
lda #2
sta WHICH_CAVE
jsr setup_beast jsr setup_beast
;============================ ;============================

2
ootw/ootw_c1_pool.s
View File

@ -57,6 +57,8 @@ ootw_pool:
lda #30 lda #30
sta TENTACLE_PROGRESS sta TENTACLE_PROGRESS
lda #1
sta BEAST_OUT
;================================== ;==================================
; setup beast if we're running from it ; setup beast if we're running from it

3
ootw/ootw_c1_sluggy.s
View File

@ -106,7 +106,8 @@ init_slug_loop:
; Mark slug as out and alive ; Mark slug as out and alive
lda #1 ; lda #1
lda #0
sta slugg0_out,X sta slugg0_out,X