-- More information about this indicator can be found at:
-- http://fxcodebase.com/code/viewtopic.php?f=17&t=12728
-- Id: 5747

--+------------------------------------------------------------------+
--|                               Copyright © 2018, Gehtsoft USA LLC |
--|                                            http://fxcodebase.com |
--+------------------------------------------------------------------+
--|                                      Developed by : Mario Jemic  |
--|                                          mario.jemic@gmail.com   |
--+------------------------------------------------------------------+
--|                                 Support our efforts by donating  |
--|                                   Paypal: https://goo.gl/9Rj74e  |
--|                    Patreon : https://www.patreon.com/mariojemic  |
--|                    BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF  |
--|               BitCoin Cash : 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg  |
--|           Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D  |
--|                   LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD  |
--+------------------------------------------------------------------+

function AddParam(id, frame)
	indicator.parameters:addGroup(id .. ". Time Frame")

	indicator.parameters:addBoolean("USE" .. id, "Use this Slot", "", true)

	indicator.parameters:addString("TF" .. id, "Time frame", "", frame)
	indicator.parameters:setFlag("TF" .. id, core.FLAG_PERIODS)

	indicator.parameters:addString("Pair" .. id, "Pair", "", "EUR/USD")
	indicator.parameters:setFlag("Pair" .. id, core.FLAG_INSTRUMENTS)

	indicator.parameters:addInteger("Period" .. id, "Period", "Period", 10)
	indicator.parameters:addString("Type" .. id, "Triger" .. id, "", "Close")
	indicator.parameters:addStringAlternative("Type" .. id, "Close", "", "Close")
	indicator.parameters:addStringAlternative("Type" .. id, "High/Low", "", "High")
end

function Init()
	indicator:name("Multi Time Frame, Multi Currency Pairs Trend Stop")
	indicator:description("")
	indicator:requiredSource(core.Bar)
	indicator:type(core.Indicator)

	indicator.parameters:addGroup("Calculation")
	indicator.parameters:addBoolean("Chart", "Use Chart Price Source", "", true)
	indicator.parameters:addBoolean("ShowValue", "Show value of", "", true)

	AddParam(1, "m1")
	AddParam(2, "m5")
	AddParam(3, "m15")
	AddParam(4, "m30")
	AddParam(5, "H1")
	AddParam(6, "H2")
	AddParam(7, "H3")
	AddParam(8, "H4")
	AddParam(9, "H6")
	AddParam(10, "H8")
	AddParam(11, "D1")
	AddParam(12, "W1")
	AddParam(13, "M1")

	indicator.parameters:addGroup("Style")
	indicator.parameters:addColor("UP", "Color for Up Trend", "", core.rgb(0, 255, 0))
	indicator.parameters:addColor("DN", "Color for Down Trend", "", core.rgb(255, 0, 0))
	indicator.parameters:addColor("NO", "Color for Unclear Trend", "", core.rgb(255, 128, 0))
	indicator.parameters:addColor("Label", "Label Color", "", core.rgb(0, 0, 0))
	indicator.parameters:addDouble("Size", "As % of Cell", "", 90)
end

-- Indicator instance initialization routine
-- Processes indicator parameters and creates output streams
-- TODO: Refine the first period calculation for each of the output streams.
-- TODO: Calculate all constants, create instances all subsequent indicators and load all required libraries
-- Parameters block
local UP, DN, NO
local source = nil
local TF = {}
local Pair = {}
local L = {}
local host
local offset
local weekoffset
local Source = {}
local loading = {}
local Size
local USE = {}
local Count = 13
local Number
local Chart
local Label
local Period = {}
local Type = {}
local TS = {}
local ShowValue

-- Routine
function Prepare(nameOnly)
	Chart = instance.parameters.Chart
	source = instance.source
	UP = instance.parameters.UP
	DN = instance.parameters.DN
	NO = instance.parameters.NO

	ShowValue = instance.parameters.ShowValue

	Label = instance.parameters.Label
	Shift = instance.parameters.Shift
	Size = instance.parameters.Size

	host = core.host
	offset = host:execute("getTradingDayOffset")
	weekoffset = host:execute("getTradingWeekOffset")

	local i
	local name = profile:id() .. "(" .. source:name()

	Number = 0

	for i = 1, Count, 1 do
		USE[i] = instance.parameters:getBoolean("USE" .. i)

		if USE[i] then
			Number = Number + 1
			Type[Number] = instance.parameters:getString("Type" .. i)
			Period[Number] = instance.parameters:getInteger("Period" .. i)

			if Chart then
				Pair[Number] = source:name()
			else
				Pair[Number] = instance.parameters:getString("Pair" .. i)
			end

			TF[Number] = instance.parameters:getString("TF" .. i)

			L[Number] = TF[Number] .. ", " .. Pair[Number]
			name = name .. ", " .. "(" .. TF[Number] .. ", " .. Pair[Number] .. ")"
		end
	end
	name = name .. ")"
	instance:name(name)
	if nameOnly then
		return
	end

	assert(core.indicators:findIndicator("TRENDSTOP") ~= nil, "Please, download and install TRENDSTOP.LUA indicator")

	for i = 1, Number, 1 do
		local Test = core.indicators:create("TRENDSTOP", source, Period[i], Type[i])
		first = Test.DATA:first() + 1

		if (TF[i] == source:barSize() and Pair[i] == source:name()) then
			Source[i] = source
			loading[i] = false
		else
			Source[i] = core.host:execute("getSyncHistory", Pair[i], TF[i], source:isBid(), first, 200 + i, 100 + i)
			loading[i] = true
		end

		TS[i] = core.indicators:create("TRENDSTOP", Source[i], Period[i], Type[i])
	end

	instance:ownerDrawn(true)
end

function Initialization(id, period)
	local Candle
	Candle = core.getcandle(TF[id], source:date(period), offset, weekoffset)

	if loading[id] or SourceData[id]:size() == 0 then
		return false
	end

	if period < source:first() then
		return false
	end

	local p = core.findDate(SourceData[id], Candle, false)

	-- candle is not found
	if p < 0 then
		return false
	else
		return p
	end
end

-- Indicator calculation routine
-- TODO: Add your code for calculation output values
function Update(period)
end

function Draw(stage, context)
	if stage ~= 2 then
		return
	end

	local Flag = false

	for j = 1, Number, 1 do
		if loading[j] then
			Flag = true
		end
	end

	if Flag then
		return
	end

	local xCell = (context:right() - context:left()) / (Number + 1)
	local yCell = (context:bottom() - context:top()) / 15

	for i = 1, Number, 1 do
		TS[i]:update(core.UpdateAll)

		local Color

		if TS[i].DATA[TS[i].DATA:size() - 1] < Source[i].close[Source[i].close:size() - 1] then
			Color = UP
			Style = "\225"
		elseif TS[i].DATA[TS[i].DATA:size() - 1] > Source[i].close[Source[i].close:size() - 1] then
			Color = DN
			Style = "\226"
		else
			Color = NO
			Style = "\223"
		end

		context:createFont(1, "Arial", (xCell / 10) * (Size / 100), yCell * (Size / 100), 0)
		context:createFont(2, "Wingdings", (xCell / 10) * (Size / 100) * 1.77, yCell * (Size / 100), 0)
		context:createFont(3, "Arial", (xCell / 14) * (Size / 100), yCell * (Size / 100), 0)

		width, height = context:measureText(1, tostring(Pair[i]), 0)
		context:drawText(
			1,
			tostring(Pair[i]),
			Label,
			-1,
			context:left() + (i - 1) * xCell,
			context:top() + yCell,
			context:left() + (i - 1) * xCell + width,
			context:top() + yCell + height,
			0
		)

		width, height = context:measureText(1, tostring(TF[i]), 0)
		context:drawText(
			1,
			tostring(TF[i]),
			Label,
			-1,
			context:left() + (i - 1) * xCell,
			context:top() + yCell * 2,
			context:left() + (i - 1) * xCell + width,
			context:top() + yCell * 2 + height,
			0
		)

		width, height = context:measureText(2, Style, 0)
		context:drawText(
			2,
			Style,
			Color,
			-1,
			context:left() + (i - 1) * xCell,
			context:top() + yCell * 3,
			context:left() + (i - 1) * xCell + width,
			context:top() + yCell * 3 + height,
			0
		)

		if ShowValue then
			Text = "TS " .. win32.formatNumber(TS[i].DATA[TS[i].DATA:size() - 1], false, source:getPrecision())
			width, height = context:measureText(3, Text, 0)
			context:drawText(
				3,
				Text,
				Color,
				-1,
				context:left() + (i - 1) * xCell,
				context:top() + yCell * 4,
				context:left() + (i - 1) * xCell + width,
				context:top() + yCell * 4 + height,
				0
			)
		end
	end
end

-- the function is called when the async operation is finished

function AsyncOperationFinished(cookie)
	local j
	local Flag = false
	local Count = 0

	for j = 1, Number, 1 do
		if cookie == (100 + j) then
			loading[j] = true
		elseif cookie == (200 + j) then
			loading[j] = false
			instance:updateFrom(0)
		end

		if loading[j] then
			Count = Count + 1
			Flag = true
		end
	end

	if Flag then
		core.host:execute("setStatus", " Loading " .. (Number - Count) .. "/" .. Number)
	else
		core.host:execute("setStatus", " Loaded " .. (Number - Count) .. "/" .. Number)
	end

	return core.ASYNC_REDRAW
end