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

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

function Init()
    indicator:name("Distance from Open");
    indicator:description("Distance from Open");
    indicator:requiredSource(core.Tick);
    indicator:type(core.Indicator);
	
	Parameters (1 , "D1" , core.rgb(0, 255, 0) );
	Parameters (2 , "W1" , core.rgb(255, 0, 0) );	
	Parameters (3 , "M1" , core.rgb(0, 0, 255)  );
	
	indicator.parameters:addGroup("Calculation");
	indicator.parameters:addString("Method", "Method", "Method" , "Pip");
    indicator.parameters:addStringAlternative("Method", "Pip", "Pip" , "Pip");
	indicator.parameters:addStringAlternative("Method", "Value", "Value" , "Value");
	indicator.parameters:addStringAlternative("Method", "Percentage", "Percentage" , "Percentage");
	indicator.parameters:addBoolean("Sign" , "Sign reversal", "", true);	
	indicator.parameters:addGroup("Style");
	indicator.parameters:addInteger("Size", "Font Size", "", 20); 
    indicator.parameters:addColor("Color", "Label Color ", " ", core.rgb(0, 0, 0));
	
	
	  indicator.parameters:addGroup("Alerts Sound");   
    indicator.parameters:addBoolean("PlaySound", "Play Sound", "", true);	
    indicator.parameters:addBoolean("RecurrentSound", "Recurrent Sound", "", false);
	
	indicator.parameters:addFile("Sound",   "Alert Sound", "", "");
    indicator.parameters:setFlag("Sound", core.FLAG_SOUND);
	indicator.parameters:addGroup("Alerts Dialog box");  
	indicator.parameters:addBoolean("Show", "Show Dialog box Alert", "", false);
	
	indicator.parameters:addGroup("Alerts Email");   
	indicator.parameters:addBoolean("SendEmail", "Send Email", "", true);
    indicator.parameters:addString("Email", "Email", "", "");
    indicator.parameters:setFlag("Email", core.FLAG_EMAIL); 
   
end


function Parameters (id , FRAME ,Color)
    indicator.parameters:addGroup(id ..". Time Frame");
	indicator.parameters:addBoolean("On"..id , "Show  This Time Frame", "", true);	

	indicator.parameters:addString("TF"..id, "Time frame", "", FRAME);
    indicator.parameters:setFlag("TF"..id, core.FLAG_PERIODS);
	
	indicator.parameters:addColor("LineColor"..id, "Line Color ", " ",Color);
	
	indicator.parameters:addInteger("width"..id, "Line width", "", 1, 1, 5);
    indicator.parameters:addInteger("style"..id, "Line style", "", core.LINE_SOLID);
    indicator.parameters:setFlag("style"..id, core.FLAG_LINE_STYLE);

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 Method;
local first;
local source;
local Source={};
local loading={};
local On={};
local TF={};
local LineColor={};
local Num;
local Sign;
-- Streams block
local Color = nil;
local Size;
local Width={};
local Style={};

local Last={}; 
 ---

 local CalcMode;
local Email;
local SendEmail; 
local Sound;
local  RecurrentSound ,SoundFile  ;
local Show;
local PlaySound;
local Alert=nil;
local Count;
local AlertNumber;
-- Routine
function Prepare(nameOnly)
    Color = instance.parameters.Color;
	Size = instance.parameters.Size;
	Method = instance.parameters.Method;
	Sign = instance.parameters.Sign;
    source = instance.source;
    first = source:first();
    local name = profile:id() .. "(" .. source:name() .. ", " .. Method  .. ")";
	instance:name(name);
	if nameOnly then
		return;
	end
	
	Num=0;
	
	for i = 1 , 3 , 1 do   
	
	   On[i]=  instance.parameters:getBoolean ("On"..i);
	   
	   if On[i] then
	   Num = Num+1;
	    Width[Num]=  instance.parameters:getDouble ("width"..i);
		Style[Num]=  instance.parameters:getDouble ("style"..i);
	   LineColor[Num]=  instance.parameters:getDouble ("LineColor"..i);
	   TF[Num]=  instance.parameters:getString ("TF"..i);
	   end
   end

    for i = 1, Num, 1 do	
		 
			   Source[i] = core.host:execute("getSyncHistory", source:instrument(), TF[i], source:isBid(), 1 , 200+i , 100+i);
			   loading[i] = true;   
    end			   

	
	
	
	
	 SendEmail = instance.parameters.SendEmail;
	 
	if SendEmail then
        Email = instance.parameters.Email;
    else
        Email = nil;
    end
    assert(not(SendEmail) or (SendEmail and Email ~= ""), "E-mail address must be specified");
	

	
	RecurrentSound= instance.parameters.RecurrentSound;
    Show= instance.parameters.Show; 
	PlaySound = instance.parameters.PlaySound;
	
    if PlaySound then 
	  Sound=instance.parameters.Sound; 
    else  
      Sound=nil;
	 end
	 
	 
	  assert(not(PlaySound) or (PlaySound and Sound ~= "") or (PlaySound and Sound ~= ""), "Sound file must be chosen"); 

	  instance:ownerDrawn(true);
end

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

 
function GiveAlert(Label) 
    
	SoundAlert(Sound);
	Pop("Alert",  source:instrument(), Label   ); 
	EmailAlert(  "Alert",   source:instrument(), Label  );
end


function EmailAlert( label ,  Instrument,Label )

if not SendEmail then
return
end

 
	local DATA = core.dateToTable (core.now());
	
    
   local delim = "\013\010";  
  
   local Time =  " Date : " .. DATA.month.." / ".. DATA.day .. delim .." Time:  ".. DATA.hour  .." / ".. DATA.min .." / ".. DATA.sec; 
   
     local text = " Instrument : " .. Instrument.. delim ..  Time.. delim  .. Label .. " : " ..label;
	

 
  terminal:alertEmail(Email, Label .. " : " ..label, text);
end

 

function Pop(label , Instrument,Label )

   if not Show then
   return;
   end
   
  	local DATA = core.dateToTable (core.now());
	
    
   local delim = "\013\010";  
  
   local Time =  " Date : " .. DATA.month.." / ".. DATA.day.. delim .." Time:  ".. DATA.hour  .." / ".. DATA.min .." / ".. DATA.sec; 
   
     local text = " Instrument : " .. Instrument.. delim ..  Time.. delim  .. Label .. " : " ..label;

   core.host:execute ("prompt", 1,  Label .. " : " ..label ,   text );


end

function SoundAlert(iAlert )
 if not PlaySound then
 return;
 end
  
   terminal:alertSound(iAlert, RecurrentSound); 
 
end

	 



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

 local i;
 

		 for i = 1, Num, 1 do	
			  if cookie == ( 100 +i) then
			  loading[i] = true;
		      elseif  cookie == (200+i) then
			  loading[i] = false; 			  
			  end		       
          end   
	
    local FLAG=false; 
	local Number=0;
	

		 for i = 1, Num, 1 do	

                 if loading[i] then
				 FLAG= true;
				 Number=Number+1;
				 end
		 
         end  	
   
	
	if FLAG then
	 core.host:execute ("setStatus", "  Loading ".. Number .. " / " ..  Num  );	 
	else
	core.host:execute ("setStatus", "Loaded");
	instance:updateFrom(0);
	end
   
        
    return core.ASYNC_REDRAW ;
end


local init = false;
 
function Draw(stage, context)

    if stage ~= 2 then
	return;
	end
	
	
    local FLAG=false;	
	local i;
	
		 for i = 1, Num, 1 do	
                 if loading[i] then
				 FLAG= true;				
				 end		 
         end  	  
	
	if FLAG then 
	return;
	end
	
	context:setClipRectangle (  context:left (), context:top(), context:right (), context:bottom());
	
        if not init then
            context:createSolidBrush(1, Color);
			context:createPen (2, context.SOLID, 1, Color);	
			context:createFont (3, "Arial", Size,  Size, 0);
			
            for i= 1, Num , 1 do
			context:createPen (10+i, context:convertPenStyle(Style[Num]), Width[i], LineColor[i]);	
            end 			
            init = true;			
		end	
		
		
		
	 x1= context:left ();
     x2= context:right ();
	 
	 local i;
	 local Shift;
	 local Number=0;
	 local Text;
	 local All ;
	 
	 for i= 1, Num , 1 do	
	 visible, y1 = context:pointOfPrice (Source[i].open[Source[i].open:size()-1]);	
	 y2= y1;	  
	  
	 if  core.crossesOver  (Source[i].close, Source[i].open, Source[i].open:size()-1) 
	 and Last[i]~= Source[i].close:serial(Source[i].open:size()-1)
	 then	
	  Last[i]= Source[i].close:serial(Source[i].open:size()-1)
     GiveAlert("Cross Over " .. TF[i]);
	 elseif  core.crossesUnder  (Source[i].close, Source[i].open, Source[i].open:size()-1) 
	 and Last[i]~= Source[i].close:serial(Source[i].open:size()-1)
	 then 
	 Last[i]= Source[i].close:serial(Source[i].open:size()-1)
	 GiveAlert("Cross Under" .. TF[i]);
	 end
	 
	 if Method == "Pip" then
	 Shift = (Source[i].open[Source[i].open:size()-1] - Source[i].close[Source[i].close:size()-1] )/source:pipSize() ;
	 
	 if Sign then
	 Shift= -Shift;
	 end
	 
	 Number=1;
	  Text=TF[i].. " : " .. string.format("%." .. Number .. "f", Shift ) .. " Pips";
	 elseif Method == "Percentage" then
	 Shift = (Source[i].open[Source[i].open:size()-1] - Source[i].close[Source[i].close:size()-1] )/ (Source[i].open[Source[i].open:size()-1]/100);
	 if Sign then
	 Shift= -Shift;
	 end
	 Number=2;
	 Text=TF[i].. " : " .. string.format("%." .. Number .. "f", Shift ) .. " %";
	 else
	 
	  Shift = (Source[i].open[Source[i].open:size()-1] - Source[i].close[Source[i].close:size()-1] );
	  if Sign then
	 Shift= -Shift;
	 end
	  Number=source:getPrecision ();
	  Text=TF[i].. " : " .. string.format("%." .. Number .. "f", Shift ) .. " Value";
	  
	 end
	
	 if i== 1 then
	 All=  Text;
	 else
	 All=  All .. " - " .. Text;
	 end
	
     local width, height = context:measureText (3, Text, 0)	 
	 context:drawText (3, Text , Color, -1, x2-width, y1, x2, y1+height, context.LEFT);     	 
     context:drawLine (10+i, x1, y1, x2, y2);
	 end
	 
	 core.host:execute ("setStatus", All)
 
end