-- More information about this indicator can be found at:
-- http://fxcodebase.com

--+------------------------------------------------------------------------------------------------+
--|                                                            Copyright © 2021, Gehtsoft USA LLC  | 
--|                                                                         http://fxcodebase.com  |
--+------------------------------------------------------------------------------------------------+
--|                                                              Support our efforts by donating   | 
--|                                                                 Paypal: https://goo.gl/9Rj74e  |
--+------------------------------------------------------------------------------------------------+
--|                                                                   Developed by : Mario Jemic   |                    
--|                                                                       mario.jemic@gmail.com    |
--|                                                        https://AppliedMachineLearning.systems  |
--|                                                             Patreon :  https://goo.gl/GdXWeN   |  
--+------------------------------------------------------------------------------------------------+

--+------------------------------------------------------------------------------------------------+
--|SOL Address            : 4tJXw7JfwF3KUPSzrTm1CoVq6Xu4hYd1vLk3VF2mjMYh                           |
--|Cardano/ADA            : addr1v868jza77crzdc87khzpppecmhmrg224qyumud6utqf6f4s99fvqv             |  
--|Dogecoin Address       : DBGXP1Nc18ZusSRNsj49oMEYFQgAvgBVA8                                     |
--|SHIB Address           : 0x1817D9ebb000025609Bf5D61E269C64DC84DA735                             |                                
--+------------------------------------------------------------------------------------------------+

function Init()
    indicator:name("Simplified MTF MCP BB View")
    indicator:description("Simplified MTF MCP BB View")
    indicator:requiredSource(core.Bar)
    indicator:type(core.View)

    indicator.parameters:addGroup("Calculation")
    indicator.parameters:addString("Type", "Currency pair Selector", "Currency pair Selector", "Multiple currency pair")
    indicator.parameters:addStringAlternative(
        "Type",
        "Multiple currency pair",
        "Multiple currency pair",
        "Multiple currency pair"
    )
    indicator.parameters:addStringAlternative("Type", "All currency pair", "All currency pair", "AllCurrencyPair")
 
    indicator.parameters:addInteger("InstrumentType", "Instrument Type", "Instrument Type", 0)
    indicator.parameters:addIntegerAlternative("InstrumentType","All","",0)
    indicator.parameters:addIntegerAlternative("InstrumentType","Forex","",1)
    indicator.parameters:addIntegerAlternative("InstrumentType","Indices","",2)
    indicator.parameters:addIntegerAlternative("InstrumentType","Commodity","",3)
    indicator.parameters:addIntegerAlternative("InstrumentType","Treasury","",4)
    indicator.parameters:addIntegerAlternative("InstrumentType","Bullion","",5)
    indicator.parameters:addIntegerAlternative("InstrumentType","Shares","",6)
    indicator.parameters:addIntegerAlternative("InstrumentType","FXIndex","",7)	
    indicator.parameters:addIntegerAlternative("InstrumentType","CFD Shares","",8)
    indicator.parameters:addIntegerAlternative("InstrumentType","Crypto","",9)	

    indicator.parameters:addBoolean("Reversal" , "Reversal Only", "", false)	
    indicator.parameters:addBoolean("Skip" , "Skip Instruments without Indication", "", false)	
    indicator.parameters:addBoolean("CutOff" , "CutOff", "", false)		
	indicator.parameters:addDouble("CutOffValue", "CutOff Value", "", 5);
	indicator.parameters:addInteger("Period", "Period", "", 20); 
    indicator.parameters:addDouble("Deviation", "Deviation", "", 2);

    indicator.parameters:addBoolean("bidask", "Bid/ask", "", false)
    indicator.parameters:setFlag("bidask", core.FLAG_BIDASK)

    for i = 1, 20, 1 do
        indicator.parameters:addGroup(i .. ". Currency Pair ")
        Add(i)
    end

    indicator.parameters:addGroup("Time Frame Selector")
    AddTimeFrame(1, "m1", true)
    AddTimeFrame(2, "m5", true)
    AddTimeFrame(3, "m15", true)
    AddTimeFrame(4, "m30", true)
    AddTimeFrame(5, "H1", true)
    AddTimeFrame(6, "H2", true)
    AddTimeFrame(7, "H3", true)
    AddTimeFrame(8, "H4", true)
    AddTimeFrame(9, "H6", true)
    AddTimeFrame(10, "H8", true)
    AddTimeFrame(11, "D1", true)
    AddTimeFrame(12, "W1", true)
    AddTimeFrame(13, "M1", true)

    indicator.parameters:addGroup("Style")
    indicator.parameters:addColor("Color", "Label Color", "Label Color", core.COLOR_LABEL )
    indicator.parameters:addColor("Up", "OB Color", "", core.rgb(0, 255, 0))
    indicator.parameters:addColor("Down", "OS Color", "", core.rgb(255, 0, 0))
    indicator.parameters:addColor("Neutral", "Neutral Color", "", core.rgb(128, 128, 128))
 

    indicator.parameters:addInteger("Size", "Font Size (As % of Cell)", "", 70, 0, 100)


end

function AddTimeFrame(id, FRAME, DEFAULT)
    indicator.parameters:addBoolean("Use" .. id, "Show " .. FRAME, "", DEFAULT)
end



function Add(id)
    local Init = {
        "EUR/USD",
        "USD/JPY",
        "GBP/USD",
        "USD/CHF",
        "EUR/CHF",
        "AUD/USD",
        "USD/CAD",
        "NZD/USD",
        "EUR/GBP",
        "EUR/JPY",
        "GBP/JPY",
        "CHF/JPY",
        "GBP/CHF",
        "EUR/AUD",
        "EUR/CAD",
        "AUD/CAD",
        "AUD/JPY",
        "CAD/JPY",
        "NZD/JPY",
        "GBP/CAD"
    }

    if id <= 5 then
        indicator.parameters:addBoolean("Dodaj" .. id, "Use This Slot", "", true)
    else
        indicator.parameters:addBoolean("Dodaj" .. id, "Use This Slot", "", false)
    end
    indicator.parameters:addString("Pair" .. id, "Pair", "", Init[id])
    indicator.parameters:setFlag("Pair" .. id, core.FLAG_INSTRUMENTS)
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 iTF = {"m1", "m5", "m15", "m30", "H1", "H2", "H3", "H4", "H6", "H8", "D1", "W1", "M1"}
local TF = {}
 
local pauto = "(%a%a%a)/(%a%a%a)"
local Color
local Source = {}
local Size
local transparency
local loading = {}
local source
local Pair = {}
local Count
local Type
local Dodaj = {}
local Point = {}
local Use = {}
local Num
local ShowCells
local Up, Down, Neutral
local Skip;
local Indicator = {} 
local Period , Deviation; 
local InstrumentType;
local HISTORY_LOADING_ID = 1000
local Reversal;
local Delta={};
local Value1={};
local Value2={};
local ShowTheLabel={}; 
local wcount={}; 
local CountOf;
local CutOff;
local CutOffValue;
-- Routine
function Prepare(nameOnly)

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

    if (nameOnly) then
        return
    end
    
	InstrumentType= instance.parameters.InstrumentType;
	Reversal= instance.parameters.Reversal
    
    Color = instance.parameters.Color
    Size = instance.parameters.Size
 
    Type = instance.parameters.Type
    Up = instance.parameters.Up
    Down = instance.parameters.Down
    Neutral = instance.parameters.Neutral 
	
	Period= instance.parameters.Period;
	Deviation= instance.parameters.Deviation;
	
	Skip= instance.parameters.Skip;
	CutOff= instance.parameters.CutOff;
	CutOffValue= instance.parameters.CutOffValue;
 
    Pair={};
	wcount={};
    Delta={};
    Value1={};
    Value2={};
    ShowTheLabel={}; 	
	
    if Type == "Multiple currency pair" then
        Count = 0
        for i = 1, 20, 1 do
            Dodaj[i] = instance.parameters:getBoolean("Dodaj" .. i)
            if Dodaj[i] 
			and (core.host:findTable("offers"):find("Instrument",instance.parameters:getString("Pair" .. i)).InstrumentType == InstrumentType or InstrumentType== 0 )
			then
                Count = Count + 1
                Pair[Count] = instance.parameters:getString("Pair" .. i)
                Point[Count] = core.host:findTable("offers"):find("Instrument", Pair[Count]).PointSize
            end
        end
    elseif Type == "AllCurrencyPair" then
        Pair, Count, Point = getInstrumentList()
    end

    Num = 0
    for i = 1, 13, 1 do
        Use[i] = instance.parameters:getBoolean("Use" .. i)

        if Use[i] then
            Num = Num + 1
            TF[Num] = iTF[i]
        end
    end

    local ID = 0
  
        for i = 1, Count, 1 do
            Source[i] = {}
            loading[i] = {}
            Indicator[i] = {}
			Delta[i]={};
			Value1[i]={};
			Value2[i]={};
			ShowTheLabel[i]={};  
 		

            for j = 1, Num, 1 do
                ID = ID + 1
                Source[i][j] =
                    core.host:execute(
                    "getHistory",
                    HISTORY_LOADING_ID + ID,
                    Pair[i],
                    TF[j],
                    0,
                    0,
                    instance.parameters.bidask
                )
                loading[i][j] = true
                Indicator[i][j] =core.indicators:create("BB", Source[i][j].close, Period, Deviation)
            end
        end
 

    instance:ownerDrawn(true)
    core.host:execute("subscribeTradeEvents", 999, "offers")
    instance:initView("Simplified MTF MCP BB View", 0, 1, instance.parameters.bidask, true)

    open = instance:addStream("open", core.Dot, "open", "open", 0, 0, 0)
    open:setVisible(false)
	
	    core.host:execute ("setTimer", 1, 5);
end

function getInstrumentList()
    local list = {}
    local point = {}

    local count = 0
    local row, enum

    enum = core.host:findTable("offers"):enumerator()
    row = enum:next()
    while row ~= nil do
	    if  row.InstrumentType == InstrumentType or InstrumentType== 0 then
        count = count + 1
        list[count] = row.Instrument
        point[count] = row.PointSize
		end
        row = enum:next()
    end

    return list, count, point
end

function ReleaseInstance()
core.host:execute ("killTimer", 1);
end 

-- the function is called when the async operation is finished
function AsyncOperationFinished(cookie, success, message, message1, message2)

    if cookie >= HISTORY_LOADING_ID then
        local i
        local ID = 0

        for i = 1, Count, 1 do
            for j = 1, Num, 1 do
                ID = ID + 1
                if cookie == (HISTORY_LOADING_ID + ID) then
                    loading[i][j] = false
                end
            end
        end

        local FLAG = false
        local Number = 0

        for i = 1, Count, 1 do
            for j = 1, Num, 1 do
                if loading[i][j] then
                    FLAG = true
                    Number = Number + 1
					
                end
            end
        end

        if FLAG then
            core.host:execute("setStatus", "Loading " .. (Count * Num - Number) .. " / " .. Count * Num)
        else
		
		      
            core.host:execute("setStatus", "Loaded") 
            instance:addViewBar(Source[1][1]:date(Source[1][1]:size() - 1 )) 
			Logic();
        end

        return core.ASYNC_REDRAW
    end
	if cookie == 999 or cookie == 1 then
        local Loading = false
        for i = 1, Count, 1 do
            for j = 1, Num, 1 do
                if loading[i][j] then
                    Loading = true 
               
                end
            end
        end
		
		if not Loading then
	         Logic();
			 instance:updateFrom(0);
			  		return core.ASYNC_REDRAW ;
		end
		end
end


function Logic()
	 CountOf=0;
 
		    for i = 1, Count, 1 do
			wcount[i] =0;
			 
            for j = 1, Num, 1 do
			
			
		Indicator[i][j]:update(core.UpdateLast)
		ShowTheLabel[i][j]=0; 	
		 
						   if  Indicator[i][j].TL:hasData(Indicator[i][j].TL:size() - 1)  
						   and Indicator[i][j].BL:hasData(Indicator[i][j].BL:size() - 1)
						   then
	   
							 Value1[i][j] = (Source[i][j].close[Source[i][j].close:size()-1] -Indicator[i][j].BL[Indicator[i][j].BL:size() - 1]) /
							 ( (Indicator[i][j].TL[Indicator[i][j].TL:size() - 1]-Indicator[i][j].BL[Indicator[i][j].BL:size() - 1])/100)
								
								 Value2[i][j] = (Source[i][j].close[Source[i][j].close:size()-2] -Indicator[i][j].BL[Indicator[i][j].BL:size() - 2]) /
							 ( (Indicator[i][j].TL[Indicator[i][j].TL:size() - 2]-Indicator[i][j].BL[Indicator[i][j].BL:size() - 2])/100) 
	 

	  
							Delta[i][j]=Value1[i][j]-Value2[i][j]; 
							
									
								 if Reversal  or CutOff then
								 
								 ShowTheLabel[i][j]=1; 
							     wcount[i] = wcount[i]+1;
									  
									  
								      if Reversal  and  ShowTheLabel[i][j] > 0  then
                                 
										  if   ((Value1[i][j] > 0 and Value1[i][j] < 100) 
										  or (Value1[i][j] <0 and Delta[i][j] < 0)
										  or (Value1[i][j] >100 and Delta[i][j] > 0)   
										  )										  
										  then
										      ShowTheLabel[i][j]=0; 
										        wcount[i] = wcount[i]-1;  
											  
										   end	
									end	   
										   if CutOff  and  ShowTheLabel[i][j] > 0  and  (math.abs(Delta[i][j]) <= CutOffValue  )  then
										      ShowTheLabel[i][j]=0; 
										        wcount[i] = wcount[i]-1;  
											  
										   end			
										   
                                 
								  else
									         ShowTheLabel[i][j]=1; 
										 
											  wcount[i] = wcount[i]+1;
											    
								  end
									
						
							end
				if j == Num then
					if wcount[i] >0 then
					CountOf=CountOf+1;
					end
                end				
		end
		end
end

local top, bottom
local left, right
local xGap
local yGap
local w;
-- Indicator calculation routine
-- TODO: Add your code for calculation output values
function Update(period, mode)
    --shoudn't be called
end

local init= false;

function Draw(stage, context)
    if stage ~= 2 then
        return
    end
    
   local Return=false;
   
    for i = 1, Count, 1 do
        for j = 1, Num, 1 do
            if loading[i][j] then
                Return=true;
            end
        end
    end
 
    if Return then
	  return;
	end
	
    if not init then
	context:createPen (1, context.SOLID, 3, Up)
	context:createPen (2, context.SOLID, 3, Down)
	context:createPen (3, context.SOLID, 3, Neutral)
	init= true;
	end
 

    top, bottom = context:top(), context:bottom()
    left, right = context:left(), context:right()

    xGap = (right - left) / (Num + 1)
	
	if    Skip   then	
	yGap = (bottom - top) / (CountOf + 1)
	else
    yGap = (bottom - top) / (Count + 1)
	end

    if xGap > 250 then
        xGap = 250
    end
    
	
	w=0;		
    for i = 1, Count, 1 do	

        for j = 1, Num, 1 do  
		
            Calculate(context, i, j)
        end
    end
end
function Calculate(context, i, j)


    if   (   j == 1 and wcount[i]  == 0 and Skip )  then
		w=w+1;
		 
    end 
	

 
    y1 = bottom - (i-w + 1) * yGap
    y2 = bottom - (i-w) * yGap
    y0 = y1 + yGap * 3 / 2 

    x1 = right - (j + 1) * xGap
    x2 = right - (j) * xGap

    iwidth = ((xGap / 7) / 100) * Size
    iheight = (yGap / 100) * Size

    context:createFont(7, "Arial", iwidth, iheight, 0)
 

    if i == Count then
        width, height = context:measureText(7, TF[j], 0)
        context:drawText(7, TF[j], Color, -1, x1+xGap  , y1 , x2+xGap  , y2 , context.CENTER)
    end
	 
     if (   wcount[i]  > 0 and Skip  ) then
		if j == Num then
			width, height = context:measureText(7, Pair[i], context.CENTER)
			context:drawText(7, Pair[i], Color, -1, x1, y0 - height / 2, x2, y0 + height / 2, context.CENTER, 0)
		end
     elseif  not Skip   then 
		if j == Num	 then
			width, height = context:measureText(7, Pair[i], context.CENTER)
			context:drawText(7, Pair[i], Color, -1, x1, y0 - height / 2, x2, y0 + height / 2, context.CENTER, 0)
		end
    end 
 
   if Delta[i][j]== nil or  Value1[i][j]== nil then
   return;
   end
   
	
   if ShowTheLabel[i][j] == 1 then
                        local ShortDelta = string.format("%." .. 2 .. "f", Delta[i][j])  
      
					 width, height = context:measureText(7, ShortDelta, 0)
							
					if Delta[i][j] >0    then 
					   context:drawText(7, ShortDelta, Up, -1, x1 + xGap, y1 +yGap*10/9    , x2 + xGap, y1 +yGap*10/9 +height  , context.CENTER)	
					elseif Delta[i][j]  <0   then	
					   context:drawText(7, ShortDelta, Down, -1, x1 + xGap, y1 +yGap*10/9     , x2 + xGap,  y1 +yGap*10/9 +height    , context.CENTER)  	
					else
					   context:drawText(7, ShortDelta, Neutral, -1, x1 + xGap,y1 +yGap*10/9   , x2 + xGap, y1 +yGap*10/9 +height  , context.CENTER)  	
					end	
					
					if Value1[i][j]  > 100 then
					context:drawRectangle (1, -1, x1 + xGap+3, y1 +yGap*10/9    , x2 + xGap-3, y1 +yGap*10/9 +height   )
					elseif Value1[i][j]  < 0   then
					context:drawRectangle (2, -1,x1 + xGap+3, y1 +yGap*10/9    , x2 + xGap-3, y1 +yGap*10/9 +height   )
					else
					context:drawRectangle (3, -1,x1 + xGap+3, y1 +yGap*10/9    , x2 + xGap-3, y1 +yGap*10/9 +height   )
					end
			 
	end
end