Code: Select all
(setq desc (cat gTitle " is not interested in buying " (itmGetName thisItem 0x02) ".")
Code: Select all
(setq desc (cat gTitle " is not interested in buying " (itmGetName thisItem 0x02) ".")
Code: Select all
<Trade currency="rin" max="100000" replenish="5000">
<Sell criteria="*NU +RingerValuable;" priceAdj="550"/>
<Sell criteria="*NU -ID;" priceAdj="100"/>
<Buy criteria="*NU +RingerValuable;" priceAdj="500"/>
<Buy criteria="*NU +Res; >=4;" priceAdj="65"/>
</Trade>
Code: Select all
; If the station already has lots of these, lower the price
(setq existingCount (objHasItem gSource thisItem))
(setq averageCount (itmGetAverageAppearing thisItem))
(switch
(not existingCount)
Nil
(geq existingCount (multiply averageCount 5))
(setq gCost 0)
(geq existingCount (multiply averageCount 4))
(setq gCost (divide (multiply gCost 25) 100))
(geq existingCount (multiply averageCount 3))
(setq gCost (divide (multiply gCost 50) 100))
(geq existingCount (multiply averageCount 2))
(setq gCost (divide (multiply gCost 75) 100))
)
Code: Select all
(geq existingCount (multiply averageCount 5))
(setq gCost 0)