valasssp

#property copyright "Copyright ? 2008, ValasSSP"
#property link "email:admin@valasssp.com"

#property indicator_separate_window

int init() {
IndicatorShortName("Valas SSP");
return (0);
}

int deinit() {
ObjectsDeleteAll(1, OBJ_LABEL);
return (0);
}

int start() {
int li_0 = 2010;
int li_4 = 4;
int li_8 = 30;
string ls_12 = "admin@valasssp.com";
string ls_20 = "Valas SSP";
if (TimeYear(Time[0]) > li_0) {
Alert(ls_20 + " has expired. ", "Please contact" + ls_12);
return (0);
}
if (TimeYear(Time[0]) == li_0 && TimeMonth(Time[0]) > li_4) {
Alert(ls_20 + " has expired. ", "Please contact" + ls_12);
return (0);
}
if (TimeYear(Time[0]) == li_0 && TimeMonth(Time[0]) == li_4 && TimeDay(Time[0]) > li_8) {
Alert(ls_20 + " has expired. ", "Please contact" + ls_12);
return (0);
}
alerts("EURUSD", "label-01", "arrow-01", "ttp-01", "tp-01", "act-01", 2, 38);
alerts("GBPUSD", "label-02", "arrow-02", "ttp-02", "tp-02", "act-02", 2, 56);
alerts("AUDUSD", "label-03", "arrow-03", "ttp-03", "tp-03", "act-03", 2, 74);
alerts("NZDUSD", "label-04", "arrow-04", "ttp-04", "tp-04", "act-04", 2, 92);
alerts("EURGBP", "label-05", "arrow-05", "ttp-05", "tp-05", "act-05", 2, 128);
alerts("USDJPY", "label-06", "arrow-06", "ttp-06", "tp-06", "act-06", 225, 38);
alerts("EURJPY", "label-07", "arrow-07", "ttp-07", "tp-07", "act-07", 225, 56);
alerts("CHFJPY", "label-08", "arrow-08", "ttp-08", "tp-08", "act-08", 225, 74);
alerts("AUDJPY", "label-09", "arrow-09", "ttp-09", "tp-09", "act-09", 225, 92);
alerts("CADJPY", "label-10", "arrow-10", "ttp-10", "tp-10", "act-10", 225, 110);
alerts("GBPJPY", "label-11", "arrow-11", "ttp-11", "tp-11", "act-11", 225, 128);
alerts("EURCHF", "label-12", "arrow-12", "ttp-12", "tp-12", "act-12", 480, 38);
alerts("USDCHF", "label-13", "arrow-13", "ttp-13", "tp-13", "act-13", 480, 56);
alerts("GBPCHF", "label-14", "arrow-14", "ttp-14", "tp-14", "act-14", 480, 74);
alerts("CADCHF", "label-15", "arrow-15", "ttp-15", "tp-15", "act-15", 480, 92);
alerts("NZDCHF", "label-16", "arrow-16", "ttp-16", "tp-16", "act-16", 480, 110);
alerts("AUDCHF", "label-17", "arrow-17", "ttp-17", "tp-17", "act-17", 480, 128);
alerts("USDCAD", "label-18", "arrow-18", "ttp-18", "tp-18", "act-18", 700, 38);
alerts("AUDCAD", "label-19", "arrow-19", "ttp-19", "tp-19", "act-19", 700, 56);
alerts("EURCAD", "label-20", "arrow-20", "ttp-20", "tp-20", "act-20", 700, 74);
alerts("NZDCAD", "label-21", "arrow-21", "ttp-21", "tp-21", "act-21", 700, 92);
alerts("CHFCAD", "label-22", "arrow-22", "ttp-22", "tp-22", "act-22", 700, 110);
alerts("GBPCAD", "label-23", "arrow-23", "ttp-23", "tp-23", "act-23", 700, 128);
return (0);
}

void alerts(string a_symbol_0, string a_name_8, string a_name_16, string a_name_24, string a_name_32, string a_name_40, int a_x_48, int a_y_52) {
string ls_unused_176;
double l_ima_184;
double l_ima_192;
double l_ima_200;
double l_ima_208;
color l_color_220;
string l_text_224;
color l_color_232;
string l_text_236;
color l_color_244;
string l_text_248;
color l_color_256;
string ls_unused_284;
string ls_unused_292;
string ls_unused_300;
string ls_unused_308;
int li_332;
string ls_56 = "Valas SSP";
double l_point_64 = MarketInfo(a_symbol_0, MODE_POINT);
int l_period_72 = 24;
int l_period_76 = 72;
double l_ima_80 = iMA(a_symbol_0, PERIOD_M30, l_period_72, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_88 = iMA(a_symbol_0, PERIOD_M30, l_period_76, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_96 = iMA(a_symbol_0, PERIOD_H1, l_period_72, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_104 = iMA(a_symbol_0, PERIOD_H1, l_period_76, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_112 = iMA(a_symbol_0, PERIOD_H4, l_period_72, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_120 = iMA(a_symbol_0, PERIOD_H4, l_period_76, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_128 = iMA(a_symbol_0, PERIOD_D1, l_period_72, 0, MODE_EMA, PRICE_CLOSE, 0);
double l_ima_136 = iMA(a_symbol_0, PERIOD_D1, l_period_76, 0, MODE_EMA, PRICE_CLOSE, 0);
int l_bool_144 = l_ima_80 > l_ima_88 && l_ima_96 > l_ima_104 && l_ima_112 > l_ima_120 && l_ima_128 > l_ima_136;
int l_bool_148 = l_ima_80 < l_ima_88 && l_ima_96 < l_ima_104 && l_ima_112 < l_ima_120 && l_ima_128 < l_ima_136;
int l_bool_152 = l_ima_80 > l_ima_88 && l_ima_96 > l_ima_104 && l_ima_112 > l_ima_120 && l_ima_128 < l_ima_136;
int l_bool_156 = l_ima_80 < l_ima_88 && l_ima_96 < l_ima_104 && l_ima_112 < l_ima_120 && l_ima_128 > l_ima_136;
int l_count_160 = 0;
int li_164 = 49;
int l_count_168 = 0;
for (l_count_160 = 1; l_count_160 < li_164; l_count_160++) {
l_ima_184 = iMA(a_symbol_0, PERIOD_M30, 24, 0, MODE_EMA, PRICE_CLOSE, l_count_160 - 1);
l_ima_192 = iMA(a_symbol_0, PERIOD_M30, 72, 0, MODE_EMA, PRICE_CLOSE, l_count_160 - 1);
l_ima_200 = iMA(a_symbol_0, PERIOD_M30, 24, 0, MODE_EMA, PRICE_CLOSE, l_count_160 + 1);
l_ima_208 = iMA(a_symbol_0, PERIOD_M30, 72, 0, MODE_EMA, PRICE_CLOSE, l_count_160 + 1);
if ((l_ima_184 > l_ima_192 && l_ima_200 < l_ima_208) || (l_ima_184 < l_ima_192 && l_ima_200 > l_ima_208)) l_count_168++;
}
int li_216 = l_count_168 < 1;
double l_spread_316 = MarketInfo(a_symbol_0, MODE_SPREAD);
string l_dbl2str_276 = DoubleToStr(l_spread_316, 0);
double l_ask_324 = MarketInfo(a_symbol_0, MODE_ASK);
if (l_ask_324 > 10.0) li_332 = 2;
else li_332 = 4;
double l_ihigh_336 = iHigh(a_symbol_0, PERIOD_D1, 1);
double l_ilow_344 = iLow(a_symbol_0, PERIOD_D1, 1);
double l_iclose_352 = iClose(a_symbol_0, PERIOD_D1, 1);
double ld_360 = (l_ihigh_336 + l_ilow_344 + l_iclose_352) / 3.0;
ld_360 = NormalizeDouble(ld_360, li_332);
double ld_368 = 2.0 * ld_360 - l_ihigh_336;
ld_368 = NormalizeDouble(ld_368, li_332);
double ld_376 = 2.0 * ld_360 - l_ilow_344;
ld_376 = NormalizeDouble(ld_376, li_332);
double l_irsi_384 = iRSI(a_symbol_0, PERIOD_M30, 14, PRICE_CLOSE, 0);
double l_imacd_392 = iMACD(a_symbol_0, PERIOD_M30, 5, 13, 1, PRICE_CLOSE, MODE_MAIN, 0);
double l_imacd_400 = iMACD(a_symbol_0, PERIOD_M30, 12, 26, 9, PRICE_CLOSE, MODE_MAIN, 0);
double l_istochastic_408 = iStochastic(a_symbol_0, PERIOD_M30, 5, 3, 3, MODE_SMA, 0, MODE_MAIN, 0);
if (l_bool_144 && li_216 && l_irsi_384 > 50.0 && l_imacd_392 > 0.0 && l_imacd_400 > 0.0) {
l_text_224 = "Buy";
l_color_220 = Lime;
l_color_256 = Lime;
l_text_236 = l_ihigh_336;
l_color_232 = Lime;
l_text_248 = "TP";
l_color_244 = Lime;
} else {
if (l_bool_148 && li_216 && l_irsi_384 < 50.0 && l_imacd_392 < 0.0 && l_imacd_400 < 0.0) {
l_text_224 = "Sell";
l_color_220 = Red;
l_color_256 = Red;
l_text_236 = l_ilow_344;
l_color_232 = Red;
l_text_248 = "TP";
l_color_244 = Red;
} else {
if (l_bool_152 && li_216) {
l_text_224 = "Buy";
l_color_220 = Lime;
l_color_256 = Lime;
l_text_236 = ld_376;
l_color_232 = Lime;
l_text_248 = "TP";
l_color_244 = Lime;
} else {
if (l_bool_156 && li_216) {
l_text_224 = "Sell";
l_color_220 = Red;
l_color_256 = Red;
l_text_236 = ld_368;
l_color_232 = Red;
l_text_248 = "TP";
l_color_244 = Red;
} else {
l_text_224 = "";
l_color_220 = Black;
l_color_256 = Gray;
l_text_236 = "";
l_color_232 = Black;
l_text_248 = "";
l_color_244 = Black;
}
}
}
}
ObjectCreate(a_name_16, OBJ_LABEL, WindowFind(ls_56), 0, 0);
ObjectSetText(a_name_16, l_dbl2str_276, 7, "Arial Bold", Yellow);
ObjectSet(a_name_16, OBJPROP_CORNER, 0);
ObjectSet(a_name_16, OBJPROP_XDISTANCE, a_x_48);
ObjectSet(a_name_16, OBJPROP_YDISTANCE, a_y_52 + 2);
ObjectCreate(a_name_8, OBJ_LABEL, WindowFind(ls_56), 0, 0);
ObjectSetText(a_name_8, a_symbol_0, 9, "Arial Bold", l_color_256);
ObjectSet(a_name_8, OBJPROP_CORNER, 0);
ObjectSet(a_name_8, OBJPROP_XDISTANCE, a_x_48 + 13);
ObjectSet(a_name_8, OBJPROP_YDISTANCE, a_y_52);
ObjectCreate(a_name_40, OBJ_LABEL, WindowFind(ls_56), 0, 0);
ObjectSetText(a_name_40, l_text_224, 10, "Arial Bold", l_color_220);
ObjectSet(a_name_40, OBJPROP_CORNER, 0);
ObjectSet(a_name_40, OBJPROP_XDISTANCE, a_x_48 + 65);
ObjectSet(a_name_40, OBJPROP_YDISTANCE, a_y_52 + 0);
ObjectCreate(a_name_32, OBJ_LABEL, WindowFind(ls_56), 0, 0);
ObjectSetText(a_name_32, l_text_248, 10, "Arial Bold", l_color_244);
ObjectSet(a_name_32, OBJPROP_CORNER, 0);
ObjectSet(a_name_32, OBJPROP_XDISTANCE, a_x_48 + 98);
ObjectSet(a_name_32, OBJPROP_YDISTANCE, a_y_52 + 0);
ObjectCreate(a_name_24, OBJ_LABEL, WindowFind(ls_56), 0, 0);
ObjectSetText(a_name_24, l_text_236, 10, "Arial Bold", l_color_232);
ObjectSet(a_name_24, OBJPROP_CORNER, 0);
ObjectSet(a_name_24, OBJPROP_XDISTANCE, a_x_48 + 120);
ObjectSet(a_name_24, OBJPROP_YDISTANCE, a_y_52 + 0);
}