-- Id: 15079 -- 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("Indicator alert"); strategy:setTag("NonOptimizableParameters", "Email,SendEmail,SoundFile,RecurrentSound,PlaySound,ShowAlert"); strategy:description("Alerts when a certain indicator/oscillator crosses a certain level"); strategy.parameters:addGroup("Parameters"); strategy.parameters:addString("Indicator", "Indicator", "", "MVA"); strategy.parameters:setFlag("Indicator", core.FLAG_INDICATOR); strategy.parameters:addInteger("Index", "Index of stream", "The number of the indicator stream (for indicators with more than one output stream, e.g. MACD).", 1, 1, 30); strategy.parameters:addString("Type", "Price type", "", "Bid"); strategy.parameters:addStringAlternative("Type", "Bid", "", "Bid"); strategy.parameters:addStringAlternative("Type", "Ask", "", "Ask"); strategy.parameters:addDouble("Price","Price Level", "", 0); strategy.parameters:setFlag("Price", core.FLAG_PRICE); strategy.parameters:addString("Condition", "Condition", "", "C"); strategy.parameters:addStringAlternative("Condition", "Crosses", "", "C"); strategy.parameters:addStringAlternative("Condition", "Crosses or touches", "", "CT"); strategy.parameters:addStringAlternative("Condition", "Crosses above", "", "CA"); strategy.parameters:addStringAlternative("Condition", "Crosses above or touches", "", "CAT"); strategy.parameters:addStringAlternative("Condition", "Crosses below", "", "CB"); strategy.parameters:addStringAlternative("Condition", "Crosses below or touches", "", "CBT"); strategy.parameters:addString("Period", "Period size", "", "t1"); strategy.parameters:setFlag("Period", core.FLAG_PERIODS); strategy.parameters:addGroup("Notification"); strategy.parameters:addBoolean("ShowAlert", "Show Alert", "", true); strategy.parameters:addBoolean("PlaySound", "Play 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", "E-mail address", "Note that to recieve e-mails, SMTP settings must be defined (see Signals Options).", ""); strategy.parameters:setFlag("Email", core.FLAG_EMAIL); end local SoundFile; local gSource = nil; -- the source stream local indi = nil; local CT_CROSS = 1; local CT_CROSSTOUCH = 2; local CT_CROSSABOVE = 3; local CT_CROSSABOVETOUCH = 4; local CT_CROSSBELOW = 4; local CT_CROSSBELOWTOUCH = 5; local Price; local gCondition; local SendEmail, Email; local index; local indiStream; function Prepare() local Condition; -- collect parameters ShowAlert = instance.parameters.ShowAlert; Price = instance.parameters.Price; Condition = instance.parameters.Condition; local Period = instance.parameters.Period; index = instance.parameters.Index; if instance.parameters.PlaySound then SoundFile = instance.parameters.SoundFile; else SoundFile = nil; 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 ~= ""), "E-mail address must be specified"); SIGNAL = "Condition met"; local indiProfile = core.indicators:findIndicator(instance.parameters.Indicator); ExtSetupSignal(indiProfile:name() .. " Alert: ", ShowAlert); if indiProfile:requiredSource() == core.Bar and Period == "t1" then error(indiProfile:name() .. " cannot be applied on Tick, please change the parameter Period size."); end if Period == "t1" then gSource = ExtSubscribe(1, nil, Period, instance.parameters.Type == "Bid", "close"); else gSource = ExtSubscribe(1, nil, Period, instance.parameters.Type == "Bid", "bar"); end if indiProfile:requiredSource() == core.Bar and Period ~= "t1" then indi = indiProfile:createInstance(gSource, instance.parameters:getCustomParameters("Indicator")); else indi = indiProfile:createInstance(gSource.close, instance.parameters:getCustomParameters("Indicator")); end local name = profile:id() .. "(" .. instance.bid:instrument() .. "(" .. Period .. ")" .. ", " .. instance.parameters.Indicator .. ")"; instance:name(name); local streamCount = indi:getStreamCount(); assert((index <= streamCount), "Incorrect index of stream. The indicator has only ".. streamCount .. " stream(s)."); indiStream = indi:getStream(index-1); if Condition == "C" then gCondition = CT_CROSS; SIGNAL = "Indicator crosses the specified level"; elseif Condition == "CT" then gCondition = CT_CROSSTOUCH; SIGNAL = "Indicator crosses or touches the specified level"; elseif Condition == "CA" then gCondition = CT_CROSSABOVE; SIGNAL = "Indicator crosses above the specified level"; elseif Condition == "CAT" then gCondition = CT_CROSSABOVETOUCH; SIGNAL = "Indicator crosses above or touches the specified level"; elseif Condition == "CB" then gCondition = CT_CROSSBELOW; SIGNAL = "Indicator crosses below the specified level"; elseif Condition == "CBT" then gCondition = CT_CROSSBELOWTOUCH; SIGNAL = "Indicator crosses below or touches the specified level"; end ExtSetupSignalMail(name); end -- when tick source is updated function ExtUpdate(id, source, period) -- update indicator indi:update(core.UpdateLast); if (indiStream:hasData(period - 1)) then if gCondition == CT_CROSS and core.crosses(indiStream, Price, period) then ExtSignal(gSource, period, SIGNAL, SoundFile, Email); elseif gCondition == CT_CROSSTOUCH and (core.crosses(indiStream, Price, period) or indiStream[period] == Price) then ExtSignal(gSource, period, SIGNAL, SoundFile, Email); elseif gCondition == CT_CROSSABOVE and core.crossesOver(indiStream, Price, period) then ExtSignal(gSource, period, SIGNAL, SoundFile, Email); elseif gCondition == CT_CROSSABOVETOUCH and (core.crossesOver(indiStream, Price, period) or indiStream[period] == Price) then ExtSignal(gSource, period, SIGNAL, SoundFile, Email); elseif gCondition == CT_CROSSBELOW and core.crossesUnder(indiStream, Price, period) then ExtSignal(gSource, period, SIGNAL, SoundFile, Email); elseif gCondition == CT_CROSSBELOWTOUCH and (core.crossesUnder(indiStream, Price, period) or indiStream[period] == Price) then ExtSignal(gSource, period, SIGNAL, SoundFile, Email); end end end dofile(core.app_path() .. "\\strategies\\standard\\include\\helper.lua");