#property copyright "Copyright � 2009, Forex Wealth"
#property link "http://www.forexwealth.blogspot.com/"
#property indicator_chart_window
extern int FontSize = 8;
extern string RUSOpenTime = "02:00";
extern string RUSCloseTime = "00:00";
extern string FTSEOpenTime = "09:00";
extern string FTSECloseTime = "22:00";
extern string DAXOpenTime = "09:00";
extern string DAXCloseTime = "21:30";
extern string EUXOpenTime = "08:00";
extern string EUXCloseTime = "22:00";
extern string CACOpenTime = "09:00";
extern string CACCloseTime = "17:30";
extern string SMIOpenTime = "09:00";
extern string SMICloseTime = "17:30";
extern int buy_level = 90;
extern int sell_level = 10;
string g_symbol_184 = "BRN_CONT";
int g_corner_192 = 0;
int gi_196 = 0;
int gi_200 = 0;
double gd_204;
double gd_212;
double gd_220;
double gd_228;
double gd_236;
bool gi_unused_244 = FALSE;
bool gi_unused_248 = FALSE;
int init() {
initGraph();
return (0);
}
int deinit() {
ObjectsDeleteAll(0, OBJ_LABEL);
return (0);
}
int start() {
double ld_0;
double ld_8;
double ld_16;
double ld_24;
double ld_32;
double ld_40;
double ld_48;
double ld_56;
double ld_64;
double ld_72;
double ld_80;
double ld_88;
double ld_96;
double ld_104;
double ld_112;
double ld_120;
double ld_128;
double ld_136;
double ld_144;
double ld_152;
double ld_160;
double ld_168;
double ld_176;
double ld_184;
double ld_192;
double ld_200;
double ld_208;
double ld_216;
double ld_224;
double ld_232;
double ld_240;
double ld_248;
double ld_256;
double ld_264;
double ld_272;
double ld_280;
double ld_288;
double ld_296;
double ld_304;
double ld_312;
double ld_320;
double ld_328;
ObjectDelete("title2");
ObjectDelete("audjpy");
ObjectDelete("audnzd");
ObjectDelete("audusd");
ObjectDelete("cadchf");
ObjectDelete("cadjpy");
ObjectDelete("chfjpy");
ObjectDelete("euraud");
ObjectDelete("eurchf");
ObjectDelete("eurgbp");
ObjectDelete("eurjpy");
ObjectDelete("eurnzd");
ObjectDelete("eurusd");
ObjectDelete("gbpchf");
ObjectDelete("gbpjpy");
ObjectDelete("nzdjpy");
ObjectDelete("nzdusd");
ObjectDelete("usdcad");
ObjectDelete("usdchf");
ObjectDelete("usdhkd");
ObjectDelete("usdjpy");
double ld_336 = iHigh("AUDJPY", PERIOD_D1, 0) - iLow("AUDJPY", PERIOD_D1, 0);
double ld_344 = iHigh("AUDNZD", PERIOD_D1, 0) - iLow("AUDNZD", PERIOD_D1, 0);
double ld_352 = iHigh("AUDUSD", PERIOD_D1, 0) - iLow("AUDUSD", PERIOD_D1, 0);
double ld_360 = iHigh("AUDEUR", PERIOD_D1, 0) - iLow("AUDEUR", PERIOD_D1, 0);
double ld_368 = iHigh("GBPAUD", PERIOD_D1, 0) - iLow("GBPAUD", PERIOD_D1, 0);
double ld_376 = iHigh("AUDCHF", PERIOD_D1, 0) - iLow("AUDCHF", PERIOD_D1, 0);
double ld_384 = iHigh("AUDCAD", PERIOD_D1, 0) - iLow("AUDCAD", PERIOD_D1, 0);
double ld_392 = iHigh("CHFJPY", PERIOD_D1, 0) - iLow("CHFJPY", PERIOD_D1, 0);
double ld_400 = iHigh("NZDCHF", PERIOD_D1, 0) - iLow("NZDCHF", PERIOD_D1, 0);
double ld_408 = iHigh("USDCHF", PERIOD_D1, 0) - iLow("USDCHF", PERIOD_D1, 0);
double ld_416 = iHigh("EURCHF", PERIOD_D1, 0) - iLow("EURCHF", PERIOD_D1, 0);
double ld_424 = iHigh("GBPCHF", PERIOD_D1, 0) - iLow("GBPCHF", PERIOD_D1, 0);
double ld_432 = iHigh("CADCHF", PERIOD_D1, 0) - iLow("CADCHF", PERIOD_D1, 0);
double ld_440 = iHigh("CADJPY", PERIOD_D1, 0) - iLow("CADJPY", PERIOD_D1, 0);
double ld_448 = iHigh("NZDCAD", PERIOD_D1, 0) - iLow("NZDCAD", PERIOD_D1, 0);
double ld_456 = iHigh("USDCAD", PERIOD_D1, 0) - iLow("USDCAD", PERIOD_D1, 0);
double ld_464 = iHigh("EURCAD", PERIOD_D1, 0) - iLow("EURCAD", PERIOD_D1, 0);
double ld_472 = iHigh("GBPCAD", PERIOD_D1, 0) - iLow("GBPCAD", PERIOD_D1, 0);
double ld_480 = iHigh("EURJPY", PERIOD_D1, 0) - iLow("EURJPY", PERIOD_D1, 0);
double ld_488 = iHigh("EURNZD", PERIOD_D1, 0) - iLow("EURNZD", PERIOD_D1, 0);
double ld_496 = iHigh("EURUSD", PERIOD_D1, 0) - iLow("EURUSD", PERIOD_D1, 0);
double ld_504 = iHigh("EURGBP", PERIOD_D1, 0) - iLow("EURGBP", PERIOD_D1, 0);
double ld_512 = iHigh("EURAUD", PERIOD_D1, 0) - iLow("EURAUD", PERIOD_D1, 0);
double ld_520 = iHigh("GBPJPY", PERIOD_D1, 0) - iLow("GBPJPY", PERIOD_D1, 0);
double ld_528 = iHigh("GBPNZD", PERIOD_D1, 0) - iLow("GBPNZD", PERIOD_D1, 0);
double ld_536 = iHigh("GBPUSD", PERIOD_D1, 0) - iLow("GBPUSD", PERIOD_D1, 0);
double ld_544 = iHigh("USDJPY", PERIOD_D1, 0) - iLow("USDJPY", PERIOD_D1, 0);
double ld_552 = iHigh("NZDJPY", PERIOD_D1, 0) - iLow("NZDJPY", PERIOD_D1, 0);
double ld_560 = iHigh("NZDJPY", PERIOD_D1, 0) - iLow("NZDJPY", PERIOD_D1, 0);
double ld_568 = iHigh("USDZAR", PERIOD_D1, 0) - iLow("USDZAR", PERIOD_D1, 0);
double ld_576 = iHigh("USDHKD", PERIOD_D1, 0) - iLow("USDHKD", PERIOD_D1, 0);
double ld_584 = iHigh("XAU_USD", PERIOD_D1, 0) - iLow("XAU_USD", PERIOD_D1, 0);
double ld_592 = iHigh("USOIL", PERIOD_D1, 0) - iLow("USOIL", PERIOD_D1, 0);
double ld_600 = iHigh("SPX500", PERIOD_D1, 0) - iLow("SPX500", PERIOD_D1, 0);
double ld_608 = iHigh("NAS100", PERIOD_D1, 0) - iLow("NAS100", PERIOD_D1, 0);
double ld_616 = iHigh("US30", PERIOD_D1, 0) - iLow("US30", PERIOD_D1, 0);
double ld_624 = iHigh("ER2_CONT", PERIOD_D1, 0) - iLow("ER2_CONT", PERIOD_D1, 0);
double ld_632 = iHigh("UK100", PERIOD_D1, 0) - iLow("UK100", PERIOD_D1, 0);
double ld_640 = iHigh("GER30", PERIOD_D1, 0) - iLow("GER30", PERIOD_D1, 0);
double ld_648 = iHigh("FESX_CONT", PERIOD_D1, 0) - iLow("FESX_CONT", PERIOD_D1, 0);
double ld_656 = iHigh("FRA40", PERIOD_D1, 0) - iLow("FRA40", PERIOD_D1, 0);
double ld_664 = iHigh("SUI30", PERIOD_D1, 0) - iLow("SUI30", PERIOD_D1, 0);
if (ld_336 != 0.0) ld_0 = 100.0 * ((iClose("AUDJPY", PERIOD_D1, 0) - iLow("AUDJPY", PERIOD_D1, 0)) / ld_336);
else ld_0 = 0;
if (ld_344 != 0.0) ld_8 = 100.0 * ((iClose("AUDNZD", PERIOD_D1, 0) - iLow("AUDNZD", PERIOD_D1, 0)) / ld_344);
else ld_8 = 0;
if (ld_352 != 0.0) ld_16 = 100.0 * ((iClose("AUDUSD", PERIOD_D1, 0) - iLow("AUDUSD", PERIOD_D1, 0)) / ld_352);
else ld_16 = 0;
if (ld_360 != 0.0) ld_24 = 100.0 * ((iClose("AUDEUR", PERIOD_D1, 0) - iLow("AUDEUR", PERIOD_D1, 0)) / ld_360);
else ld_24 = 0;
if (ld_368 != 0.0) ld_32 = 100.0 * ((iClose("GBPAUD", PERIOD_D1, 0) - iLow("GBPAUD", PERIOD_D1, 0)) / ld_368);
else ld_32 = 0;
if (ld_376 != 0.0) ld_40 = 100.0 * ((iClose("AUDCHF", PERIOD_D1, 0) - iLow("AUDCHF", PERIOD_D1, 0)) / ld_376);
else ld_40 = 0;
if (ld_384 != 0.0) ld_48 = 100.0 * ((iClose("AUDCAD", PERIOD_D1, 0) - iLow("AUDCAD", PERIOD_D1, 0)) / ld_384);
else ld_48 = 0;
if (ld_392 != 0.0) ld_56 = 100.0 * ((iClose("CHFJPY", PERIOD_D1, 0) - iLow("CHFJPY", PERIOD_D1, 0)) / ld_392);
else ld_56 = 0;
if (ld_400 != 0.0) ld_64 = 100.0 * ((iClose("NZDCHF", PERIOD_D1, 0) - iLow("NZDCHF", PERIOD_D1, 0)) / ld_400);
else ld_64 = 0;
if (ld_408 != 0.0) ld_72 = 100.0 * ((iClose("USDCHF", PERIOD_D1, 0) - iLow("USDCHF", PERIOD_D1, 0)) / ld_408);
else ld_72 = 0;
if (ld_416 != 0.0) ld_80 = 100.0 * ((iClose("EURCHF", PERIOD_D1, 0) - iLow("EURCHF", PERIOD_D1, 0)) / ld_416);
else ld_80 = 0;
if (ld_424 != 0.0) ld_88 = 100.0 * ((iClose("GBPCHF", PERIOD_D1, 0) - iLow("GBPCHF", PERIOD_D1, 0)) / ld_424);
else ld_88 = 0;
if (ld_432 != 0.0) ld_96 = 100.0 * ((iClose("CADCHF", PERIOD_D1, 0) - iLow("CADCHF", PERIOD_D1, 0)) / ld_432);
else ld_96 = 0;
if (ld_440 != 0.0) ld_104 = 100.0 * ((iClose("CADJPY", PERIOD_D1, 0) - iLow("CADJPY", PERIOD_D1, 0)) / ld_440);
else ld_104 = 0;
if (ld_448 != 0.0) ld_112 = 100.0 * ((iClose("NZDCAD", PERIOD_D1, 0) - iLow("NZDCAD", PERIOD_D1, 0)) / ld_448);
else ld_112 = 0;
if (ld_456 != 0.0) ld_120 = 100.0 * ((iClose("USDCAD", PERIOD_D1, 0) - iLow("USDCAD", PERIOD_D1, 0)) / ld_456);
else ld_120 = 0;
if (ld_464 != 0.0) ld_128 = 100.0 * ((iClose("EURCAD", PERIOD_D1, 0) - iLow("EURCAD", PERIOD_D1, 0)) / ld_464);
else ld_128 = 0;
if (ld_472 != 0.0) ld_136 = 100.0 * ((iClose("GBPCAD", PERIOD_D1, 0) - iLow("GBPCAD", PERIOD_D1, 0)) / ld_472);
else ld_136 = 0;
if (ld_480 != 0.0) ld_144 = 100.0 * ((iClose("EURJPY", PERIOD_D1, 0) - iLow("EURJPY", PERIOD_D1, 0)) / ld_480);
else ld_144 = 0;
if (ld_488 != 0.0) ld_152 = 100.0 * ((iClose("EURNZD", PERIOD_D1, 0) - iLow("EURNZD", PERIOD_D1, 0)) / ld_488);
else ld_152 = 0;
if (ld_496 != 0.0) ld_160 = 100.0 * ((iClose("EURUSD", PERIOD_D1, 0) - iLow("EURUSD", PERIOD_D1, 0)) / ld_496);
else ld_160 = 0;
if (ld_504 != 0.0) ld_168 = 100.0 * ((iClose("EURGBP", PERIOD_D1, 0) - iLow("EURGBP", PERIOD_D1, 0)) / ld_504);
else ld_168 = 0;
if (ld_512 != 0.0) ld_176 = 100.0 * ((iClose("EURAUD", PERIOD_D1, 0) - iLow("EURAUD", PERIOD_D1, 0)) / ld_512);
else ld_176 = 0;
if (ld_520 != 0.0) ld_184 = 100.0 * ((iClose("GBPJPY", PERIOD_D1, 0) - iLow("GBPJPY", PERIOD_D1, 0)) / ld_520);
else ld_184 = 0;
if (ld_528 != 0.0) ld_192 = 100.0 * ((iClose("GBPNZD", PERIOD_D1, 0) - iLow("GBPNZD", PERIOD_D1, 0)) / ld_528);
else ld_192 = 0;
if (ld_536 != 0.0) ld_200 = 100.0 * ((iClose("GBPUSD", PERIOD_D1, 0) - iLow("GBPUSD", PERIOD_D1, 0)) / ld_536);
else ld_200 = 0;
if (ld_552 != 0.0) ld_208 = 100.0 * ((iClose("NZDJPY", PERIOD_D1, 0) - iLow("NZDJPY", PERIOD_D1, 0)) / ld_552);
else ld_208 = 0;
if (ld_544 != 0.0) ld_216 = 100.0 * ((iClose("USDJPY", PERIOD_D1, 0) - iLow("USDJPY", PERIOD_D1, 0)) / ld_544);
else ld_216 = 0;
if (ld_560 != 0.0) ld_224 = 100.0 * ((iClose("NZDJPY", PERIOD_D1, 0) - iLow("NZDJPY", PERIOD_D1, 0)) / ld_560);
else ld_224 = 0;
if (ld_568 != 0.0) ld_232 = 100.0 * ((iClose("USDZAR", PERIOD_D1, 0) - iLow("USDZAR", PERIOD_D1, 0)) / ld_568);
else ld_232 = 0;
if (ld_576 != 0.0) ld_240 = 100.0 * ((iClose("USDHKD", PERIOD_D1, 0) - iLow("USDHKD", PERIOD_D1, 0)) / ld_576);
else ld_240 = 0;
if (ld_584 != 0.0) ld_248 = 100.0 * ((iClose("XAU_USD", PERIOD_D1, 0) - iLow("XAU_USD", PERIOD_D1, 0)) / ld_584);
else ld_248 = 0;
if (ld_592 != 0.0) ld_256 = 100.0 * ((iClose("USOIL", PERIOD_D1, 0) - iLow("USOIL", PERIOD_D1, 0)) / ld_592);
else ld_256 = 0;
if (ld_600 != 0.0) ld_264 = 100.0 * ((iClose("SPX500", PERIOD_D1, 0) - iLow("SPX500", PERIOD_D1, 0)) / ld_600);
else ld_264 = 0;
if (ld_608 != 0.0) ld_272 = 100.0 * ((iClose("NAS100", PERIOD_D1, 0) - iLow("NAS100", PERIOD_D1, 0)) / ld_608);
else ld_272 = 0;
if (ld_616 != 0.0) ld_280 = 100.0 * ((iClose("US30", PERIOD_D1, 0) - iLow("US30", PERIOD_D1, 0)) / ld_616);
else ld_280 = 0;
if (ld_624 != 0.0) ld_288 = 100.0 * ((iClose("ER2_CONT", PERIOD_D1, 0) - iLow("ER2_CONT", PERIOD_D1, 0)) / ld_624);
else ld_288 = 0;
if (ld_632 != 0.0) ld_296 = 100.0 * ((iClose("UK100", PERIOD_D1, 0) - iLow("UK100", PERIOD_D1, 0)) / ld_632);
else ld_296 = 0;
if (ld_640 != 0.0) ld_304 = 100.0 * ((iClose("GER30", PERIOD_D1, 0) - iLow("GER30", PERIOD_D1, 0)) / ld_640);
else ld_304 = 0;
if (ld_648 != 0.0) ld_312 = 100.0 * ((iClose("FESX_CONT", PERIOD_D1, 0) - iLow("FESX_CONT", PERIOD_D1, 0)) / ld_648);
else ld_312 = 0;
if (ld_656 != 0.0) ld_320 = 100.0 * ((iClose("FRA40", PERIOD_D1, 0) - iLow("FRA40", PERIOD_D1, 0)) / ld_656);
else ld_320 = 0;
if (ld_664 != 0.0) ld_328 = 100.0 * ((iClose("SUI30", PERIOD_D1, 0) - iLow("SUI30", PERIOD_D1, 0)) / ld_664);
else ld_328 = 0;
if (!IsTradingTime(RUSOpenTime, RUSCloseTime)) {
Print("aaa");
ld_288 = 0;
}
if (!IsTradingTime(FTSEOpenTime, FTSECloseTime)) ld_296 = 0;
if (!IsTradingTime(DAXOpenTime, DAXCloseTime)) ld_304 = 0;
if (!IsTradingTime(EUXOpenTime, EUXCloseTime)) ld_312 = 0;
if (!IsTradingTime(CACOpenTime, CACCloseTime)) ld_320 = 0;
if (!IsTradingTime(SMIOpenTime, SMICloseTime)) ld_328 = 0;
double ld_672 = (ld_0 + ld_8 + ld_16 + ld_24 + (100 - ld_32) + ld_40 + ld_48) / 7.0;
double ld_680 = (ld_56 + (100 - ld_64) + (100 - ld_72) + (100 - ld_80) + (100 - ld_88) + (100 - ld_40) + (100 - ld_96)) / 7.0;
double ld_688 = (ld_104 + (100 - ld_112) + (100 - ld_120) + (100 - ld_128) + (100 - ld_136) + (100 - ld_48) + (100 - ld_96)) / 7.0;
double ld_696 = (ld_144 + ld_152 + ld_160 + ld_128 + ld_168 + ld_176 + ld_80) / 7.0;
double ld_704 = (ld_184 + ld_192 + ld_200 + ld_136 + (100 - ld_168) + ld_32 + ld_88) / 7.0;
double ld_712 = (100 - ld_0 + (100 - ld_56) + (100 - ld_104) + (100 - ld_144) + (100 - ld_184) + (100 - ld_208) + (100 - ld_216)) / 7.0;
double ld_720 = (ld_208 + (100 - ld_192) + ld_224 + ld_112 + (100 - ld_152) + (100 - ld_8) + ld_64) / 7.0;
double ld_728 = (100 - ld_16 + ld_72 + ld_120 + (100 - ld_160) + (100 - ld_200) + ld_216 + (100 - ld_224)) / 7.0;
objectBlank();
paint("AUD", ld_672);
paint("CHF", ld_680);
paint("CAD", ld_688);
paint("EUR", ld_696);
paint("GBP", ld_704);
paint("JPY", ld_712);
paint("NZD", ld_720);
paint("USD", ld_728);
paint("GOLD", ld_248);
paint("OIL", ld_256);
paint("SPX500", ld_264);
paint("NAS100", ld_272);
paint("US30", ld_280);
paint("ER2_CONT", ld_288);
paint("UK100", ld_296);
paint("GER30", ld_304);
paint("FESX_CONT", ld_312);
paint("FRA40", ld_320);
paint("SUI30", ld_328);
string l_text_736 = "AUDJPY: " + DoubleToStr(ld_0, 0) + "%";
string l_text_744 = "AUDNZD: " + DoubleToStr(ld_8, 0) + "%";
string l_text_752 = "AUDUSD: " + DoubleToStr(ld_16, 0) + "%";
string l_text_760 = "CADCHF: " + DoubleToStr(ld_96, 0) + "%";
string l_text_768 = "CADJPY: " + DoubleToStr(ld_104, 0) + "%";
string l_text_776 = "CHFJPY: " + DoubleToStr(ld_56, 0) + "%";
string l_text_784 = "EURAUD: " + DoubleToStr(ld_176, 0) + "%";
string l_text_792 = "EURCHF: " + DoubleToStr(ld_80, 0) + "%";
string l_text_800 = "EURCAD: " + DoubleToStr(ld_128, 0) + "%";
string l_text_808 = "EURGBP: " + DoubleToStr(ld_168, 0) + "%";
string l_text_816 = "EURJPY: " + DoubleToStr(ld_144, 0) + "%";
string l_text_824 = "EURNZD: " + DoubleToStr(ld_152, 0) + "%";
string l_text_832 = "EURUSD: " + DoubleToStr(ld_160, 0) + "%";
string l_text_840 = "GBPAUD: " + DoubleToStr(ld_32, 0) + "%";
string l_text_848 = "GBPCAD: " + DoubleToStr(ld_136, 0) + "%";
string l_text_856 = "GBPCHF: " + DoubleToStr(ld_88, 0) + "%";
string l_text_864 = "GBPJPY: " + DoubleToStr(ld_184, 0) + "%";
string l_text_872 = "GBPUSD: " + DoubleToStr(ld_200, 0) + "%";
string l_text_880 = "NZDCAD: " + DoubleToStr(ld_112, 0) + "%";
string l_text_888 = "NZDCHF: " + DoubleToStr(ld_64, 0) + "%";
string l_text_896 = "NZDJPY: " + DoubleToStr(ld_208, 0) + "%";
string l_text_904 = "NZDUSD: " + DoubleToStr(ld_224, 0) + "%";
string l_text_912 = "USDCAD: " + DoubleToStr(ld_120, 0) + "%";
string l_text_920 = "USDCHF: " + DoubleToStr(ld_72, 0) + "%";
string l_text_928 = "USDHKD: " + DoubleToStr(ld_240, 0) + "%";
string l_text_936 = "USDJPY: " + DoubleToStr(ld_216, 0) + "%";
string l_text_944 = "USDZAR: " + DoubleToStr(ld_232, 0) + "%";
ObjectCreate("Overalltitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("Overalltitle", "OVERALL CURRENCY STRENGTHS", FontSize + 2, "Segoe UI", Yellow);
ObjectSet("Overalltitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("Overalltitle", OBJPROP_XDISTANCE, gd_204 - 13 * FontSize);
ObjectSet("Overalltitle", OBJPROP_YDISTANCE, gi_200 + 10);
ObjectCreate("Stocktitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("Stocktitle", "STOCK INDICES", FontSize + 2, "Segoe UI", Yellow);
ObjectSet("Stocktitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("Stocktitle", OBJPROP_XDISTANCE, gd_236 - 6 * FontSize);
ObjectSet("Stocktitle", OBJPROP_YDISTANCE, gi_200 + 10);
ObjectCreate("Commtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("Commtitle", "COMMODITIES", FontSize + 2, "Segoe UI", Yellow);
ObjectSet("Commtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("Commtitle", OBJPROP_XDISTANCE, gd_212 - 5 * FontSize);
ObjectSet("Commtitle", OBJPROP_YDISTANCE, gi_200 + 30);
ObjectCreate("USAtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("USAtitle", "USA", FontSize + 2, "Segoe UI", Yellow);
ObjectSet("USAtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("USAtitle", OBJPROP_XDISTANCE, gd_220 - 1 * FontSize);
ObjectSet("USAtitle", OBJPROP_YDISTANCE, gi_200 + 30);
ObjectCreate("EURtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("EURtitle", "EUROPE", FontSize + 2, "Segoe UI", Yellow);
ObjectSet("EURtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("EURtitle", OBJPROP_XDISTANCE, gd_228 - 3 * FontSize);
ObjectSet("EURtitle", OBJPROP_YDISTANCE, gi_200 + 30);
ObjectCreate("goldoilavgtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("goldoilavgtitle", DoubleToStr((ld_248 + ld_256) / 2.0, 0) + "%", FontSize + 8, "Segoe UI", White);
ObjectSet("goldoilavgtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("goldoilavgtitle", OBJPROP_XDISTANCE, gd_212 - 5 * FontSize);
ObjectSet("goldoilavgtitle", OBJPROP_YDISTANCE, gi_200 + 250);
ObjectCreate("USavgtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("USavgtitle", DoubleToStr((ld_264 + ld_272 + ld_280 + ld_288) / 4.0, 0) + "%", FontSize + 8, "Segoe UI", White);
ObjectSet("USavgtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("USavgtitle", OBJPROP_XDISTANCE, gd_220 - 1 * FontSize);
ObjectSet("USavgtitle", OBJPROP_YDISTANCE, gi_200 + 250);
ObjectCreate("EURavgtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("EURavgtitle", DoubleToStr((ld_296 + ld_304 + ld_312 + ld_320 + ld_328) / 5.0, 0) + "%", FontSize + 8, "Segoe UI", White);
ObjectSet("EURavgtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("EURavgtitle", OBJPROP_XDISTANCE, gd_228 - 3 * FontSize);
ObjectSet("EURavgtitle", OBJPROP_YDISTANCE, gi_200 + 250);
ObjectCreate("Stocksavgtitle", OBJ_LABEL, 0, 0, 0);
ObjectSetText("Stocksavgtitle", DoubleToStr(((ld_264 + ld_272 + ld_280 + ld_288) / 4.0 + (ld_296 + ld_304 + ld_312 + ld_320 + ld_328) / 5.0) / 2.0, 0) + "%", FontSize +
8, "Segoe UI", White);
ObjectSet("Stocksavgtitle", OBJPROP_CORNER, g_corner_192);
ObjectSet("Stocksavgtitle", OBJPROP_XDISTANCE, (gd_220 - 1 * FontSize + (gd_228 - 3 * FontSize)) / 2.0);
ObjectSet("Stocksavgtitle", OBJPROP_YDISTANCE, gi_200 + 270);
int li_952 = 300;
ObjectCreate("audjpy", OBJ_LABEL, 0, 0, 0);
ObjectCreate("audjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("audjpyRange", OBJ_LABEL, 0, 0, 0);
if (ld_0 >= buy_level) ObjectSetText("audjpy", l_text_736, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_0 <= sell_level) ObjectSetText("audjpy", l_text_736, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("audjpy", l_text_736, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("audjpy", "AUDJPY", 5 * FontSize / 10, li_952);
ObjectCreate("audnzdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("audnzdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("audnzd", OBJ_LABEL, 0, 0, 0);
if (ld_8 >= buy_level) ObjectSetText("audnzd", l_text_744, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_8 <= sell_level) ObjectSetText("audnzd", l_text_744, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("audnzd", l_text_744, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("audnzd", "AUDNZD", 140 * FontSize / 10, li_952);
ObjectCreate("audusdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("audusdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("audusd", OBJ_LABEL, 0, 0, 0);
if (ld_16 >= buy_level) ObjectSetText("audusd", l_text_752, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_16 <= sell_level) ObjectSetText("audusd", l_text_752, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("audusd", l_text_752, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("audusd", "AUDUSD", 275 * FontSize / 10, li_952);
ObjectCreate("cadchfRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("cadchfBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("cadchf", OBJ_LABEL, 0, 0, 0);
if (ld_96 >= buy_level) ObjectSetText("cadchf", l_text_760, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_96 <= sell_level) ObjectSetText("cadchf", l_text_760, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("cadchf", l_text_760, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("cadchf", "CADCHF", 410 * FontSize / 10, li_952);
ObjectCreate("cadjpyRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("cadjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("cadjpy", OBJ_LABEL, 0, 0, 0);
if (ld_104 >= buy_level) ObjectSetText("cadjpy", l_text_768, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_104 <= sell_level) ObjectSetText("cadjpy", l_text_768, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("cadjpy", l_text_768, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("cadjpy", "CADJPY", 545 * FontSize / 10, li_952);
ObjectCreate("chfjpyRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("chfjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("chfjpy", OBJ_LABEL, 0, 0, 0);
if (ld_56 >= buy_level) ObjectSetText("chfjpy", l_text_776, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_56 <= sell_level) ObjectSetText("chfjpy", l_text_776, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("chfjpy", l_text_776, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("chfjpy", "CHFJPY", 680 * FontSize / 10, li_952);
ObjectCreate("euraudRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("euraudBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("euraud", OBJ_LABEL, 0, 0, 0);
if (ld_176 >= buy_level) ObjectSetText("euraud", l_text_784, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_176 <= sell_level) ObjectSetText("euraud", l_text_784, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("euraud", l_text_784, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("euraud", "EURAUD", 815 * FontSize / 10, li_952);
ObjectCreate("eurcadRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurcadBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurcad", OBJ_LABEL, 0, 0, 0);
if (ld_128 >= buy_level) ObjectSetText("eurcad", l_text_800, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_128 <= sell_level) ObjectSetText("eurcad", l_text_800, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("eurcad", l_text_800, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("eurcad", "EURCAD", 950 * FontSize / 10, li_952);
ObjectCreate("eurchfRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurchfBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurchf", OBJ_LABEL, 0, 0, 0);
if (ld_80 >= buy_level) ObjectSetText("eurchf", l_text_792, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_80 <= sell_level) ObjectSetText("eurchf", l_text_792, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("eurchf", l_text_792, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("eurchf", "EURCHF", 1085 * FontSize / 10, li_952);
ObjectCreate("eurgbpRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurgbpBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurgbp", OBJ_LABEL, 0, 0, 0);
if (ld_168 >= buy_level) ObjectSetText("eurgbp", l_text_808, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_168 <= sell_level) ObjectSetText("eurgbp", l_text_808, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("eurgbp", l_text_808, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("eurgbp", "EURGBP", 5 * FontSize / 10, li_952 + 65);
ObjectCreate("eurjpyRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurjpy", OBJ_LABEL, 0, 0, 0);
if (ld_144 >= buy_level) ObjectSetText("eurjpy", l_text_816, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_144 <= sell_level) ObjectSetText("eurjpy", l_text_816, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("eurjpy", l_text_816, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("eurjpy", "EURJPY", 140 * FontSize / 10, li_952 + 65);
ObjectCreate("eurnzdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurnzdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurnzd", OBJ_LABEL, 0, 0, 0);
if (ld_152 >= buy_level) ObjectSetText("eurnzd", l_text_824, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_152 <= sell_level) ObjectSetText("eurnzd", l_text_824, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("eurnzd", l_text_824, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("eurnzd", "EURNZD", 275 * FontSize / 10, li_952 + 65);
ObjectCreate("eurusdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurusdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("eurusd", OBJ_LABEL, 0, 0, 0);
if (ld_160 >= buy_level) ObjectSetText("eurusd", l_text_832, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_160 <= sell_level) ObjectSetText("eurusd", l_text_832, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("eurusd", l_text_832, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("eurusd", "EURUSD", 410 * FontSize / 10, li_952 + 65);
ObjectCreate("gbpaudRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpaudBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpaud", OBJ_LABEL, 0, 0, 0);
if (ld_32 >= buy_level) ObjectSetText("gbpaud", l_text_840, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_32 <= sell_level) ObjectSetText("gbpaud", l_text_840, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("gbpaud", l_text_840, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("gbpaud", "GBPAUD", 545 * FontSize / 10, li_952 + 65);
ObjectCreate("gbpcadRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpcadBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpcad", OBJ_LABEL, 0, 0, 0);
if (ld_136 >= buy_level) ObjectSetText("gbpcad", l_text_848, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_136 <= sell_level) ObjectSetText("gbpcad", l_text_848, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("gbpcad", l_text_848, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("gbpcad", "GBPCAD", 680 * FontSize / 10, li_952 + 65);
ObjectCreate("gbpchfRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpchfBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpchf", OBJ_LABEL, 0, 0, 0);
if (ld_88 >= buy_level) ObjectSetText("gbpchf", l_text_856, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_88 <= sell_level) ObjectSetText("gbpchf", l_text_856, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("gbpchf", l_text_856, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("gbpchf", "GBPCHF", 815 * FontSize / 10, li_952 + 65);
ObjectCreate("gbpjpyRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpjpy", OBJ_LABEL, 0, 0, 0);
if (ld_184 >= buy_level) ObjectSetText("gbpjpy", l_text_864, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_184 <= sell_level) ObjectSetText("gbpjpy", l_text_864, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("gbpjpy", l_text_864, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("gbpjpy", "GBPJPY", 950 * FontSize / 10, li_952 + 65);
ObjectCreate("gbpusdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpusdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("gbpusd", OBJ_LABEL, 0, 0, 0);
if (ld_200 >= buy_level) ObjectSetText("gbpusd", l_text_872, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_200 <= sell_level) ObjectSetText("gbpusd", l_text_872, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("gbpusd", l_text_872, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("gbpusd", "GBPUSD", 1085 * FontSize / 10, li_952 + 65);
ObjectCreate("nzdcadRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdcadBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdcad", OBJ_LABEL, 0, 0, 0);
if (ld_112 >= buy_level) ObjectSetText("nzdcad", l_text_880, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_112 <= sell_level) ObjectSetText("nzdcad", l_text_880, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("nzdcad", l_text_880, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("nzdcad", "NZDCAD", 5 * FontSize / 10, li_952 + 130);
ObjectCreate("nzdchfRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdchfBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdchf", OBJ_LABEL, 0, 0, 0);
if (ld_64 >= buy_level) ObjectSetText("nzdchf", l_text_888, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_64 <= sell_level) ObjectSetText("nzdchf", l_text_888, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("nzdchf", l_text_888, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("nzdchf", "NZDCHF", 140 * FontSize / 10, li_952 + 130);
ObjectCreate("nzdjpyRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdjpy", OBJ_LABEL, 0, 0, 0);
if (ld_208 >= buy_level) ObjectSetText("nzdjpy", l_text_896, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_208 <= sell_level) ObjectSetText("nzdjpy", l_text_896, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("nzdjpy", l_text_896, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("nzdjpy", "NZDJPY", 275 * FontSize / 10, li_952 + 130);
ObjectCreate("nzdusdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdusdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("nzdusd", OBJ_LABEL, 0, 0, 0);
if (ld_224 >= buy_level) ObjectSetText("nzdusd", l_text_904, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_224 <= sell_level) ObjectSetText("nzdusd", l_text_904, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("nzdusd", l_text_904, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("nzdusd", "NZDUSD", 410 * FontSize / 10, li_952 + 130);
ObjectCreate("usdcadRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdcadBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdcad", OBJ_LABEL, 0, 0, 0);
if (ld_120 >= buy_level) ObjectSetText("usdcad", l_text_912, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_120 <= sell_level) ObjectSetText("usdcad", l_text_912, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("usdcad", l_text_912, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("usdcad", "USDCAD", 545 * FontSize / 10, li_952 + 130);
ObjectCreate("usdchfRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdchfBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdchf", OBJ_LABEL, 0, 0, 0);
if (ld_72 >= buy_level) ObjectSetText("usdchf", l_text_920, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_72 <= sell_level) ObjectSetText("usdchf", l_text_920, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("usdchf", l_text_920, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("usdchf", "USDCHF", 680 * FontSize / 10, li_952 + 130);
ObjectCreate("usdhkdRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdhkdBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdhkd", OBJ_LABEL, 0, 0, 0);
if (ld_240 >= buy_level) ObjectSetText("usdhkd", l_text_928, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_240 <= sell_level) ObjectSetText("usdhkd", l_text_928, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("usdhkd", l_text_928, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("usdhkd", "USDHKD", 815 * FontSize / 10, li_952 + 130);
ObjectCreate("usdjpyRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdjpyBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdjpy", OBJ_LABEL, 0, 0, 0);
if (ld_216 >= buy_level) ObjectSetText("usdjpy", l_text_936, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_216 <= sell_level) ObjectSetText("usdjpy", l_text_936, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("usdjpy", l_text_936, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("usdjpy", "USDJPY", 950 * FontSize / 10, li_952 + 130);
ObjectCreate("usdzarRange", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdzarBid", OBJ_LABEL, 0, 0, 0);
ObjectCreate("usdzar", OBJ_LABEL, 0, 0, 0);
if (ld_232 >= buy_level) ObjectSetText("usdzar", l_text_944, FontSize + 2, "Segoe UI", Lime);
else {
if (ld_232 <= sell_level) ObjectSetText("usdzar", l_text_944, FontSize + 2, "Segoe UI", Red);
else ObjectSetText("usdzar", l_text_944, FontSize + 2, "Segoe UI", White);
}
ObjSettxt("usdzar", "USDZAR", 1085 * FontSize / 10, li_952 + 130);
return (0);
}
void ObjSettxt(string a_name_0, string a_symbol_8, int ai_16, int ai_20) {
ObjectSetText(a_name_0 + "Bid", "Bid : " + DoubleToStr(MarketInfo(a_symbol_8, MODE_BID), MarketInfo(a_symbol_8, MODE_DIGITS)), FontSize, "Segoe UI", White);
ObjectSet(a_name_0 + "Bid", OBJPROP_CORNER, g_corner_192);
ObjectSet(a_name_0 + "Bid", OBJPROP_XDISTANCE, gi_196 + ai_16);
ObjectSet(a_name_0 + "Bid", OBJPROP_YDISTANCE, gi_200 + ai_20 + 20);
ObjectSetText(a_name_0 + "Range", "Range : " + DoubleToStr((iHigh(a_symbol_8, PERIOD_D1, 0) - iLow(a_symbol_8, PERIOD_D1, 0)) / MarketInfo(a_symbol_8, MODE_POINT), 0), FontSize, "Segoe UI", White);
ObjectSet(a_name_0 + "Range", OBJPROP_CORNER, g_corner_192);
ObjectSet(a_name_0 + "Range", OBJPROP_XDISTANCE, gi_196 + ai_16);
ObjectSet(a_name_0 + "Range", OBJPROP_YDISTANCE, gi_200 + ai_20 + 40);
ObjectSet(a_name_0, OBJPROP_CORNER, g_corner_192);
ObjectSet(a_name_0, OBJPROP_XDISTANCE, gi_196 + ai_16);
ObjectSet(a_name_0, OBJPROP_YDISTANCE, gi_200 + ai_20);
}
void objectCreate(string a_name_0, int a_x_8, int a_y_12, string a_text_16 = "-", int a_fontsize_24 = 60, string a_fontname_28 = "Arial", color a_color_36 = -1) {
if (a_fontsize_24 == 60) a_fontsize_24 = 6 * FontSize;
ObjectCreate(a_name_0, OBJ_LABEL, 0, 0, 0);
ObjectSet(a_name_0, OBJPROP_CORNER, 0);
ObjectSet(a_name_0, OBJPROP_COLOR, a_color_36);
ObjectSet(a_name_0, OBJPROP_XDISTANCE, a_x_8);
ObjectSet(a_name_0, OBJPROP_YDISTANCE, a_y_12);
ObjectSetText(a_name_0, a_text_16, a_fontsize_24, a_fontname_28, a_color_36);
}
void initGraph() {
ObjectsDeleteAll(0, OBJ_LABEL);
int li_0 = 120;
int li_4 = 50 * FontSize / 10;
int li_8 = li_0;
for (int li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("aud_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("audtxt", li_4, li_0 + 100, "AUD", FontSize + 2, "Arial Narrow", White);
objectCreate("audp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 100 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("chf_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("chftxt", li_4, li_0 + 100, "CHF", FontSize + 2, "Arial Narrow", White);
objectCreate("chfp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 150 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("cad_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("cadtxt", li_4, li_0 + 100, "CAD", FontSize + 2, "Arial Narrow", White);
objectCreate("cadp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 200 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("eur_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("eurtxt", li_4, li_0 + 100, "EUR", FontSize + 2, "Arial Narrow", White);
objectCreate("eurp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 250 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("gbp_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("gbptxt", li_4, li_0 + 100, "GBP", FontSize + 2, "Arial Narrow", White);
objectCreate("gbpp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 300 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("jpy_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("jpytxt", li_4, li_0 + 100, "JPY", FontSize + 2, "Arial Narrow", White);
objectCreate("jpyp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 350 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("nzd_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("nzdtxt", li_4, li_0 + 100, "NZD", FontSize + 2, "Arial Narrow", White);
objectCreate("nzdp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 400 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("usd_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("usdtxt", li_4, li_0 + 100, "USD", FontSize + 2, "Arial Narrow", White);
objectCreate("usdp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
gd_204 = (li_4 + 40 + FontSize) / 2;
li_4 = 550 * FontSize / 10;
double ld_16 = li_4;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("xau_usd_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("xau_usdtxt", li_4, li_0 + 100, "GOLD", FontSize + 2, "Arial Narrow", White);
objectCreate("xau_usdp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 610 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("usoil_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("usoiltxt", li_4, li_0 + 100, "OIL", FontSize + 2, "Arial Narrow", White);
objectCreate("usoilp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
gd_212 = (ld_16 + li_4) / 2.0;
li_4 = 700 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("spx500_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("spx500txt", li_4, li_0 + 100, "S&P", FontSize + 2, "Arial Narrow", White);
objectCreate("spx500p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
double ld_24 = li_4;
li_4 = 750 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("nas100_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("nas100txt", li_4, li_0 + 100, "NDQ", FontSize + 2, "Arial Narrow", White);
objectCreate("nas100p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 800 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("us30_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("us30txt", li_4, li_0 + 100, "DOW", FontSize + 2, "Arial Narrow", White);
objectCreate("us30p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 850 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("russel_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("russeltxt", li_4, li_0 + 100, "RUS", FontSize + 2, "Arial Narrow", White);
objectCreate("russelp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
gd_220 = (ld_24 + li_4) / 2.0;
li_4 = 950 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("uk100_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("uk100txt", li_4, li_0 + 100, "FSE", FontSize + 2, "Arial Narrow", White);
objectCreate("uk100p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
double ld_32 = li_4;
li_4 = 1000 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("ger30_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("ger30txt", li_4, li_0 + 100, "DAX", FontSize + 2, "Arial Narrow", White);
objectCreate("ger30p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 1050 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("eux_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("euxtxt", li_4, li_0 + 100, "EUX", FontSize + 2, "Arial Narrow", White);
objectCreate("euxp", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 1100 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("fra40_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("fra40txt", li_4, li_0 + 100, "CAC", FontSize + 2, "Arial Narrow", White);
objectCreate("fra40p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
li_4 = 1150 * FontSize / 10;
li_8 = li_0;
for (li_12 = 1; li_12 <= 51; li_12++) {
objectCreate("sui30_" + li_12, li_4, li_8);
li_8 -= 2;
}
objectCreate("sui30txt", li_4, li_0 + 100, "SMI", FontSize + 2, "Arial Narrow", White);
objectCreate("sui30p", li_4, li_0 + 80 - 2, DoubleToStr(9, 1), FontSize + 2, "Arial Narrow", White);
gd_228 = (ld_32 + li_4) / 2.0;
gd_236 = (ld_24 + li_4) / 2.0;
}
void objectBlank() {
for (int li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("usd_" + li_0);
ObjectSet("usdtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("usdp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("aud_" + li_0);
ObjectSet("audtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("audp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("chf_" + li_0);
ObjectSet("chftxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("chfp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("cad_" + li_0);
ObjectSet("cadtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("cadp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("eur_" + li_0);
ObjectSet("eurtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("eurp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("gbp_" + li_0);
ObjectSet("gbptxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("gbpp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("jpy_" + li_0);
ObjectSet("jpytxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("jpyp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("nzd_" + li_0);
ObjectSet("nzdtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("nzdp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("xau_usd_" + li_0);
ObjectSet("xau_usdtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("xau_usdp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("usoil_" + li_0);
ObjectSet("usoiltxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("usoilp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("spx500_" + li_0);
ObjectSet("spx500txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("spx500p", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("nas100_" + li_0);
ObjectSet("nas100txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("nas100p", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("us30_" + li_0);
ObjectSet("us30txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("us30p", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("russel_" + li_0);
ObjectSet("russeltxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("russelp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("uk100_" + li_0);
ObjectSet("uk100txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("uk100p", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("ger30_" + li_0);
ObjectSet("ger30txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("ger30p", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("eux_" + li_0);
ObjectSet("euxtxt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("euxp", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("fra40_" + li_0);
ObjectSet("fra40txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("fra40", OBJPROP_COLOR, CLR_NONE);
for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("sui30_" + li_0);
ObjectSet("sui30txt", OBJPROP_COLOR, CLR_NONE);
ObjectSet("sui30p", OBJPROP_COLOR, CLR_NONE);
}
void ObjectSetBlank(string a_name_0) {
ObjectSet(a_name_0, OBJPROP_COLOR, CLR_NONE);
}
void paint(string as_0, double ad_8) {
string ls_16 = "";
if (as_0 == "AUD") ls_16 = "aud";
if (as_0 == "CHF") ls_16 = "chf";
if (as_0 == "CAD") ls_16 = "cad";
if (as_0 == "EUR") ls_16 = "eur";
if (as_0 == "GBP") ls_16 = "gbp";
if (as_0 == "JPY") ls_16 = "jpy";
if (as_0 == "NZD") ls_16 = "nzd";
if (as_0 == "USD") ls_16 = "usd";
if (as_0 == "GOLD") ls_16 = "xau_usd";
if (as_0 == "OIL") ls_16 = "usoil";
if (as_0 == "SPX500") ls_16 = "SPX500";
if (as_0 == "NAS100") ls_16 = "NAS100";
if (as_0 == "US30") ls_16 = "us30";
if (as_0 == "ER2_CONT") ls_16 = "russel";
if (as_0 == "UK100") ls_16 = "UK100";
if (as_0 == "GER30") ls_16 = "GER30";
if (as_0 == "FESX_CONT") ls_16 = "eux";
if (as_0 == "FRA40") ls_16 = "FRA40";
if (as_0 == "SUI30") ls_16 = "sui30";
if (ad_8 > 0.0) ObjectSet(ls_16 + "_1", OBJPROP_COLOR, Red);
if (ad_8 > 2.0) ObjectSet(ls_16 + "_2", OBJPROP_COLOR, Red);
if (ad_8 > 4.0) ObjectSet(ls_16 + "_3", OBJPROP_COLOR, Red);
if (ad_8 > 6.0) ObjectSet(ls_16 + "_4", OBJPROP_COLOR, Red);
if (ad_8 > 8.0) ObjectSet(ls_16 + "_5", OBJPROP_COLOR, Red);
if (ad_8 > 10.0) ObjectSet(ls_16 + "_6", OBJPROP_COLOR, Red);
if (ad_8 > 12.0) ObjectSet(ls_16 + "_7", OBJPROP_COLOR, Red);
if (ad_8 > 14.0) ObjectSet(ls_16 + "_8", OBJPROP_COLOR, Red);
if (ad_8 > 16.0) ObjectSet(ls_16 + "_9", OBJPROP_COLOR, Red);
if (ad_8 > 18.0) ObjectSet(ls_16 + "_10", OBJPROP_COLOR, Red);
if (ad_8 > 20.0) ObjectSet(ls_16 + "_11", OBJPROP_COLOR, Orange);
if (ad_8 > 22.0) ObjectSet(ls_16 + "_12", OBJPROP_COLOR, Orange);
if (ad_8 > 24.0) ObjectSet(ls_16 + "_13", OBJPROP_COLOR, Orange);
if (ad_8 > 26.0) ObjectSet(ls_16 + "_14", OBJPROP_COLOR, Orange);
if (ad_8 > 28.0) ObjectSet(ls_16 + "_15", OBJPROP_COLOR, Orange);
if (ad_8 > 30.0) ObjectSet(ls_16 + "_16", OBJPROP_COLOR, Orange);
if (ad_8 > 31.0) ObjectSet(ls_16 + "_17", OBJPROP_COLOR, Orange);
if (ad_8 > 32.0) ObjectSet(ls_16 + "_18", OBJPROP_COLOR, Orange);
if (ad_8 > 34.0) ObjectSet(ls_16 + "_19", OBJPROP_COLOR, Orange);
if (ad_8 > 36.0) ObjectSet(ls_16 + "_20", OBJPROP_COLOR, Orange);
if (ad_8 > 38.0) ObjectSet(ls_16 + "_21", OBJPROP_COLOR, Orange);
if (ad_8 > 40.0) ObjectSet(ls_16 + "_22", OBJPROP_COLOR, Gold);
if (ad_8 > 42.0) ObjectSet(ls_16 + "_23", OBJPROP_COLOR, Gold);
if (ad_8 > 44.0) ObjectSet(ls_16 + "_24", OBJPROP_COLOR, Gold);
if (ad_8 > 46.0) ObjectSet(ls_16 + "_25", OBJPROP_COLOR, Gold);
if (ad_8 > 48.0) ObjectSet(ls_16 + "_26", OBJPROP_COLOR, Gold);
if (ad_8 > 50.0) ObjectSet(ls_16 + "_27", OBJPROP_COLOR, Gold);
if (ad_8 > 52.0) ObjectSet(ls_16 + "_28", OBJPROP_COLOR, Gold);
if (ad_8 > 54.0) ObjectSet(ls_16 + "_29", OBJPROP_COLOR, Gold);
if (ad_8 > 56.0) ObjectSet(ls_16 + "_30", OBJPROP_COLOR, Gold);
if (ad_8 > 58.0) ObjectSet(ls_16 + "_31", OBJPROP_COLOR, Gold);
if (ad_8 > 60.0) ObjectSet(ls_16 + "_32", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 62.0) ObjectSet(ls_16 + "_33", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 64.0) ObjectSet(ls_16 + "_34", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 66.0) ObjectSet(ls_16 + "_35", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 68.0) ObjectSet(ls_16 + "_36", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 70.0) ObjectSet(ls_16 + "_37", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 72.0) ObjectSet(ls_16 + "_38", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 74.0) ObjectSet(ls_16 + "_39", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 76.0) ObjectSet(ls_16 + "_40", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 78.0) ObjectSet(ls_16 + "_41", OBJPROP_COLOR, YellowGreen);
if (ad_8 > 80.0) ObjectSet(ls_16 + "_42", OBJPROP_COLOR, Lime);
if (ad_8 > 82.0) ObjectSet(ls_16 + "_43", OBJPROP_COLOR, Lime);
if (ad_8 > 84.0) ObjectSet(ls_16 + "_44", OBJPROP_COLOR, Lime);
if (ad_8 > 86.0) ObjectSet(ls_16 + "_45", OBJPROP_COLOR, Lime);
if (ad_8 > 88.0) ObjectSet(ls_16 + "_46", OBJPROP_COLOR, Lime);
if (ad_8 > 90.0) ObjectSet(ls_16 + "_47", OBJPROP_COLOR, Lime);
if (ad_8 > 92.0) ObjectSet(ls_16 + "_48", OBJPROP_COLOR, Lime);
if (ad_8 > 94.0) ObjectSet(ls_16 + "_49", OBJPROP_COLOR, Lime);
if (ad_8 > 96.0) ObjectSet(ls_16 + "_50", OBJPROP_COLOR, Lime);
if (ad_8 > 98.0) ObjectSet(ls_16 + "_51", OBJPROP_COLOR, Lime);
if (ad_8 <= sell_level) {
ObjectSet(ls_16 + "txt", OBJPROP_COLOR, Red);
ObjectSetText(ls_16 + "p", DoubleToStr(ad_8, 0) + "%", FontSize + 2, "Arial Narrow", Red);
return;
}
if (ad_8 >= buy_level) {
ObjectSet(ls_16 + "txt", OBJPROP_COLOR, Lime);
ObjectSetText(ls_16 + "p", DoubleToStr(ad_8, 0) + "%", FontSize + 2, "Arial Narrow", Lime);
return;
}
ObjectSet(ls_16 + "txt", OBJPROP_COLOR, White);
ObjectSetText(ls_16 + "p", DoubleToStr(ad_8, 0) + "%", FontSize + 2, "Arial Narrow", White);
}
bool IsTradingTime(string as_0, string as_8) {
int l_str2time_16 = StrToTime(Year() + "." + Month() + "." + Day() + " " + as_0);
int li_20 = StrToTime(Year() + "." + Month() + "." + Day() + " " + as_8);
if (l_str2time_16 > li_20) li_20 += 86400;
if (TimeCurrent() > l_str2time_16 && TimeCurrent() < li_20) return (TRUE);
return (FALSE);
}