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

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


-- Indicator profile initialization routine
-- Defines indicator profile properties and indicator parameters
-- TODO: Add minimal and maximal value of numeric parameters and default color of the streams
function Init()
    indicator:name("Price Action Indicator");
    indicator:description("");
    indicator:requiredSource(core.Bar);
    indicator:type(core.Oscillator);

    indicator.parameters:addGroup("Selector");
    Add(1, "m1"); 
    Add(2, "m5"); 
    Add(3, "m15"); 
    Add(4, "m30"); 
    Add(5, "H1"); 
    Add(6, "H2"); 
    Add(7, "H3"); 
    Add(8, "H4" ); 
    Add(9, "H6" ); 
    Add(10, "H8"); 
    Add(11, "D1"); 
    Add(12, "W1"); 
    Add(13, "M1");
    Add(14, "W6"); 
    Add(15, "M12");
    
    indicator.parameters:addGroup("Style");
       indicator.parameters:addColor("Label_Color", "Label Color", "", core.COLOR_LABEL);  
       indicator.parameters:addColor("Background_Color", "Background Color", "", core.COLOR_BACKGROUND );  
    indicator.parameters:addDouble("XSize", "X Font Size (%)","",5, 0, 100);
    indicator.parameters:addDouble("YSize", "Y Font Size (%)","",50, 0, 100)
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

 function Add(id, TF)
   
 
    indicator.parameters:addBoolean("On".. id , "Show " .. TF , "",true);      
end    

local first;
local source = nil;
 
local Count=0;
local iLabel={"m1", "m15","m30", "H1","H2", "H3","H4", "H6", "H8","D1", "W1", "M1","M6", "M12" };
local XLabel = {"Change", "Low", "High", "Change, pips"};
local Label={};
local Source={};
local loading={};
local Label_Color;
local Background_Color;
local XSize,YSize;
local Data1={0,0,0,0,0,0,0,0,0,0,0,0,0,0};
local Data2={0,0,0,0,0,0,0,0,0,0,0,0,0,0};
local Data3={0,0,0,0,0,0,0,0,0,0,0,0,0,0};
local Data4 = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};

local iData= {1,1 ,1 ,2,2,2,2,2,2,3,3,4,4,4};
local iShift={1,15,30,1,2,3,4,6,8,1,7,1,6,12};

local X1=(1/24)/60;
local X2=1/24;
local iTime={X1,X1,X1,X2,X2,X2,X2,X2,X2,1,1,30,30,30}


local Data={};
local Shift={};
local Time={};


local TF={"m1", "H1", "D1", "M1"  };
local FIRST={30, 8,  7, 12  }; 

-- Routine
function Prepare(name_only)
    Label_Color=instance.parameters.Label_Color; 
    Background_Color=instance.parameters.Background_Color;
    XSize=instance.parameters.XSize/100;
    YSize=instance.parameters.YSize/100;
    source = instance.source;
    first=source:first();
    
    local name = profile:id() .. "(" .. source:name() .. ")";
    instance:name(name);
    if (name_only) then
        return;
    end
    
    Number=0;
    for i = 1, 14, 1 do
        if  instance.parameters:getBoolean("On" .. i)  then
            Number=Number+1;
            Label[Number]=iLabel[i];
            Data[Number]=iData[i];
            Shift[Number]=iShift[i];
            Time[Number]=iTime[i];
        end
    end
      
    for k= 1, 4, 1  do
        Source[k]  = core.host:execute("getSyncHistory",  source:instrument(),  TF[k], source:isBid(), math.min(300,FIRST[k]), 2000 + k , 1000 +k);          
        loading[k]  = true;       
    end
      
    instance:ownerDrawn(true);
    core.host:execute ("setTimer", 1, 1);
end

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

-- the function is called when the async operation is finished
function AsyncOperationFinished(cookie)

local k;
local FLAG=false; 
local Num=0;

    for k = 1, 4, 1 do
              
              if cookie == (1000 + k) then
              loading[k]  = true;
              elseif  cookie == (2000 + k ) then
              loading[k]  = false;         
              end
         
               
                 if loading[k] then
                 FLAG= true;
                 Num=Num+1;
                 end
    end    
     

    if not FLAG and cookie== 1 then
        Data1={0,0,0,0,0,0,0,0,0,0,0,0,0,0};
        Data2={0,0,0,0,0,0,0,0,0,0,0,0,0,0};
        Data3={0,0,0,0,0,0,0,0,0,0,0,0,0,0};
        Data4 = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
        local Current =source.close[source.close:size()-1];
        local p;
        for i= 1, Number, 1 do
            p= core.findDate (Source[Data[i]], core.now() , false);
            if p~=-1 then
                Data1[i] = (Current - Source[Data[i]].open[p]) / (Source[Data[i]].open[p] / 100);
                Data4[i] = (Current - Source[Data[i]].open[p]) / source:pipSize();
                min,max=mathex.minmax(Source[Data[i]], p,  Source[Data[i]]:size()-1);
                                
                Data2[i] = min;
                Data3[i] = max;
                
                Data1[i]=win32.formatNumber(Data1[i], false, 2);
                Data2[i]=win32.formatNumber(Data2[i], false, source:getPrecision());
                Data3[i]=win32.formatNumber(Data3[i], false, source:getPrecision());
                Data4[i] = win32.formatNumber(Data4[i], false, 1);
            else
                Data1[i]="";
                Data2[i]="";
                Data3[i]="";
                Data4[i] = "";
            end
        end
    end
    
    if FLAG then
     core.host:execute ("setStatus", "  Loading "..((4) - Num) .. " / " .. (4) );     
    else
    core.host:execute ("setStatus", "Loaded");
      instance:updateFrom(0);
    end
    
    return core.ASYNC_REDRAW ;
end

-- Indicator calculation routine
-- TODO: Add your code for calculation output values
 
function Update(period)   
end
 
local init = false;
 
function Draw(stage, context)
    context:setClipRectangle(context:left(), context:top(), context:right(), context:bottom());
    context:drawRectangle (-1, 2, context:left(), context:top(), context:right(), context:bottom());
    if stage~= 2 then
        return;
    end
      
    local k;
    local FLAG=false; 
    for j = 1, 4, 1 do 
        if loading[j] then
            FLAG= true; 
        end
    end   

    if FLAG then
        return;
    end
    if not init then
        context:createSolidBrush (2, Background_Color)
        init = true;
    end
      
    local YCellSize = (context:bottom() - context:top()) / (Number + 3); 
    local XCellSize = (context:right() - context:left()) / 5; 
    context:createFont (1, "Arial", context:pointsToPixels (XCellSize*XSize), context:pointsToPixels (YCellSize*YSize), 0);
    for i= 1, Number, 1 do  
        Text=Label[i];
        
        width, height = context:measureText (1, Text, 0);
        context:drawText (1,  Text, Label_Color, -1,  context:left() ,  context:top()+YCellSize*2+(i-1)*YCellSize ,context:left() + width,context:top()+YCellSize*2+(i-1)*YCellSize+height, 0 );    
        for j = 1, 4, 1 do
            if i == 1 then 
                width, height = context:measureText (1, XLabel[j], 0);
                context:drawText (1,  XLabel[j], Label_Color, -1,  context:left()+XCellSize+(j-1)*XCellSize ,  context:top()+YCellSize ,context:left()+XCellSize+(j-1)*XCellSize + width,context:top()+YCellSize+height, 0 );           
            end
            if j == 1 then 
                Text = Data1[i];
                width, height = context:measureText (1, Text, 0);
                context:drawText (1,  Text, Label_Color, -1,  context:left()+XCellSize+(j-1)*XCellSize , context:top()+YCellSize*2+(i-1)*YCellSize ,context:left()+XCellSize+(j-1)*XCellSize + width,context:top()+YCellSize*2+(i-1)*YCellSize+height, 0 );    
            end
            if j == 2 then 
                Text=Data2[i];
                width, height = context:measureText (1, Text, 0);
                context:drawText (1,  Text, Label_Color, -1,  context:left()+XCellSize+(j-1)*XCellSize , context:top()+YCellSize*2+(i-1)*YCellSize ,context:left()+XCellSize+(j-1)*XCellSize + width,context:top()+YCellSize*2+(i-1)*YCellSize+height, 0 );    
            end
            if j == 3 then 
                Text=Data3[i];
                width, height = context:measureText (1, Text, 0);
                context:drawText (1,  Text, Label_Color, -1,  context:left()+XCellSize+(j-1)*XCellSize , context:top()+YCellSize*2+(i-1)*YCellSize ,context:left()+XCellSize+(j-1)*XCellSize + width,context:top()+YCellSize*2+(i-1)*YCellSize+height, 0 );    
            end
            if j == 4 then 
                Text = Data4[i];
                width, height = context:measureText(1, Text, 0);
                context:drawText(1, Text, Label_Color, -1, context:left() + XCellSize + (j - 1) * XCellSize, context:top() + YCellSize * 2 + (i - 1) * YCellSize, context:left() + XCellSize + (j - 1) * XCellSize + width, context:top() + YCellSize * 2 + (i - 1) * YCellSize + height, 0);
            end
        end
    end
end