render pathways until empty column

This commit is contained in:
alpine9000
2016-04-27 10:54:12 +10:00
parent 4bbc44b569
commit f41aaac3d7
5 changed files with 24 additions and 9 deletions
+2 -2
View File
@@ -2,5 +2,5 @@
assets/demo_full.png
out/
*~
#*#
.#*
\#*\#
.\#*
+2 -1
View File
@@ -1 +1,2 @@
assets/P61.placeholder
assets/P61.placeholder
bin
+1 -1
View File
@@ -9,7 +9,7 @@ PLAYER_TOP_Y equ (PLAYER_BOTTOM_Y-(7*16))
PLAYER_JUMP_PIXELS equ 8
PLAYER_JUMP_SHIFT_CONVERT equ 3 ; x = x / PLAYER_JUMP_PIXELS
PLAYER_CHECK_MISS_PIXELS equ 6
PLAYER_PAUSE_PIXELS equ 12
PLAYER_PAUSE_PIXELS equ 8
PLAYER_MOVE_PIXELS equ 2
PLAYER_SPRITE_VERTICAL_BYTES equ ((16*4)+12)
+17 -4
View File
@@ -3,6 +3,7 @@
xdef BigBang
xdef pathwayRenderPending
xdef pathwayXIndex
xdef copperList
xdef mpanelCopperList
@@ -355,10 +356,11 @@ RenderPathway:
bne .skip
sub.w #1,pathwayRenderPending
move.w #6,d6
.loopY:
move.l #5,d5
move.w pathwayXIndex,d5 ; x index
.loopX:
move.w #6,d6 ; y index
move.w #0,d7 ; number of rows without a pathway
.loopY:
bsr GetPathTile
move.l d0,a2
move.w (a2),d0
@@ -383,9 +385,18 @@ RenderPathway:
move.l #10,d2
sub.l d6,d2
jsr BlitTile
bra .next
.dontBlit:
dbra d5,.loopX
add.w #1,d7
cmp.w pathwayXIndex,d5
beq .next
cmp.w #7,d7
beq .skip
.next:
dbra d6,.loopY
add.w #1,d5
bra .loopX
.skip:
rts
@@ -1121,6 +1132,8 @@ moving:
dc.w 0
pathwayRenderPending:
dc.w 0
pathwayXIndex
dc.w 0
tileFadePtr:
dc.l tileFade
+2 -1
View File
@@ -259,7 +259,8 @@ CheckPlayerMiss:
blt .doBigBang
sub.w #PLAYER_LEFT_X,d0
lsr.w #4,d0 ; x columns
move.w d0,pathwayXIndex
move.l #(FOREGROUND_PLAYAREA_WIDTH_WORDS/2)-1,d1
sub.w d0,d1
mulu.w #FOREGROUND_PLAYAREA_HEIGHT_WORDS*2,d1