upgrade cehst code

game/modules/tome/class/Actor.lua

@@ -6461,7 +6461,7 @@ end
 
 function _M:transmoPricemod(o) if o.type == "gem" then return 0.40 else return 0.05 end end
 function _M:transmoFilter(o) if o:getPrice() <= 0 or o.quest then return false end return true end
-function _M:transmoInven(inven, idx, o)
+function _M:transmoInven(inven, idx, o, transmo_source)
 	local price = 0 
 	o:forAllStack(function(so) price = price + math.min(so:getPrice() * self:transmoPricemod(so), 25) end)  -- handle stacked objects individually
 	price = math.floor(price * 100) / 100 -- Make sure we get at most 2 digit precision

game/modules/tome/data/general/objects/quest-artifacts.lua

@@ -405,9 +405,9 @@ Items in the chest will not encumber you.]],
 						if not ret then return end
 						for i = floor, 1, -1 do
 							local o = game.level.map:getObject(who.x, who.y, i)
-							if who:transmoFilter(o) then
+							if who:transmoFilter(o, self) then
 								game.level.map:removeObject(who.x, who.y, i)
-								who:transmoInven(nil, nil, o)
+								who:transmoInven(nil, nil, o, self)
 							end
 						end
 					end)
@@ -420,7 +420,7 @@ Items in the chest will not encumber you.]],
 				for i = #inven, 1, -1 do
 					local o = inven[i]
 					if o.__transmo then
-						who:transmoInven(inven, i, o)
+						who:transmoInven(inven, i, o, self)
 					end
 				end
 			end)