Apple-2gs-SW/BuGS
1
0
Fork 0
mirror of https://github.com/jeremysrand/BuGS.git synced 2024-05-29 08:41:26 +00:00
Code Issues Projects Releases Wiki Activity

More spider work.

Browse Source
This commit is contained in:
Jeremy Rand 2020-07-24 23:50:01 -04:00
parent 45bc6641e6
commit f890200a0d
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
BuGS/gameSpider.s
View File

@ -37,6 +37,8 @@ SPIDER_RHS_TILE_OFFSET equ SPIDER_TOP_ROW_OFFSET+(GAME_NUM_TILES_WIDE-1)*SI
SPIDER_STARTING_SHIFT equ 2 SPIDER_STARTING_SHIFT equ 2
SPIDER_LHS_STARTING_SCREEN_OFFSET equ SCREEN_BYTES_PER_ROW*SPIDER_STARTING_SHIFT+6 SPIDER_LHS_STARTING_SCREEN_OFFSET equ SCREEN_BYTES_PER_ROW*SPIDER_STARTING_SHIFT+6
SPIDER_SPRITE_REFRESH_COUNT equ 4
drawSpider entry drawSpider entry
lda spiderState lda spiderState
@ -199,7 +201,7 @@ spiderJump entry
beq spiderJump_exploding beq spiderJump_exploding
lda spiderScreenShift lda spiderScreenShift
beq spiderJump_shift bne spiderJump_shift
lda spiderJumpTable,x lda spiderJumpTable,x
sta jumpInst+1 sta jumpInst+1
@ -244,6 +246,15 @@ updateSpider_cont anop
tay tay
lda spiderSpriteRefresh
beq updateSpider_spriteRefresh
dec a
sta spiderSpriteRefresh
bra updateSpider_testState
updateSpider_spriteRefresh anop
lda #SPIDER_SPRITE_REFRESH_COUNT
sta spiderSpriteRefresh
lda spiderSprite lda spiderSprite
beq updateSpider_resetSprite beq updateSpider_resetSprite
sec sec
@ -321,10 +332,10 @@ updateSpider_rightDiagDown_skipInc anop
lda spiderShiftInTile lda spiderShiftInTile
dec a dec a
sta spiderShiftInTile sta spiderShiftInTile
beq updateSpider_tilesDown beq updateSpider_tilesRight
cmp #5 cmp #5
beq updateSpider_tilesRight beq updateSpider_tilesDown
rtl rtl
updateSpider_tilesRight anop updateSpider_tilesRight anop
@ -413,7 +424,8 @@ addSpider entry
lda #SPIDER_SPRITE_LAST_OFFSET lda #SPIDER_SPRITE_LAST_OFFSET
sta spiderSprite sta spiderSprite
; Write this code lda #SPIDER_SPRITE_REFRESH_COUNT
sta spiderSpriteRefresh
addSpider_done anop addSpider_done anop
rtl rtl
@ -426,6 +438,7 @@ shootSpider entry
spiderState dc i2'SPIDER_STATE_NONE' spiderState dc i2'SPIDER_STATE_NONE'
spiderSprite dc i2'0' spiderSprite dc i2'0'
spiderSpriteRefresh dc i2'0'
spiderScreenOffset dc i2'0' spiderScreenOffset dc i2'0'
spiderScreenShift dc i2'0' spiderScreenShift dc i2'0'
spiderShiftInTile dc i2'0' spiderShiftInTile dc i2'0'