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

--+------------------------------------------------------------------+
--|                               Copyright © 2019, Gehtsoft USA LLC |
--|                                            http://fxcodebase.com |
--+------------------------------------------------------------------+
--|                                 Support our efforts by donating  |
--|                                    Paypal: https://goo.gl/9Rj74e |
--+------------------------------------------------------------------+
--|                                Patreon :  https://goo.gl/GdXWeN  |
--|                    BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF  |
--|                BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg  |
--|           Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D  |
--|                   LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD  |
--+------------------------------------------------------------------+
function Init()
    strategy:name("Tick Noise Signal");
	strategy:setTag("NonOptimizableParameters", "Email,SendEmail,SoundFile,RecurrentSound,PlaySound,ShowAlert");
    strategy:description("");

    strategy.parameters:addGroup("Parameters");
 
   -- strategy.parameters:addInteger("Frame", "Aroom Period", "", 25, 3, 1000);	
		 
    strategy.parameters:addString("Type", "Price Type", "", "Any");
    strategy.parameters:addStringAlternative("Type", "Bid", "", "Bid");
    strategy.parameters:addStringAlternative("Type", "Ask", "", "Ask");
	strategy.parameters:addStringAlternative("Type", "Any", "", "Any");
	 
    strategy.parameters:addString("TYPE", "Alert Type", "", "Any");
    strategy.parameters:addStringAlternative("TYPE", "Value Change", "", "Value");
    strategy.parameters:addStringAlternative("TYPE", "End of Period", "", "Period");
	strategy.parameters:addStringAlternative("TYPE", "Any", "", "Any");

    strategy.parameters:addGroup("Signals");

    strategy.parameters:addBoolean("ShowAlert", "Show Alert", "", true);
    strategy.parameters:addBoolean("PlaySound", "Play Sound", "", false);
	strategy.parameters:addBoolean("RecurrentSound", "Recurrent Sound", "", false);
	
    strategy.parameters:addFile("SoundFile", "Sound File", "", "");
    strategy.parameters:setFlag("SoundFile", core.FLAG_SOUND);
	
	 strategy.parameters:addBoolean("SendEmail", "Send Email", "", false);
    strategy.parameters:addString("Email", "Email", "", "");
    strategy.parameters:setFlag("Email", core.FLAG_EMAIL);
end
local Type,TYPE;
local first;
local ShowAlert;
local SoundFile;
local Bid = nil;  
local Ask = nil;   
local PlaySound;
local Email;
local SendEmail;
local RecurrentSound;
local LastBid, LastAsk;

function Prepare()
    -- collect parameters	
	Type = instance.parameters.Type;
	TYPE= instance.parameters.TYPE; 
	PlaySound = instance.parameters.PlaySound;   
    ShowAlert = instance.parameters.ShowAlert;
	
   if PlaySound then
        SoundFile = instance.parameters.SoundFile;
        RecurrentSound = instance.parameters.RecurrentSound;
    else
        SoundFile = nil;
        RecurrentSound = false;
    end
	
	   assert(not(PlaySound) or (PlaySound and SoundFile ~= " "), "Sound file must be specified");
	 
   
	 SendEmail = instance.parameters.SendEmail;
	 
    if SendEmail then
        Email = instance.parameters.Email;
    else
        Email = nil;
    end
    assert(not(SendEmail) or (SendEmail and Email ~= ""), "Email address must be specified");
	
	
  
 
 
    if Type ~= "Ask" then
    Bid = ExtSubscribe(1, nil, "t1", true, "close");
	end
	
	if Type ~= "Bid" then
	Ask = ExtSubscribe(2, nil, "t1", false, "close");
	end	
 
    

	  
    local name = profile:id() .. "(" ..  instance.bid:instrument()  .. ")";
    instance:name(name);
 
    ExtSetupSignal("Tick Noise Signal", ShowAlert);
    ExtSetupSignal(profile:id() .. ":", ShowAlert);
	ExtSetupSignalMail(name);	
	
end


-- when tick source is updated
function ExtUpdate(id, source, period)	
       
   
		   
	if id == 1 and  Type  ~="Ask" then
		
	 if ((Bid[Bid:size()-1] ~= Bid[Bid:size()-2] )and TYPE~= "Period")
	 or  ( ((Bid:size()-1) ~= (Bid:size()-2))and TYPE~= "Value" and Type =="Bid") 
	 then
	 ExtSignal(Bid, period, "Bid Tick Alert", SoundFile, Email, RecurrentSound);
	 end
	end
	
	
	if id == 2 and  Type ~="Bid" then	
		if (( Ask[Ask:size()-1] ~= Ask[Ask:size()-2] ) and TYPE~= "Period")
		or (((Ask:size()-1) ~= (Ask:size()-2)) and TYPE~= "Value" and Type =="Ask") 
		then
		ExtSignal(Ask, period, "Ask Tick Alert", SoundFile, Email, RecurrentSound);
		end
	end
	
	
							   
end

dofile(core.app_path() .. "\\strategies\\standard\\include\\helper.lua");