diff --git a/grafproc.asm b/grafproc.asm index 881c6f6..f104bd5 100755 --- a/grafproc.asm +++ b/grafproc.asm @@ -759,7 +759,13 @@ StillNothing inc ydraw lda ydraw cmp #screenheight - bne NextPoint1 + bne NextPoint1 + ; no pixels on whole column !!! + ldy #0 + lda ydraw + sta (tempor2),y + sta (temp),y + jmp FoundPeek1 FoundPeek1 inw tempor2 inw temp @@ -930,6 +936,32 @@ EndDrawing rts .endp +; **************************************************** +;-------------------------------------------------- +calculatemountains0 .proc +; Only for testing - makes ground flat (one pixel) +; and places tanks on it +; remember to remove in final compilation :) +;-------------------------------------------------- + mwa #0 xdraw +nextPointDrawing + adw xdraw #mountaintable modify + lda #screenheight-1 + ldy #0 + sta (modify),y + inw xdraw + cpw xdraw #screenwidth + bne nextPointDrawing + ldx NumberOfPlayers + dex +SetYofNextTank + lda #screenheight-2 + sta ytankstable,x + dex + bpl SetYofNextTank + rts +.endp +; **************************************************** ; ----------------------------------------- unPlot .proc ; plots a point and saves the plotted byte, reverts the previous plot. diff --git a/scorch.asm b/scorch.asm index e109f83..105baa4 100644 --- a/scorch.asm +++ b/scorch.asm @@ -299,6 +299,7 @@ SettingEnergies jsr clearscreen ;let the screen be clean jsr placetanks ;let the tanks be evenly placed jsr calculatemountains ;let mountains be nice for the eye +; jsr calculatemountains0 ;only fort tests - makes mountains flat and one pixel height jsr drawmountains ;draw them jsr drawtanks ;finally draw tanks diff --git a/scorch.xex b/scorch.xex index 455fd2c..148e47c 100644 Binary files a/scorch.xex and b/scorch.xex differ