Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-21 21:34:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Very old bug fixed in soil down!

Browse Source 
An old and rare bug that crashes the program if there is nothing to fall.
Also I leave the procedure helpful in testing new weapons.
This commit is contained in:
Pecusx
2022-05-07 13:59:19 +02:00
parent ca7a61873c
commit 70b197392e
3 changed files with 34 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+33 -1
View File
@@ -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.