#property copyright "OU Forex Mastery" #property link "http://www.OUForexTrader.com" #include #import "shell32.dll" int ShellExecuteA(int a0, string a1, string a2, string a3, string a4, int a5); #import string gs_76 = "ACDEFKLOPQUVZ12578"; string gs_unused_84 = "BGHIJMNRSTWXY34690"; string gs_92 = "agmorsyzACDOPRSTUWXY013469"; string gs_bg27kl_100 = "bG27KL"; string gs_fe58jn_108 = "fE58JN"; string gs_ehu_116 = "eHu"; string gs_jiw_124 = "jIw"; string gs_dbt_132 = "dBt"; string gs_iqx_140 = "iQx"; string gs_kmv_148 = "kMv"; string gs_hvp_156 = "hVp"; string gs_lfq_164 = "lFq"; string gs_czn_172 = "cZn"; bool gi_180 = FALSE; int gi_184 = 332812800; string g_name_188 = "none."; string gs_196 = "DB1.1"; string gsa_204[23][1000]; double gda_208[23][1000]; int gia_212[23]; extern int xspace = 80; extern int yspace = 20; extern int dPairs = 4; extern bool HalfPikeAlerts = TRUE; extern bool ChannelHopAlerts = TRUE; extern bool GravyTrainAlerts = TRUE; extern int MinAlertRepeat = 5; bool g_bool_244 = FALSE; int gi_248; string gsa_252[] = {"EURUSD", "GBPUSD", "USDCHF", "USDJPY", "USDCAD", "AUDUSD", "NZDUSD", "EURJPY", "EURGBP", "AUDJPY", "EURAUD", "EURCAD", "CHFJPY", "AUDCAD", "GBPCHF", "EURCHF", "NZDJPY", "CADJPY", "AUDNZD", "GBPJPY"}; int gia_256[20][3]; int gi_260; int gia_264[] = {0, 0, 0, 0, 0, 0}; int gia_268[] = {0, 0, 0, 0, 0, 0}; int gia_272[] = {0, 0, 0, 0, 0, 0}; int gia_276[] = {0, 0, 0, 0, 0, 0}; int gia_280[] = {0, 0, 0, 0, 0, 0}; int gia_284[] = {1, 5, 15, 30, 60, 240}; string gs_oufm_288 = "OUFM"; string gs_296 = "Scalp Alert"; string gs_st_alert_304 = "ST Alert"; string gs_lt_alert_312 = "LT Alert"; int gi_320; int g_arr_size_324; string g_var_name_328; int g_index_336 = -1; bool gi_340 = TRUE; bool getbknumbers(string as_0) { int li_8; string ls_20; string ls_36; string ls_44; gi_180 = FALSE; string ls_28 = "verify_user.exe"; int li_16 = WindowHandle(Symbol(), Period()); if (li_16 != 0) { g_name_188 = DoubleToStr(li_16, 0) + ".csv"; ls_36 = TerminalPath() + "\\experts\\files\\" + g_name_188 + ";" + as_0 + ";" + Symbol(); for (int l_str_len_12 = StringLen(TerminalPath()); l_str_len_12 >= 0 && StringSubstr(TerminalPath(), l_str_len_12, 1) != "\\"; l_str_len_12--) { } if (l_str_len_12 == 0) ls_44 = "C:\\Program Files\\Fly Right Software\\OU_Forex"; else ls_44 = StringSubstr(TerminalPath(), 0, l_str_len_12 + 1) + "Fly Right Software\\OU_Forex"; li_8 = ShellExecuteA(0, ls_20, ls_28, ls_36, ls_44, 8); if (li_8 <= 32) { ls_44 = "C:\\Program Files\\Fly Right Software\\OU_Forex"; li_8 = ShellExecuteA(0, ls_20, ls_28, ls_36, ls_44, 8); } if (li_8 <= 32) { ls_44 = "C:\\Program Files (x86)\\Fly Right Software\\OU_Forex"; li_8 = ShellExecuteA(0, ls_20, ls_28, ls_36, ls_44, 8); } if (li_8 <= 32) { ls_44 = "C:\\Work\\Fly Right\\4X"; li_8 = ShellExecuteA(0, ls_20, ls_28, ls_36, ls_44, 8); } if (li_8 > 32) Print("Bias & Key Info requested."); else { Print("Unable to request b&k info."); Alert("Unable to request b&k info. Remove " + WindowExpertName() + " to stop alerts."); } return (TRUE); } return (FALSE); } int init() { string ls_44; string ls_unused_28 = ""; deinit(); if (!IsDllsAllowed()) Alert("Enable Dlls under Tools/Options for " + WindowExpertName() + "."); if (!IsExpertEnabled()) Alert(WindowExpertName() + " will not run until it is enabled."); g_var_name_328 = "R583_JDB"; for (int l_index_0 = 0; l_index_0 <= 20; l_index_0++) for (int l_count_4 = 0; l_count_4 <= 3; l_count_4++) gia_256[l_index_0][l_count_4] = TimeLocal(); if (StringLen(Symbol()) > 6 && StringLen(gsa_252[0]) == 6) { ls_44 = StringSubstr(Symbol(), 6); for (l_index_0 = 0; l_index_0 < ArraySize(gsa_252); l_index_0++) gsa_252[l_index_0] = StringConcatenate(gsa_252[l_index_0], ls_44); } gi_320 = dPairs; if (gi_320 > ArraySize(gsa_252)) { gi_320 = ArraySize(gsa_252); dPairs = gi_320; MessageBoxA(0, "Project X is currently limited to " + DoubleToStr(dPairs, 0) + " pairs.", "OUFM Dashboard", 0); } g_arr_size_324 = ArraySize(gia_284); int li_8 = 0; int li_12 = 25; int li_20 = 20; int l_x_16 = li_8 + xspace * dPairs + 5; int l_y_24 = li_12; string l_name_36 = gs_oufm_288 + " Alerts"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16 - 10); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Alerts", 10, "Courier", DeepSkyBlue); l_y_24 = li_12 + yspace << 2 + li_20; l_name_36 = gs_oufm_288 + " " + gs_296 + " Status"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); if (HalfPikeAlerts) ObjectSetText(l_name_36, "On", 10, "Arial", Lime); else ObjectSetText(l_name_36, "Off", 10, "Arial", Red); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " " + gs_st_alert_304 + " Status"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); if (ChannelHopAlerts) ObjectSetText(l_name_36, "On", 10, "Arial", Lime); else ObjectSetText(l_name_36, "Off", 10, "Arial", Red); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " " + gs_lt_alert_312 + " Status"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); if (GravyTrainAlerts) ObjectSetText(l_name_36, "On", 10, "Arial", Lime); else ObjectSetText(l_name_36, "Off", 10, "Arial", Red); l_x_16 += 30; l_y_24 = li_12 + yspace; l_name_36 = gs_oufm_288 + " Resistance"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Resistance", 10, "Arial", DeepSkyBlue); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " Price"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Price", 10, "Arial", DeepSkyBlue); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " Supp"; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Support", 10, "Arial", DeepSkyBlue); l_y_24 = l_y_24 + yspace + li_20; l_name_36 = gs_oufm_288 + " " + gs_296; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Half Pike", 10, "Arial", DeepSkyBlue); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " " + gs_st_alert_304; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Channel Hop", 10, "Arial", DeepSkyBlue); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " " + gs_lt_alert_312; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "Gravy Train", 10, "Arial", DeepSkyBlue); for (l_index_0 = 0; l_index_0 < gi_320; l_index_0++) { l_x_16 = li_8 + xspace * (dPairs - (l_index_0 + 1)) + 5; l_y_24 = li_12; l_name_36 = gs_oufm_288 + "lblCurr" + l_index_0; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, (l_index_0 + 1) + "-" + StringSubstr(gsa_252[l_index_0], 0, 3) + StringSubstr(gsa_252[l_index_0], 3, 3), 10, "Courier", White); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " Resistance" + gsa_252[l_index_0]; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "", 10, "Arial", Yellow); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " Price" + gsa_252[l_index_0]; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "", 10, "Arial", DeepSkyBlue); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " Supp" + gsa_252[l_index_0]; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "", 10, "Arial", Yellow); l_y_24 = l_y_24 + yspace + li_20; l_name_36 = gs_oufm_288 + " " + gs_296 + " " + gsa_252[l_index_0]; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "", 9, "Arial", Yellow); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " " + gs_st_alert_304 + " " + gsa_252[l_index_0]; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "", 9, "Arial", Yellow); l_y_24 += yspace; l_name_36 = gs_oufm_288 + " " + gs_lt_alert_312 + " " + gsa_252[l_index_0]; ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSet(l_name_36, OBJPROP_CORNER, 1); ObjectSet(l_name_36, OBJPROP_XDISTANCE, l_x_16); ObjectSet(l_name_36, OBJPROP_YDISTANCE, l_y_24); ObjectSetText(l_name_36, "", 9, "Arial", Yellow); } SetIndexStyle(0, DRAW_LINE, STYLE_SOLID, 1, Yellow); SetIndexStyle(1, DRAW_LINE, STYLE_SOLID, 1, Aqua); return (0); } int deinit() { ObDeleteObjectsByPrefix(gs_oufm_288); ObDeleteObjectsByPrefix("Frame_"); GlobalVariableDel(g_var_name_328); return (0); } int start() { double ld_20; color l_color_28; int l_istochastic_36; int l_istochastic_40; int l_istochastic_44; int l_count_52; bool li_56; string l_name_68; int l_file_76; string ls_unused_80; string ls_96; string ls_104; int l_error_116; string ls_120; string ls_128; int li_136; int li_140; int li_144; int li_148; double ld_152; double ld_160; double ld_168; int li_176; double lda_180[100]; double lda_184[100]; double lda_188[100]; double lda_192[100]; double lda_196[100]; double lda_200[100]; double lda_204[100]; int l_ind_counted_0 = IndicatorCounted(); string ls_60 = ""; ls_60 = ""; if (TimeCurrent() > gi_184) if (getbknumbers(gs_196)) gi_184 = TimeCurrent() + 300; if (!gi_180) { l_file_76 = FileOpen(g_name_188, FILE_READ, ","); if (l_file_76 >= 1) { g_bool_244 = FileReadString(l_file_76) == "g"; gi_260 = -1; while (!FileIsEnding(l_file_76)) { l_count_52 = 0; gi_260++; for (string ls_88 = FileReadString(l_file_76); !FileIsLineEnding(l_file_76); ls_88 = FileReadString(l_file_76)) { ls_104 = ""; for (int li_112 = 1; li_112 < StringLen(ls_88); li_112++) { ls_96 = StringSubstr(ls_88, li_112, 1); if (StringFind(gs_92, ls_96, 0) > -1) ls_104 = ls_104 + "."; if (StringFind(gs_bg27kl_100, ls_96, 0) > -1) ls_104 = ls_104 + "0"; if (StringFind(gs_fe58jn_108, ls_96, 0) > -1) ls_104 = ls_104 + "1"; if (StringFind(gs_ehu_116, ls_96, 0) > -1) ls_104 = ls_104 + "2"; if (StringFind(gs_jiw_124, ls_96, 0) > -1) ls_104 = ls_104 + "3"; if (StringFind(gs_dbt_132, ls_96, 0) > -1) ls_104 = ls_104 + "4"; if (StringFind(gs_iqx_140, ls_96, 0) > -1) ls_104 = ls_104 + "5"; if (StringFind(gs_kmv_148, ls_96, 0) > -1) ls_104 = ls_104 + "6"; if (StringFind(gs_hvp_156, ls_96, 0) > -1) ls_104 = ls_104 + "7"; if (StringFind(gs_lfq_164, ls_96, 0) > -1) ls_104 = ls_104 + "8"; if (StringFind(gs_czn_172, ls_96, 0) > -1) ls_104 = ls_104 + "9"; } gda_208[gi_260][l_count_52] = StrToDouble(ls_104); if (StringFind(gs_76, StringSubstr(ls_88, 0, 1), 0) > -1) gsa_204[gi_260][l_count_52] = "B"; else gsa_204[gi_260][l_count_52] = "K"; l_count_52++; } gia_212[gi_260] = l_count_52; } FileClose(l_file_76); l_error_116 = GetLastError(); FileDelete(g_name_188); l_error_116 = GetLastError(); if (l_error_116 == 0/* NO_ERROR */) { gi_180 = TRUE; gi_248 = gi_260; gi_184 = TimeCurrent() + 86400; GlobalVariableSet(g_var_name_328, TimeDayOfYear(TimeLocal()) - 8000); Print("Bias & Key info loaded."); } } } int li_48 = g_index_336; g_index_336++; if (gi_180) { RefreshRates(); if (gi_248 < dPairs && !g_bool_244) { Alert("You are restricted to " + DoubleToStr(gi_248, 0) + " pairs for " + WindowExpertName()); dPairs = gi_248; deinit(); init(); } if (g_index_336 >= dPairs) { g_index_336 = 0; gi_340 = FALSE; } if (iClose(gsa_252[g_index_336], PERIOD_M1, 0) != 0.0) { ObjectSetText(gs_oufm_288 + " Price" + gsa_252[g_index_336], DoubleToStr(iClose(gsa_252[g_index_336], PERIOD_M1, 0), MarketInfo(gsa_252[g_index_336], MODE_DIGITS)), 10, "Arial", Yellow); li_56 = gia_212[g_index_336] <= 0; if (gia_212[g_index_336] > 0) { for (l_count_52 = 0; gda_208[g_index_336][l_count_52] > iClose(gsa_252[g_index_336], PERIOD_M1, 0) && l_count_52 < gia_212[g_index_336] - 1; l_count_52++) { } if (l_count_52 > gia_212[g_index_336] - 1) { ObjectSetText(gs_oufm_288 + " Supp" + gsa_252[g_index_336], "Below", 10, "Arial", Yellow); ls_120 = "Below"; } else { ld_20 = getPipValue(iClose(gsa_252[g_index_336], PERIOD_M1, 0) - gda_208[g_index_336][l_count_52], gsa_252[g_index_336]); ls_120 = gsa_204[g_index_336][l_count_52] + gda_208[g_index_336][l_count_52]; if (ld_20 <= 10.0) { l_color_28 = LimeGreen; li_56 = TRUE; } else l_color_28 = Yellow; ObjectSetText(gs_oufm_288 + " Supp" + gsa_252[g_index_336], DoubleToStr(ld_20, 0) + " " + gsa_204[g_index_336][l_count_52], 10, "Arial", l_color_28); } if (l_count_52 == 0) { ObjectSetText(gs_oufm_288 + " Resistance" + gsa_252[g_index_336], "Above", 10, "Arial", Yellow); ls_128 = "Above"; } else { ld_20 = getPipValue(gda_208[g_index_336][l_count_52 - 1] - iClose(gsa_252[g_index_336], PERIOD_M1, 0), gsa_252[g_index_336]); ls_128 = (gsa_204[g_index_336][l_count_52 - 1]) + ((gda_208[g_index_336][l_count_52 - 1])); if (ld_20 <= 10.0) { l_color_28 = LimeGreen; li_56 = TRUE; } else l_color_28 = Yellow; ObjectSetText(gs_oufm_288 + " Resistance" + gsa_252[g_index_336], DoubleToStr(ld_20, 0) + " " + ((gsa_204[g_index_336][l_count_52 - 1])), 10, "Arial", l_color_28); } } else { ObjectSetText(gs_oufm_288 + " Supp" + gsa_252[g_index_336], "N/A", 10, "Arial", Yellow); ls_120 = "N/A"; ObjectSetText(gs_oufm_288 + " Resistance" + gsa_252[g_index_336], "N/A", 10, "Arial", Yellow); ls_128 = "N/A"; } } for (int l_index_32 = 0; l_index_32 < g_arr_size_324; l_index_32++) { li_136 = 14; li_140 = 5; li_144 = 3; li_148 = 3; li_176 = 100; if (li_176 >= iBars(gsa_252[g_index_336], gia_284[l_index_32]) - 1) li_176 = iBars(gsa_252[g_index_336], gia_284[l_index_32]) - 1 - 1; for (li_112 = li_176; li_112 >= 0; li_112--) { lda_180[li_112] = iClose(gsa_252[g_index_336], gia_284[l_index_32], li_112) - (iHigh(gsa_252[g_index_336], gia_284[l_index_32], iHighest(gsa_252[g_index_336], gia_284[l_index_32], MODE_HIGH, li_136, li_112)) + iLow(gsa_252[g_index_336], gia_284[l_index_32], iLowest(gsa_252[g_index_336], gia_284[l_index_32], MODE_LOW, li_136, li_112))) / 2.0; lda_184[li_112] = iHigh(gsa_252[g_index_336], gia_284[l_index_32], iHighest(gsa_252[g_index_336], gia_284[l_index_32], MODE_HIGH, li_136, li_112)) - iLow(gsa_252[g_index_336], gia_284[l_index_32], iLowest(gsa_252[g_index_336], gia_284[l_index_32], MODE_LOW, li_136, li_112)); } ld_160 = 2.0 / (li_140 + 1); ld_168 = 1 - ld_160; lda_188[li_176 - li_140] = (lda_180[li_176 - li_140]) * ld_160; lda_192[li_176 - li_140] = (lda_184[li_176 - li_140]) * ld_160; for (li_112 = li_176 - li_140 - 1; li_112 >= 0; li_112--) { lda_188[li_112] = (lda_188[li_112 + 1]) * ld_168 + lda_180[li_112] * ld_160; lda_192[li_112] = (lda_192[li_112 + 1]) * ld_168 + lda_184[li_112] * ld_160; } ld_160 = 2.0 / (li_144 + 1); ld_168 = 1 - ld_160; lda_196[li_176 - li_140 - li_144] = (lda_188[li_176 - li_140 - li_144]) * ld_160; lda_200[li_176 - li_140 - li_144] = (lda_192[li_176 - li_140 - li_144]) * ld_160; for (li_112 = li_176 - li_140 - li_144 - 1; li_112 >= 0; li_112--) { lda_196[li_112] = (lda_196[li_112 + 1]) * ld_168 + lda_188[li_112] * ld_160; lda_200[li_112] = (lda_200[li_112 + 1]) * ld_168 + lda_192[li_112] * ld_160; } for (li_112 = li_176 - li_140 - li_144 - li_148; li_112 >= 0; li_112--) lda_204[li_112] = 100.0 * (lda_196[li_112] / (lda_200[li_112] / 2.0)); ld_160 = 2.0 / (li_148 + 1); ld_168 = 1 - ld_160; ld_152 = (lda_204[li_140 - li_144]) * ld_160; for (li_112 = li_176 - li_140 - li_144 - 1; li_112 >= 0; li_112--) ld_152 = ld_152 * ld_168 + lda_204[li_112] * ld_160; gia_264[l_index_32] = lda_204[0]; gia_268[l_index_32] = ld_152; l_istochastic_36 = iStochastic(gsa_252[g_index_336], gia_284[l_index_32], 8, 3, 3, MODE_SMMA, 0, MODE_MAIN, 0); gia_272[l_index_32] = l_istochastic_36; l_istochastic_40 = iStochastic(gsa_252[g_index_336], gia_284[l_index_32], 16, 3, 3, MODE_SMMA, 0, MODE_MAIN, 0); gia_276[l_index_32] = l_istochastic_40; l_istochastic_44 = iStochastic(gsa_252[g_index_336], gia_284[l_index_32], 34, 3, 3, MODE_SMMA, 0, MODE_MAIN, 0); gia_280[l_index_32] = l_istochastic_44; } l_name_68 = gs_oufm_288 + " " + gs_296 + " " + gsa_252[g_index_336]; if (gia_272[0] < 20 && gia_276[0] < 20 && gia_280[0] < 20 && (gia_272[1] < 20 && gia_276[1] < 20 && gia_280[1] < 20) && (gia_272[2] < 20 && gia_276[2] < 20 && gia_280[2] < 20) && (gia_264[0] < -50 && gia_268[0] < -50) && (gia_264[1] < -50 && gia_268[1] < -50) && (gia_264[2] < -50 && gia_268[2] < -50)) { if (li_56) { ObjectSetText(l_name_68, "Check Long", 9, "Arial", LimeGreen); callAlert(HalfPikeAlerts, l_name_68 + " - Potential BUY/LONG", g_index_336, 0); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } else { if (gia_272[0] > 80 && gia_276[0] > 80 && gia_280[0] > 80 && (gia_272[1] > 80 && gia_276[1] > 80 && gia_280[1] > 80) && (gia_272[2] > 80 && gia_276[2] > 80 && gia_280[2] > 80) && (gia_264[0] > 50 && gia_268[0] > 50) && (gia_264[1] > 50 && gia_268[1] > 50) && (gia_264[2] > 50 && gia_268[2] > 50)) { if (li_56) { ObjectSetText(l_name_68, "Check Short", 9, "Arial", Red); callAlert(HalfPikeAlerts, l_name_68 + " - Potential SELL/SHORT", g_index_336, 0); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } l_name_68 = gs_oufm_288 + " " + gs_st_alert_304 + " " + gsa_252[g_index_336]; if (gia_272[2] < 20 && gia_276[2] < 20 && gia_280[2] < 20 && (gia_272[3] < 20 && gia_276[3] < 20 && gia_280[3] < 20) && (gia_272[4] < 20 && gia_276[4] < 20 && gia_280[4] < 20) && (gia_264[2] < -40 && gia_268[2] < -40) && (gia_264[3] < -40 && gia_268[3] < -40) && (gia_264[4] < -40 && gia_268[4] < -40)) { if (li_56) { ObjectSetText(l_name_68, "Check Long", 9, "Arial", LimeGreen); callAlert(ChannelHopAlerts, l_name_68 + " - Potential BUY/LONG", g_index_336, 1); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } else { if (gia_272[2] > 80 && gia_276[2] > 80 && gia_280[2] > 80 && (gia_272[3] > 80 && gia_276[3] > 80 && gia_280[3] > 80) && (gia_272[4] > 80 && gia_276[4] > 80 && gia_280[4] > 80) && (gia_264[2] > 40 && gia_268[2] > 40) && (gia_264[3] > 40 && gia_268[3] > 40) && (gia_264[4] > 40 && gia_268[4] > 40)) { if (li_56) { ObjectSetText(l_name_68, "Check Short", 9, "Arial", Red); callAlert(ChannelHopAlerts, l_name_68 + " - Potential SELL/SHORT", g_index_336, 1); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } l_name_68 = gs_oufm_288 + " " + gs_lt_alert_312 + " " + gsa_252[g_index_336]; if (gia_272[2] < 20 && gia_276[2] < 20 && gia_280[2] < 20 && (gia_272[3] < 20 && gia_276[3] < 20 && gia_280[3] < 20) && (gia_272[4] < 20 && gia_276[4] < 20 && gia_280[4] < 20) && (gia_272[5] < 20 && gia_276[5] < 20 && gia_280[5] < 20) && (gia_264[2] < -40 && gia_268[2] < -40) && (gia_264[3] < -40 && gia_268[3] < -40) && (gia_264[4] < -40 && gia_268[4] < -40) && (gia_264[5] < -40 && gia_268[5] < -40)) { if (li_56) { ObjectSetText(l_name_68, "Check Long", 9, "Arial", LimeGreen); callAlert(GravyTrainAlerts, l_name_68 + " - Potential BUY/LONG", g_index_336, 2); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } else { if (gia_272[2] > 80 && gia_276[2] > 80 && gia_280[2] > 80 && (gia_272[3] > 80 && gia_276[3] > 80 && gia_280[3] > 80) && (gia_272[4] > 80 && gia_276[4] > 80 && gia_280[4] > 80) && (gia_272[5] > 80 && gia_276[5] > 80 && gia_280[5] > 80) && (gia_264[2] > 40 && gia_268[2] > 40) && (gia_264[3] > 40 && gia_268[3] > 40) && (gia_264[4] > 40 && gia_268[4] > 40) && (gia_264[5] > 40 && gia_268[5] > 40)) { if (li_56) { ObjectSetText(l_name_68, "Check Short", 9, "Arial", Red); callAlert(GravyTrainAlerts, l_name_68 + " - Potential SELL/SHORT", g_index_336, 2); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } else ObjectSetText(l_name_68, "Hold", 9, "Arial", Yellow); } ls_60 = gsa_252[g_index_336] + ", Close:" + iClose(gsa_252[g_index_336], PERIOD_M1, 0) + " ,Res:" + ls_128 + " , Sup:" + ls_120 + ls_60; Comment(ls_60); for (l_index_32 = 0; l_index_32 < g_arr_size_324; l_index_32++) { gia_264[l_index_32] = 0; gia_268[l_index_32] = 0; gia_272[l_index_32] = 0; gia_276[l_index_32] = 0; gia_280[l_index_32] = 0; } } else GlobalVariableDel(g_var_name_328); ObjectSetText(gs_oufm_288 + "lblCurr" + li_48, (li_48 + 1) + "-" + StringSubstr(gsa_252[li_48], 0, 3) + StringSubstr(gsa_252[li_48], 3, 3), 10, "Courier", White); ObjectSetText(gs_oufm_288 + "lblCurr" + g_index_336, (g_index_336 + 1) + "-" + StringSubstr(gsa_252[g_index_336], 0, 3) + StringSubstr(gsa_252[g_index_336], 3, 3), 10, "Courier", Gold); if (!gi_340) Sleep(2000); return (0); } void ObDeleteObjectsByPrefix(string as_0) { string l_name_16; int l_str_len_8 = StringLen(as_0); int li_12 = 0; while (li_12 < ObjectsTotal()) { l_name_16 = ObjectName(li_12); if (StringSubstr(l_name_16, 0, l_str_len_8) != as_0) { li_12++; continue; } ObjectDelete(l_name_16); } } double getPipValue(double ad_0, string as_8) { double ld_unused_16 = SymbolDigits(as_8); double ld_24 = PipSize(as_8); ad_0 /= ld_24; return (ad_0); } int SymbolDigits(string a_symbol_0) { return (MarketInfo(a_symbol_0, MODE_DIGITS)); } double PipSize(string as_0) { if (SymbolDigits(as_0) <= 3) return (0.01); return (0.0001); } void callAlert(bool ai_0, string as_4, int ai_12, int ai_16) { string ls_20; if (ai_0) { Alert(as_4); ls_20 = "."; } else ls_20 = ", Alerts disbaled."; string ls_28 = TimeToStr(TimeCurrent(), TIME_DATE|TIME_SECONDS) + " " + as_4 + ls_20; if (gia_256[ai_12][ai_16] < TimeCurrent() && MinAlertRepeat > 0) { gia_256[ai_12][ai_16] = TimeCurrent() + 60 * MinAlertRepeat; SendMail(gs_oufm_288 + " Market Scanner", as_4); } }