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

ootw: c1: some slug adjustments

Browse Source 
now fall a better speed

also spawn going left
This commit is contained in:
Vince Weaver 2019-08-20 00:08:59 -04:00
parent 6ff16ef592
commit 760d579bdf
1 changed files with 37 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
ootw/ootw_c1_sluggy.s
View File

@ -147,19 +147,10 @@ regular_slug:
lda #$ff lda #$ff
sta slugg_dir,X sta slugg_dir,X
; Randomly pick an X value to appear at ; pick X
jsr random16 jsr init_slug_x
lda SEEDL
and #$1f
clc
adc #8 ; appear from x = 8..32
cmp #32
bcc slugx_not_too_high ; blt
lsr ; div by two if too large
slugx_not_too_high:
sta slugg_x,X
; Make the slug movement random so they don't all move in sync ; Make the slug movement random so they don't all move in sync
@ -178,6 +169,22 @@ slugx_not_too_high:
rts rts
init_slug_x:
; Randomly pick an X value to appear at
jsr random16
lda SEEDL
and #$1f
clc
adc #8 ; appear from x = 8..32
cmp #32
bcc slugx_not_too_high ; blt
lsr ; div by two if too large
slugx_not_too_high:
sta slugg_x,X
rts
@ -408,7 +415,7 @@ check_draw_falling:
dey dey
lda FRAMEL ; slow things down lda FRAMEL ; slow things down
and #$f and #$7
bne done_falling_slugs bne done_falling_slugs
; actually fall ; actually fall
@ -584,8 +591,24 @@ slug_exit:
remove_slug: remove_slug:
lda #0
sta slugg_out,X dec slugg_out,X
beq slug_removed
; was higher, so re-spawn
; respawn on ceiling
lda #2
sta slugg_y,X
; direction=left
lda #$ff
sta slugg_dir,X
; put in random spot
jsr init_slug_x
slug_removed:
jmp slug_done jmp slug_done