Need help with code

[BillD]

I'd like to remove the buy limit from Ringer Stations. I believe this is the offending bit of code, from <DockScreen UNID="&dsExchangeSell;":

Code: Select all

(setq desc (cat gTitle " is not interested in buying " (itmGetName thisItem 0x02) ".")

Removing this is a little above my pay grade, so any help would be appreciated.

[digdug]

nope, ringer stations buy-sell behaviour is in ringers.xml at line 88

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>

you can just change the max="100000" to any number you adjust the money at the station.

for a criteria list you can check here:
http://wiki.neurohack.com/transcendence ... m_criteria

[BillD]

I started a new game, and have reached the first Ringer station. I sold them 200 tons of Orthosteel Ore, and got "We're not interested in buying Orthosteel Ore" when trying to sell them more. That's what I want to eliminate. The buying limit is lame, and unrealistic.

[BillD]

I've got this working the way I want now. If you don't want to micromangage your loot, here's what I changed.

Search for "&dsExchangeSell" in Transcendence.xml. Here the original code:

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))
									)

Remove this line:

Code: Select all

(geq existingCount (multiply averageCount 5))
										(setq gCost 0)

You can now sell whatever quantity you like to a station, and won't get the "is not interested in buying" message.

[shanejfilomena]

creative little pilot

personally I increase the credit limits .
I never like to edit the great Developers work: just add things I thought at the time were interesting.

for your creative art: you could take your idea and put it in a Global: extension globals can often over-ride the standard ones. and then maybe you can share the wealth with other players? I got a cargo box with 500 tons of titanium to sell

[BillD]

Done:

http://xelerus.de/index.php?s=mod&id=975