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

--+------------------------------------------------------------------+
--|                               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 |
--|                    BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF  |  
--|                BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg  | 
--|           Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D  |  
--|                   LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD  |  
--+------------------------------------------------------------------+

function Init()
    indicator:name("Multi Time Frame, Multi Currency Pairs DMI");
    indicator:description("");
    indicator:requiredSource(core.Bar);
    indicator:type(core.Oscillator);	   
	
	 indicator.parameters:addBoolean("Lock", "Lock", "", false);
	 
	 indicator.parameters:addString("Type", "Lock Type", "", "Frame");
    indicator.parameters:addStringAlternative("Type", "Time Frame", "", "Frame");
    indicator.parameters:addStringAlternative("Type", "Instrument", "", "Instrument");
   
	
	Parameters (1 , "m30");
	Parameters (2 , "H1" );
	Parameters (3 , "H4" );
	Parameters (4 , "H8" );
	Parameters (5 , "D1"  );
	
		indicator.parameters:addGroup("Common Parameters");	
	 indicator.parameters:addInteger("Position", "Vertical Position", "", 0, 0 , 500);
	  indicator.parameters:addInteger("Size", "Font Size", "", 10, 0 , 100);
	 
	  indicator.parameters:addString("Style", "Display Mode", "", "Simple");
    indicator.parameters:addStringAlternative("Style", "Simple", "", "Simple");
    indicator.parameters:addStringAlternative("Style", "Advanced", "", "Advanced");
	
	indicator.parameters:addGroup("Style");
    indicator.parameters:addColor("UP", "Up colo", "", core.rgb(0, 255, 0));
    indicator.parameters:addColor("DN", "Down color", "", core.rgb(255, 0, 0));	
    indicator.parameters:addColor("NE", "Neutral color", "", core.rgb(255, 0, 0));		
    indicator.parameters:addColor("LABEL", "Label color", "", core.COLOR_LABEL);
end


function Parameters (id , FRAME , DEFAULT )
    indicator.parameters:addGroup(id ..". DMI Calculation");
	indicator.parameters:addBoolean("ON"..id, "Use This TimeFrame", "", true);
    indicator.parameters:addInteger("N"..id, "Periods", "", 14);
	
	indicator.parameters:addString("INSTRUMENT"..id, "Instrumet", "", "");
    indicator.parameters:setFlag("INSTRUMENT"..id, core.FLAG_INSTRUMENTS );
   
    indicator.parameters:addString("B"..id, "Time frame", "", FRAME);
    indicator.parameters:setFlag("B"..id, core.FLAG_PERIODS);
end


local Lock;
local Type;

local source;
local DMI={};
local day_offset, week_offset;
 local loading={};
local stream={};
local host;
local first;

local INSTRUMENT={};
local Label={};
local FRAME={};
local  FrameLabel={};

local ON={};
local Position;
local font1;
local font2;
local COUNT=0;
local LABEL;
local Size;
local Style;

local PERIOD={};
local Number;


 function Prepare(nameOnly)   
 
    local name = profile:id() .. "(" ..  instance.source:name()  .. ")";
    instance:name(name); 


    if   (nameOnly) then
        return;
    end

	
    Size=instance.parameters.Size;
    Style=instance.parameters.Style;
    LABEL=instance.parameters.LABEL;
    Position=instance.parameters.Position;  
    Lock=instance.parameters.Lock;
	Type=instance.parameters.Type;
    source = instance.source;
	first= source:first();
    host = core.host;	
	 
    
	
	local i;
   
	
	for i = 1 , 5 , 1 do    
	
	
	   ON[i]=instance.parameters:getBoolean ("ON"..i)
	   
	   if ON[i] then
				   COUNT= COUNT+1;
				   
				   
				   PERIOD[COUNT]= instance.parameters:getInteger ("N"..i);
				   
					 if instance.parameters:getString ("INSTRUMENT"..i) == "" then
					  INSTRUMENT[COUNT]= source:instrument();
				  else
				  INSTRUMENT[COUNT] = instance.parameters:getString ("INSTRUMENT"..i);
				  end
				
				   if Lock and  Type=="Instrument" then
				   INSTRUMENT[COUNT] = INSTRUMENT[1];
				   else
				   INSTRUMENT[COUNT] = INSTRUMENT[COUNT];
				   end
				   
					if Lock and  Type=="Instrument" and i ~= 1 then
					Label[COUNT]="";		  
					else
					 Label[COUNT]=INSTRUMENT[COUNT];
					end

						
				  
				   FRAME[COUNT]=  instance.parameters:getString ("B"..i);
				  
				  if Lock and  Type=="Frame" then
				  FRAME[COUNT]	= FRAME[1];		   
				  end
				  
				   if Lock and  Type=="Frame" and i ~= 1 then
					FrameLabel[COUNT]="";		  
					else
					 FrameLabel[COUNT]=FRAME[COUNT];
					end 	
				 
	   
	   
	   
	   end
	
	 
	  
       
	end	
	
 
	
	font2= core.host:execute("createFont", "Wingdings", Size, false, false);
	 font1 = core.host:execute("createFont", "Arial", Size, false, false);
	 font3 = core.host:execute("createFont", "Arial", Size*3, true, true);

	
    day_offset = host:execute("getTradingDayOffset");
    week_offset = host:execute("getTradingWeekOffset"); 
 
            for i = 1, COUNT, 1  do				  
			stream[i]  = core.host:execute("getSyncHistory", INSTRUMENT[i], FRAME[i], source:isBid(),math.min(300, PERIOD[i]*2), 2000 + i , 1000 +i);	 	 
			loading[i]  = true;  
			DMI[i] = core.indicators:create("DMI", stream[i], PERIOD[i]);
			end
			
			Number=COUNT;
			
			core.host:execute ("setTimer", 1, 1);
end


function Update(period, mode)


 if   period < source:size()-1 then
 return;
 end
 
	local id= 1;

	for i = 1, COUNT, 1  do

				 
				if DMI[i].DATA:hasData(DMI[i].DATA:size()-1)  and DMI[i].DATA:hasData(DMI[i].DATA:size()-2)then					

			 	
                  													
						           
								   local Color1, Color2;
								   if DMI[i].DIP[DMI[i].DIP:size()-1] > DMI[i].DIP[DMI[i].DIP:size()-2] then
								    Color1 = 	 instance.parameters.UP;
									
					                elseif DMI[i].DIP[DMI[i].DIP:size()-1] < DMI[i].DIP[DMI[i].DIP:size()-2] then
									Color1 = 	 instance.parameters.DN	;
                                   								
						 			else
									Color1 = 	 instance.parameters.NE	;	
							  								   
								   end 		
								   
								    if DMI[i].DIM[DMI[i].DIM:size()-1] > DMI[i].DIM[DMI[i].DIM:size()-2] then
								    Color2 = 	 instance.parameters.UP;
									
					                elseif DMI[i].DIM[DMI[i].DIM:size()-1] < DMI[i].DIM[DMI[i].DIM:size()-2] then
									Color2 = 	 instance.parameters.DN	;
                                   								
						 			else
									Color2 = 	 instance.parameters.NE	;	
							  								   
								   end 	
								   
								   local Symbol;
								   
								   if DMI[i].DIP[DMI[i].DIP:size()-1] > DMI[i].DIM[DMI[i].DIM:size()-1] then
								   Symbol= "+"
								   else
								   Symbol= "-"
								   end
								   
								    
									

								
								   
								      core.host:execute("drawLabel1", id, -Size*5*i, core.CR_BOTTOM , Size+ Position+  Size,core.CR_LEFT  , core.H_Right , core.H_Center, font1, LABEL, FrameLabel[i] );
								   id = id + 1;
								   
								     core.host:execute("drawLabel1", id, -Size*5*i, core.CR_BOTTOM ,  Size+Position+ Size*2,core.CR_LEFT  , core.H_Right , core.H_Center, font1, LABEL, Label[i] );
								   id = id + 1;
								   
								  
									
                                 if Style == "Simple" then
								    if Symbol== "+" then
								       core.host:execute("drawLabel1", id, -Size*5*i , core.CR_BOTTOM ,  Size+Position+ Size*3,core.CR_LEFT  , core.H_Right , core.H_Center, font3, Color1, Symbol );
								      id = id + 1;
									 else 
									  
									   core.host:execute("drawLabel1", id, -Size*5*i , core.CR_BOTTOM ,  Size+Position+ Size*3,core.CR_LEFT  , core.H_Right , core.H_Center, font3, Color2, Symbol );
								      id = id + 1;
								     end
                                 else
								    
									if Symbol== "+" then
																   
											core.host:execute("drawLabel1", id, -Size*5*i, core.CR_BOTTOM , Size+Position+ Size*3,core.CR_LEFT  , core.H_Right , core.H_Center, font1, Color1,tostring( "DIP ".. round(DMI[i].DIP[DMI[i].DIP:size()-1], 4)) );
																													
										   id = id + 1;
										   						   
											core.host:execute("drawLabel1", id, -Size*5*i, core.CR_BOTTOM , Size+Position+ Size*4,core.CR_LEFT  , core.H_Right , core.H_Center, font1, Color2,tostring( "DIM ".. round(DMI[i].DIM[DMI[i].DIM:size()-1], 4)) );
																													
										   id = id + 1;
										   
									else	   
									     
										  core.host:execute("drawLabel1", id, -Size*5*i, core.CR_BOTTOM , Size+Position+ Size*3,core.CR_LEFT  , core.H_Right , core.H_Center, font1, Color2,tostring( "DIM ".. round(DMI[i].DIM[DMI[i].DIM:size()-1], 4)) );
																													
										   id = id + 1;
										   						   
											core.host:execute("drawLabel1", id, -Size*5*i, core.CR_BOTTOM , Size+Position+ Size*4,core.CR_LEFT  , core.H_Right , core.H_Center, font1, Color1,tostring( "DIP ".. round(DMI[i].DIP[DMI[i].DIP:size()-1], 4)) );
																													
										   id = id + 1;
								   
								    end  								 
							end		

				end
			 
		
	end
	 
	  
	 

end
 
function round(num, idp)
  if idp and idp>0 then
    local mult = 10^idp
    return math.floor(num * mult + 0.5) / mult
  end
  return math.floor(num + 0.5)
end

function ReleaseInstance()

       core.host:execute("deleteFont", font1); 
       core.host:execute("deleteFont", font2);  	
        core.host:execute("deleteFont", font3);  	 
         core.host:execute ("killTimer", 1);		
  
  end
  
  

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

 

local j;
local FLAG=false; 
local Num=0;
local Id=0;
    for j = 1, Number, 1 do
		      Id=Id+1;
			  if cookie == (1000 + Id) then
			  loading[j]  = true;
		      elseif  cookie == (2000 + Id ) then
			  loading[j]  = false;
			  end
		 
		       
                 if loading[j] then
				 FLAG= true;
				 Num=Num+1;
				 end
	end    
   
    
   if not FLAG and cookie== 1 then
		for i= 1, Number , 1 do
			  DMI[i]:update(core.UpdateLast );
		end
		
	end
	
	
	if FLAG then
	 core.host:execute ("setStatus", "  Loading "..((Number) - Num) .. " / " .. (Number) );	 
	else
	core.host:execute ("setStatus", "Loaded");	 
    instance:updateFrom(0);    
	end
	
	
   
        
    return core.ASYNC_REDRAW ;
	
	
end