28_OreRefiningMod.zip
The goal here was to convert one item to another (like the thinker)
So, for these formulas; the item on the left will convert (which need number of items as middle number) to the item on the right.
Code: Select all
<StaticData>
<CustomWork>
(
(&itPteracniumOre; 1 &itPteracniumFuelRod;)
(&itUraniumOre; 1 &itCrystallineUranium;)
(&itHeliumRegolith; 1 &itHeliumAssembly;)
(&itHelium3FuelRod; 5 &itHeliumAssembly;)
(&itQuantumVacuum; 2 &itHadronVacuumFuelCell;)
(&itXenotiteOre; 1 &itXenotiteFuelRod;)
(&itHyperonicOre; 5 &itLongzhuSphere;)
(&itHadronArcheolith; 1 &itHadronVacuumFuelCell;)
(&itChronimiumGas; 5 &itHadronVacuumFuelCell;)
)
; Enable/disable actions
(scrEnableAction gScreen 0 (and gMatch (geq (plyGetCredits gPlayer) gCost)))
)
</Initialize>
<Actions>
<Action name="Proceed" default="1" key="P">
(if (and gMatch (geq (plyGetCredits gPlayer) gCost))
(block Nil
(scrRemoveItem gScreen gMaxCount)
(plyCharge gPlayer gCost)
(objAddItem gPlayerShip (itmCreate (item gMatch 2) gCount))
(scrShowPane gScreen 'Done)
)
)
</Action>
<Action name="Cancel" cancel="1" key="C">
<ShowPane pane="Default"/>
</Action>
</Actions>
</UseItem>
<Done
Example, convert one item on the left to 5 items on the right (as opposed to 5 items on the left to one item on the right).
Thanks to digdug for the mod.
New here, hope I didn't break any rules.
Regards,
ZAZU