-- debug_status = 1
debug_mod_name = "BlackMarket"
debug_file = debug_mod_name .. "-debug.txt"
prices_file = debug_mod_name .. "-prices.csv"
specials_file = debug_mod_name .. "-specials.txt"
require("utils")
require("config")

local trader_type = { item=1, fluid=2, energy=3, "item", "fluid", "energy" }
local energy_name = "market-energy" -- name of fake energy item

local trader_signals =
	{
		auto_all = {type="virtual",name="signal-market-auto-all"},
		auto_sell = {type="virtual",name="signal-market-auto-sell"},
		auto_buy = {type="virtual",name="signal-market-auto-buy"},
	}

if debug_status == 2 then debug_print2 = debug_active else debug_print2 = function() end end

--------------------------------------------------------------------------------------
function format_money( n )
	if n == nil then return( "0u" ) end
	
	local neg, mega
	
	if n > 1e12 then
		n = math.floor(n/1e6)
		mega = true
	else
		mega = false
	end
	
	if n < 0 then
		n = -n
		neg = true
	else
		neg = false
	end
	
	local s = tostring(math.floor(n+0.5))
	local s2 = ""
	local l = string.len(s)
	local i = l+1
	
	while i > 4 do
		i = i-3	
		s2 =  thousands_separator .. string.sub(s,i,i+2) .. s2
	end
	
	if i > 1 then
		s2 =  string.sub(s,1,i-1) .. s2
	end
	
	if mega then
		s2 = s2 .. "Mu"
	else
		s2 = s2 .. "u"
	end
	
	if neg then
		return( "-" .. s2 )
	else
		return( s2 )
	end
end

--------------------------------------------------------------------------------------
function format_evolution( evol )
	if evol == nil or evol == 0 then
		return("=")
	elseif evol > 0 then
		return("+")
	else
		return("-")
	end
end

--------------------------------------------------------------------------------------
local function clean_gui(gui)
	for _, guiname in pairs( gui.children_names ) do
		gui[guiname].destroy()
	end
end

--------------------------------------------------------------------------------------
local function build_bar( player )
	local gui1 = player.gui.top.flw_blkmkt
	
	if gui1 == nil then
		local player_mem = global.player_mem[player.index]
		-- debug_print("create gui player" .. player.name)
		gui1 = player.gui.top.add({type = "flow", name = "flw_blkmkt", direction = "horizontal", style = "flow_blkmkt_style"})
		gui1.add({type = "sprite-button", name = "but_blkmkt_main", sprite = "sprite_main_blkmkt", style = "sprite_main_blkmkt_style"})				
		player_mem.but_blkmkt_credits = gui1.add({type = "button", name = "but_blkmkt_credits", caption = format_money(0), style = "button_blkmkt_credits_style"})				
	end
end

--------------------------------------------------------------------------------------
local function update_bar( player )
	local player_mem = global.player_mem[player.index]
	
	if player_mem.cursor_name == nil or global.prices_computed then
		local force_mem = global.force_mem[player.force.name]
		player_mem.but_blkmkt_credits.caption = format_money(force_mem.credits)
	else
		local price = global.prices[player_mem.cursor_name]
		if price == nil then 
			player_mem.but_blkmkt_credits.caption = "=NONE"
		else
			player_mem.but_blkmkt_credits.caption = "~" .. format_money(price.current) .. " " .. format_evolution(price.evolution)
			-- debug_print("~:",price.current)
		end
	end
end

--------------------------------------------------------------------------------------
local function update_bars( force )
	for _, player in pairs(force.players) do
		if player.connected then
			update_bar(player)
		end
	end
end

--------------------------------------------------------------------------------------
local function build_menu_gen( player, player_mem, open_or_close )
	if open_or_close == nil then
		open_or_close = (player.gui.left.frm_blkmkt_gen == nil)
	end
	
	if player.gui.left.frm_blkmkt_gen then
		player.gui.left.frm_blkmkt_gen.destroy()
	end
	
	if open_or_close and not global.prices_computed then
		local gui1, gui2, gui3
		gui1 = player.gui.left.add({type = "frame", name = "frm_blkmkt_gen", caption = {"blkmkt-gui-blkmkt"}, style = "frame_blkmkt_style"})
		gui1 = gui1.add({type = "flow", name = "flw_blkmkt_gen", direction = "vertical", style = "flow_blkmkt_style"})
		
		gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-prices"}, style = "label_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_show_prices", caption = {"blkmkt-gui-gen-show-prices"}, 
			tooltip = {"blkmkt-gui-gen-show-prices-tt"}, style = "button_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_export_prices", caption = {"blkmkt-gui-gen-export-prices"}, 
			tooltip = {"blkmkt-gui-gen-export-prices-tt"}, style = "button_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_rescan_prices", caption = {"blkmkt-gui-gen-rescan-prices"}, 
			tooltip = {"blkmkt-gui-gen-rescan-prices-tt"}, style = "button_blkmkt_style"})
			
		gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
		player_mem.chk_blkmkt_gen_pause = gui2.add({type = "checkbox", name = "chk_blkmkt_gen_pause", caption = {"blkmkt-gui-gen-pause"}, state = false, 
			tooltip = {"blkmkt-gui-gen-pause-tt"}, style = "checkbox_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_auto_all", caption = {"blkmkt-gui-gen-auto-all"}, 
			tooltip = {"blkmkt-gui-gen-auto-all-tt"}, style = "button_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_auto_none", caption = {"blkmkt-gui-gen-auto-none"}, 
			tooltip = {"blkmkt-gui-gen-auto-none-tt"}, style = "button_blkmkt_style"})
			
		gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_sell_now", caption = {"blkmkt-gui-gen-sell-now"}, 
			tooltip = {"blkmkt-gui-gen-sell-now-tt",global.tax_rates[0]}, style = "button_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_buy_now", caption = {"blkmkt-gui-gen-buy-now"}, 
			tooltip = {"blkmkt-gui-gen-buy-now-tt",global.tax_rates[0]}, style = "button_blkmkt_style"})
			
		gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_period_down", caption = "<", style = "button_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_period_up", caption = ">", style = "button_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_period = gui2.add({type = "label", name = "lbl_blkmkt_gen_period", caption = {"blkmkt-gui-gen-period", 0,0}, 
			tooltip = {"blkmkt-gui-gen-period-tt"}, style = "label_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_gen_period_set", caption = {"blkmkt-gui-gen-period-set"}, 
			tooltip = {"blkmkt-gui-gen-period-set-tt"}, style = "button_blkmkt_style"})

		gui2 = gui1.add({type = "table", colspan = 2, style = "table_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-credits"}, 
			tooltip = {"blkmkt-gui-gen-credits-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_credits = gui2.add({type = "label", name = "lbl_blkmkt_gen_credits", 
			tooltip = {"blkmkt-gui-gen-credits-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-sales"}, 
			tooltip = {"blkmkt-gui-gen-sales-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_sales = gui2.add({type = "label", name = "lbl_blkmkt_gen_sales", 
			tooltip = {"blkmkt-gui-gen-sales-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-sales-taxes"}, 
			tooltip = {"blkmkt-gui-gen-sales-taxes-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_sales_taxes = gui2.add({type = "label", name = "lbl_blkmkt_gen_sales_taxes", 
			tooltip = {"blkmkt-gui-gen-sales-taxes-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-purchases"}, 
			tooltip = {"blkmkt-gui-gen-purchases-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_purchases = gui2.add({type = "label", name = "lbl_blkmkt_gen_purchases", 
			tooltip = {"blkmkt-gui-gen-purchases-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-purchases-taxes"}, 
			tooltip = {"blkmkt-gui-gen-purchases-taxes-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_purchases_taxes = gui2.add({type = "label", name = "lbl_blkmkt_gen_purchases_taxes", 
			tooltip = {"blkmkt-gui-gen-purchases-taxes-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-average-taxes"}, 
			tooltip = {"blkmkt-gui-gen-average-taxes-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_tax_rate = gui2.add({type = "label", name = "lbl_blkmkt_gen_tax_rate", 
			tooltip = {"blkmkt-gui-gen-average-taxes-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-gen-credits-lastday"}, 
			tooltip = {"blkmkt-gui-gen-credits-lastday-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_gen_credits_lastday = gui2.add({type = "label", name = "lbl_blkmkt_gen_credits_lastday", 
			tooltip = {"blkmkt-gui-gen-credits-lastday-tt"}, style = "label_blkmkt_style"})
		
		gui1.add({type = "label", caption = {"blkmkt-gui-gen-transactions"}, 
			tooltip = {"blkmkt-gui-gen-transactions-tt"}, style = "label_blkmkt_style"})
		gui2 = gui1.add({type = "flow", name = "flw_blkmkt_gen_trans", direction = "horizontal", style = "flow_blkmkt_style"})
		gui2 = gui2.add({type = "scroll-pane", name = "scr_blkmkt_gen_trans", vertical_scroll_policy = "auto"})
		gui2.style.maximal_height = 150
		player_mem.scr_blkmkt_gen_trans = gui2
		
		gui1.add({type = "button", name = "but_blkmkt_gen_close", caption = {"blkmkt-gui-close"}, style = "button_blkmkt_style"})
	end
end

--------------------------------------------------------------------------------------
local function update_menu_gen( player, player_mem )
	if player.gui.left.frm_blkmkt_gen == nil or global.prices_computed then
		return
	end
	
	local force_mem = global.force_mem[player.force.name]
	player_mem.chk_blkmkt_gen_pause.state = force_mem.pause
	player_mem.lbl_blkmkt_gen_period.caption = {"blkmkt-gui-gen-period", force_mem.period,global.tax_rates[force_mem.period]}
	
	player_mem.lbl_blkmkt_gen_credits.caption = format_money(force_mem.credits)
	player_mem.lbl_blkmkt_gen_sales.caption = format_money(force_mem.sales)
	player_mem.lbl_blkmkt_gen_sales_taxes.caption = format_money(force_mem.sales_taxes)
	player_mem.lbl_blkmkt_gen_purchases.caption = format_money(force_mem.purchases)
	player_mem.lbl_blkmkt_gen_purchases_taxes.caption = format_money(force_mem.purchases_taxes)
	player_mem.lbl_blkmkt_gen_tax_rate.caption = force_mem.tax_rate .. "%"
	player_mem.lbl_blkmkt_gen_credits_lastday.caption = format_money(force_mem.credits_lastday) .. string.format(" (%+2.2f%%)", force_mem.var_lastday)
	
	clean_gui(player_mem.scr_blkmkt_gen_trans)
	local gui2 = player_mem.scr_blkmkt_gen_trans.add({type = "table", name = "tab_blkmkt_gen_trans", colspan = 2, style = "table_blkmkt_style"})
	
	gui2.add({type = "label", caption = "name", style = "label_blkmkt_style"})
	gui2.add({type = "label", caption = "count", style = "label_blkmkt_style"})
	
	for name, transaction in pairs(force_mem.transactions) do
		-- debug_print(n, " ", name)
		if transaction.type == "item" then
			gui2.add({type = "sprite-button", sprite = "item/" .. name, style = "sprite_obj_blkmkt_style"})
		elseif transaction.type == "fluid" then
			gui2.add({type = "sprite-button", sprite = "fluid/" .. name, style = "sprite_obj_blkmkt_style"})
		else
			gui2.add({type = "sprite-button", sprite = "sprite_energy_blkmkt", style = "sprite_obj_blkmkt_style"})
		end
			
		gui2.add({type = "label", caption = math.floor(transaction.count), style = "label_blkmkt_style"})
	end
end

--------------------------------------------------------------------------------------
local function build_menu_trader( player, player_mem, open_or_close )
	if open_or_close == nil then
		open_or_close = (player.gui.left.frm_blkmkt_trader == nil)
	end
	
	if player.gui.left.frm_blkmkt_trader then
		player.gui.left.frm_blkmkt_trader.destroy()
		player_mem.frm_blkmkt_trader = nil
	end
	
	if open_or_close and not global.prices_computed then
		local trader = player_mem.opened_trader
		local gui1, gui2, gui3
		gui1 = player.gui.left.add({type = "frame", name = "frm_blkmkt_trader", style = "frame_blkmkt_style"})
		player_mem.frm_blkmkt_trader = gui1
		gui1 = gui1.add({type = "flow", name = "flw_blkmkt_trader", direction = "vertical", style = "flow_blkmkt_style"})
		
		gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
		player_mem.chk_blkmkt_trader_auto = gui2.add({type = "checkbox", name = "chk_blkmkt_trader_auto", caption = {"blkmkt-gui-trader-auto"}, state = false, 
			tooltip = {"blkmkt-gui-trader-auto-tt"}, style = "checkbox_blkmkt_style"})
		if trader.sell_or_buy then
			gui2.add({type = "button", name = "but_blkmkt_trader_now", caption = {"blkmkt-gui-trader-sell-now"}, 
				tooltip = {"blkmkt-gui-trader-sell-now-tt",global.tax_rates[0]}, style = "button_blkmkt_style"})
		else
			gui2.add({type = "button", name = "but_blkmkt_trader_now", caption = {"blkmkt-gui-trader-buy-now"}, 
				tooltip = {"blkmkt-gui-trader-buy-now-tt",global.tax_rates[0]}, style = "button_blkmkt_style"})
		end
		
		-- if trader.sell_or_buy and trader.type == trader_type.energy then
			-- player_mem.chk_blkmkt_trader_daylight = gui2.add({type = "checkbox", name = "chk_blkmkt_trader_daylight", caption = {"blkmkt-gui-trader-daylight"}, state = false, 
				-- tooltip = {"blkmkt-gui-trader-daylight-tt"}, style = "checkbox_blkmkt_style"})
		-- end
		
		gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_trader_period_down", caption = "<", style = "button_blkmkt_style"})
		gui2.add({type = "button", name = "but_blkmkt_trader_period_up", caption = ">", style = "button_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_period = gui2.add({type = "label", name = "lbl_blkmkt_trader_period", caption = {"blkmkt-gui-trader-period", 0,0}, 
			tooltip = {"blkmkt-gui-trader-period-tt"}, style = "label_blkmkt_style"})
		
		gui2 = gui1.add({type = "table", colspan = 2, style = "table_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-trader-money-tot"}, 
			tooltip = {"blkmkt-gui-trader-money-tot-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_money_tot = gui2.add({type = "label", name = "lbl_blkmkt_trader_money_tot", 
			tooltip = {"blkmkt-gui-trader-money-tot-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-trader-taxes-tot"}, 
			tooltip = {"blkmkt-gui-trader-taxes-tot-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_taxes_tot = gui2.add({type = "label", name = "lbl_blkmkt_trader_taxes_tot", 
			tooltip = {"blkmkt-gui-trader-taxes-tot-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-trader-money-period"}, 
			tooltip = {"blkmkt-gui-trader-money-period-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_money_period = gui2.add({type = "label", name = "lbl_blkmkt_trader_money_period", 
			tooltip = {"blkmkt-gui-trader-money-period-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "button", name = "but_blkmkt_trader_reset", caption = {"blkmkt-gui-trader-reset"}, style = "button_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_dhour = gui2.add({type = "label", name = "lbl_blkmkt_trader_dhour", 
			tooltip = {"blkmkt-gui-trader-hours-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-trader-money"}, 
			tooltip = {"blkmkt-gui-trader-money-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_money = gui2.add({type = "label", name = "lbl_blkmkt_trader_money", 
			tooltip = {"blkmkt-gui-trader-money-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-trader-taxes"}, 
			tooltip = {"blkmkt-gui-trader-taxes-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_taxes = gui2.add({type = "label", name = "lbl_blkmkt_trader_taxes", 
			tooltip = {"blkmkt-gui-trader-taxes-tt"}, style = "label_blkmkt_style"})
		
		gui2.add({type = "label", caption = {"blkmkt-gui-trader-money-average"}, 
			tooltip = {"blkmkt-gui-trader-money-average-tt"}, style = "label_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_money_average = gui2.add({type = "label", name = "lbl_blkmkt_trader_money_average", 
			tooltip = {"blkmkt-gui-trader-money-average-tt"}, style = "label_blkmkt_style"})

		player_mem.but_blkmkt_trader_evaluate =  gui2.add({type = "button", name = "but_blkmkt_trader_evaluate", caption = {"blkmkt-gui-trader-evaluate"}, 
			tooltip = {"blkmkt-gui-trader-evaluate-tt"}, style = "button_blkmkt_style"})
		player_mem.lbl_blkmkt_trader_evaluation = gui2.add({type = "label", name = "lbl_blkmkt_trader_evaluation", 
			tooltip = {"blkmkt-gui-trader-evaluation-tt"}, style = "label_blkmkt_style"})

		-- gui2.add({type = "label", caption = {"blkmkt-gui-trader-price"}, 
			-- tooltip = {"blkmkt-gui-trader-price-tt"}, style = "label_blkmkt_style"})
		-- player_mem.lbl_blkmkt_trader_price = gui2.add({type = "label", name = "lbl_blkmkt_trader_price", 
			-- tooltip = {"blkmkt-gui-trader-price-tt"}, style = "label_blkmkt_style"})

		if trader.sell_or_buy then
			gui2.add({type = "label", caption = {"blkmkt-gui-trader-sold"}, 
				tooltip = {"blkmkt-gui-trader-sold-tt"}, style = "label_blkmkt_style"})
			gui3 = gui2.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
			player_mem.but_blkmkt_trader_sold = gui3.add({type = "sprite-button", name = "but_blkmkt_trader_sold", 
				tooltip = {"blkmkt-gui-trader-sold-tt"}, style = "sprite_obj_blkmkt_style"})
			player_mem.lbl_blkmkt_trader_sold = gui3.add({type = "label", name = "lbl_blkmkt_trader_sold", 
				tooltip = {"blkmkt-gui-trader-price-tt"}, style = "label_blkmkt_style"})
		else
			if trader.type == trader_type.item then
				-- gui2 = gui1.add({type = "flow", direction = "horizontal", style = "flow_blkmkt_style"})
				gui2.add({type = "button", name = "but_blkmkt_trader_new", caption = {"blkmkt-gui-trader-new"}, style = "button_blkmkt_style"})
				gui2.add({type = "button", name = "but_blkmkt_trader_wipe", caption = {"blkmkt-gui-trader-wipe"}, style = "button_blkmkt_style"})
			end
			
			gui2.add({type = "label", caption = {"blkmkt-gui-trader-orders"}, 
				tooltip = {"blkmkt-gui-trader-orders-tt"}, style = "label_blkmkt_style"})
			player_mem.lbl_blkmkt_trader_orders = gui2.add({type = "label", name = "lbl_blkmkt_trader_orders", 
				tooltip = {"blkmkt-gui-trader-orders-tt"}, style = "label_blkmkt_style"})
				
			gui2 = gui1.add({type = "flow", name = "flw_blkmkt_trader_orders", direction = "horizontal", style = "flow_blkmkt_style"})
			gui2 = gui2.add({type = "scroll-pane", name = "scr_blkmkt_trader_orders", vertical_scroll_policy = "auto"})
			gui2.style.maximal_height = 150
			player_mem.scr_blkmkt_trader_orders = gui2
		end
	end
end

--------------------------------------------------------------------------------------
local function update_menu_trader( player, player_mem, update_orders )
	if player.gui.left.frm_blkmkt_trader == nil or global.prices_computed then
		return
	end
	
	if player_mem == nil then
		player_mem = global.player_mem[player.index]
	end
	
	local trader = player_mem.opened_trader
	
	if trader.sell_or_buy then
		player_mem.frm_blkmkt_trader.caption = {"blkmkt-gui-trader-sell"}
	else
		player_mem.frm_blkmkt_trader.caption = {"blkmkt-gui-trader-buy"}
	end
	player_mem.chk_blkmkt_trader_auto.state = trader.auto
	-- if trader.sell_or_buy and trader.type == trader_type.energy then
		-- player_mem.chk_blkmkt_trader_daylight.state = trader.daylight
	-- end
		
	player_mem.lbl_blkmkt_trader_period.caption = {"blkmkt-gui-trader-period", trader.period,global.tax_rates[trader.period]}
	
	player_mem.lbl_blkmkt_trader_money_tot.caption = format_money(trader.money_tot)
	player_mem.lbl_blkmkt_trader_taxes_tot.caption = format_money(trader.taxes_tot) .. " (" .. trader.tax_rate_tot .. "%)"
	player_mem.lbl_blkmkt_trader_money_period.caption = format_money(trader.money_period)
	player_mem.lbl_blkmkt_trader_dhour.caption = {"blkmkt-gui-trader-hours", trader.period*math.floor(trader.dhour/trader.period)}
	player_mem.lbl_blkmkt_trader_money.caption = format_money(trader.money)
	player_mem.lbl_blkmkt_trader_taxes.caption = format_money(trader.taxes) .. " (" .. trader.tax_rate .. "%)"
	player_mem.lbl_blkmkt_trader_money_average.caption = {"blkmkt-gui-trader-perday", format_money(trader.money_average)}
	
	player_mem.lbl_blkmkt_trader_evaluation.caption = format_money(trader.evaluation) 
	-- if trader.price then
		-- player_mem.lbl_blkmkt_trader_price.caption = format_money(trader.price.current) .. " " .. format_evolution(trader.price.evolution)
	-- else
		-- player_mem.lbl_blkmkt_trader_price.caption = "-"
	-- end
	
	if trader.sell_or_buy then
		local sold_name = trader.sold_name
		if sold_name then
			if trader.type == trader_type.item then
				player_mem.but_blkmkt_trader_sold.sprite = "item/" .. sold_name
				player_mem.but_blkmkt_trader_sold.tooltip = game.item_prototypes[sold_name].localised_name
			elseif trader.type == trader_type.fluid then
				player_mem.but_blkmkt_trader_sold.sprite = "fluid/" .. sold_name
				player_mem.but_blkmkt_trader_sold.tooltip = game.fluid_prototypes[sold_name].localised_name
			else 
				player_mem.but_blkmkt_trader_sold.sprite = "sprite_energy_blkmkt"
				player_mem.but_blkmkt_trader_sold.tooltip = {"blkmkt-gui-energy"}
			end
			local price = global.prices[sold_name]
			if price then
				player_mem.lbl_blkmkt_trader_sold.caption = " " .. format_money(price.current) .. " " .. format_evolution(price.evolution)
			else
				player_mem.lbl_blkmkt_trader_sold.caption = " -"
			end
		else
			player_mem.but_blkmkt_trader_sold.sprite = "" 
			player_mem.lbl_blkmkt_trader_sold.caption = " -"
		end
	else
		player_mem.lbl_blkmkt_trader_orders.caption = format_money(trader.orders_tot)
				
		if update_orders then
			clean_gui(player_mem.scr_blkmkt_trader_orders)
			local gui2 = player_mem.scr_blkmkt_trader_orders.add({type = "table", name = "tab_blkmkt_trader_orders", colspan = 4, style = "table_blkmkt_style"})
			
			gui2.add({type = "label"})
			gui2.add({type = "label", caption = "name", style = "label_blkmkt_style"})
			gui2.add({type = "label", caption = "count", style = "label_blkmkt_style"})
			gui2.add({type = "label", caption = "price", style = "label_blkmkt_style"})
			
			function add_order(n,prefix,name,count,del_but)
				local price = global.prices[name]
				local current, evol
				if price then
					current = price.current
					evol = price.evolution
				else
					current = 0
					evol = 0
				end
				
				if del_but then
					gui2.add({type = "button", name = "but_blkmkt_ord_" .. string.format("%3d",n) .. name, caption = "X", style = "button_blkmkt_style"})
				else
					gui2.add({type = "label", style = "label_blkmkt_style"})
				end
				
				if prefix == nil then
					gui2.add({type = "sprite-button", name = "but_blkmkt_ori_" .. string.format("%3d",n) .. name, sprite = "sprite_energy_blkmkt", style = "sprite_obj_blkmkt_style"})
				else
					gui2.add({type = "sprite-button", name = "but_blkmkt_ori_" .. string.format("%3d",n) .. name, sprite = prefix .. name, style = "sprite_obj_blkmkt_style"})
				end
				
				gui2.add({type = "textfield", name = "but_blkmkt_orc_" .. string.format("%3d",n) .. name, text = count, style = "textfield_blkmkt_style"})
				gui2.add({type = "label", caption = format_money(current) .. " " .. format_evolution(evol), style = "label_blkmkt_style"})
			end

			if trader.type == trader_type.item then
				for n, order in pairs(trader.orders) do
					if n > 99 then break end
					add_order(n,"item/",order.name,order.count,true)
				end
			elseif trader.type == trader_type.fluid then
				local order = trader.orders[1]
				if order then
					add_order(1,"fluid/",order.name,order.count,false)
				end
			elseif trader.type == trader_type.energy then
				local order = trader.orders[1]
				if order then
					add_order(1,nil,energy_name,order.count,false)
				end
			end
		end
	end
end

--------------------------------------------------------------------------------------
local function build_menu_objects( player, open_or_close, ask_sel )
	if open_or_close == nil then
		open_or_close = (player.gui.left.frm_blkmkt_itml == nil)
	end
	
	if player.gui.left.frm_blkmkt_itml then
		player.gui.left.frm_blkmkt_itml.destroy()
	end
	
	if open_or_close and not global.prices_computed then
		local player_mem = global.player_mem[player.index]
		local gui1, gui2, gui3
		gui1 = player.gui.left.add({type = "frame", name = "frm_blkmkt_itml", caption = {"blkmkt-gui-objects-list"}, style = "frame_blkmkt_style"})
		gui1 = gui1.add({type = "flow", name = "flw_blkmkt_itml", direction = "vertical", style = "flow_blkmkt_style"})
		-- gui1.style.minimal_height = 500
		
		gui2 = gui1.add({type = "scroll-pane", name = "scr_blkmkt_itml", vertical_scroll_policy = "auto"}) -- , style = "scroll_pane_blkmkt_style"
		gui2.style.maximal_height = 600
		player_mem.scr_blkmkt_recl = gui2
		gui3 = gui2.add({type = "table", name = "tab_blkmkt_itml1", colspan = 6, style = "table_blkmkt_style"})
		
		local n = 0
		
		-- debug_print("group sel ", player_mem.group_sel_name)
		
		for name, group in pairs(global.groups) do
			if ask_sel == nil or ((ask_sel == "item" and group.item) or (ask_sel == "fluid" and group.fluid)) then
				if player_mem.group_sel_name == nil then
					player_mem.group_sel_name = name
				end
				gui3.add({type = "sprite-button", name = "but_blkmkt_ilg_" .. string.format("%3d",n) .. name, sprite = "item-group/" .. name, tooltip = name, style = "sprite_group_blkmkt_style"})
				n=n+1
			end
		end
		
		gui3 = gui2.add({type = "scroll-pane", name = "tab_blkmkt_scrl2", vertical_scroll_policy = "auto"})
		gui3.style.maximal_height = 200
		gui3 = gui3.add({type = "table", name = "tab_blkmkt_itml2", colspan = 10, style = "table_blkmkt_style"})
		
		local group = global.groups[player_mem.group_sel_name].group
		
		n = 0
		
		if ask_sel == nil or ask_sel == "item" then
			for name, object in pairs(game.item_prototypes) do
				if object.group == group and not object.has_flag("hidden") and n <= 999 then
					local price = global.prices[name]
					if price then
						gui3.add({type = "sprite-button", name = "but_blkmkt_ili_" .. string.format("%3d",n) .. name, sprite = "item/" .. name, 
						tooltip = {"blkmkt-gui-tt-object-price",object.localised_name,format_money(price.current),format_evolution(price.evolution)}, style = "sprite_obj_blkmkt_style"})
						n=n+1
					end
				end
			end
		end
		
		if ask_sel == nil or ask_sel == "fluid" then
			for name, object in pairs(game.fluid_prototypes) do
				-- debug_print("build_menu_objects ", name, " ", object.group.name, " ", object.subgroup.name )
				if object.group == group and n <= 999 then
					local price = global.prices[name]
					if price then
						gui3.add({type = "sprite-button", name = "but_blkmkt_ili_" .. string.format("%3d",n) .. name, sprite = "fluid/" .. name, 
							tooltip = {"blkmkt-gui-tt-object-price",object.localised_name,format_money(price.current),format_evolution(price.evolution)}, style = "sprite_obj_blkmkt_style"})
						n=n+1
					end
				end
			end
		end
		
		gui1.add({type = "button", name = "but_blkmkt_itml_refresh", caption = {"blkmkt-gui-refresh"}, style = "button_blkmkt_style"})
		
		if ask_sel then
			gui1.add({type = "button", name = "but_blkmkt_itml_cancel", caption = {"blkmkt-gui-cancel"}, style = "button_blkmkt_style"})
		else
			gui1.add({type = "button", name = "but_blkmkt_itml_close", caption = {"blkmkt-gui-close"}, style = "button_blkmkt_style"})
		end
	end
end

--------------------------------------------------------------------------------------
local function update_gui(player,update_orders)
	if player.connected then
		local player_mem = global.player_mem[player.index]
		update_bar(player)
		update_menu_gen(player,player_mem)
		update_menu_trader(player,player_mem,update_orders)
		if player.gui.left.frm_blkmkt_itml then
			build_menu_objects(player,true,player_mem.ask_sel)
		end
	end
end

--------------------------------------------------------------------------------------
local function update_guis_force(force,update_orders)
	for _, player in pairs(force.players) do
		update_gui(player,update_orders)
	end
end

--------------------------------------------------------------------------------------
local function update_guis(update_orders)
	for _, player in pairs(game.players) do
		update_gui(player,update_orders)
	end
end

--------------------------------------------------------------------------------------
local function close_guis()
	for _, player in pairs(game.players) do
		if player.connected then
			local player_mem = global.player_mem[player.index]
			build_menu_gen(player,player_mem,false)
			build_menu_trader(player,player_mem,false)
			build_menu_objects(player,false)
		end
	end
end

--------------------------------------------------------------------------------------
local function init_tax_rates()
	global.tax_rates = {}
	
	for _, period in ipairs(periods) do
		if period == 0 then
			global.tax_rates[period] = tax_immediate -- tax for immediate action
		else
			global.tax_rates[period] = math.floor(0.5+tax_start * ((24/period) ^ tax_growth))
		end
	end
	
	for period,tax in pairs(global.tax_rates) do
		debug_print( "tax ", period, "h = ", tax, "%" )
	end
end

--------------------------------------------------------------------------------------
local function update_tech_cost(tech)
	local cost = 0
	
	cost = cost + #tech.research_unit_ingredients * tech.research_unit_count * tech_ingr_cost
	cost = cost + tech.research_unit_energy * energy_cost
	
	global.techs_costs[tech.name] = cost
	
	for _, effect in pairs(tech.effects) do
		if effect.type == "unlock-recipe" then
			global.recipes_tech[effect.recipe] = tech.name
		end
	end
end

--------------------------------------------------------------------------------------
local function update_techs_costs()
	global.techs_costs = {}
	global.recipes_tech = {}
	
	for name, tech in pairs(game.forces.player.technologies) do
		update_tech_cost(tech)
	end
end

--------------------------------------------------------------------------------------
local function list_techs_costs()
	debug_print("--------------------------------------------------------------------------------------")
	debug_print("list_techs_costs")
	
	for name, cost in pairs(global.techs_costs) do
		debug_print("tech ", name, " = ", cost)
	end
end

--------------------------------------------------------------------------------------
local function update_objects_prices_start()
	if global.prices_computed then return end
	
	global.prices_computed = true
	
	-- debug_print("--------------------------------------------------------------------------------------")
	-- debug_print("update_objects_prices_start")
	
	-- debug_print("RAZ")
	
	debug_print2("--------------------------------------------------------------------------------------")
	debug_print2( "PRICES PASS 0" )
	
	global.old_prices = global.prices or {} -- to memorize old prices, and restore dynamics later
	
	global.prices = {}
	global.orig_resources = {}
	global.new_resources = {}
	global.free_products = {}
	global.unknowns = {}
	
	global.recipes_used = {}
	global.recipes_parsed = {}
	
	local ingredients_to_parse = {}
	local orig_resources = {}
	local specials = {}
	local free_products = {}
	local regular_products = {}
	
	local recipes = game.forces.player.recipes
		
	-- energy 
	
	global.prices[energy_name] = {overall=energy_price, tech=0, ingrs=0, energy=0}
	
	-- vanilla resources
	
	for name, price in pairs(vanilla_resources_prices) do
		global.prices[name] = {overall=price, tech=0, ingrs=0, energy=0}
		orig_resources[name] = true
		ingredients_to_parse[name] = true
	end

	-- special objects

	for name, price in pairs(special_prices) do
		global.prices[name] = {overall=price, tech=0, ingrs=0, energy=0}
		specials[name] = true
		ingredients_to_parse[name] = true
	end

	-- additional resources
	
	for name, ent in pairs(game.entity_prototypes) do
		if ent.type == "resource" then 
			local min_prop = ent.mineable_properties
			-- if min_prop.minable then 
				-- debug_print( name )
			if min_prop.minable and min_prop.products then 
				for _, prod in pairs(min_prop.products) do
					if global.prices[prod.name] == nil then
						global.prices[prod.name] = {overall=resource_price, tech=0, ingrs=0, energy=0}
						ingredients_to_parse[prod.name] = true
						orig_resources[prod.name] = true
					end
				end
			end
		end
	end
	
	-- mark item "free" (recipe with no ingredients) or "regularly" produced or consumed
	-- the rest will be items with no recipe at all
	
	for name_recipe, recipe in pairs(recipes) do
		if not( -- avoid recipes that create normal objects from box/barrels/recycling/dark matter/etc...
				-- false
				string.sub(name_recipe,1,3) == "rf-" -- reverse factory mod
				or string.sub(name_recipe,1,5) == "repl-" -- dark matter mod
				or string.sub(name_recipe,1,11) == "dry411srev-" -- z recycle mod
				or string.sub(name_recipe,1,6) == "unbox-" -- boxing mod
				or string.sub(name_recipe,1,6) == "empty-" -- omnibarrel mod (but also "empty-canister" from bob, that is included in the special_prices...)
				-- or string.sub(name_recipe,1,4) == "box-" -- boxing mod
				-- or string.sub(name_recipe,1,6) == "boxed-" -- boxing mod
				-- or string.sub(name_recipe,1,5) == "fill-" -- omnibarrel mod
			) then
			if recipe.ingredients == nil or #recipe.ingredients == 0 then
				for _, prod in pairs(recipe.products) do
					if global.prices[prod.name] == nil and not regular_products[prod.name] then
						free_products[prod.name] = true -- mark free product
					end
				end
			else
				for _, prod in pairs(recipe.products) do
					if global.prices[prod.name] == nil then
						regular_products[prod.name] = true -- mark regular not-free product
						free_products[prod.name] = nil -- unmark free in case new regular recipe
					end
				end
			end
		end
	end
	
	-- mark potential undeclared new resources (that are ingredients but never produced)
	
	local new_resources = {}
	
	for _, recipe in pairs(recipes) do
		if recipe.ingredients ~= nil then
			for _, ingr in pairs(recipe.ingredients) do
				if global.prices[ingr.name] == nil and regular_products[ingr.name] == nil and free_products[ingr.name] == nil then
					new_resources[ingr.name] = true -- mark as possible resource
					ingredients_to_parse[ingr.name] = true
				end
			end
		end
	end
	
	-- give price to free/new resources/unknown

	debug_print2("--------------------------------------------------------------------------------------")
	debug_print2( "set free/newres/unknown")

	for name, object in pairs(game.item_prototypes) do
		if global.prices[name] == nil then
			if new_resources[name] == true then
				debug_print2( "set ", name, " resource_price_new")
				global.prices[name] = {overall=resource_price_new, tech=0, ingrs=0, energy=0}
				ingredients_to_parse[name] = true
			elseif free_products[name] == true then
				debug_print2( "set ", name, " free_price")
				global.prices[name] = {overall=free_price, tech=0, ingrs=0, energy=0}
				ingredients_to_parse[name] = true
			end
		end
	end
	
	for name, object in pairs(game.fluid_prototypes) do
		if global.prices[name] == nil then
			if new_resources[name] == true then
				debug_print2( "set ", name, " resource_price_new")
				global.prices[name] = {overall=resource_price_new, tech=0, ingrs=0, energy=0}
				ingredients_to_parse[name] = true
			elseif free_products[name] == true then
				debug_print2( "set ", name, " free_price")
				global.prices[name] = {overall=free_price, tech=0, ingrs=0, energy=0}
				ingredients_to_parse[name] = true
			end
		end
	end

	regular_products = nil

	global.orig_resources = orig_resources
	global.specials = specials
	global.new_resources = new_resources
	global.free_products = free_products
	
	global.prices_loop = 0
	global.ingredients_to_parse = ingredients_to_parse
end

--------------------------------------------------------------------------------------
local function update_products_recipe(recipe)
	local new_ingrs = {}
	local overall_price = 0
	local tech_price = 0
	local ingrs_price = 0
	
	-- compute energy cost
	local energy_price = recipe.energy * energy_cost
	
	-- compute tech amortization
	local tech_name = global.recipes_tech[recipe.name]
	if tech_name then
		local tech_cost = global.techs_costs[tech_name]
		if tech_cost then
			tech_price = tech_cost * tech_amortization
		end
	end

	-- compute ingredients costs
	for _, ingr in pairs(recipe.ingredients) do
		local price_ingr = global.prices[ingr.name]
		if price_ingr == nil then
			return(nil)
		end
		ingrs_price = ingrs_price + ingr.amount * price_ingr.overall
	end
	
	-- count products
	local nb_prods_tot = 0
	for _, prod in pairs(recipe.products) do
		if prod.amount then
			nb_prods_tot = nb_prods_tot + prod.amount
		elseif prod.amount_min and prod.amount_max and prod.probability then
			nb_prods_tot = nb_prods_tot + (prod.amount_min + prod.amount_max) /2 * prod.probability
		else
			debug_print2( "     NO amount : ", recipe.name, " ", prod.name )
		end
	end
		
	-- display costs on products
	overall_price = (tech_price + ingrs_price + energy_price) * (1+commercial_margin)
	
	debug_print2("     OK nb prods = ", #recipe.products)
		
	for _, prod in pairs(recipe.products) do
		local price = global.prices[prod.name]
		if price == nil and (prod.amount or (prod.amount_min and prod.amount_max and prod.probability)) then
			if nb_prods_tot == 0 then
				price = unknown_price -- sometimes, probability can be 0, leading to nb_prods_tot=0 !
				global.prices[prod.name] = {
					overall = price, 
					tech = 0,
					ingrs = 0,
					energy = 0
				}
			else
				price = math.floor(overall_price / nb_prods_tot+0.5)
				global.prices[prod.name] = {
					overall = price, -- we want the price for 1 object !
					tech = math.floor(tech_price / nb_prods_tot+0.5),
					ingrs = math.floor(ingrs_price / nb_prods_tot+0.5),
					energy = math.floor(energy_price / nb_prods_tot+0.5)
				}
			end
			debug_print2("     PR price ", prod.name, " = ", price)
			global.recipes_used[prod.name] = recipe.name
			new_ingrs[prod.name] = true -- mark this product as a new potential ingredient of further recipes
		else
			debug_print2("     -- exist ", prod.name, " = ", price.overall)
		end
	end

	global.recipes_parsed[recipe.name] = true

	return(new_ingrs)
end

--------------------------------------------------------------------------------------
local function update_objects_prices_loop()
	local new_price = true
	local ingredients_to_parse2 = {}
	
	new_price = false
	global.prices_loop = global.prices_loop + 1
	
	debug_print2("--------------------------------------------------------------------------------------")
	debug_print2( "PRICES PASS ", global.prices_loop )
	
	local recipes = game.forces.player.recipes
	
	if true then
		-- try to solve direct recipes (1 product with the recipe of the same name)
		for name_item, item in pairs(game.item_prototypes) do
			local recipe = recipes[name_item]
			if global.recipes_parsed[name_item] == nil and recipe ~= nil then
				debug_print2( "item    ", name_item, " -> recipe ", name_item )
				
				ingredients_to_parse3 = update_products_recipe(recipe)
				
				if ingredients_to_parse3 == nil then
					-- ingredient still not solved, rescan in next pass
					ingredients_to_parse2[name_item] = true 
				else
					-- ingredient solved, recipe products became new ingredients for next pass
					new_price = true
					for name_ingr, _ in pairs(ingredients_to_parse3) do
						ingredients_to_parse2[name_ingr] = true
					end
				end
			end
		end
	end
	
	for name_recipe, recipe in pairs(recipes) do
		if global.recipes_parsed[name_recipe] == nil 
		-- if not recipe.hidden and global.recipes_parsed[name_recipe] == nil
			-- and not(
				-- string.sub(name_recipe,1,3) == "rf-" -- reverse factory mod
				-- or string.sub(name_recipe,1,5) == "repl-" -- dark matter mod
				-- or string.sub(name_recipe,1,11) == "dry411srev-" -- z recycle mod
				-- or string.sub(name_recipe,1,4) == "box-" -- boxing mod
				-- or string.sub(name_recipe,1,6) == "unbox-" -- boxing mod
				-- or string.sub(name_recipe,1,6) == "boxed-" -- boxing mod
				-- or string.sub(name_recipe,1,5) == "fill-" -- omnibarrel mod
				-- or string.sub(name_recipe,1,6) == "empty-" -- omnibarrel mod
			-- )
		then
			for _, ingr in pairs(recipe.ingredients) do
				if global.ingredients_to_parse[ingr.name] == true then
					debug_print2( "ingr    ", ingr.name, " -> recipe ", name_recipe )

					ingredients_to_parse3 = update_products_recipe(recipe)
					
					if ingredients_to_parse3 == nil then
						-- ingredient still not solved, rescan in next pass
						ingredients_to_parse2[ingr.name] = true 
					else
						-- ingredient solved, recipe products became new ingredients for next pass
						new_price = true
						for name_ingr, _ in pairs(ingredients_to_parse3) do
							ingredients_to_parse2[name_ingr] = true
						end
					end
				end
			end
		end
	end
	
	global.ingredients_to_parse = ingredients_to_parse2
	
	return(new_price)
end

--------------------------------------------------------------------------------------
local function update_objects_prices_end()
	debug_print2("--------------------------------------------------------------------------------------")
	debug_print2( "PRICES PASS final" )
	
	debug_print( "nb loops = ", global.prices_loop)

	-- mark left unpriced potential ingredients as unknown
	-- no ! (ingredients left in this list are priced but they lead to recipes with ever-missing ingredients...
	
	-- for name_ingr, _ in pairs(global.ingredients_to_parse) do
		-- global.prices[name_ingr] = {overall=unknown_price, tech=0, ingrs=0, energy=0}
		-- global.unknowns[name_ingr] = true
	-- end
	
	-- mark all other left unpriced items and fluids as unknown for export, 
	-- but still not in price list to avoid display

	for name_object, object in pairs(game.item_prototypes) do
		if global.prices[name_object] == nil then
			-- global.prices[name_object] = {overall=unknown_price, tech=0, ingrs=0, energy=0}
			global.unknowns[name_object] = true
		end
	end
	
	for name_object, object in pairs(game.fluid_prototypes) do
		if global.prices[name_object] == nil then
			-- global.prices[name_object] = {overall=unknown_price, tech=0, ingrs=0, energy=0}
			global.unknowns[name_object] = true
		end
	end
	
	-- init dynamic prices for new prices, and restore old dynamics if exists
	
	for name_object, price in pairs(global.prices) do
		local old_price = global.old_prices[name_object]
		
		if old_price then
			price.dynamic = old_price.dynamic or 1
			price.previous = old_price.previous or price.overall
			price.evolution = old_price.evolution or 0
		else
			price.dynamic = 1
			price.previous = price.overall
			price.evolution = 0
		end
		
		price.current = price.overall * price.dynamic
	end
	
	global.old_prices = nil
	
	global.ingredients_to_parse = nil
	global.prices_computed = false
end

--------------------------------------------------------------------------------------
local function update_dynamic_prices()
	if global.prices_computed then return end
	-- update dynamic prices (once per day)
	
	for _, price in pairs(global.prices) do
		
		-- keep in range
		if price.dynamic > dynamic_maximal then
			price.dynamic = dynamic_maximal
		elseif price.dynamic < dynamic_minimal then
			price.dynamic = dynamic_minimal
		end
		
		-- compute current price
		price.current = price.overall * price.dynamic
		
		-- compute price evolution (without slow return)
		price.evolution = price.current - price.previous
		price.previous = price.current

		if price.evolution == 0 then
			-- return slowly to optimal price
			if price.dynamic < 1 then
				price.dynamic = math.min(price.dynamic + dynamic_regrowth,1)
			elseif price.dynamic > 1 then
				price.dynamic = math.max(price.dynamic - dynamic_regrowth,1)
			end
			
			price.current = price.overall * price.dynamic
			price.previous = price.current
		end
	end
end

--------------------------------------------------------------------------------------
local function list_prices()
	if global.prices_computed then return end
	
	debug_print("--------------------------------------------------------------------------------------")
	debug_print("list_prices")
	
	for name, price in pairs(global.prices) do
		local recipe_name = global.recipes_used[name]
		if recipe_name then
			debug_print("price ", name, "=", price.overall, "=", price.tech, "+", price.ingrs, "+", price.energy, " recipe=", recipe_name)
		else
			debug_print("price ", name, "=", price.overall, "=", price.tech, "+", price.ingrs, "+", price.energy, " recipe=NONE")
		end
	end

	debug_print("--------------------------------------------------------------------------------------")
	
	for name, object in pairs(game.item_prototypes) do
		local price = global.prices[name]
		if price == nil then
			debug_print("item ", name, "=NONE")
		else
			debug_print("item ", name, "=", price.overall, "=", price.tech, "+", price.ingrs, "+", price.energy)
		end
	end
	
	for name, object in pairs(game.fluid_prototypes) do
		local price = global.prices[name]
		if price == nil then
			debug_print("fluid ", name, "=NONE")
		else
			debug_print("fluid ", name, "=", price.overall, "=", price.tech, "+", price.ingrs, "+", price.energy)
		end
	end
end

--------------------------------------------------------------------------------------
local function export_prices()
	if global.prices_computed then return end
	-- debug_print("export_prices")
	
	game.remove_path(prices_file)

	local s = "object;recipe;techno;total price;tech cost;ingredients cost;energy cost;current;evolution" .. "\n"
	
	if pcall(game.write_file,prices_file,s,true) then
		for name, price in pairs(global.prices) do
			local recipe_name = global.recipes_used[name]
			
			if recipe_name then
				local tech_name = global.recipes_tech[recipe_name]
				if recipe_name == name then recipe_name = "idem" end
				if tech_name == nil then tech_name = "" end
				s = name .. ";" .. recipe_name .. ";" .. tech_name .. ";" 
					.. price.overall .. ";" .. price.tech .. ";" .. price.ingrs .. ";" .. price.energy .. ";" .. 0.1*math.floor(10*price.current) .. ";" .. 0.1*math.floor(10*price.evolution) .. "\n"
			else
				s = name .. ";...;;" 
					.. price.overall .. ";" .. price.tech .. ";" .. price.ingrs .. ";" .. price.energy .. ";" .. 0.1*math.floor(10*price.current) .. ";" .. 0.1*math.floor(10*price.evolution) .. "\n"
			end
			game.write_file(prices_file,s,true)
		end
	end
end

--------------------------------------------------------------------------------------
local function export_uncommons()
	if global.prices_computed then return end
	-- debug_print("export_uncommons")
	
	game.remove_path(specials_file)
	
	local s = "-- Special items/fluids : if incorrect, edit prices and add manually to special_prices in config.lua and/or send to binbinhfr on forum : https://forums.factorio.com/viewtopic.php?f=92&t=30889\n"

	if pcall(game.write_file,specials_file,s,true) then
		game.write_file(specials_file,"	-- Resources (vanilla and modded):\n",true)
		for name, _ in pairs(global.orig_resources) do
			s = "	[\"" .. name .. "\"] = " .. global.prices[name].overall .. ",\n"
			game.write_file(specials_file,s,true)
		end
		game.write_file(specials_file,"\n",true)
		
		game.write_file(specials_file,"	-- Specials (manually declared prices):\n",true)
		for name, _ in pairs(global.specials) do
			s = "	[\"" .. name .. "\"] = " .. global.prices[name].overall .. ",\n"
			game.write_file(specials_file,s,true)
		end
		game.write_file(specials_file,"\n",true)
		
		game.write_file(specials_file,"	-- Potential undeclared resources (used as ingredients but never produced):\n",true)
		for name, _ in pairs(global.new_resources) do
			s = "	[\"" .. name .. "\"] = " .. global.prices[name].overall .. ",\n"
			game.write_file(specials_file,s,true)
		end
		game.write_file(specials_file,"\n",true)
		
		game.write_file(specials_file,"	-- Free items/fluids (products of a recipe without ingredients):\n",true)
		for name, _ in pairs(global.free_products) do
			s = "	[\"" .. name .. "\"] = " .. global.prices[name].overall .. ",\n"
			game.write_file(specials_file,s,true)
		end
		game.write_file(specials_file,"\n",true)
		
		game.write_file(specials_file,"	-- Unknown items/fluids -> not priced (not present in any recipe or only in isolated looped recipes):\n",true)
		for name, _ in pairs(global.unknowns) do
			s = "	[\"" .. name .. "\"] = unknown_price,\n"
			game.write_file(specials_file,s,true)
		end		
	end
end

--------------------------------------------------------------------------------------
local function update_groups()
	-- debug_print("--------------------------------------------------------------------------------------")
	-- debug_print("update_groups")
	
	-- to be run after prices list end !
	
	local groups = {}
	
	for name, object in pairs(game.item_prototypes) do
		if global.prices[name] ~= nil and not object.has_flag("hidden") then
			local group_name = object.group.name
			if groups[group_name] == nil then 
				groups[group_name] = { group = object.group, item = true, fluid = false }
			end
		end
	end
	
	for name, object in pairs(game.fluid_prototypes) do
		if  global.prices[name] ~= nil then
			local group_name = object.group.name
			if groups[group_name] == nil then 
				groups[group_name] = { group = object.group, item = false, fluid = true }
			else
				groups[group_name].fluid = true
			end
		end
	end

	if global.player_mem then
		for _, player in pairs(game.players) do
			local player_mem = global.player_mem[player.index]
			if player_mem then
				player_mem.group_sel_name = nil
				player_mem.object_sel_name = nil
				player_mem.ask_sel = nil
			end
		end
	end
	
	global.groups = groups
end

--------------------------------------------------------------------------------------
local function list_groups()
	debug_print("--------------------------------------------------------------------------------------")
	debug_print("list_groups")
	
	for name, group in pairs(global.groups) do
		debug_print("group:", name, " childs=", #group.group.subgroups)
		for _, subgroup in pairs(group.group.subgroups) do
			debug_print("-> subgroup:", subgroup.name)
		end
	end
end

--------------------------------------------------------------------------------------
local function list_recipes()
	debug_print("--------------------------------------------------------------------------------------")
	debug_print("list_recipes")
	
	for name, recipe in pairs(game.forces.player.recipes) do
		debug_print("recipe:", name, " hidden=", recipe.hidden)
	end
end

--------------------------------------------------------------------------------------
local function get_hour()
	-- refresh hour and detect hour change ; hour increases continuously, and does not reset at 24.
	local surf = game.surfaces.nauvis

	if surf.always_day ~= global.always_day then
		global.always_day = surf.always_day
		global.hour_prev = -1
	end
		
	if surf.always_day then
		global.hour = math.floor(game.tick * 24 / 25000) -- one day is 25000 ticks, game starts at noon
		if global.hour ~= global.hour_prev then
			if global.hour%24 == 0 then -- noon
				global.day = global.day + 1
				global.day_changed = true
			end
			global.hour_changed = 4
			global.hour_prev = global.hour
		end
	else
		local hour = math.floor(surf.daytime * 24) -- daytime [0,1], noon = 0.0, midnight = 0.5
		if hour ~= global.hour_prev then
			if hour == 0 then -- noon
				global.day = global.day + 1
				global.day_changed = true
			end
			global.hour = 24*global.day + hour
			global.hour_changed = 4
			global.hour_prev = hour
		end
	end
end

--------------------------------------------------------------------------------------
local function compute_force_data(force_mem)
	local tot_taxes = force_mem.sales_taxes + force_mem.purchases_taxes
	local tot = force_mem.sales + force_mem.purchases + tot_taxes
	if tot == 0 then
		force_mem.tax_rate = 0
	else
		force_mem.tax_rate = math.floor(0.5+tot_taxes * 100 / tot)
	end
end

--------------------------------------------------------------------------------------
local function init_trader( trader, level )
	trader.auto = default_auto -- automatic trading
	trader.daylight = false -- trades only during daylight (for selling accumulators)
	trader.n_period=default_n_period
	trader.period=periods[default_n_period]
	
	trader.evaluation = 0 -- gross value of trader content
	
	trader.money_tot = 0 -- total sales or incomes
	trader.taxes_tot = 0 -- total taxes
	trader.tax_rate_tot = 0 -- total average tax rate
	
	trader.hour = global.hour -- hour of counter reset (initialized with last hour tick)
	trader.dhour = 0 -- hours since last reset
	trader.money_reset = 0 -- money at counter reset
	trader.taxes_reset = 0 -- taxes at counter reset
	trader.money = 0 -- sales or incomes since counter reset
	trader.taxes = 0 -- taxes or incomes since counter reset
	trader.tax_rate = 0 -- average tax rate
	trader.money_average = 0 -- money per day since counter reset
	
	trader.hour_period = global.hour -- starting hour of last period (used by counter reset)
	trader.money_tot_start_period = 0 -- money at beginning of last period
	trader.money_period = 0 -- money on last period
	
	trader.orders_tot = 0 -- total of the purchase list, without taxes
	trader.orders = {} -- purchase orders, list of {name, count}
	trader.sold_name = nil -- name of the last sold item
	-- trader.price = nil -- price of the main object sold (1 item, fuild or energy)
	
	trader.editer = nil -- player who is currently editing
	
	if level ~= nil then
		trader.level = level
		
		if level == 1 then trader.tank_max = 25000 end
		if level == 2 then trader.tank_max = 100000 end
		if level == 3 then trader.tank_max = 200000 end
		if level == 4 then trader.tank_max = 400000 end
		
		if level == 1 then trader.accu_max = 10 end
		if level == 2 then trader.accu_max = 100 end
		if level == 3 then trader.accu_max = 250 end
		if level == 4 then trader.accu_max = 500 end
	end
end

--------------------------------------------------------------------------------------
local function copy_trader( trader1, trader2 )
	trader2.auto = trader1.auto
	trader2.daylight = trader1.daylight
	trader2.n_period=trader1.n_period
	trader2.period=trader1.period
	
	if (not trader1.sell_or_buy) and (not trader2.sell_or_buy) and trader1.type == trader2.type then
		trader2.orders = {}
	
		for name, order in pairs(trader1.orders) do
			table.insert(trader2.orders,order)
		end
	end
end

--------------------------------------------------------------------------------------
local function evaluate_trader(trader)
	if global.prices_computed then return end
	
	if trader.entity == nil or not trader.entity.valid then 
		trader.evaluation = 0
		return
	end
	
	local money = 0
	
	if trader.type == trader_type.item then
		local inv = trader.entity.get_inventory(defines.inventory.chest)
		local contents = inv.get_contents()
		local price = nil
		
		for name, count in pairs(inv.get_contents()) do
			price = global.prices[name]
			if price ~= nil then
				money = money + count * price.current 
			end
		end
		
	elseif trader.type == trader_type.fluid then
		local tank = trader.entity
		if tank.fluidbox then
			local box = tank.fluidbox[1]
			if box ~= nil then
				local name = box.type
				local count = box.amount
			
				local price = global.prices[name]
				if price ~= nil then
					money = count * price.current 
				end
			end
		end
		
	elseif trader.type == trader_type.energy then
		local accu = trader.entity
		local name = energy_name
		local count = accu.energy / 1000000
		local price = global.prices[name]
		if price ~= nil then
			money = count * price.current 
		end
	end
	
	trader.evaluation = money
end

--------------------------------------------------------------------------------------
local function update_transaction(force_mem,type,name,price,count)
	if force_mem.transactions[name] == nil then
		force_mem.transactions[name] = {count=0,type=type}
		force_mem.new_transaction = true
	end
	force_mem.transactions[name].count = force_mem.transactions[name].count + count
	
	if type == "item" then
		price.dynamic = price.dynamic + count * dynamic_influence_item
	elseif type == "fluid" then
		price.dynamic = price.dynamic + count * dynamic_influence_fluid
	else
		price.dynamic = price.dynamic + count * dynamic_influence_energy
	end
	
	if price.dynamic > dynamic_maximal then
		price.dynamic = dynamic_maximal
	elseif price.dynamic < dynamic_minimal then
		price.dynamic = dynamic_minimal
	end
end

--------------------------------------------------------------------------------------
local function sell_trader(trader,force_mem,tax_rate)
	if global.prices_computed then return(nil) end
	
	if trader.entity == nil or not trader.entity.valid then return(nil) end
	
	if tax_rate == nil then
		tax_rate = global.tax_rates[trader.period]
	end
	
	local money1, tax1
	local money = 0
	local taxes = 0

	if trader.type == trader_type.item then
		local inv = trader.entity.get_inventory(defines.inventory.chest)
		local contents = inv.get_contents()
		local price = nil
		
		for name, count in pairs(inv.get_contents()) do
			price = global.prices[name]
			
			if price ~= nil then
				money1 = count * price.current 
				
				if name == "ucoin" then
					tax1 = 0
				else
					tax1 = money1 * tax_rate / 100
				end
				money = money + money1 
				taxes = taxes + tax1
				
				inv.remove({name=name,count=count})
				
				update_transaction(force_mem,"item",name,price,-count)
				if count ~= 0 then 
					trader.sold_name = name
				end
			end
		end
		
		
	elseif trader.type == trader_type.fluid then
		local tank = trader.entity
		if tank.fluidbox then
			local box = tank.fluidbox[1]
			if box ~= nil then
				local name = box.type
				local count = box.amount
				local price = global.prices[name]
				
				if price ~= nil then
					money1 = count * price.current 
					tax1 = money1 * tax_rate / 100
					money = money + money1 
					taxes = taxes + tax1
					
					tank.fluidbox[1] = nil
					
					update_transaction(force_mem,"fluid",name,price,-count)
					if count ~= 0 then 
						trader.sold_name = name
					end
				end
			end
		end
		
	elseif trader.type == trader_type.energy then
		local accu = trader.entity
		local name = energy_name
		local count = accu.energy / 1000000
		local price = global.prices[energy_name]
		
		if price ~= nil then
			money1 = count * price.current 
			tax1 = money1 * tax_rate / 100
			money = money + money1 
			taxes = taxes + tax1
			
			accu.energy = 0
			
			update_transaction(force_mem,"energy",name,price,-count)
			trader.sold_name = name
		end
	end

	trader.money_tot = trader.money_tot + money
	trader.taxes_tot = trader.taxes_tot + taxes
	
	force_mem.credits = force_mem.credits + money - taxes
	force_mem.sales = force_mem.sales + money
	force_mem.sales_taxes = force_mem.sales_taxes + taxes

	return(money)
end

--------------------------------------------------------------------------------------
local function buy_trader(trader,force_mem,tax_rate)
	if global.prices_computed then return(nil) end
	
	if trader.entity == nil or not trader.entity.valid then return(nil) end
	
	if tax_rate == nil then
		tax_rate = global.tax_rates[trader.period]
	end
	local money1
	local tax1
	local money = 0
	local taxes = 0
	
	if trader.type == trader_type.item then
		local inv = trader.entity.get_inventory(defines.inventory.chest)
		local price = nil
		
		for i=1,#trader.orders do
			local order = trader.orders[i]
			local name = order.name
			local count = order.count
			price = global.prices[name]
			
			if price and count > 0 then
				money1 = count * price.current 
				
				if name == "ucoin" then
					tax1 = 0
				else
					tax1 = money1 * tax_rate / 100
				end
				
				if money1+tax1 <= force_mem.credits then
					-- can buy !
					local purchased = inv.insert({name=name,count=count})
					if purchased < count then
						money1 = purchased * price.current 
						if name == "ucoin" then
							tax1 = 0
						else
							tax1 = money1 * tax_rate / 100
						end
					end
					force_mem.credits = force_mem.credits - money1 - tax1
					money = money + money1
					taxes = taxes + tax1
					
					update_transaction(force_mem,"item",name,price,purchased)
				end
			end			
		end
		
	elseif trader.type == trader_type.fluid then
		local order = trader.orders[1]
		local tank = trader.entity
		
		if order and tank.fluidbox then
			local name = order.name
			local price = global.prices[name]
			local box = tank.fluidbox[1]
			local name_box = name
			local amount_box = 0
			
			if box == nil then
				box = {type = name_box, amount = amount_box }
			else
				name_box = box.type
				amount_box = box.amount
			end
			
			if name_box ~= name and amount_box < 0.1 then
				name_box = name
				amount_box = 0
				box = {type = name_box, amount = amount_box }
			end
			
			if name_box == name and price then
				local purchased = math.min(order.count,(trader.tank_max - amount_box))
				money = purchased * price.current 
				
				if purchased > 0 and money <= force_mem.credits then
					taxes = money * tax_rate / 100
					money = money - taxes
					force_mem.credits = force_mem.credits - money - taxes
				
					box.amount = box.amount + purchased
					tank.fluidbox[1] = box
				
					update_transaction(force_mem,"fluid",name,price,purchased)
				end
			end
		end
		
	elseif trader.type == trader_type.energy then
		local order = trader.orders[1]
		local accu = trader.entity
		local name = energy_name
		local count = accu.energy / 1000000
		local price = global.prices[name]
		
		if order and price then
			local purchased = math.min(order.count,trader.accu_max - count)
			money = purchased * price.current 
			
			if purchased > 0 and money <= force_mem.credits then
				taxes = money * tax_rate / 100
				money = money - taxes
				force_mem.credits = force_mem.credits - money - taxes
			
				accu.energy = accu.energy + purchased * 1000000
			
				update_transaction(force_mem,"energy",name,price,purchased)
			end
		end
	end
	
	trader.money_tot = trader.money_tot + money
	trader.taxes_tot = trader.taxes_tot + taxes
	
	force_mem.purchases = force_mem.purchases + money
	force_mem.purchases_taxes = force_mem.purchases_taxes + taxes

	return(money)
end

--------------------------------------------------------------------------------------
local function listen_trader(trader)
	local ent = trader.entity
	if ent == nil or not ent.valid then return(false) end
	local changed = false
	
	local network = ent.get_circuit_network(defines.wire_type.red)
	
	if network == nil then 
		network = ent.get_circuit_network(defines.wire_type.green)
	end
	
	if network == nil then return(false) end
	
	local function listen_signal(signal)
		local val = network.get_signal(signal)
		-- debug_print( "auto=", val )
		if val ~= 0 then
			local auto = (val ~= 1)
			if auto ~= trader.auto then changed = true end
			trader.auto = auto
		end
	end
	
	listen_signal(trader_signals.auto_all)
	
	if trader.sell_or_buy then
		listen_signal(trader_signals.auto_sell)
	else
		listen_signal(trader_signals.auto_buy)
	end
	
	if trader.editer and changed then update_menu_trader(trader.editer,nil,false) end
	
	return(true)
end

--------------------------------------------------------------------------------------
local function listen_traders(force_mem)
	if global.prices_computed then return(nil) end
	
	for i=1,#force_mem.traders_buy do
		local trader = force_mem.traders_buy[i]
		listen_trader(trader)
	end
	
	for i=1,#force_mem.traders_sell do
		local trader = force_mem.traders_sell[i]
		listen_trader(trader)
	end
end

-- params = {parameters={
	-- {index=1,signal={type="virtual",name="signal-clock-gametick"},count=math.floor(game.tick)},
	-- {index=2,signal={type="virtual",name="signal-clock-day"},count=global.day},
	-- {index=3,signal={type="virtual",name="signal-clock-hour"},count=global.h},
	-- {index=4,signal={type="virtual",name="signal-clock-minute"},count=global.m},
	-- {index=5,signal={type="virtual",name="signal-clock-alwaysday"},count=iif(global.surface.always_day,1,0)},
	-- {index=6,signal={type="virtual",name="signal-clock-darkness"},count=math.floor(global.surface.darkness*100)},
	-- {index=7,signal={type="virtual",name="signal-clock-lightness"},count=math.floor((1-global.surface.darkness)*100)},
-- }}

-- clock.entity.get_control_behavior().parameters = params

--------------------------------------------------------------------------------------
local function find_trader_sell(force_mem,ent)
	for _, trader in pairs(force_mem.traders_sell) do
		if trader.entity == ent then
			 return(trader)
		end
	end
	
	return(nil)
end

--------------------------------------------------------------------------------------
local function find_trader_buy(force_mem,ent)
	for _, trader in pairs(force_mem.traders_buy) do
		if trader.entity == ent then
			 return(trader)
		end
	end
	
	return(nil)
end

--------------------------------------------------------------------------------------
local function compute_trader_data(trader,update_orders)
	if global.prices_computed then return end
	
	local tot 
	
	if trader.sell_or_buy then
		tot = trader.money_tot -- + trader.taxes_tot 
	else
		tot = trader.money_tot 
	end
	
	if tot == 0 then
		trader.tax_rate_tot = 0
	else
		trader.tax_rate_tot = math.floor(0.5+100 * trader.taxes_tot  / tot)
	end

	trader.money = trader.money_tot - trader.money_reset
	trader.taxes = trader.taxes_tot - trader.taxes_reset
	
	trader.dhour = global.hour - trader.hour
	if trader.dhour == 0 then
		trader.money_average = 0
	else
		trader.money_average = math.floor(0.5+trader.money * 24 / trader.dhour)
	end
	
	if trader.sell_or_buy then
		tot = trader.money -- + trader.taxes
	else
		tot = trader.money
	end
	
	if tot == 0 then
		trader.tax_rate = 0
	else
		trader.tax_rate = math.floor(0.5+100 * trader.taxes  / tot)
	end

	if trader.sell_or_buy then
	else
		tot = 0
		for _, order in pairs(trader.orders) do
			local price = global.prices[order.name]
			if price then
				tot = tot + order.count * price.current
			end
		end
		
		trader.orders_tot = tot
		-- debug_print(tot)
	end
	
	if update_orders ~= nil and trader.editer then update_menu_trader(trader.editer,nil,update_orders) end
end

--------------------------------------------------------------------------------------
local function clean_orders_and_transactions()
	for name, force in pairs(game.forces) do
		local force_mem = global.force_mem[name]
		
		-- clean orders with non existing objects
	
		for i=#force_mem.traders_buy,1,-1 do
			local trader = force_mem.traders_buy[i]
			if trader.type == trader_type.item then
				for i=#trader.orders,1,-1 do
					local order = trader.orders[i]
					if game.item_prototypes[order.name] == nil or i > 99 then
						table.remove(trader.orders,i)
					end
				end
			elseif trader.type == trader_type.fluid then
				for i=#trader.orders,1,-1 do
					local order = trader.orders[i]
					if game.fluid_prototypes[order.name] == nil or i > 99 then
						table.remove(trader.orders,i)
					end
				end
			end
		end
		
		-- clean transactions with non existing objects
	
		for name_transaction, transaction in pairs(force_mem.transactions) do
			if transaction.type == "item" then
				if game.item_prototypes[name_transaction] == nil then
					force_mem.transactions[name_transaction] = nil
				end
			elseif transaction.type == "fluid" then
				if game.fluid_prototypes[name_transaction] == nil then
					force_mem.transactions[name_transaction] = nil
				end
			end
		end
	end
end

--------------------------------------------------------------------------------------
local function init_globals()
	-- initialize or update general globals of the mod
	debug_print( "init_globals" )
	
	global.tick = global.tick or 0
	global.force_mem = global.force_mem or {}
	global.player_mem = global.player_mem or {}
	
	global.always_day = game.surfaces.nauvis.always_day
	global.day = global.day or 0 -- day (changes at noon)
	global.day_changed = false
	global.hour = global.hour or -1 -- hour (always increases, does not reset at 24...)
	global.hour_prev = global.hour_prev or -1
	global.hour_changed = 0
	
	if global.prices_computed == nil then global.prices_computed = false end
	global.prices_loop = global.prices_loop or -1

	if global.techs_costs == nil then -- costs for every tech
		update_techs_costs() 
	end
	
	global.orig_resources = global.orig_resources or {} -- items undeclared as resources
	global.new_resources = global.new_resources or {} -- items that could be undeclared resources (used as ingredients but never produced)
	global.free_products = global.free_products or {} -- items with no prices
	global.unknowns = global.unknowns or {} -- items with no prices
	
	if global.prices == nil then -- prices for every item/fluid
		update_objects_prices_start()
	end
	
	global.groups = global.groups or {}
	
	-- if global.groups == nil then
		-- update_groups()
	-- end
	
	if global.ask_rescan == nil then global.ask_rescan = false end
	
	if global.tax_rates == nil then
		init_tax_rates()
	end
end

--------------------------------------------------------------------------------------
local function init_force(force)
	if global.force_mem == nil then return end
	
	-- initialize or update per force globals of the mod
	debug_print( "init_force ", force.name )
	
	global.force_mem[force.name] = global.force_mem[force.name] or {}
	local force_mem = global.force_mem[force.name]
	
	if force_mem.pause == nil then force_mem.pause = false end
	force_mem.n_period = force_mem.n_period or default_n_period
	force_mem.period = periods[force_mem.n_period]
	-- force_mem.credits = force_mem.credits or ((debug_status == 1) and 1000000 or 0)
	force_mem.credits = force_mem.credits or 0
	force_mem.credits_startday = force_mem.credits_startday or global.day -- credits at beginning of last day
	force_mem.credits_lastday = force_mem.credits_lastday or 0 -- credits during last day
	force_mem.var_lastday = force_mem.var_lastday or 0 -- variation od credit during last day
	force_mem.sales = force_mem.sales or 0 -- sum of all net sales
	force_mem.sales_taxes = force_mem.sales_taxes or 0 -- sum of all sales taxes
	force_mem.purchases = force_mem.purchases or 0 -- sum of all net purchases
	force_mem.purchases_taxes = force_mem.purchases_taxes or 0 -- sum of all purchases taxes
	force_mem.tax_rate = force_mem.tax_rate or 0 -- average overall tax rate
	force_mem.transactions = force_mem.transactions or {} -- balance per object index by name, {count, type} type = "item", "fluid", "energy"
	
	force_mem.traders_sell = force_mem.traders_sell or {}
	force_mem.traders_buy = force_mem.traders_buy or {}
end

--------------------------------------------------------------------------------------
local function init_forces()
	for _, force in pairs(game.forces) do
		init_force(force)
	end
	
	-- clean_orders_and_transactions()
end

--------------------------------------------------------------------------------------
local function init_player(player)
	if global.player_mem == nil then return end
	
	-- initialize or update per player globals of the mod, and reset the gui
	debug_print( "init_player ", player.name, " connected=", player.connected )
	
	global.player_mem[player.index] = global.player_mem[player.index] or {}
	
	local player_mem = global.player_mem[player.index]
	if player_mem.auto_close == nil then player_mem.auto_close = false end
	player_mem.group_sel_name = player_mem.group_sel_name or nil
	player_mem.object_sel_name = player_mem.object_sel_name or nil
	player_mem.ask_sel = player_mem.ask_sel or nil
	
	player_mem.opened = player_mem.opened or nil
	player_mem.opened_trader = player_mem.opened_trader or nil
	player_mem.order_sel_n = player_mem.order_sel_n or 0 -- currently edited order
	
	player_mem.cursor_name = nil
	
	if player.connected then
		build_bar(player)
		update_bar(player)
	end
end

--------------------------------------------------------------------------------------
local function init_players()
	for _, player in pairs(game.players) do
		init_player(player)
	end
end

--------------------------------------------------------------------------------------
local function on_init() 
	-- called once, the first time the mod is loaded on a game (new or existing game)
	debug_print( "RAZ" )
	debug_print( "CLEAR" )
	debug_print( "on_init" )
	
	init_globals()
	init_forces()
	init_players()
end

script.on_init(on_init)

--------------------------------------------------------------------------------------
local function on_configuration_changed(data)
	-- detect any mod or game version change
	if data.mod_changes ~= nil then		
		local changes = data.mod_changes[debug_mod_name]
		if changes ~= nil then
			debug_print( "RAZ" )
			debug_print( "CLEAR" )
			debug_print( "update mod: ", debug_mod_name, " ", tostring(changes.old_version), " to ", tostring(changes.new_version) )
		
			if changes.old_version and older_version(changes.old_version, "1.0.14") then
				for _,force in pairs(game.forces) do
					force.reset_recipes()
					force.reset_technologies()
				end
				
				if global.prices then
					debug_print( "global.prices" )
					for name_object, price in pairs(global.prices) do
						price.dynamic = 1
						price.dynamic_prev = 1
						price.evolution = 0
					end
				end
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.19") then
				if global.prices then
					debug_print( "global.prices" )
					for name_object, price in pairs(global.prices) do
						price.previous = price.current or price.overall
						price.dynamic_prev = nil
					end
				end
			end
			
			init_globals()
			init_forces()
			init_players()
			
			if changes.old_version and older_version(changes.old_version, "1.0.14") then
				for _,force in pairs(game.forces) do
					local force_mem = global.force_mem[force.name]
					
					for _, chest in pairs(force_mem.chests_sell) do
						chest.type = trader_type.item
						table.insert(force_mem.traders_sell,chest)
					end
					force_mem.chests_sell = nil
					
					for _, chest in pairs(force_mem.chests_buy) do
						chest.type = trader_type.item
						table.insert(force_mem.traders_buy,chest)
					end
					force_mem.chests_buy = nil
					
					force_mem.transactions = {}
				end
				
				for _, player in pairs(game.players) do
					if player.gui.left.frm_blkmkt_chest then
						local player_mem = global.player_mem[player.index]
						player.gui.left.frm_blkmkt_chest.destroy() -- destroy old windows
						player_mem.frm_blkmkt_chest = nil
					end
				end
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.19") then
				for _,force in pairs(game.forces) do
					local force_mem = global.force_mem[force.name]
					
					for _, trader in pairs(force_mem.traders_sell) do
						trader.price = nil
					end
					
					for _, trader in pairs(force_mem.traders_buy) do
						trader.price = nil
					end

					force_mem.transactions = {}
				end
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.23") then
				message_all( "Black Market : you can now copy-paste trader chests settings." )
				for _,force in pairs(game.forces) do
					local force_mem = global.force_mem[force.name]
					
					for _, trader in pairs(force_mem.traders_sell) do
						trader.daylight = false
					end
					
					for _, trader in pairs(force_mem.traders_buy) do
						trader.daylight = false
					end
				end
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.24") then	
				message_all( "Black Market : new signal features to command automatic modes." )
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.25") then
				for _,force in pairs(game.forces) do
					force.reset_recipes()
					force.reset_technologies()
				end
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.26") then
				message_all( "Black Market : new traders tiers MK2, MK3, MK4." )
				for _,force in pairs(game.forces) do
					force.reset_recipes()
					force.reset_technologies()
					
					local force_mem = global.force_mem[force.name]
					
					for _, trader in pairs(force_mem.traders_sell) do
						trader.level = 1
						trader.tank_max = 2500 
						trader.accu_max = 10 
					end
					
					for _, trader in pairs(force_mem.traders_buy) do
						trader.level = 1
						trader.tank_max = 2500 
						trader.accu_max = 10 
					end
				end
			end
			
			if changes.old_version and older_version(changes.old_version, "1.0.27") then
				message_all( "Black Market : now you can also copy-paste tanks and accus settings." )
			end
		end
		
		-- global.ask_rescan = true
		close_guis()

		-- if any other mod install or uninstall, rescan prices ! and clean orders

		if not global.prices_computed then
			debug_print( "update other mods" )
			update_techs_costs()
			update_objects_prices_start()		
		end

		-- update_groups()

		clean_orders_and_transactions()
	end
end

script.on_configuration_changed(on_configuration_changed)

--------------------------------------------------------------------------------------
local function on_force_created(event)
	-- called at player creation
	local force = event.force
	debug_print( "force created ", force.name )
	
	init_force(force)
end

script.on_event(defines.events.on_force_created, on_force_created )

--------------------------------------------------------------------------------------
local function on_forces_merging(event)
	local force1 = event.source
	local force2 = event.destination
	debug_print( "force merging ", force1.name, " into ", force2.name )
	
	local force_mem1 = global.force_mem[force1.name]
	local force_mem2 = global.force_mem[force2.name]
	
	force_mem2.credits = force_mem2.credits + force_mem1.credits
	force_mem2.credits_startday = force_mem2.credits_startday + force_mem1.credits_startday
	force_mem2.credits_lastday = force_mem2.credits_lastday + force_mem1.credits_lastday
	force_mem2.var_lastday = force_mem2.var_lastday + force_mem1.var_lastday
	force_mem2.sales = force_mem2.sales + force_mem1.sales
	force_mem2.sales_taxes = force_mem2.sales_taxes + force_mem1.sales_taxes
	force_mem2.purchases = force_mem2.purchases + force_mem1.purchases
	force_mem2.purchases_taxes = force_mem2.purchases_taxes + force_mem1.purchases_taxes
	
	concat_lists(force_mem2.traders_sell, force_mem1.traders_sell)
	concat_lists(force_mem2.traders_buy, force_mem1.traders_buy)

	-- global.force_mem[force1.name] = nil

	compute_force_data(force_mem2)
	update_guis_force(force2,true)
end

script.on_event(defines.events.on_forces_merging, on_forces_merging )

--------------------------------------------------------------------------------------
local function on_player_created(event)
	-- called at player creation
	local player = game.players[event.player_index]
	debug_print( "player created ", player.name )
	
	init_player(player)
	
	if debug_status == 1 then
		local inv = player.get_inventory(defines.inventory.player_quickbar)
		inv.insert({name="fast-inserter", count=50})
		inv.insert({name="trader-chst-sel", count=10})
		inv.insert({name="trader-chst-buy", count=10})
		inv.insert({name="trader-tank-sel", count=10})
		inv.insert({name="trader-tank-buy", count=10})
		inv.insert({name="trader-accu-sel", count=10})
		inv.insert({name="trader-accu-buy", count=10})
		inv.insert({name="ucoin", count=100000})
	end
end

script.on_event(defines.events.on_player_created, on_player_created )

--------------------------------------------------------------------------------------
local function on_player_joined_game(event)
	-- called in SP(once) and MP(at every connect), eventually after on_player_created
	local player = game.players[event.player_index]
	debug_print( "player joined ", player.name )
	
	init_player(player)
end

script.on_event(defines.events.on_player_joined_game, on_player_joined_game )

--------------------------------------------------------------------------------------
local function on_player_cursor_stack_changed(event)
	local player = game.players[event.player_index]
	local player_mem = global.player_mem[player.index]
	
	-- debug_print( "on_player_cursor_stack_changed ", player.name )
	
	if player.cursor_stack and player.cursor_stack.valid_for_read then
		player_mem.cursor_name = player.cursor_stack.name
	else	
		player_mem.cursor_name = nil
	end
	
	update_bar(player)
end

script.on_event(defines.events.on_player_cursor_stack_changed, on_player_cursor_stack_changed )

--------------------------------------------------------------------------------------
local function suffix_to_level(suffix)
	if suffix == "" then
		return(1)
	elseif suffix == "-mk2" then
		return(2)
	elseif suffix == "-mk3" then
		return(3)
	elseif suffix == "-mk4" then
		return(4)
	end
end

--------------------------------------------------------------------------------------
local function on_creation( event )
	local ent = event.created_entity
	local ent_name = ent.name
	local prefix = string.sub(ent_name,1,15)
	local sell_or_buy = nil
	local type = nil
	
	-- debug_print( "creation ", ent_name )
	
	if prefix == "trader-chst-sel" then
		sell_or_buy = true
		type = trader_type.item
	elseif prefix == "trader-chst-buy" then
		sell_or_buy = false
		type = trader_type.item
	elseif prefix == "trader-tank-sel" then
		sell_or_buy = true
		type = trader_type.fluid
	elseif prefix == "trader-tank-buy" then
		sell_or_buy = false
		type = trader_type.fluid
	elseif prefix == "trader-accu-sel" then
		sell_or_buy = true
		type = trader_type.energy
	elseif prefix == "trader-accu-buy" then
		sell_or_buy = false
		type = trader_type.energy
	end
	
	if sell_or_buy ~= nil then
		local suffix = string.sub(ent_name,16,19)
		local level = suffix_to_level(suffix)
		local force_mem = global.force_mem[ent.force.name]
		local trader = { entity=ent, sell_or_buy = sell_or_buy, type = type }
		init_trader(trader,level)
		
		trader.n_period = force_mem.n_period
		trader.period = force_mem.period

		if sell_or_buy then
			table.insert(force_mem.traders_sell,trader)
		else
			if type == trader_type.item then
				trader.orders = {
					{name = "coal", count = 0, price = global.prices.coal.current },
				}
			elseif type == trader_type.fluid then
				trader.orders = {
					{name = "crude-oil", count = 0, price = global.prices["crude-oil"].current },
				}
			elseif type == trader_type.energy then
				trader.orders = {
					{name = energy_name, count = 0, price = global.prices[energy_name].current },
				}
			end
			table.insert(force_mem.traders_buy,trader)
		end
		
		compute_trader_data(trader)
	end
end

script.on_event(defines.events.on_built_entity, on_creation )
script.on_event(defines.events.on_robot_built_entity, on_creation )

--------------------------------------------------------------------------------------
local function on_destruction( event )
	local ent = event.entity
	local ent_name = ent.name
	local prefix = string.sub(ent_name,1,15)
	
	if prefix == "trader-chst-sel" or prefix == "trader-tank-sel" or prefix == "trader-accu-sel" then
		-- debug_print( "destruction ", ent_name )
		local force_mem = global.force_mem[ent.force.name]
		for i, trader in pairs(force_mem.traders_sell) do
			if trader.entity == ent then
				table.remove(force_mem.traders_sell,i)
				break
			end
		end
		
	elseif prefix == "trader-chst-buy" or prefix == "trader-tank-buy" or prefix == "trader-accu-buy" then
		-- debug_print( "destruction ", ent_name )
		local force_mem = global.force_mem[ent.force.name]
		for i, trader in pairs(force_mem.traders_buy) do
			if trader.entity == ent then
				trader.orders = nil
				table.remove(force_mem.traders_buy,i)
				break
			end
		end
	end
end

script.on_event(defines.events.on_entity_died, on_destruction )
script.on_event(defines.events.on_robot_pre_mined, on_destruction )
script.on_event(defines.events.on_preplayer_mined_item, on_destruction )

--------------------------------------------------------------------------------------
local function on_entity_settings_pasted(event)
	local ent1 = event.source
	local ent2 = event.destination
	local prefix1 = string.sub(ent1.name,1,15)
	local prefix2 = string.sub(ent2.name,1,15)
	local trader1, trader2

	debug_print( "on_entity_settings_pasted src=", ent1.name, " dest=", ent2.name )
	
	if prefix1 == "trader-chst-sel" or prefix1 == "trader-tank-sel" or prefix1 == "trader-accu-sel" then
		local force_mem = global.force_mem[ent1.force.name]
		trader1 = find_trader_sell(force_mem,ent1)
	elseif prefix1 == "trader-chst-buy" or prefix1 == "trader-tank-buy" or prefix1 == "trader-accu-buy" then
		local force_mem = global.force_mem[ent1.force.name]
		trader1 = find_trader_buy(force_mem,ent1)
	end
	
	if prefix2 == "trader-chst-sel" or prefix2 == "trader-tank-sel" or prefix2 == "trader-accu-sel" then
		local force_mem = global.force_mem[ent2.force.name]
		trader2 = find_trader_sell(force_mem,ent2)
	elseif prefix2 == "trader-chst-buy" or prefix2 == "trader-tank-buy" or prefix2 == "trader-accu-buy" then
		local force_mem = global.force_mem[ent2.force.name]
		trader2 = find_trader_buy(force_mem,ent2)
	end
	
	
	if trader1 and trader2 then
		copy_trader(trader1,trader2)
	end
end

script.on_event(defines.events.on_entity_settings_pasted,on_entity_settings_pasted)

-------------------------------------------------------------------------------------
local function on_tick(event)
	if global.tick >= 99 then 
		global.tick = 0
		
		if global.ask_rescan then
			global.ask_rescan = false
			message_all({"blkmkt-gui-askrescan"})
		end
		
	elseif global.tick%20 == 1 then
		-- check hour change
		get_hour()
		
		-- manage prices list build

		if global.prices_computed then
			message_all({"blkmkt-gui-rescan-progr",global.prices_loop})
			
			if global.prices_loop ==  0 then
				close_guis()
			end
			
			if (not update_objects_prices_loop()) or global.prices_loop > 15 then
				update_objects_prices_end()
				global.prices_loop = 0
				
				update_groups()
				export_uncommons()
				clean_orders_and_transactions()
				update_dynamic_prices()

				close_guis()
				
				message_all({"blkmkt-gui-rescan-done"})
			end
		end
		
		-- manage opened traders
		for _, player in pairs(game.players) do
			if player.connected then
				local player_mem = global.player_mem[player.index]
				local opened = player.opened
				
				if opened then
					if opened ~= player_mem.opened then
						if player_mem.opened_trader then
							player_mem.opened_trader.editer = nil
							
							build_menu_trader(player,player_mem,false)
							build_menu_objects(player,false)
						end
						
						local force_mem = global.force_mem[player.force.name]
						local prefix = string.sub(opened.name,1,15)
						
						if prefix == "trader-chst-sel" or prefix == "trader-tank-sel" or prefix == "trader-accu-sel" then
							build_menu_objects(player,false)
							local trader = find_trader_sell(force_mem,opened)
							if trader then
								if trader.editer == nil or not trader.editer.connected then
									player_mem.opened_trader = trader
									trader.editer = player
									build_menu_trader(player,player_mem,true)
									update_menu_trader(player,player_mem,true)
								else
									player.print({"blkmkt-gui-trader-edited",trader.editer.name})
								end
							end
						elseif prefix == "trader-chst-buy" or prefix == "trader-tank-buy" or prefix == "trader-accu-buy" then
							build_menu_objects(player,false)
							local trader = find_trader_buy(force_mem,opened)
							if trader then
								if trader.editer == nil or not trader.editer.connected then
									player_mem.opened_trader = trader
									trader.editer = player
									build_menu_trader(player,player_mem,true)
									update_menu_trader(player,player_mem,true)
								else
									player.print({"blkmkt-gui-trader-edited",trader.editer.name})
								end
							end
						end
						
						player_mem.opened = opened
					end
				else
					if player_mem.opened then
						if player_mem.opened_trader then
							player_mem.opened_trader.editer = nil
							
							build_menu_trader(player,player_mem,false)
							build_menu_objects(player,false)
						end
						
						player_mem.opened = nil
						player_mem.opened_trader = nil
					end
				end
			end
		end
	
	elseif global.tick == 18 then
		-- listen signals
		
		for name, force in pairs(game.forces) do
			local force_mem = global.force_mem[name]
			listen_traders(force_mem)
		end

		-- EVERY HOUR : 
		if not global.prices_computed and global.hour_changed == 4 then
			global.hour_changed = global.hour_changed - 1 
			
		end
		
	elseif global.tick == 38 then
		-- EVERY HOUR : do sales
		
		if not global.prices_computed and global.hour_changed == 3 then
			global.hour_changed = global.hour_changed - 1 
			
			for name, force in pairs(game.forces) do
				local force_mem = global.force_mem[name]
				local money = 0
				-- debug_print("force ", name, " traders=",#force_mem.traders_sell)
				for i=#force_mem.traders_sell,1,-1 do
					local trader = force_mem.traders_sell[i]
					if global.hour % trader.period == 0 then
						trader.hour_period = global.hour
						if trader.auto and not force_mem.pause then
							local ent = trader.entity
							-- if not(trader.daylight and trader.type == trader_type.energy and ent.surface.darkness > 0.5) then
								local money1 = sell_trader(trader,force_mem)
								if money1 == nil then
									table.remove(force_mem.traders_sell,i)
								else
									money = money + money1
								end
							-- end
						end
					end
				end
				-- if money ~= 0 then
					-- update_bars(force)
				-- end
			end
		end
		
	elseif global.tick == 58 then
		-- EVERY HOUR : do purchases
		
		if not global.prices_computed and global.hour_changed == 2 then
			global.hour_changed = global.hour_changed - 1 
			
			for name, force in pairs(game.forces) do
				local force_mem = global.force_mem[name]
				local money = 0
				-- debug_print("force ", name, " traders=",#force_mem.traders_buy)
				for i=#force_mem.traders_buy,1,-1 do
					local trader = force_mem.traders_buy[i]
					if global.hour % trader.period == 0 then
						trader.hour_period = global.hour
						if trader.auto and not force_mem.pause then
							local money1 = buy_trader(trader,force_mem)
							if money1 == nil then
								table.remove(force_mem.traders_buy,i)
							else
								money = money + money1
							end
						end
					end
				end
				-- if money ~= 0 then
					-- update_bars(force)
				-- end
			end
		end
		
	elseif global.tick == 78 then
		if not global.prices_computed and global.hour_changed == 1 then
			global.hour_changed = global.hour_changed - 1 
			
			-- EVERY HOUR : compute period averages
		
			for name, force in pairs(game.forces) do
				local force_mem = global.force_mem[name]
				
				for i=#force_mem.traders_sell,1,-1 do
					local trader = force_mem.traders_sell[i]
					if trader.auto and (not force_mem.pause) and global.hour % trader.period == 0 then
						compute_trader_data(trader)
						trader.money_period = trader.money_tot - trader.money_tot_start_period
						-- debug_print(trader.money_tot_start_period, " -> ", trader.money_tot, " = ", trader.money_period)
						trader.money_tot_start_period = trader.money_tot 
					end
				end
				
				for i=#force_mem.traders_buy,1,-1 do
					local trader = force_mem.traders_buy[i]
					if trader.auto and (not force_mem.pause) and global.hour % trader.period == 0 then
						compute_trader_data(trader)
						trader.money_period = trader.money_tot - trader.money_tot_start_period
						-- debug_print(trader.money_tot_start_period, " -> ", trader.money_tot, " = ", trader.money_period)
						trader.money_tot_start_period = trader.money_tot 
					end
				end
				compute_force_data(force_mem)
			end
			
			-- EVERY HOUR : update average display on opened traders and bar price
			
			for _, player in pairs(game.players) do
				if player.connected then
					local player_mem = global.player_mem[player.index]
					-- if player_mem.opened_trader then
						-- update_menu_trader(player,player_mem,false)
					-- end
					update_menu_gen(player,player_mem)
					update_bar(player)
				end
			end
		end
		
	elseif global.tick == 98 then
		if global.day_changed then
			-- day change

			debug_print("NEW DAY")
			global.day_changed = false
			
			-- EVERY DAY: compute day averages
			
			for name, force in pairs(game.forces) do
				local force_mem = global.force_mem[name]
				force_mem.credits_lastday = force_mem.credits - force_mem.credits_startday
				
				if force_mem.credits_startday == 0 then
					force_mem.var_lastday = 0
				else
					force_mem.var_lastday = 0.1 * math.floor(0.5+force_mem.credits_lastday * 1000 / force_mem.credits_startday)
				end
				
				force_mem.credits_startday = force_mem.credits
			end
			
			-- EVERY DAY : update dynamic prices , evolution price
			
			update_dynamic_prices()
			
			-- EVERY DAY: update all guis (new prices everywhere)
			
			update_guis(true)
		end
	end
	
	global.tick = global.tick + 1 
end

script.on_event(defines.events.on_tick, on_tick)

--------------------------------------------------------------------------------------
local function on_gui_click(event)
	local player = game.players[event.player_index]
	local force = player.force
	local player_mem = global.player_mem[player.index]
	local event_name = event.element.name
	local prefix = string.sub(event_name,1,15)
	local nix = tonumber(string.sub(event_name,16,18))
	local suffix = string.sub(event_name,19)
	
	if global.prices_computed then return end
	
	-- debug_print( "on_gui_click ", player.name, " ", event_name )

	if event_name == "but_blkmkt_main" then
		build_menu_gen(player,player_mem)
		update_menu_gen( player, player_mem )
		
	elseif event_name == "but_blkmkt_credits"then
		player_mem.ask_sel = nil
		build_menu_objects(player)

	elseif event_name == "but_blkmkt_gen_show_prices"then
		player_mem.ask_sel = nil
		build_menu_objects(player)
		
	elseif event_name == "but_blkmkt_gen_export_prices"then
		if debug_status == 1 then
			-- debug_print("RAZ")
			list_groups()
			list_techs_costs()
			list_prices()
			list_recipes()
		end
		
		export_prices()
		export_uncommons()
	
	elseif event_name == "but_blkmkt_gen_rescan_prices"then
		update_techs_costs()
		update_objects_prices_start()
		-- update_groups()
		
	elseif event_name == "chk_blkmkt_gen_pause" then
		local force_mem = global.force_mem[force.name]
		
		force_mem.pause = event.element.state
		
		update_guis_force(force,false)
		
	elseif event_name == "but_blkmkt_gen_auto_all"then
		local force_mem = global.force_mem[force.name]

		for _, trader in pairs(force_mem.traders_sell) do
			trader.auto = true
		end
	
		for _, trader in pairs(force_mem.traders_buy) do
			trader.auto = true
		end
	
		-- update_menu_trader(player,player_mem,false)
		update_guis_force(force,false)
		
	elseif event_name == "but_blkmkt_gen_auto_none"then
		local force_mem = global.force_mem[force.name]

		for _, trader in pairs(force_mem.traders_sell) do
			trader.auto = false
		end
	
		for _, trader in pairs(force_mem.traders_buy) do
			trader.auto = false
		end
	
		-- update_menu_trader(player,player_mem,false)
		update_guis_force(force,false)
		
	elseif event_name == "but_blkmkt_gen_sell_all"then
		local force_mem = global.force_mem[force.name]
		local money = 0
		
		for i=#force_mem.traders_sell,1,-1 do
			local trader = force_mem.traders_sell[i]
			local ent = trader.entity
			local money1 = sell_trader(trader,force_mem)
			if money1 == nil then
				table.remove(force_mem.traders_sell,i)
			else
				money = money + money1
			end
		end
		if money ~= 0 then
			compute_force_data(force_mem)
			update_guis_force(force,false)
			-- update_bars(force)
			-- update_menu_gen(player,player_mem)
			-- update_menu_trader(player,player_mem,true)
		end
		
	elseif event_name == "but_blkmkt_gen_buy_all"then
		local force_mem = global.force_mem[force.name]
		local money = 0
		
		for i=#force_mem.traders_buy,1,-1 do
			local trader = force_mem.traders_buy[i]
			local ent = trader.entity
			local money1 = buy_trader(trader,force_mem)
			if money1 == nil then
				-- debug_print("buy !" )
				table.remove(force_mem.traders_buy,i)
			else
				money = money + money1
			end
		end
		
		if money ~= 0 then
			compute_force_data(force_mem)
			update_guis_force(force,false)
			-- update_bars(force)
			-- update_menu_gen(player,player_mem)
			-- update_menu_trader(player,player_mem,true)
		end
		
	elseif event_name == "but_blkmkt_gen_period_down" then
		build_menu_objects(player,false)

		local force_mem = global.force_mem[force.name]

		if force_mem.n_period > 2 then
			force_mem.n_period = force_mem.n_period - 1
			force_mem.period = periods[force_mem.n_period]
		end
		
		-- update_menu_gen(player,player_mem)
		update_guis_force(force,false)
		
	elseif event_name == "but_blkmkt_gen_period_up" then
		build_menu_objects(player,false)

		local force_mem = global.force_mem[force.name]

		if force_mem.n_period < #periods then
			force_mem.n_period = force_mem.n_period + 1
			force_mem.period = periods[force_mem.n_period]
		end
		
		-- update_menu_gen(player,player_mem)
		update_guis_force(force,false)
		
	elseif event_name == "but_blkmkt_gen_period_set" then
		build_menu_objects(player,false)

		local force_mem = global.force_mem[force.name]

		for _, trader in pairs(force_mem.traders_sell) do
			trader.n_period = force_mem.n_period
			trader.period = force_mem.period
		end
		
		for _, trader in pairs(force_mem.traders_buy) do
			trader.n_period = force_mem.n_period
			trader.period = force_mem.period
		end

		-- update_menu_trader(player,player_mem,false)
		update_guis_force(force,false)

	elseif event_name == "but_blkmkt_gen_close" then
		build_menu_gen(player,player_mem,false)

	elseif prefix == "but_blkmkt_ilg_" then -- click group in item list
		-- debug_print(suffix)
		player_mem.group_sel_name = suffix
		build_menu_objects(player,true,player_mem.ask_sel)

	elseif prefix == "but_blkmkt_ili_" then -- click item in item list
		-- debug_print(suffix)
		player_mem.object_sel_name = suffix

		local trader = player_mem.opened_trader
		
		if trader and player_mem.order_sel_n ~= 0 then
			build_menu_objects(player,false)
			
			local order = trader.orders[player_mem.order_sel_n]
			
			if order then
				order.name = player_mem.object_sel_name
			end
			
			compute_trader_data(trader,true)
			-- update_menu_trader(player,player_mem,true)
			player_mem.order_sel_n = 0
		end
		
	elseif event_name == "but_blkmkt_itml_refresh" then
		build_menu_objects(player,true,player_mem.ask_sel)
		
	elseif event_name == "but_blkmkt_itml_close" then
		build_menu_objects(player,false)
		
	elseif event_name == "but_blkmkt_itml_cancel" then
		player_mem.order_sel_n = 0
		
		build_menu_objects(player,false)
		
	elseif event_name == "chk_blkmkt_trader_auto" then
		build_menu_objects(player,false)
		
		player_mem.opened_trader.auto = player_mem.chk_blkmkt_trader_auto.state
		
	elseif event_name == "but_blkmkt_trader_now" then -- sell or buy trader now
		build_menu_objects(player,false)
		
		local force_mem = global.force_mem[force.name]
		local trader = player_mem.opened_trader
		
		if trader.sell_or_buy then
			sell_trader(trader,force_mem,global.tax_rates[0])
		else
			buy_trader(trader,force_mem,global.tax_rates[0])
		end
		compute_trader_data(trader, false)
		-- update_menu_trader(player,player_mem,false)
		update_bars(force)
		
	elseif event_name == "chk_blkmkt_trader_daylight" then
		build_menu_objects(player,false)
		
		player_mem.opened_trader.daylight = player_mem.chk_blkmkt_trader_daylight.state
		
	elseif event_name == "but_blkmkt_trader_period_down" then
		build_menu_objects(player,false)
		
		local trader = player_mem.opened_trader
		
		if trader.n_period > 2 then
			trader.n_period = trader.n_period - 1
			trader.period = periods[trader.n_period]
		end
		
		update_menu_trader(player,player_mem,false)
		
	elseif event_name == "but_blkmkt_trader_period_up" then
		build_menu_objects(player,false)
		
		local trader = player_mem.opened_trader
		
		if trader.n_period < #periods then
			trader.n_period = trader.n_period + 1
			trader.period = periods[trader.n_period]
		end
		
		update_menu_trader(player,player_mem,false)
		
	elseif event_name == "but_blkmkt_trader_evaluate" then
		build_menu_objects(player,false)
		
		evaluate_trader(player_mem.opened_trader)
		update_menu_trader(player,player_mem,false)
		
	elseif event_name == "but_blkmkt_trader_reset" then
		build_menu_objects(player,false)
		
		local trader = player_mem.opened_trader
		
		trader.hour = trader.hour_period
		trader.money_reset = trader.money_tot
		trader.taxes_reset = trader.taxes_tot
		trader.money = 0
		trader.taxes = 0
		trader.money_average = 0
		
		compute_trader_data(trader,false)
		-- update_menu_trader(player,player_mem,false)

	elseif event_name == "but_blkmkt_trader_new" then -- new order
		build_menu_objects(player,false)
		
		local trader = player_mem.opened_trader
		
		if trader.type == trader_type.item then
			if #trader.orders < 99 then
				table.insert(trader.orders,1,{name="coal", count=0, price=global.prices.coal.current})
				update_menu_trader(player,player_mem,true)
			end
		end
	
	elseif event_name == "but_blkmkt_trader_wipe" then -- wipe orders
		build_menu_objects(player,false)
		
		local trader = player_mem.opened_trader
		
		if trader.type == trader_type.item then
			trader.orders = {}
			compute_trader_data(trader,true)
			-- update_menu_trader(player,player_mem,true)
		end
	
	elseif prefix == "but_blkmkt_ord_" then -- del item in orders list
		build_menu_objects(player,false)
		
		local trader = player_mem.opened_trader
		-- debug_print(nix, " ", suffix)
		
		if trader.type == trader_type.item then
			table.remove(trader.orders,nix)
			compute_trader_data(trader,true)
			-- update_menu_trader(player,player_mem,true)
		end

	elseif prefix == "but_blkmkt_ori_" then -- change order's item
		-- debug_print(nix, " ", suffix)
		
		local trader = player_mem.opened_trader
		
		if trader.type ~= trader_type.energy then
			player_mem.order_sel_n = nix
			player_mem.ask_sel = trader_type[trader.type]
			if player_mem.ask_sel == "fluid" then
				player_mem.group_sel_name = "fluids"
			end
			build_menu_objects(player,true,player_mem.ask_sel)
		end
	end
end

script.on_event(defines.events.on_gui_click, on_gui_click)

--------------------------------------------------------------------------------------
local function on_gui_text_changed(event)
	local player = game.players[event.player_index]
	local event_name = event.element.name
	local prefix = string.sub(event_name,1,15)
	local nix = tonumber(string.sub(event_name,16,18))
	local suffix = string.sub(event_name,19)

	-- debug_print( "on_gui_text_changed ", player.name, " ", event_name )
	
	if prefix == "but_blkmkt_orc_" then -- change order count
		local player_mem = global.player_mem[player.index]
		local trader = player_mem.opened_trader
		
		-- debug_print(nix, " ", suffix, " ", trader.orders[nix].count)
		
		local count = tonumber(event.element.text)
		if count ~= nil then
			trader.orders[nix].count = count
			compute_trader_data(trader,false)
			-- update_menu_trader(player,player_mem,false)
		end
	end
end

script.on_event(defines.events.on_gui_text_changed,on_gui_text_changed)

--------------------------------------------------------------------------------------
local interface = {}

function interface.reset()
	debug_print( "reset" )
	
	for _,force in pairs(game.forces) do
		force.reset_recipes()
		force.reset_technologies()
		local force_mem = global.force_mem[force.name]
		force_mem.credits = n
		force_mem.pause = false 
		force_mem.credits = 0
		force_mem.sales = 0
		force_mem.sales_taxes = 0
		force_mem.purchases = 0
		force_mem.purchases_taxes = 0
		force_mem.tax_rate = 0
		force_mem.transactions = {} 
		
		compute_force_data(force_mem)
		
		for _, trader in pairs(force_mem.traders_sell) do
			init_trader(trader,nil)
			compute_trader_data(trader)
		end
		
		for _, trader in pairs(force_mem.traders_buy) do
			init_trader(trader,nil)
			compute_trader_data(trader)
		end
	end

	for _, player in pairs(game.players) do
		if player.gui.top.flw_blkmkt then player.gui.top.flw_blkmkt.destroy() end
		init_player(player)
		local player_mem = global.player_mem[player.index]
		update_menu_gen(player,player_mem)
		update_menu_trader(player,player_mem,false)
	end
end

function interface.prices()
	debug_print( "prices" )
	
	update_techs_costs()
	update_objects_prices_start()
	-- update_groups()
end

function interface.credits(n)
	debug_print( "credits" )
	
	for _,force in pairs(game.forces) do
		local force_mem = global.force_mem[force.name]
		force_mem.credits = n
	end
	
	for _, player in pairs(game.players) do
		update_bar(player)
	end
end

remote.add_interface( "market", interface )

-- /c remote.call( "market", "reset" )
-- /c remote.call( "market", "prices" )
-- /c remote.call( "market", "credits", 1000000 )