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

to be as it was

Browse Source
This commit is contained in:
pkali
2022-06-11 10:04:29 -04:00
parent 598860b7d0
commit c3f6e2399d
3 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
definitions.asm
+6 -6
View File
@@ -64,14 +64,14 @@ price_Bal_Guidance___ = $ffff ;_49
price_Horz_Guidance__ = $ffff ;_50 price_Horz_Guidance__ = $ffff ;_50
price_Vert_Guidance__ = $ffff ;_51 price_Vert_Guidance__ = $ffff ;_51
price_Lazy_Boy_______ = $ffff ;_52 price_Lazy_Boy_______ = $ffff ;_52
price_Parachute______ = 800 ;_53 price_Parachute______ = 80 ;_53
price_Battery________ = $ffff ;_54 price_Battery________ = $ffff ;_54
price_Mag_Deflector__ = 1200 ;_55 price_Mag_Deflector__ = 120 ;_55
price_Shield_________ = 500 ;_56 price_Shield_________ = 50 ;_56
price_Force_Shield___ = 2100 ;_57 price_Force_Shield___ = 210 ;_57
price_Heavy_Shield___ = $ffff ;_58 price_Heavy_Shield___ = $ffff ;_58
price_Super_Mag______ = 1600 ;_59 price_Super_Mag______ = 160 ;_59
price_Auto_Defense___ = 3000 ;_60 price_Auto_Defense___ = 300 ;_60
price_Fuel_Tank______ = $ffff ;_61 price_Fuel_Tank______ = $ffff ;_61
price_Contact_Trigger = $ffff ;_62 price_Contact_Trigger = $ffff ;_62
price_White_Flag_____ = $0 ;_63 price_White_Flag_____ = $0 ;_63
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+3 -6
View File
@@ -269,6 +269,8 @@ NextChar03
; here we must jump in after each purchase ; here we must jump in after each purchase
; to generate again list of available weapons ; to generate again list of available weapons
AfterPurchase AfterPurchase
; current cash display
mva #sfx_purchase sfx_effect mva #sfx_purchase sfx_effect
ldx tanknr ldx tanknr
lda moneyL,x lda moneyL,x
@@ -297,7 +299,7 @@ CreateList
ldy tanknr ldy tanknr
lda moneyH,y lda moneyH,y
cmp WeaponPriceH,x cmp WeaponPriceH,x
bcc @+ bne @+
lda moneyL,y lda moneyL,y
cmp WeaponPriceL,x cmp WeaponPriceL,x
@ @
@@ -683,11 +685,6 @@ PurchaseAll
lda moneyH,x lda moneyH,x
sbc WeaponPriceH,y sbc WeaponPriceH,y
sta moneyH,x sta moneyH,x
bpl positiveMoney
; zero money if money negative... not the fix you are looking for
lda #0
sta moneyL,x
sta moneyH,x
positiveMoney positiveMoney
; save info about price == 0 ; save info about price == 0