Mining Error

[bimbel]

Eridiani: Installed a mining laser, going to bring the ore aboard, message about not having the mining cargo and then:

Code: Select all

Unable to find item in list ### (ObjRemoveItem gSource theItem) ###

[george moromisato]

Thanks for the report. Looks like mining is busted unless you have a mining cargo hold This will be fixed soon in 0.99a.

[Periculi]

Code: Select all

								(block (count)
									(setq count (divide (multiply 75 (itmGetCount theItem)) 100))
									(if (gr count 0)
										(setq oreToRemove (append oreToRemove (list (itmSetCount itemItem count))))
										)
									)
								)

Shouldn't (itmSetCount itemItem count) be (itmSetCount theItem count)?