Transcendence

Code: Select all

Loaded game file version: 1000701
12/09/2011 00:50:02	OnCreate [Borer II-class gunship]: Unknown item type [Nil] ### (itmCreate (sysGetRandomOreType) 1) ###
12/09/2011 00:50:07	Created new game

Code: Select all

<Events>
			<OnCreate>
				(block (baseOre maxLootValue)
					; There is a chance that we have some small amount of ore
					
					(setq maxLootValue (random 50 200))
					(switch
						; 50% chance of fuel rods instead of ore.
						(leq (random 1 100) 50)
							(objAddItem gSource (itmCreate &itHelium3FuelRod; (random 1 6)))
							
						; If we have a base and it has ore then we have some of
						; that in our cargo.
						(and aBaseObj (setq baseOre (random (objGetItems aBaseObj "t +Ore"))))
							(objAddItemByValue gSource baseOre maxLootValue 'credit)

						; Otherwise we ore appropriate to the system
						(objAddItemByValue gSource (itmCreate (sysGetRandomOreType) 1) maxLootValue 'credit)
						)
					)
			</OnCreate>
		</Events>

Code: Select all

<Items>
             <Table>
				<Lookup chance="40" count="1" table="&tbFrostAsteroidOre;"/>
				<Lookup chance="30" count="1" table="&tbMetallicAsteroidOre;"/>
				<Lookup chance="20" count="1" table="&tbStoneAsteroidOre;"/>
				<Lookup chance="10" count="1" table="&tbVolcanicAsteroidOre;"/>
			</Table>
			
			<Item count="1d6" item="&itHelium3FuelRod;"/>
		</Items>