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

Opty

Browse Source 
And a very rare bug in calculating distance of the bullet from the tank.
This commit is contained in:
Pecusx
2023-08-26 13:02:50 +02:00
parent 99be22ac3b
commit 8651e33619
5 changed files with 16 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
game.asm
+3 -4
View File
@@ -657,9 +657,8 @@ NotShooter
clc clc
adc EnergyDecrease adc EnergyDecrease
sta loseL,x sta loseL,x
lda loseH,x scc
adc #$00 inc loseH,x
sta loseH,x
; Energy now, not less than 0 ; Energy now, not less than 0
lda Energy,x lda Energy,x
cmp EnergyDecrease cmp EnergyDecrease
@@ -678,7 +677,7 @@ NotNegativeEnergy
adc EnergyDecrease adc EnergyDecrease
sta gainL,y sta gainL,y
lda gainH,y lda gainH,y
adc #$00 adc #0
sta gainH,y sta gainH,y
rts rts
.endp .endp
grafproc.asm
+4 -6
View File
@@ -1152,9 +1152,8 @@ NotRightEdge
lda XtankstableL,x lda XtankstableL,x
adc #1 adc #1
sta XtankstableL,x sta XtankstableL,x
lda XtankstableH,x scc
adc #0 inc XtankstableH,x
sta XtankstableH,x
mva #%10000000 PreviousFall ; set bit 7 - right mva #%10000000 PreviousFall ; set bit 7 - right
bne EndOfFCycle bne EndOfFCycle
FallingLeft FallingLeft
@@ -1173,9 +1172,8 @@ NotLeftEdge
lda XtankstableL,x lda XtankstableL,x
sbc #1 sbc #1
sta XtankstableL,x sta XtankstableL,x
lda XtankstableH,x scs
sbc #0 dec XtankstableH,x
sta XtankstableH,x
mva #%01000000 PreviousFall ; set bit 6 - left mva #%01000000 PreviousFall ; set bit 6 - left
bne EndOfFCycle bne EndOfFCycle
EndLeftFall EndLeftFall
scorch.bin
BIN
View File
Binary file not shown.
scorch.xex
BIN
View File
Binary file not shown.
weapons.asm
+9 -13
View File
@@ -456,18 +456,16 @@ diglewy ; even branches go left
lda digtabxL,x lda digtabxL,x
sbc #$04 sbc #$04
sta digtabxL,x sta digtabxL,x
lda digtabxH,x scs
sbc #$00 dec digtabxH,x
sta digtabxH,x
jmp DigRandomize jmp DigRandomize
DigRight ; odd go right (everytime 4 pixels) DigRight ; odd go right (everytime 4 pixels)
clc clc
lda digtabxL,x lda digtabxL,x
adc #$04 adc #$04
sta digtabxL,x sta digtabxL,x
lda digtabxH,x scc
adc #$00 inc digtabxH,x
sta digtabxH,x
DigRandomize DigRandomize
lda random lda random
;and #$87 ;and #$87
@@ -477,9 +475,8 @@ DigDown
clc clc
adc digtabyL,x adc digtabyL,x
sta digtabyL,x sta digtabyL,x
scc:inc digtabyH,x scc
; adc #$00 inc digtabyH,x
; sta digtabyH,x
jmp DigCalculateNext jmp DigCalculateNext
DigUp DigUp
and #$07 and #$07
@@ -488,9 +485,8 @@ DigUp
lda digtabyL,x lda digtabyL,x
sbc temp sbc temp
sta digtabyL,x sta digtabyL,x
scs:dec digtabyH,x scs
; sbc #$00 dec digtabyH,x
; sta digtabyH,x
DigCalculateNext DigCalculateNext
dex dex
bpl CalculateBranches bpl CalculateBranches
@@ -767,7 +763,7 @@ DistanceCheckLoop
adc #3 ;measure from middle of the tank adc #3 ;measure from middle of the tank
sta xbyte sta xbyte
lda XtankstableH,x lda XtankstableH,x
clc ; clc ; ops :)
adc #0 ;measure from middle of the tank adc #0 ;measure from middle of the tank
sta xbyte+1 sta xbyte+1
lda Ytankstable,x lda Ytankstable,x