isInventory var

textproc.asm

@@ -203,6 +203,7 @@ OptionsYLoop
 .proc CallPurchaseForEveryTank
 
     mva #0 TankNr
+    sta isInventory
 @
       ldx TankNr
       lda SkillTable,x
@@ -295,6 +296,10 @@ CreateList
     ; checking if the weapon of the given number is present
     lda WeaponUnits,x
     jeq NoWeapon
+    
+    bit isInventory
+    ;bmi itIsInventory
+    
     ; checking if we can afford buying this weapon
     ldy tanknr
     lda moneyH,y
@@ -304,7 +309,11 @@ CreateList
     cmp WeaponPriceL,x
 @
     jcc TooLittleCash
+    bcs notInventory
 
+itIsInventory
+
+notInventory
     ; we have enough cash and the weapon can be
     ; added to the list
     stx temp ; number of weapon will be necessary later

variables.asm

@@ -30,6 +30,8 @@ RoundNrDisplay
 ;=====================================================
 variablesStart  ; zeroing starts here
 ;=====================================================
+isInventory .ds 1  ; 0 - purchase, $ff - inventory
+;-------------- 
 drawFunction .ds 1  ; 0 - plot, %10000000 - LineLength (N), %01000000 - DrawCheck (V)
 ;-------------- 
 sfx_effect .ds 1

weapons.asm

@@ -1058,6 +1058,7 @@ notpressed
 @
     cmp #$0d  ; I
     bne @+
+    mva #$ff isInventory
     jsr Purchase
     mva #0 escFlag
     jsr SetMainScreen