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

The spider can now go down and to the right. More directions to come.

Browse Source
This commit is contained in:
Jeremy Rand 2020-07-25 14:34:44 -04:00
parent 184461947b
commit 213686ea1d
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
BuGS/gameSpider.s
View File

@ -315,7 +315,6 @@ updateSpider_rightUp anop
rtl rtl
updateSpider_rightDiagDown anop updateSpider_rightDiagDown anop
jsl waitForKey
lda spiderScreenOffset lda spiderScreenOffset
clc clc
adc #SCREEN_BYTES_PER_ROW adc #SCREEN_BYTES_PER_ROW
@ -332,16 +331,13 @@ updateSpider_rightDiagDown_skipInc anop
lda spiderShiftInTile lda spiderShiftInTile
dec a dec a
sta spiderShiftInTile sta spiderShiftInTile
beq updateSpider_tilesRight
cmp #5
beq updateSpider_tilesDown beq updateSpider_tilesDown
cmp #SPIDER_STARTING_SHIFT
beq updateSpider_tilesRight
rtl rtl
updateSpider_tilesRight anop updateSpider_tilesRight anop
lda #7
sta spiderShiftInTile
ldx spiderTileOffsets+4 ldx spiderTileOffsets+4
cmp #RHS_FIRST_TILE_OFFSET cmp #RHS_FIRST_TILE_OFFSET
bge updateSpider_offScreen bge updateSpider_offScreen
@ -363,6 +359,9 @@ updateSpider_tilesRight anop
rtl rtl
updateSpider_tilesDown anop updateSpider_tilesDown anop
lda #TILE_PIXEL_HEIGHT
sta spiderShiftInTile
ldx spiderTileOffsets ldx spiderTileOffsets
stx spiderTileOffsets+2 stx spiderTileOffsets+2
lda tiles+TILE_BELOW_OFFSET,x lda tiles+TILE_BELOW_OFFSET,x
@ -375,6 +374,14 @@ updateSpider_tilesDown anop
lda tiles+TILE_BELOW_OFFSET,x lda tiles+TILE_BELOW_OFFSET,x
sta spiderTileOffsets+4 sta spiderTileOffsets+4
cpx #RHS_FIRST_TILE_OFFSET
bge updateSpider_tilesDownCont
lda tiles+TILE_TYPE_OFFSET,x
beq updateSpider_tilesDownCont
lda #TILE_EMPTY
sta tiles+TILE_TYPE_OFFSET,x
updateSpider_tilesDownCont anop
ldx spiderTileOffsets+8 ldx spiderTileOffsets+8
stx spiderTileOffsets+10 stx spiderTileOffsets+10
lda tiles+TILE_BELOW_OFFSET,x lda tiles+TILE_BELOW_OFFSET,x
@ -421,7 +428,7 @@ addSpider entry
lda tiles+TILE_ABOVE_OFFSET,x lda tiles+TILE_ABOVE_OFFSET,x
sta spiderTileOffsets+10 sta spiderTileOffsets+10
lda #7 lda #SPIDER_STARTING_SHIFT
sta spiderShiftInTile sta spiderShiftInTile
lda #SPIDER_SPRITE_LAST_OFFSET lda #SPIDER_SPRITE_LAST_OFFSET