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>
EDIT*****
since I am not helpful You can just delete this and Rock On.