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

Optimization (10b saved :) )

Browse Source
This commit is contained in:
Pecusx
2022-09-01 15:06:57 +02:00
parent c4543208bf
commit aa02b10bda
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+7 -7
View File
@@ -789,18 +789,18 @@ Suprise ; get a random weapon
cmp #51 ; defensive weapons are less likely because they are more expensive - probability 255:51 (5:1) cmp #51 ; defensive weapons are less likely because they are more expensive - probability 255:51 (5:1)
bcc GetRandomDefensive bcc GetRandomDefensive
GetRandomOffensive GetRandomOffensive
randomize ind_Missile________ ind_Laser__________ randomize ind_Missile________ last_offensive_____
cmp #ind_Buy_me_________ cmp #ind_Buy_me_________
beq GetRandomOffensive beq GetRandomOffensive
tay tay
lda WeaponUnits,y ; check if weapon exist ; lda WeaponUnits,y ; check if weapon exist
beq GetRandomOffensive ; beq GetRandomOffensive
bne NoSuprise ; Y always <> 0 bne NoSuprise ; Y always <> 0
GetRandomDefensive GetRandomDefensive
randomize ind_Battery________ ind_Nuclear_Winter_ randomize ind_Battery________ last_defensive_____
tay tay
lda WeaponUnits,y ; check if weapon exist ; lda WeaponUnits,y ; check if weapon exist
beq GetRandomDefensive ; beq GetRandomDefensive
NoSuprise NoSuprise
lda TanksWeaponsTableL,x lda TanksWeaponsTableL,x
@@ -1267,7 +1267,7 @@ NotFirstLetter
cpy PositionInName cpy PositionInName
bne @+ bne @+
ora #$80 ; place cursor ora #$80 ; place cursor
@ sta NameAdr,y @ sta NameAdr,y
dey dey
bpl CursorLoop bpl CursorLoop
rts rts