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

Strong port flaut fixed!

Browse Source
This commit is contained in:
Pecusx
2024-03-13 22:42:09 +01:00
parent ce741f05dd
commit 630c5eaa1a
8 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
game.asm
+8 -5
View File
@@ -742,19 +742,20 @@ NotNegativeShieldEnergy
;out: Wind (word)
;uses: _
;--------------------------------------------------
mva #$00 Wind+1
sta Wind+2
sta Wind+3
lda random
cmp MaxWind
bcs GetRandomWind ; if more than MaxWind then randomize again
sta Wind
mva #$00 Wind+1
sta Wind+2
sta Wind+3
beq noWind
; multiply Wind by 16
; two bytes of Wind are treated as a decimal part of vx variable
:4 aslw Wind
; decide the direction
lda random
bmi @+
bmi noWindDirectionChange
sec ; Wind = -Wind
.rept 2
lda #$00
@@ -764,7 +765,9 @@ NotNegativeShieldEnergy
lda #$ff
sta Wind+2
sta Wind+3
@ rts
noWind
noWindDirectionChange
rts
.endp
;--------------------------------------------------
.proc MaxForceCalculate