#property show_inputs //#include #import "OasisMeterBig.ex4" void displayMeterStrength(int a0, int a1); #import string gsa_76[] = {"NZDUSD", "AUDUSD", "USDCHF", "EURUSD", "USDJPY", "GBPUSD", "GBPCHF", "EURJPY", "GBPJPY", ".SILVER", "VIX", "F40", "IT40", "DE30", "UK100", "US30", "USTEC", "US500", "6B_CONT", "6A_CONT", "6S_CONT", "6E_CONT", "6J_CONT", "DXY", "BRENT", ".GOLD", "ES35", "STOXX50", "AUS200", "JP225", "HK50", "WTI", "NatGas", "XAUEUR", "XAUUSD", "XAGEUR", "XAGUSD"}; string gsa_80[] = {"NZDUSD", "AUDUSD", "USDCHF", "EURUSD", "USDJPY", "GBPUSD", "GBPCHF", "EURJPY", "GBPJPY", ".SILVER", "VIX", "F40", "IT40", "DE30", "UK100", "US30", "USTEC", "US500", "6B_CONT", "6A_CONT", "6S_CONT", "6E_CONT", "6J_CONT", "DXY", "BRENT", ".GOLD", "ES35", "STOXX50", "AUS200", "JP225", "HK50", "WTI", "NatGas", "XAUEUR", "XAUUSD", "XAGEUR", "XAGUSD"}; string gsa_84[28] = {"EURUSD", "GBPUSD", "AUDUSD", "NZDUSD", "USDCHF", "USDCAD", "USDJPY", "NZDJPY", "AUDJPY", "CHFJPY", "EURJPY", "GBPJPY", "CADJPY", "EURAUD", "EURCAD", "EURCHF", "EURGBP", "GBPCHF", "AUDCAD", "AUDNZD", "NZDCAD", "NZDCHF", "GBPNZD", "EURNZD", "GBPCAD", "GBPAUD", "AUDCHF", "CADCHF"}; string gsa_88[] = {"EUR", "GBP", "JPY", "USD", "AUD", "NZD", "CHF", "CAD"}; string gsa_92[]; string gsa_96[] = {"AUDEUR", "NZDGBP"}; double gd_100; double gd_108; double gd_116; double gd_124; double gd_132; double gd_140; double gd_148; int gia_156[8]; string gsa_160[]; double gd_164; double gda_172[7]; int gia_176[1]; int gi_180 = 6; string gs_184 = "02:00"; string gs_192 = "00:00"; string gs_200 = "09:00"; string gs_208 = "22:00"; string gs_216 = "09:00"; string gs_224 = "21:30"; string gs_unused_232 = "08:00"; string gs_unused_240 = "22:00"; string gs_248 = "09:00"; string gs_256 = "17:30"; string gs_264 = "09:00"; string gs_272 = "17:30"; string gs_280 = "14:30"; string gs_288 = "21:30"; extern int buy_level = 80; extern int sell_level = 20; extern string BRENT = "BRENT"; extern string NatGas = "NatGas"; extern string WTI = "WTI"; extern int yaxis = 100; extern bool showcandleDir = TRUE; extern bool showHeatMtr = TRUE; int gi_unused_340 = 0; int gi_unused_344 = 2; int gi_unused_348 = 2; double gd_unused_352; double gd_360; double gd_368; double gd_376; double gd_384; bool gi_unused_392 = FALSE; bool gi_unused_396 = FALSE; int init() { string ls_12; bool li_20; for (int index_0 = 0; index_0 < ArraySize(gsa_88); index_0++) { for (int index_4 = 0; index_4 < ArraySize(gsa_88); index_4++) { li_20 = TRUE; ls_12 = gsa_88[index_0] + gsa_88[index_4] + StringSubstr(Symbol(), 6, 1); for (int index_8 = 0; index_8 < ArraySize(gsa_96); index_8++) if (StringFind(ls_12, gsa_96[index_8], 0) != -1) li_20 = FALSE; if (li_20 && MarketInfo(ls_12, MODE_TRADEALLOWED) == 1.0) { ArrayResize(gsa_92, ArraySize(gsa_92) + 1); gsa_92[ArraySize(gsa_92) - 1] = ls_12; } } } ObjectsDeleteAll(); Comment(""); return (0); } int deinit() { ObjectsDeleteAll(0, OBJ_LABEL); return (0); } int start() { initGraph(); while (!IsStopped()) { RefreshRates(); drawLabel("Combo1", "Oasis Inter-Market Analyser", 16, "Arial Narrow Italic", Yellow, 0, 415, 85); drawLabel("Combo2", "Oasis Inter-Market Analyser", 16, "Arial Narrow Italic", Black, 0, 416, 86); drawLabel("Copyright2", "www.oasiswealthbuilders.com", 7, "Arial Italic", Gray, 0, 470, 116); Dashboard(); if (showcandleDir == TRUE) displayCandleDirection(); displayHiLo(); displayMeterStrength(330, yaxis + 50); BlockMini(20, yaxis - 50); ObjectsRedraw(); Sleep(1000); } return (0); } void Dashboard() { 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; double ld_336; double ld_344; double ld_352; double ld_360; double ld_368; double ld_376; double ld_384; double ld_392; double ld_400; double ld_408; double ld_416; double ld_424; double ld_432; double ld_440; double ld_448; double ld_456; double ld_464; double ld_472; double ld_480; double ld_488; 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_496 = iHigh("AUDJPY", PERIOD_D1, 0) - iLow("AUDJPY", PERIOD_D1, 0); double ld_504 = iHigh("AUDNZD", PERIOD_D1, 0) - iLow("AUDNZD", PERIOD_D1, 0); double ld_512 = iHigh("AUDUSD", PERIOD_D1, 0) - iLow("AUDUSD", PERIOD_D1, 0); double ld_520 = iHigh("AUDEUR", PERIOD_D1, 0) - iLow("AUDEUR", PERIOD_D1, 0); double ld_528 = iHigh("GBPAUD", PERIOD_D1, 0) - iLow("GBPAUD", PERIOD_D1, 0); double ld_536 = iHigh("AUDCHF", PERIOD_D1, 0) - iLow("AUDCHF", PERIOD_D1, 0); double ld_544 = iHigh("AUDCAD", PERIOD_D1, 0) - iLow("AUDCAD", PERIOD_D1, 0); double ld_552 = iHigh("CHFJPY", PERIOD_D1, 0) - iLow("CHFJPY", PERIOD_D1, 0); double ld_560 = iHigh("NZDCHF", PERIOD_D1, 0) - iLow("NZDCHF", PERIOD_D1, 0); double ld_568 = iHigh("USDCHF", PERIOD_D1, 0) - iLow("USDCHF", PERIOD_D1, 0); double ld_576 = iHigh("EURCHF", PERIOD_D1, 0) - iLow("EURCHF", PERIOD_D1, 0); double ld_584 = iHigh("GBPCHF", PERIOD_D1, 0) - iLow("GBPCHF", PERIOD_D1, 0); double ld_592 = iHigh("CADCHF", PERIOD_D1, 0) - iLow("CADCHF", PERIOD_D1, 0); double ld_600 = iHigh("CADJPY", PERIOD_D1, 0) - iLow("CADJPY", PERIOD_D1, 0); double ld_608 = iHigh("NZDCAD", PERIOD_D1, 0) - iLow("NZDCAD", PERIOD_D1, 0); double ld_616 = iHigh("USDCAD", PERIOD_D1, 0) - iLow("USDCAD", PERIOD_D1, 0); double ld_624 = iHigh("EURCAD", PERIOD_D1, 0) - iLow("EURCAD", PERIOD_D1, 0); double ld_632 = iHigh("GBPCAD", PERIOD_D1, 0) - iLow("GBPCAD", PERIOD_D1, 0); double ld_640 = iHigh("EURJPY", PERIOD_D1, 0) - iLow("EURJPY", PERIOD_D1, 0); double ld_648 = iHigh("EURNZD", PERIOD_D1, 0) - iLow("EURNZD", PERIOD_D1, 0); double ld_656 = iHigh("EURUSD", PERIOD_D1, 0) - iLow("EURUSD", PERIOD_D1, 0); double ld_664 = iHigh("EURGBP", PERIOD_D1, 0) - iLow("EURGBP", PERIOD_D1, 0); double ld_672 = iHigh("EURAUD", PERIOD_D1, 0) - iLow("EURAUD", PERIOD_D1, 0); double ld_680 = iHigh("GBPJPY", PERIOD_D1, 0) - iLow("GBPJPY", PERIOD_D1, 0); double ld_688 = iHigh("GBPNZD", PERIOD_D1, 0) - iLow("GBPNZD", PERIOD_D1, 0); double ld_696 = iHigh("GBPUSD", PERIOD_D1, 0) - iLow("GBPUSD", PERIOD_D1, 0); double ld_704 = iHigh("USDJPY", PERIOD_D1, 0) - iLow("USDJPY", PERIOD_D1, 0); double ld_712 = iHigh("NZDJPY", PERIOD_D1, 0) - iLow("NZDJPY", PERIOD_D1, 0); double ld_720 = iHigh("USDZAR", PERIOD_D1, 0) - iLow("USDZAR", PERIOD_D1, 0); double ld_728 = iHigh("USDHKD", PERIOD_D1, 0) - iLow("USDHKD", PERIOD_D1, 0); double ld_736 = iHigh(".GOLD", PERIOD_D1, 0) - iLow(".GOLD", PERIOD_D1, 0); double ld_744 = iHigh(BRENT, PERIOD_D1, 0) - iLow(BRENT, PERIOD_D1, 0); double ld_752 = iHigh("US500", PERIOD_D1, 0) - iLow("US500", PERIOD_D1, 0); double ld_760 = iHigh("NQ_CONT", PERIOD_D1, 0) - iLow("NQ_CONT", PERIOD_D1, 0); double ld_768 = iHigh("US30", PERIOD_D1, 0) - iLow("US30", PERIOD_D1, 0); double ld_776 = iHigh("DXY", PERIOD_D1, 0) - iLow("DXY", PERIOD_D1, 0); double ld_784 = iHigh("UK100", PERIOD_D1, 0) - iLow("UK100", PERIOD_D1, 0); double ld_792 = iHigh("DE30", PERIOD_D1, 0) - iLow("DE30", PERIOD_D1, 0); double ld_800 = iHigh("6E_CONT", PERIOD_D1, 0) - iLow("6E_CONT", PERIOD_D1, 0); double ld_808 = iHigh("F40", PERIOD_D1, 0) - iLow("F40", PERIOD_D1, 0); double ld_816 = iHigh("IT40", PERIOD_D1, 0) - iLow("IT40", PERIOD_D1, 0); double ld_824 = iHigh("6J_CONT", PERIOD_D1, 0) - iLow("6J_CONT", PERIOD_D1, 0); double ld_832 = iHigh("6B_CONT", PERIOD_D1, 0) - iLow("6B_CONT", PERIOD_D1, 0); double ld_840 = iHigh("XAUEUR", PERIOD_D1, 0) - iLow("XAUEUR", PERIOD_D1, 0); double ld_848 = iHigh("XAUUSD", PERIOD_D1, 0) - iLow("XAUUSD", PERIOD_D1, 0); double ld_856 = iHigh("6A_CONT", PERIOD_D1, 0) - iLow("6A_CONT", PERIOD_D1, 0); double ld_864 = iHigh("6N_CONT", PERIOD_D1, 0) - iLow("6N_CONT", PERIOD_D1, 0); double ld_872 = iHigh("6C_CONT", PERIOD_D1, 0) - iLow("6C_CONT", PERIOD_D1, 0); double ld_880 = iHigh("6S_CONT", PERIOD_D1, 0) - iLow("6S_CONT", PERIOD_D1, 0); double ld_888 = iHigh(".SILVER", PERIOD_D1, 0) - iLow(".SILVER", PERIOD_D1, 0); double ld_896 = iHigh("VIX", PERIOD_D1, 0) - iLow("VIX", PERIOD_D1, 0); double ld_904 = iHigh("XAGEUR", PERIOD_D1, 0) - iLow("XAGEUR", PERIOD_D1, 0); double ld_912 = iHigh("XAGUSD", PERIOD_D1, 0) - iLow("XAGUSD", PERIOD_D1, 0); double ld_920 = iHigh(WTI, PERIOD_D1, 0) - iLow(WTI, PERIOD_D1, 0); double ld_928 = iHigh(NatGas, PERIOD_D1, 0) - iLow(NatGas, PERIOD_D1, 0); double ld_936 = iHigh("HK50", PERIOD_D1, 0) - iLow("HK50", PERIOD_D1, 0); double ld_944 = iHigh("JP225", PERIOD_D1, 0) - iLow("JP225", PERIOD_D1, 0); double ld_952 = iHigh("AUS200", PERIOD_D1, 0) - iLow("AUS200", PERIOD_D1, 0); double ld_960 = iHigh("US2000", PERIOD_D1, 0) - iLow("US2000", PERIOD_D1, 0); double ld_968 = iHigh("STOXX50", PERIOD_D1, 0) - iLow("STOXX50", PERIOD_D1, 0); double ld_976 = iHigh("ES35", PERIOD_D1, 0) - iLow("ES35", PERIOD_D1, 0); if (ld_496 != 0.0) ld_0 = 100.0 * ((iClose("AUDJPY", PERIOD_D1, 0) - iLow("AUDJPY", PERIOD_D1, 0)) / ld_496); else ld_0 = 0; if (ld_504 != 0.0) ld_8 = 100.0 * ((iClose("AUDNZD", PERIOD_D1, 0) - iLow("AUDNZD", PERIOD_D1, 0)) / ld_504); else ld_8 = 0; if (ld_512 != 0.0) ld_16 = 100.0 * ((iClose("AUDUSD", PERIOD_D1, 0) - iLow("AUDUSD", PERIOD_D1, 0)) / ld_512); else ld_16 = 0; if (ld_520 != 0.0) ld_24 = 100.0 * ((iClose("AUDEUR", PERIOD_D1, 0) - iLow("AUDEUR", PERIOD_D1, 0)) / ld_520); else ld_24 = 0; if (ld_528 != 0.0) ld_32 = 100.0 * ((iClose("GBPAUD", PERIOD_D1, 0) - iLow("GBPAUD", PERIOD_D1, 0)) / ld_528); else ld_32 = 0; if (ld_536 != 0.0) ld_40 = 100.0 * ((iClose("AUDCHF", PERIOD_D1, 0) - iLow("AUDCHF", PERIOD_D1, 0)) / ld_536); else ld_40 = 0; if (ld_544 != 0.0) ld_48 = 100.0 * ((iClose("AUDCAD", PERIOD_D1, 0) - iLow("AUDCAD", PERIOD_D1, 0)) / ld_544); else ld_48 = 0; if (ld_552 != 0.0) ld_56 = 100.0 * ((iClose("CHFJPY", PERIOD_D1, 0) - iLow("CHFJPY", PERIOD_D1, 0)) / ld_552); else ld_56 = 0; if (ld_560 != 0.0) ld_64 = 100.0 * ((iClose("NZDCHF", PERIOD_D1, 0) - iLow("NZDCHF", PERIOD_D1, 0)) / ld_560); else ld_64 = 0; if (ld_568 != 0.0) ld_72 = 100.0 * ((iClose("USDCHF", PERIOD_D1, 0) - iLow("USDCHF", PERIOD_D1, 0)) / ld_568); else ld_72 = 0; if (ld_576 != 0.0) ld_80 = 100.0 * ((iClose("EURCHF", PERIOD_D1, 0) - iLow("EURCHF", PERIOD_D1, 0)) / ld_576); else ld_80 = 0; if (ld_584 != 0.0) ld_88 = 100.0 * ((iClose("GBPCHF", PERIOD_D1, 0) - iLow("GBPCHF", PERIOD_D1, 0)) / ld_584); else ld_88 = 0; if (ld_592 != 0.0) ld_96 = 100.0 * ((iClose("CADCHF", PERIOD_D1, 0) - iLow("CADCHF", PERIOD_D1, 0)) / ld_592); else ld_96 = 0; if (ld_600 != 0.0) ld_104 = 100.0 * ((iClose("CADJPY", PERIOD_D1, 0) - iLow("CADJPY", PERIOD_D1, 0)) / ld_600); else ld_104 = 0; if (ld_608 != 0.0) ld_112 = 100.0 * ((iClose("NZDCAD", PERIOD_D1, 0) - iLow("NZDCAD", PERIOD_D1, 0)) / ld_608); else ld_112 = 0; if (ld_616 != 0.0) ld_120 = 100.0 * ((iClose("USDCAD", PERIOD_D1, 0) - iLow("USDCAD", PERIOD_D1, 0)) / ld_616); else ld_120 = 0; if (ld_624 != 0.0) ld_128 = 100.0 * ((iClose("EURCAD", PERIOD_D1, 0) - iLow("EURCAD", PERIOD_D1, 0)) / ld_624); else ld_128 = 0; if (ld_632 != 0.0) ld_136 = 100.0 * ((iClose("GBPCAD", PERIOD_D1, 0) - iLow("GBPCAD", PERIOD_D1, 0)) / ld_632); else ld_136 = 0; if (ld_640 != 0.0) ld_144 = 100.0 * ((iClose("EURJPY", PERIOD_D1, 0) - iLow("EURJPY", PERIOD_D1, 0)) / ld_640); else ld_144 = 0; if (ld_648 != 0.0) ld_152 = 100.0 * ((iClose("EURNZD", PERIOD_D1, 0) - iLow("EURNZD", PERIOD_D1, 0)) / ld_648); else ld_152 = 0; if (ld_656 != 0.0) ld_160 = 100.0 * ((iClose("EURUSD", PERIOD_D1, 0) - iLow("EURUSD", PERIOD_D1, 0)) / ld_656); else ld_160 = 0; if (ld_664 != 0.0) ld_168 = 100.0 * ((iClose("EURGBP", PERIOD_D1, 0) - iLow("EURGBP", PERIOD_D1, 0)) / ld_664); else ld_168 = 0; if (ld_672 != 0.0) ld_176 = 100.0 * ((iClose("EURAUD", PERIOD_D1, 0) - iLow("EURAUD", PERIOD_D1, 0)) / ld_672); else ld_176 = 0; if (ld_680 != 0.0) ld_184 = 100.0 * ((iClose("GBPJPY", PERIOD_D1, 0) - iLow("GBPJPY", PERIOD_D1, 0)) / ld_680); else ld_184 = 0; if (ld_688 != 0.0) ld_192 = 100.0 * ((iClose("GBPNZD", PERIOD_D1, 0) - iLow("GBPNZD", PERIOD_D1, 0)) / ld_688); else ld_192 = 0; if (ld_696 != 0.0) ld_200 = 100.0 * ((iClose("GBPUSD", PERIOD_D1, 0) - iLow("GBPUSD", PERIOD_D1, 0)) / ld_696); else ld_200 = 0; if (ld_712 != 0.0) ld_208 = 100.0 * ((iClose("NZDJPY", PERIOD_D1, 0) - iLow("NZDJPY", PERIOD_D1, 0)) / ld_712); else ld_208 = 0; if (ld_704 != 0.0) ld_216 = 100.0 * ((iClose("USDJPY", PERIOD_D1, 0) - iLow("USDJPY", PERIOD_D1, 0)) / ld_704); else ld_216 = 0; if (ld_720 != 0.0) ld_232 = 100.0 * ((iClose("USDZAR", PERIOD_D1, 0) - iLow("USDZAR", PERIOD_D1, 0)) / ld_720); else ld_232 = 0; if (ld_728 != 0.0) ld_240 = 100.0 * ((iClose("USDHKD", PERIOD_D1, 0) - iLow("USDHKD", PERIOD_D1, 0)) / ld_728); else ld_240 = 0; if (ld_824 != 0.0) ld_336 = 100.0 * ((iClose("6J_CONT", PERIOD_D1, 0) - iLow("6J_CONT", PERIOD_D1, 0)) / ld_824); else ld_336 = 0; if (ld_832 != 0.0) ld_344 = 100.0 * ((iClose("6B_CONT", PERIOD_D1, 0) - iLow("6B_CONT", PERIOD_D1, 0)) / ld_832); else ld_344 = 0; if (ld_840 != 0.0) ld_352 = 100.0 * ((iClose("XAUEUR", PERIOD_D1, 0) - iLow("XAUEUR", PERIOD_D1, 0)) / ld_840); else ld_352 = 0; if (ld_848 != 0.0) ld_360 = 100.0 * ((iClose("XAUUSD", PERIOD_D1, 0) - iLow("XAUUSD", PERIOD_D1, 0)) / ld_848); else ld_360 = 0; if (ld_856 != 0.0) ld_368 = 100.0 * ((iClose("6A_CONT", PERIOD_D1, 0) - iLow("6A_CONT", PERIOD_D1, 0)) / ld_856); else ld_368 = 0; if (ld_864 != 0.0) ld_376 = 100.0 * ((iClose("6N_CONT", PERIOD_D1, 0) - iLow("6N_CONT", PERIOD_D1, 0)) / ld_864); else ld_384 = 0; if (ld_872 != 0.0) ld_384 = 100.0 * ((iClose("6C_CONT", PERIOD_D1, 0) - iLow("6C_CONT", PERIOD_D1, 0)) / ld_872); else ld_384 = 0; if (ld_880 != 0.0) ld_392 = 100.0 * ((iClose("6S_CONT", PERIOD_D1, 0) - iLow("6S_CONT", PERIOD_D1, 0)) / ld_880); else ld_392 = 0; if (ld_888 != 0.0) ld_400 = 100.0 * ((iClose(".SILVER", PERIOD_D1, 0) - iLow(".SILVER", PERIOD_D1, 0)) / ld_888); else ld_400 = 0; if (ld_896 != 0.0) ld_408 = 100.0 * ((iClose("VIX", PERIOD_D1, 0) - iLow("VIX", PERIOD_D1, 0)) / ld_896); else ld_408 = 0; if (ld_904 != 0.0) ld_416 = 100.0 * ((iClose("XAGEUR", PERIOD_D1, 0) - iLow("XAGEUR", PERIOD_D1, 0)) / ld_904); else ld_416 = 0; if (ld_912 != 0.0) ld_424 = 100.0 * ((iClose("XAGUSD", PERIOD_D1, 0) - iLow("XAGUSD", PERIOD_D1, 0)) / ld_912); else ld_424 = 0; if (ld_920 != 0.0) ld_432 = 100.0 * ((iClose(WTI, PERIOD_D1, 0) - iLow(WTI, PERIOD_D1, 0)) / ld_920); else ld_432 = 0; if (ld_928 != 0.0) ld_440 = 100.0 * ((iClose(NatGas, PERIOD_D1, 0) - iLow(NatGas, PERIOD_D1, 0)) / ld_928); else ld_440 = 0; if (ld_936 != 0.0) ld_448 = 100.0 * ((iClose("HK50", PERIOD_D1, 0) - iLow("HK50", PERIOD_D1, 0)) / ld_936); else ld_448 = 0; if (ld_944 != 0.0) ld_456 = 100.0 * ((iClose("JP225", PERIOD_D1, 0) - iLow("JP225", PERIOD_D1, 0)) / ld_944); else ld_456 = 0; if (ld_952 != 0.0) ld_464 = 100.0 * ((iClose("AUS200", PERIOD_D1, 0) - iLow("AUS200", PERIOD_D1, 0)) / ld_952); else ld_464 = 0; if (ld_960 != 0.0) ld_472 = 100.0 * ((iClose("US2000", PERIOD_D1, 0) - iLow("US2000", PERIOD_D1, 0)) / ld_960); else ld_472 = 0; if (ld_968 != 0.0) ld_480 = 100.0 * ((iClose("STOXX50", PERIOD_D1, 0) - iLow("STOXX50", PERIOD_D1, 0)) / ld_968); else ld_480 = 0; if (ld_976 != 0.0) ld_488 = 100.0 * ((iClose("ES35", PERIOD_D1, 0) - iLow("ES35", PERIOD_D1, 0)) / ld_976); else ld_488 = 0; if (ld_736 != 0.0) ld_248 = 100.0 * ((iClose(".GOLD", PERIOD_D1, 0) - iLow(".GOLD", PERIOD_D1, 0)) / ld_736); else ld_248 = 0; if (ld_744 != 0.0) ld_256 = 100.0 * ((iClose(BRENT, PERIOD_D1, 0) - iLow(BRENT, PERIOD_D1, 0)) / ld_744); else ld_256 = 0; if (ld_752 != 0.0) ld_264 = 100.0 * ((iClose("US500", PERIOD_D1, 0) - iLow("US500", PERIOD_D1, 0)) / ld_752); else ld_264 = 0; if (ld_760 != 0.0) ld_272 = 100.0 * ((iClose("NQ_CONT", PERIOD_D1, 0) - iLow("NQ_CONT", PERIOD_D1, 0)) / ld_760); else ld_272 = 0; if (ld_768 != 0.0) ld_280 = 100.0 * ((iClose("US30", PERIOD_D1, 0) - iLow("US30", PERIOD_D1, 0)) / ld_768); else ld_280 = 0; if (ld_776 != 0.0) ld_288 = 100.0 * ((iClose("DXY", PERIOD_D1, 0) - iLow("DXY", PERIOD_D1, 0)) / ld_776); else ld_288 = 0; if (ld_784 != 0.0) ld_296 = 100.0 * ((iClose("UK100", PERIOD_D1, 0) - iLow("UK100", PERIOD_D1, 0)) / ld_784); else ld_296 = 0; if (ld_792 != 0.0) ld_304 = 100.0 * ((iClose("DE30", PERIOD_D1, 0) - iLow("DE30", PERIOD_D1, 0)) / ld_792); else ld_304 = 0; if (ld_800 != 0.0) ld_312 = 100.0 * ((iClose("6E_CONT", PERIOD_D1, 0) - iLow("6E_CONT", PERIOD_D1, 0)) / ld_800); else ld_312 = 0; if (ld_808 != 0.0) ld_320 = 100.0 * ((iClose("F40", PERIOD_D1, 0) - iLow("F40", PERIOD_D1, 0)) / ld_808); else ld_320 = 0; if (ld_816 != 0.0) ld_328 = 100.0 * ((iClose("IT40", PERIOD_D1, 0) - iLow("IT40", PERIOD_D1, 0)) / ld_816); else ld_328 = 0; if (!IsTradingTime(gs_184, gs_192)) { Print("aaa"); ld_288 = 0; } if (!IsTradingTime(gs_200, gs_208)) ld_296 = 0; if (!IsTradingTime(gs_216, gs_224)) ld_304 = 0; if (!IsTradingTime(gs_248, gs_256)) ld_320 = 0; if (!IsTradingTime(gs_264, gs_272)) ld_328 = 0; if (!IsTradingTime(gs_280, gs_288)) ld_472 = 0; double ld_984 = (ld_0 + ld_8 + ld_16 + ld_24 + (100 - ld_32) + ld_40 + ld_48) / 7.0; double ld_992 = (ld_56 + (100 - ld_64) + (100 - ld_72) + (100 - ld_80) + (100 - ld_88) + (100 - ld_40) + (100 - ld_96)) / 7.0; double ld_1000 = (ld_104 + (100 - ld_112) + (100 - ld_120) + (100 - ld_128) + (100 - ld_136) + (100 - ld_48) + (100 - ld_96)) / 7.0; double ld_1008 = (ld_144 + ld_152 + ld_160 + ld_128 + ld_168 + ld_176 + ld_80) / 7.0; double ld_1016 = (ld_184 + ld_192 + ld_200 + ld_136 + (100 - ld_168) + ld_32 + ld_88) / 7.0; double ld_1024 = (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_1032 = (ld_208 + (100 - ld_192) + ld_224 + ld_112 + (100 - ld_152) + (100 - ld_8) + ld_64) / 7.0; double ld_1040 = (100 - ld_16 + ld_72 + ld_120 + (100 - ld_160) + (100 - ld_200) + ld_216 + (100 - ld_224)) / 7.0; objectBlank(); paint("AUD", ld_984); paint("CHF", ld_992); paint("CAD", ld_1000); paint("EUR", ld_1008); paint("GBP", ld_1016); paint("JPY", ld_1024); paint("NZD", ld_1032); paint("USD", ld_1040); paint("6J_CONT", ld_336); paint("XAUEUR", ld_352); paint("XAUSD", ld_360); paint("6A_CONT", ld_368); paint("6N_CONT", ld_376); paint("6C_CONT", ld_384); paint("6S_CONT", ld_392); paint(".SILVER", ld_400); paint("VIX", ld_408); paint("XAGEUR", ld_416); paint("XAGUSD", ld_424); paint(WTI, ld_432); paint(NatGas, ld_440); paint("HK50", ld_448); paint("JP225", ld_456); paint("AUS200", ld_464); paint("US2000", ld_472); paint("STOXX50", ld_480); paint("ES35", ld_488); paint(".GOLD", ld_248); paint("BRENT", ld_256); paint("US500", ld_264); paint("NQ_CONT", ld_272); paint("US30", ld_280); paint("DXY", ld_288); paint("UK100", ld_296); paint("DE30", ld_304); paint("6E_CONT", ld_312); paint("F40", ld_320); paint("IT40", ld_328); paint("6J_CONT", ld_336); paint("6B_CONT", ld_344); paint("XAUEUR", ld_352); paint("XAUUSD", ld_360); paint("6A_CONT", ld_368); paint("6N_CONT", ld_376); paint("6C_CONT", ld_384); paint("6S_CONT", ld_392); paint(".SILVER", ld_400); paint("VIX", ld_408); paint("XAGEUR", ld_416); paint("XAGUSD", ld_424); paint(WTI, ld_432); paint(NatGas, ld_440); paint("HK50", ld_448); paint("JP225", ld_456); paint("AUS200", ld_464); paint("US2000", ld_472); paint("STOXX50", ld_480); paint("ES35", ld_488); } 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 * gi_180; 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() { double ld_28; ObjectsDeleteAll(0, OBJ_LABEL); int li_0 = 480 - yaxis; int li_4 = -5; int li_8 = li_4 + 40 * gi_180 / 10; int li_12 = li_0 + 40; for (int li_16 = 1; li_16 <= 51; li_16++) { objectCreate("aud_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("audtxt", li_8, li_0 + 100, "AUD", gi_180 + 1, "Arial ", White); objectCreate("audp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 77 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("chf_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("chftxt", li_8, li_0 + 100, "CHF", gi_180 + 1, "Arial ", White); objectCreate("chfp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 114 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("cad_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("cadtxt", li_8, li_0 + 100, "CAD", gi_180 + 1, "Arial ", White); objectCreate("cadp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 153 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("eur_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("eurtxt", li_8, li_0 + 100, "EUR", gi_180 + 1, "Arial ", White); objectCreate("eurp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 191 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("gbp_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("gbptxt", li_8, li_0 + 100, "GBP", gi_180 + 1, "Arial ", White); objectCreate("gbpp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 229 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("jpy_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("jpytxt", li_8, li_0 + 100, "JPY", gi_180 + 1, "Arial ", White); objectCreate("jpyp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 268 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("nzd_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("nzdtxt", li_8, li_0 + 100, "NZD", gi_180 + 1, "Arial ", White); objectCreate("nzdp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 308 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("usd_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("usdtxt", li_8, li_0 + 100, "USD", gi_180 + 1, "Arial ", White); objectCreate("usdp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_unused_352 = (li_8 + 20 + gi_180) / 2; li_8 = li_4 + 349 * gi_180 / 10; double ld_20 = li_8; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("JPYx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("JPYxtxt", li_8, li_0 + 100, "Jpyx", gi_180 + 1, "Arial ", White); objectCreate("JPYxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 389 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("DXY_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("dxytxt", li_8, li_0 + 100, "DXY", gi_180 + 1, "Arial ", White); objectCreate("dxyp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_368 = (ld_28 + li_8) / 2.0; li_8 = li_4 + 428 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("GBPx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("GBPxtxt", li_8, li_0 + 100, "Gbpx", gi_180 + 1, "Arial ", White); objectCreate("GBPxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 468 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("EUx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("euxtxt", li_8, li_0 + 100, "Eurx", gi_180 + 1, "Arial ", White); objectCreate("euxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 508 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("AUDx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("AUDxtxt", li_8, li_0 + 100, "Audx", gi_180 + 1, "Arial ", White); objectCreate("AUDxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 545 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("NZDx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("NZDxtxt", li_8, li_0 + 100, "Nzdx", gi_180 + 1, "Arial ", White); objectCreate("NZDxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 586 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("CADx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("CADxtxt", li_8, li_0 + 100, "Cadx", gi_180 + 1, "Arial ", White); objectCreate("CADxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 624 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("CHFx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("CHFxtxt", li_8, li_0 + 100, "Chfx", gi_180 + 1, "Arial ", White); objectCreate("CHFxp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 668 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("XAUEUR_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("xaueurtxt", li_8, li_0 + 100, "XAUEUR", gi_180 + 1, "Arial ", White); objectCreate("xaueurp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 708 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("XAUUSD_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("xauusdtxt", li_8, li_0 + 100, "XAUEUSD", gi_180 + 1, "Arial ", White); objectCreate("xauusdp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 745 * gi_180 / 10; gd_360 = (ld_20 + li_8) / 2.0; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("XAGEUR_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("xageurtxt", li_8, li_0 + 100, "XAGEUR", gi_180 + 1, "Arial ", White); objectCreate("xaguerp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 784 * gi_180 / 10; gd_360 = (ld_20 + li_8) / 2.0; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("XAGUSD_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("xagusdtxt", li_8, li_0 + 100, "XAGUSD", gi_180 + 1, "Arial ", White); objectCreate("xagusdp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 830 * gi_180 / 10; gd_360 = (ld_20 + li_8) / 2.0; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate(".GOLD_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate(".goldtxt", li_8, li_0 + 100, ".GOLD", gi_180 + 1, "Arial ", White); objectCreate(".goldp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 868 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("BRENT_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("brenttxt", li_8, li_0 + 100, " BRENT", gi_180 + 1, "Arial ", White); objectCreate("brentp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 904 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("WTIx_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("wtitxt", li_8, li_0 + 100, "WTI", gi_180 + 1, "Arial ", White); objectCreate("wtip", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 943 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("NatGas_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("natgastxt", li_8, li_0 + 100, "NatGas", gi_180 + 1, "Arial ", White); objectCreate("natgasp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 988 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate(".SILVER_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate(".silvertxt", li_8, li_0 + 100, ".SILVER", gi_180 + 1, "Arial ", White); objectCreate(".Silverp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 1026 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("VIX_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("vixtxt", li_8, li_0 + 100, "VIX", gi_180 + 1, "Arial ", White); objectCreate("vixp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 1063 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("HK50_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("hk50txt", li_8, li_0 + 100, "HK50", gi_180 + 1, "Arial ", White); objectCreate("hk50p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 1106 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("JP225_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("jp225txt", li_8, li_0 + 100, "JP225", gi_180 + 1, "Arial ", White); objectCreate("jp225p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 1142 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("AUS200_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("aus200txt", li_8, li_0 + 100, "AUS200", gi_180 + 1, "Arial ", White); objectCreate("aus200p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_360 = (ld_20 + li_8) / 2.0; li_8 = li_4 + 1187 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("US500_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("us500txt", li_8, li_0 + 100, "US500", gi_180 + 1, "Arial ", White); objectCreate("us500p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); ld_28 = li_8; li_8 = li_4 + 1225 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("USTEC_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("ustectxt", li_8, li_0 + 100, "USTEC", gi_180 + 1, "Arial ", White); objectCreate("ustecp", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1264 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("US30_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("us30txt", li_8, li_0 + 100, " US30", gi_180 + 1, "Arial ", White); objectCreate("us30p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1303 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("US2000_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("us2000txt", li_8, li_0 + 100, "US2000", gi_180 + 1, "Arial ", White); objectCreate("us2000p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1339 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("STOXX50_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("stoxx50txt", li_8, li_0 + 100, "STOXX50", gi_180 + 1, "Arial ", White); objectCreate("stoxx50p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); double ld_36 = li_8; li_8 = li_4 + 1375 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("ES35_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("es35txt", li_8, li_0 + 100, "ES35", gi_180 + 1, "Arial ", White); objectCreate("es35p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1415 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("UK100_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("uk100txt", li_8, li_0 + 100, "UK100", gi_180 + 1, "Arial ", White); objectCreate("uk100p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1453 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("DE30_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("de30txt", li_8, li_0 + 100, "DE30", gi_180 + 1, "Arial ", White); objectCreate("de30p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1491 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("F40_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("f40txt", li_8, li_0 + 100, "F40", gi_180 + 1, "Arial ", White); objectCreate("f40p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); li_8 = li_4 + 1530 * gi_180 / 10; li_12 = li_0 + 40; for (li_16 = 1; li_16 <= 51; li_16++) { objectCreate("it40_" + li_16, li_8, li_12); li_12 -= 2; } objectCreate("it40txt", li_8, li_0 + 100, "IT40", gi_180 + 1, "Arial ", White); objectCreate("it40p", li_8, li_0 + 80 - 2, DoubleToStr(9, 1), gi_180 + 2, "Arial Narrow", White); gd_376 = (ld_36 + li_8) / 2.0; gd_384 = (ld_28 + li_8) / 2.0; } void objectBlank() { ObjectCreate("barline", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline", "___________________________________________________________________________________________________________________________________________________________________________________________________________________________", 12, "Arial Bold", Gray); ObjectSet("barline", OBJPROP_CORNER, 0); ObjectSet("barline", OBJPROP_XDISTANCE, 17); ObjectSet("barline", OBJPROP_YDISTANCE, 419 - yaxis); ObjectCreate("barline1", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline1", "__________________________________________________________________________________________________________________________________________________________________________________________________________________________ ", 12, "Arial Bold", Gray); ObjectSet("barline1", OBJPROP_CORNER, 0); ObjectSet("barline1", OBJPROP_XDISTANCE, 17); ObjectSet("barline1", OBJPROP_YDISTANCE, 432 - yaxis); ObjectCreate("barline2", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline2", "__________________________________________________________________________________________________________________________________________________________________________________________________________________________", 12, "Arial Bold", Gray); ObjectSet("barline2", OBJPROP_CORNER, 0); ObjectSet("barline2", OBJPROP_XDISTANCE, 363); ObjectSet("barline2", OBJPROP_YDISTANCE, 419 - yaxis); ObjectCreate("barline3", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline3", "__________________________________________________________________________________________________________________________________________________________________________________________________________________________", 12, "Arial Bold", Gray); ObjectSet("barline3", OBJPROP_CORNER, 0); ObjectSet("barline3", OBJPROP_XDISTANCE, 363); ObjectSet("barline3", OBJPROP_YDISTANCE, 432 - yaxis); ObjectCreate("barline4", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline4", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline4", OBJPROP_CORNER, 0); ObjectSet("barline4", OBJPROP_XDISTANCE, 0); ObjectSet("barline4", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline4", OBJPROP_ANGLE, 90); ObjectCreate("label1", OBJ_LABEL, 0, 0, 0); ObjectSetText("label1", "Currencies", 9, "Tahoma", White); ObjectSet("label1", OBJPROP_CORNER, 0); ObjectSet("label1", OBJPROP_XDISTANCE, 80); ObjectSet("label1", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("barline5", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline5", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline5", OBJPROP_CORNER, 0); ObjectSet("barline5", OBJPROP_XDISTANCE, 183); ObjectSet("barline5", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline5", OBJPROP_ANGLE, 90); ObjectCreate("label2", OBJ_LABEL, 0, 0, 0); ObjectSetText("label2", "CCY Index", 9, "Tahoma", White); ObjectSet("label2", OBJPROP_CORNER, 0); ObjectSet("label2", OBJPROP_XDISTANCE, 264); ObjectSet("label2", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("barline6", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline6", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline6", OBJPROP_CORNER, 0); ObjectSet("barline6", OBJPROP_XDISTANCE, 373); ObjectSet("barline6", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline6", OBJPROP_ANGLE, 90); ObjectCreate("label3", OBJ_LABEL, 0, 0, 0); ObjectSetText("label3", "Metal", 9, "Tahoma", White); ObjectSet("label3", OBJPROP_CORNER, 0); ObjectSet("label3", OBJPROP_XDISTANCE, 420); ObjectSet("label3", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("barline7", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline7", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline7", OBJPROP_CORNER, 0); ObjectSet("barline7", OBJPROP_XDISTANCE, 564); ObjectSet("barline7", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline7", OBJPROP_ANGLE, 90); ObjectCreate("label4", OBJ_LABEL, 0, 0, 0); ObjectSetText("label4", "Commodity", 9, "Tahoma", White); ObjectSet("label4", OBJPROP_CORNER, 0); ObjectSet("label4", OBJPROP_XDISTANCE, 505); ObjectSet("label4", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("barline8", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline8", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline8", OBJPROP_CORNER, 0); ObjectSet("barline8", OBJPROP_XDISTANCE, 469); ObjectSet("barline8", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline8", OBJPROP_ANGLE, 90); ObjectCreate("label5", OBJ_LABEL, 0, 0, 0); ObjectSetText("label5", "USA Canada Indices", 9, "Tahoma", White); ObjectSet("label5", OBJPROP_CORNER, 0); ObjectSet("label5", OBJPROP_XDISTANCE, 716); ObjectSet("label5", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("label7", OBJ_LABEL, 0, 0, 0); ObjectSetText("label7", "Asian", 9, "Tahoma", White); ObjectSet("label7", OBJPROP_CORNER, 0); ObjectSet("label7", OBJPROP_XDISTANCE, 604); ObjectSet("label7", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("barline9", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline9", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline9", OBJPROP_CORNER, 0); ObjectSet("barline9", OBJPROP_XDISTANCE, 684); ObjectSet("barline9", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline9", OBJPROP_ANGLE, 90); ObjectCreate("barline11", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline11", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline11", OBJPROP_CORNER, 0); ObjectSet("barline11", OBJPROP_XDISTANCE, 913); ObjectSet("barline11", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline11", OBJPROP_ANGLE, 90); ObjectCreate("label6", OBJ_LABEL, 0, 0, 0); ObjectSetText("label6", "EURO Indices", 9, "Tahoma", White); ObjectSet("label6", OBJPROP_CORNER, 0); ObjectSet("label6", OBJPROP_XDISTANCE, 848); ObjectSet("label6", OBJPROP_YDISTANCE, 435 - yaxis); ObjectCreate("barline10", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline10", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline10", OBJPROP_CORNER, 0); ObjectSet("barline10", OBJPROP_XDISTANCE, 635); ObjectSet("barline10", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline10", OBJPROP_ANGLE, 90); ObjectCreate("barline0", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline0", "______________________________________________________________________________________________________________________________________________________________________________________________________________________________", 12, "Arial Bold", Gray); ObjectSet("barline0", OBJPROP_CORNER, 0); ObjectSet("barline0", OBJPROP_XDISTANCE, 17); ObjectSet("barline0", OBJPROP_YDISTANCE, 580 - yaxis); ObjectCreate("barline12", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline12", "__________________________________________________________________________________________________________________________________________________________________________________________________________________________", 12, "Arial Bold", Gray); ObjectSet("barline12", OBJPROP_CORNER, 0); ObjectSet("barline12", OBJPROP_XDISTANCE, 364); ObjectSet("barline12", OBJPROP_YDISTANCE, 580 - yaxis); ObjectCreate("barline13", OBJ_LABEL, 0, 0, 0); ObjectSetText("barline13", "__________________", 12, "Arial Bold", Gray); ObjectSet("barline13", OBJPROP_CORNER, 0); ObjectSet("barline13", OBJPROP_XDISTANCE, 823); ObjectSet("barline13", OBJPROP_YDISTANCE, 597 - yaxis); ObjectSet("barline13", OBJPROP_ANGLE, 90); ObjectCreate("label8", OBJ_LABEL, 0, 0, 0); ObjectSetText("label8", "Oceania", 9, "Tahoma", White); ObjectSet("label8", OBJPROP_CORNER, 0); ObjectSet("label8", OBJPROP_XDISTANCE, 655); ObjectSet("label8", OBJPROP_YDISTANCE, 435 - yaxis); 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(".gold_" + li_0); ObjectSet(".goldtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet(".goldp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("brent_" + li_0); ObjectSet("brenttxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("brentp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("us500_" + li_0); ObjectSet("us500txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("us500p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("ustec_" + li_0); ObjectSet("ustectxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("ustecp", 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("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("de30_" + li_0); ObjectSet("de30txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("de30p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("f40_" + li_0); ObjectSet("f40txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("f40p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("it40_" + li_0); ObjectSet("it40txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("it40p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("JPYx_" + li_0); ObjectSet("JPYxtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("JPYxp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("dxy_" + li_0); ObjectSet("dxytxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("dxyp", 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("GBPx_" + li_0); ObjectSet("GBPxtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("GBPxp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("AUDx_" + li_0); ObjectSet("AUDxtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("AUDxp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("NZDx_" + li_0); ObjectSet("NZDxtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("NZDxp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("CADx_" + li_0); ObjectSet("CADxtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("CADxp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("CHFx_" + li_0); ObjectSet("CHFxtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("CHFxp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("xaueur_" + li_0); ObjectSet("xaueurtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("xaueurp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("xauusd_" + li_0); ObjectSet("xauusdtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("xauusdp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank(".silver_" + li_0); ObjectSet(".silvertxt", OBJPROP_COLOR, CLR_NONE); ObjectSet(".silverp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("vix_" + li_0); ObjectSet("vixtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("vixp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("xageur_" + li_0); ObjectSet("xageurtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("xageurp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("xagusd_" + li_0); ObjectSet("xagusdtxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("xagusdp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("wti_" + li_0); ObjectSet("wtitxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("wtip", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("natgas_" + li_0); ObjectSet("natgastxt", OBJPROP_COLOR, CLR_NONE); ObjectSet("natgasp", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("hk50_" + li_0); ObjectSet("hk50txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("hk50p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("jp225_" + li_0); ObjectSet("jp225txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("jp225p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("aus200_" + li_0); ObjectSet("aus200txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("aus200p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("us200_" + li_0); ObjectSet("us2000txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("us2000p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("stoxx50_" + li_0); ObjectSet("stoxx50txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("stoxx50p", OBJPROP_COLOR, CLR_NONE); for (li_0 = 1; li_0 <= 51; li_0++) ObjectSetBlank("es35_" + li_0); ObjectSet("es35txt", OBJPROP_COLOR, CLR_NONE); ObjectSet("es35p", OBJPROP_COLOR, CLR_NONE); } void ObjectSetBlank(string a_name_0) { ObjectSet(a_name_0, OBJPROP_COLOR, CLR_NONE); } void paint(string a_symbol_0, double ad_8) { string ls_16 = ""; if (a_symbol_0 == "AUD") ls_16 = "aud"; if (a_symbol_0 == "CHF") ls_16 = "chf"; if (a_symbol_0 == "CAD") ls_16 = "cad"; if (a_symbol_0 == "EUR") ls_16 = "eur"; if (a_symbol_0 == "GBP") ls_16 = "gbp"; if (a_symbol_0 == "JPY") ls_16 = "jpy"; if (a_symbol_0 == "NZD") ls_16 = "nzd"; if (a_symbol_0 == "USD") ls_16 = "usd"; if (a_symbol_0 == "6J_CONT") ls_16 = "JPYx"; if (a_symbol_0 == "DXY") ls_16 = "dxy"; if (a_symbol_0 == "6E_CONT") ls_16 = "EUx"; if (a_symbol_0 == "6B_CONT") ls_16 = "GBPx"; if (a_symbol_0 == "6A_CONT") ls_16 = "AUDx"; if (a_symbol_0 == "6N_CONT") ls_16 = "NZDx"; if (a_symbol_0 == "6C_CONT") ls_16 = "CADx"; if (a_symbol_0 == "6S_CONT") ls_16 = "CHFx"; if (a_symbol_0 == "XAUEUR") ls_16 = "xaueur"; if (a_symbol_0 == "XAUUSD") ls_16 = "xauusd"; if (a_symbol_0 == "XAGEUR") ls_16 = "xageur"; if (a_symbol_0 == "XAGUSD") ls_16 = "xagusd"; if (a_symbol_0 == ".GOLD") ls_16 = ".gold"; if (a_symbol_0 == "BRENT") ls_16 = "brent"; if (a_symbol_0 == WTI) ls_16 = "wti"; if (a_symbol_0 == NatGas) ls_16 = "natgas"; if (a_symbol_0 == ".SILVER") ls_16 = ".silver"; if (a_symbol_0 == "VIX") ls_16 = "vix"; if (a_symbol_0 == "HK50") ls_16 = "hk50"; if (a_symbol_0 == "JP225") ls_16 = "jp225"; if (a_symbol_0 == "AUS200") ls_16 = "aus200"; if (a_symbol_0 == "US500") ls_16 = "us500"; if (a_symbol_0 == "USTEC") ls_16 = "ustec"; if (a_symbol_0 == "US30") ls_16 = "us30"; if (a_symbol_0 == "US2000") ls_16 = "us2000"; if (a_symbol_0 == "STOXX50") ls_16 = "stoxx50"; if (a_symbol_0 == "ES35") ls_16 = "es35"; if (a_symbol_0 == "UK100") ls_16 = "uk100"; if (a_symbol_0 == "DE30") ls_16 = "de30"; if (a_symbol_0 == "F40") ls_16 = "f40"; if (a_symbol_0 == "IT40") ls_16 = "it40"; if (ad_8 > 0.0) ObjectSet(ls_16 + "_1", OBJPROP_COLOR, White); if (ad_8 > 2.0) ObjectSet(ls_16 + "_2", OBJPROP_COLOR, White); if (ad_8 > 4.0) ObjectSet(ls_16 + "_3", OBJPROP_COLOR, White); if (ad_8 > 6.0) ObjectSet(ls_16 + "_4", OBJPROP_COLOR, White); if (ad_8 > 8.0) ObjectSet(ls_16 + "_5", OBJPROP_COLOR, White); if (ad_8 > 10.0) ObjectSet(ls_16 + "_6", OBJPROP_COLOR, White); if (ad_8 > 12.0) ObjectSet(ls_16 + "_7", OBJPROP_COLOR, White); if (ad_8 > 14.0) ObjectSet(ls_16 + "_8", OBJPROP_COLOR, White); if (ad_8 > 16.0) ObjectSet(ls_16 + "_9", OBJPROP_COLOR, White); if (ad_8 > 18.0) ObjectSet(ls_16 + "_10", OBJPROP_COLOR, White); if (ad_8 > 20.0) ObjectSet(ls_16 + "_11", OBJPROP_COLOR, LightBlue); if (ad_8 > 22.0) ObjectSet(ls_16 + "_12", OBJPROP_COLOR, LightBlue); if (ad_8 > 24.0) ObjectSet(ls_16 + "_13", OBJPROP_COLOR, LightBlue); if (ad_8 > 26.0) ObjectSet(ls_16 + "_14", OBJPROP_COLOR, LightBlue); if (ad_8 > 28.0) ObjectSet(ls_16 + "_15", OBJPROP_COLOR, LightBlue); if (ad_8 > 30.0) ObjectSet(ls_16 + "_16", OBJPROP_COLOR, LightBlue); if (ad_8 > 31.0) ObjectSet(ls_16 + "_17", OBJPROP_COLOR, LightBlue); if (ad_8 > 32.0) ObjectSet(ls_16 + "_18", OBJPROP_COLOR, LightBlue); if (ad_8 > 34.0) ObjectSet(ls_16 + "_19", OBJPROP_COLOR, LightBlue); if (ad_8 > 36.0) ObjectSet(ls_16 + "_20", OBJPROP_COLOR, LightBlue); if (ad_8 > 38.0) ObjectSet(ls_16 + "_21", OBJPROP_COLOR, LightBlue); if (ad_8 > 40.0) ObjectSet(ls_16 + "_22", OBJPROP_COLOR, SkyBlue); if (ad_8 > 42.0) ObjectSet(ls_16 + "_23", OBJPROP_COLOR, SkyBlue); if (ad_8 > 44.0) ObjectSet(ls_16 + "_24", OBJPROP_COLOR, SkyBlue); if (ad_8 > 46.0) ObjectSet(ls_16 + "_25", OBJPROP_COLOR, SkyBlue); if (ad_8 > 48.0) ObjectSet(ls_16 + "_26", OBJPROP_COLOR, SkyBlue); if (ad_8 > 50.0) ObjectSet(ls_16 + "_27", OBJPROP_COLOR, SkyBlue); if (ad_8 > 52.0) ObjectSet(ls_16 + "_28", OBJPROP_COLOR, SkyBlue); if (ad_8 > 54.0) ObjectSet(ls_16 + "_29", OBJPROP_COLOR, SkyBlue); if (ad_8 > 56.0) ObjectSet(ls_16 + "_30", OBJPROP_COLOR, SkyBlue); if (ad_8 > 58.0) ObjectSet(ls_16 + "_31", OBJPROP_COLOR, SkyBlue); if (ad_8 > 60.0) ObjectSet(ls_16 + "_32", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 62.0) ObjectSet(ls_16 + "_33", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 64.0) ObjectSet(ls_16 + "_34", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 66.0) ObjectSet(ls_16 + "_35", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 68.0) ObjectSet(ls_16 + "_36", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 70.0) ObjectSet(ls_16 + "_37", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 72.0) ObjectSet(ls_16 + "_38", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 74.0) ObjectSet(ls_16 + "_39", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 76.0) ObjectSet(ls_16 + "_40", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 78.0) ObjectSet(ls_16 + "_41", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 80.0) ObjectSet(ls_16 + "_42", OBJPROP_COLOR, DodgerBlue); if (ad_8 > 82.0) ObjectSet(ls_16 + "_43", OBJPROP_COLOR, Blue); if (ad_8 > 84.0) ObjectSet(ls_16 + "_44", OBJPROP_COLOR, Blue); if (ad_8 > 86.0) ObjectSet(ls_16 + "_45", OBJPROP_COLOR, Blue); if (ad_8 > 88.0) ObjectSet(ls_16 + "_46", OBJPROP_COLOR, Blue); if (ad_8 > 90.0) ObjectSet(ls_16 + "_47", OBJPROP_COLOR, Blue); if (ad_8 > 92.0) ObjectSet(ls_16 + "_48", OBJPROP_COLOR, Blue); if (ad_8 > 94.0) ObjectSet(ls_16 + "_49", OBJPROP_COLOR, Blue); if (ad_8 > 96.0) ObjectSet(ls_16 + "_50", OBJPROP_COLOR, Blue); if (ad_8 > 98.0) ObjectSet(ls_16 + "_51", OBJPROP_COLOR, Blue); if (ad_8 <= sell_level) { ObjectSet(ls_16 + "txt", OBJPROP_COLOR, Red); ObjectSetText(ls_16 + "p", DoubleToStr(ad_8, 0) + "%", gi_180 + 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) + "%", gi_180 + 2, "Arial Narrow", Lime); return; } ObjectSet(ls_16 + "txt", OBJPROP_COLOR, White); ObjectSetText(ls_16 + "p", DoubleToStr(ad_8, 0) + "%", gi_180 + 2, "Arial Narrow", White); } bool IsTradingTime(string as_0, string as_8) { int str2time_16 = StrToTime(Year() + "." + Month() + "." + Day() + " " + as_0); int li_20 = StrToTime(Year() + "." + Month() + "." + Day() + " " + as_8); if (str2time_16 > li_20) li_20 += 86400; if (TimeCurrent() > str2time_16 && TimeCurrent() < li_20) return (TRUE); return (FALSE); } void BlockMini(int ai_0, int ai_4) { RefreshRates(); int li_16 = ai_4; int li_20 = ai_0; int li_24 = 80; for (int li_12 = 0; li_12 < ArraySize(gia_176); li_12++) { for (int index_8 = 0; index_8 < ArraySize(gsa_88); index_8++) { gia_176[li_12] = iTime(Symbol(), PERIOD_D1, li_12); if (index_8 == 4) { li_20 = ai_0; li_16 += 120; } simulate(gia_176[li_12], gsa_88[index_8], li_20, li_16); li_20 += li_24; } } } void simulate(int ai_0, string as_4, int ai_12, int ai_16) { int lia_44[3]; string ls_60; double ld_68; int li_36 = ai_12; int li_40 = 25; display_IA("D1", ai_0, as_4, PERIOD_D1, li_36, ai_16); li_36 += li_40; for (int index_20 = 0; index_20 < ArraySize(gsa_88); index_20++) { for (int li_24 = index_20; li_24 < ArraySize(gsa_88); li_24++) { if (gia_156[li_24] > gia_156[index_20]) { ls_60 = gsa_88[index_20]; gsa_88[index_20] = gsa_88[li_24]; gsa_88[li_24] = ls_60; ld_68 = gia_156[index_20]; gia_156[index_20] = gia_156[li_24]; gia_156[li_24] = ld_68; } } } for (int index_28 = 0; index_28 < ArraySize(gsa_88); index_28++) if (gsa_88[index_28] == as_4) break; string ls_48 = " "; int li_56 = 8421504; if (gd_164 >= 150.0) { ls_48 = " - Strong"; li_56 = 65407; } if (gd_164 <= -150.0) { ls_48 = " - Weak"; li_56 = 3937500; } drawLabel(as_4 + "title", as_4 + ls_48, 8, "Tahoma", li_56, 0, ai_12, ai_16 - 20); } void display_IA(string as_0, int ai_8, string as_12, int a_timeframe_20, int ai_24, int ai_28) { double iopen_32; double bid_40; double ld_48; string str_concat_56; int datetime_68; int li_unused_76; int li_80; double point_104; int shift_112; string ls_124; double ld_132; string str_concat_140; int li_88 = ai_28; int li_92 = li_88 - 14; ArrayResize(gsa_160, 0); gd_164 = 0; for (int index_96 = 0; index_96 < ArraySize(gsa_92); index_96++) { if (StringFind(gsa_92[index_96], as_12, 0) != -1) { point_104 = MarketInfo(gsa_92[index_96], MODE_POINT); shift_112 = iBarShift(gsa_92[index_96], a_timeframe_20, ai_8); iopen_32 = iOpen(gsa_92[index_96], a_timeframe_20, shift_112); bid_40 = MarketInfo(gsa_92[index_96], MODE_BID); ld_48 = (bid_40 - iopen_32) / point_104; if (StringSubstr(gsa_92[index_96], 0, 3) == as_12) { ArrayResize(gsa_160, ArraySize(gsa_160) + 1); gsa_160[ArraySize(gsa_160) - 1] = gsa_92[index_96]; gd_164 += ld_48; gda_172[ArraySize(gsa_160) - 1] = ld_48; } if (StringSubstr(gsa_92[index_96], 3, 3) == as_12) { ArrayResize(gsa_160, ArraySize(gsa_160) + 1); gsa_160[ArraySize(gsa_160) - 1] = gsa_92[index_96]; gd_164 += 0 - ld_48; gda_172[ArraySize(gsa_160) - 1] = 0 - ld_48; } } } int datetime_64 = 0; string dbl2str_116 = ""; for (index_96 = 0; index_96 < ArraySize(gsa_160); index_96++) { datetime_68 = iTime(gsa_160[index_96], a_timeframe_20, shift_112); if (datetime_68 > datetime_64) datetime_64 = datetime_68; if (TimeToStr(datetime_68, TIME_DATE) != TimeToStr(ai_8, TIME_DATE)) { ld_48 = 0; dbl2str_116 = "err"; } } int li_84 = ai_24; drawLabel(as_12 + "label" + as_0 + DoubleToStr(ai_24, 0) + DoubleToStr(ai_28, 0), as_0, 8, "Tahoma", White, 0, li_84 + 50, li_88 - 10); for (index_96 = 0; index_96 < ArraySize(gsa_160); index_96++) { for (int li_100 = index_96; li_100 < ArraySize(gsa_160); li_100++) { if (gda_172[li_100] > gda_172[index_96]) { ls_124 = gsa_160[index_96]; gsa_160[index_96] = gsa_160[li_100]; gsa_160[li_100] = ls_124; ld_132 = gda_172[index_96]; gda_172[index_96] = gda_172[li_100]; gda_172[li_100] = ld_132; } } } for (index_96 = 0; index_96 < ArraySize(gsa_160); index_96++) { ld_48 = gda_172[index_96]; li_84 = ai_24; li_unused_76 = 14474460; if (dbl2str_116 != "err") dbl2str_116 = DoubleToStr(MathAbs(ld_48), 0); li_84 += 50; if (StringSubstr(gsa_160[index_96], 0, 3) == as_12) li_80 = 32768; else li_80 = 4678655; str_concat_140 = StringConcatenate(as_12, "-", gsa_160[index_96]); drawLabel(str_concat_140, gsa_160[index_96], 8, "Tahoma", li_80, 0, ai_24, li_88); str_concat_56 = StringConcatenate("IAmini-", as_12, gsa_160[index_96], "Pips"); drawLabel(str_concat_56, dbl2str_116, 8, "Tahoma", statcolor(ld_48), 0, li_84, li_88); li_88 += 12; } str_concat_56 = StringConcatenate("IAmini-", as_12, "totalpips"); drawLabel(str_concat_56, DoubleToStr(MathAbs(gd_164), 0), 8, "Tahoma", statcolor(gd_164), 0, ai_24 + 50, li_88); for (index_96 = 0; index_96 < ArraySize(gsa_88); index_96++) if (gsa_88[index_96] == as_12) gia_156[index_96] = gd_164; } int statcolor(double ad_0) { if (ad_0 > 0.0) return (64636); if (ad_0 < 0.0) return (255); return (32896); } void drawLabel(string a_name_0, string a_text_8, int a_fontsize_16, string a_fontname_20, color a_color_28, int a_corner_32, int a_x_36, int a_y_40) { ObjectCreate(a_name_0, OBJ_LABEL, 0, 0, 0); ObjectSetText(a_name_0, a_text_8, a_fontsize_16, a_fontname_20, a_color_28); ObjectSet(a_name_0, OBJPROP_CORNER, a_corner_32); ObjectSet(a_name_0, OBJPROP_XDISTANCE, a_x_36); ObjectSet(a_name_0, OBJPROP_YDISTANCE, a_y_40); } int Daily_AVG(string a_symbol_0) { int li_8 = 0; int li_12 = 0; int li_16 = 0; int li_20 = 0; int li_ret_24 = 0; int li_28 = 0; li_8 = (iHigh(a_symbol_0, PERIOD_D1, 1) - iLow(a_symbol_0, PERIOD_D1, 1)) / MarketInfo(a_symbol_0, MODE_POINT); for (li_28 = 1; li_28 <= 5; li_28++) li_12 = li_12 + (iHigh(a_symbol_0, PERIOD_D1, li_28) - iLow(a_symbol_0, PERIOD_D1, li_28)) / MarketInfo(a_symbol_0, MODE_POINT); for (li_28 = 1; li_28 <= 10; li_28++) li_16 = li_16 + (iHigh(a_symbol_0, PERIOD_D1, li_28) - iLow(a_symbol_0, PERIOD_D1, li_28)) / MarketInfo(a_symbol_0, MODE_POINT); for (li_28 = 1; li_28 <= 20; li_28++) li_20 = li_20 + (iHigh(a_symbol_0, PERIOD_D1, li_28) - iLow(a_symbol_0, PERIOD_D1, li_28)) / MarketInfo(a_symbol_0, MODE_POINT); li_12 /= 5; li_16 /= 10; li_20 /= 20; li_ret_24 = (li_8 + li_12 + li_16 + li_20) / 4; return (li_ret_24); } void displayHiLo() { double ld_16; int li_24; int li_28; double ld_32; int li_0 = 35; int li_4 = 735; int li_8 = 15134970; drawLabel("PairInfo1", "Pair Informations", 9, "Arial Bold", White, 0, li_4, li_0 - 12); drawLabel("PairInfo2", "Symbol Spr HiLo Avg Momt ", 8, "Tahoma", Yellow, 0, li_4, li_0); li_0 += 13; for (int index_12 = 0; index_12 < ArraySize(gsa_84); index_12++) { li_24 = 15134970; if (StringFind(gsa_84[index_12], "JPY", 0) != -1) li_8 = 8036607; else li_8 = 15134970; drawLabel(gsa_84[index_12] + "HiLoSym", gsa_84[index_12], 7, "Tahoma", li_8, 0, li_4, li_0); drawLabel(gsa_84[index_12] + "Spread", DoubleToStr(MarketInfo(gsa_84[index_12], MODE_SPREAD), 0), 7, "Tahoma", White, 0, li_4 + 50, li_0); if (Daily_AVG(gsa_84[index_12]) > (iHigh(gsa_84[index_12], PERIOD_D1, 0) - iLow(gsa_84[index_12], PERIOD_D1, 0)) / MarketInfo(gsa_84[index_12], MODE_POINT)) li_28 = 65280; else li_28 = 3937500; drawLabel(gsa_84[index_12] + "HiLo", DoubleToStr((iHigh(gsa_84[index_12], PERIOD_D1, 0) - iLow(gsa_84[index_12], PERIOD_D1, 0)) / MarketInfo(gsa_84[index_12], MODE_POINT), 0), 7, "Tahoma", li_28, 0, li_4 + 70, li_0); drawLabel(gsa_84[index_12] + "HiLoAVG", DoubleToStr(Daily_AVG(gsa_84[index_12]), 0), 7, "Tahoma", White, 0, li_4 + 95, li_0); ld_32 = iHigh(gsa_84[index_12], PERIOD_D1, 0) - iLow(gsa_84[index_12], PERIOD_D1, 0); ld_16 = (iClose(gsa_84[index_12], PERIOD_D1, 0) - iLow(gsa_84[index_12], PERIOD_D1, 0)) / ld_32; if (ld_16 >= 8.0) li_24 = 65280; drawLabel(gsa_84[index_12] + "HiLow", DoubleToStr(100.0 * ld_16, 0) + "%", 7, "Tahoma", li_24, 0, li_4 + 120, li_0); li_0 += 10; } showCSLocation(); } void displayCandleDirection() { color color_0; color color_4; color color_8; color color_12; color color_16; string text_32; string text_40; string text_48; string text_56; string text_64; string symbol_76; double iopen_84; double iclose_92; double iopen_100; double iclose_108; double iopen_116; double iclose_124; double iopen_132; double iclose_140; double iopen_148; double iclose_156; string name_164; int y_24 = 47; int x_28 = 990; for (int li_72 = ArraySize(gsa_76) - 1; li_72 > -1; li_72--) { symbol_76 = gsa_76[li_72]; iopen_84 = iOpen(symbol_76, PERIOD_D1, 0); iclose_92 = iClose(symbol_76, PERIOD_D1, 0); iopen_100 = iOpen(symbol_76, PERIOD_H4, 0); iclose_108 = iClose(symbol_76, PERIOD_H4, 0); iopen_116 = iOpen(symbol_76, PERIOD_H1, 0); iclose_124 = iClose(symbol_76, PERIOD_H1, 0); iopen_132 = iOpen(symbol_76, PERIOD_M15, 0); iclose_140 = iClose(symbol_76, PERIOD_M15, 0); iopen_148 = iOpen(symbol_76, PERIOD_M5, 0); iclose_156 = iClose(symbol_76, PERIOD_M5, 0); if (iopen_84 < iclose_92) { text_64 = "é"; color_0 = Green; } else { text_64 = "ê"; color_0 = Tomato; } if (iopen_100 < iclose_108) { text_56 = "é"; color_4 = Green; } else { text_56 = "ê"; color_4 = Tomato; } if (iopen_116 < iclose_124) { text_48 = "é"; color_8 = Green; } else { text_48 = "ê"; color_8 = Tomato; } if (iopen_132 < iclose_140) { text_40 = "é"; color_12 = Green; } else { text_40 = "ê"; color_12 = Tomato; } if (iopen_148 < iclose_156) { text_32 = "é"; color_16 = Green; } else { text_32 = "ê"; color_16 = Tomato; } if (symbol_76 == "GBPUSD" && symbol_76 == "USDJPY") { if (iopen_132 < iclose_140) { ObjectCreate("Signal", OBJ_LABEL, 0, 0, 0); ObjectSetText("Signal", "Sell GBPJPY", 8, "Arial Bold", Gray); ObjectSet("Signal", OBJPROP_CORNER, 0); ObjectSet("Signal", OBJPROP_XDISTANCE, 1000); ObjectSet("Signal", OBJPROP_YDISTANCE, 30); } } name_164 = "Candle_D1" + gsa_76[li_72]; ObjectCreate(name_164, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_164, text_64, 8, "Wingdings", color_0); ObjectSet(name_164, OBJPROP_CORNER, 0); ObjectSet(name_164, OBJPROP_XDISTANCE, x_28); ObjectSet(name_164, OBJPROP_YDISTANCE, y_24); name_164 = "Candle_H4 " + gsa_76[li_72]; ObjectCreate(name_164, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_164, text_56, 8, "Wingdings", color_4); ObjectSet(name_164, OBJPROP_CORNER, 0); ObjectSet(name_164, OBJPROP_XDISTANCE, x_28 + 24); ObjectSet(name_164, OBJPROP_YDISTANCE, y_24); name_164 = "Candle_H1" + gsa_76[li_72]; ObjectCreate(name_164, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_164, text_48, 8, "Wingdings", color_8); ObjectSet(name_164, OBJPROP_CORNER, 0); ObjectSet(name_164, OBJPROP_XDISTANCE, x_28 + 44); ObjectSet(name_164, OBJPROP_YDISTANCE, y_24); name_164 = "Candle_M15 " + gsa_76[li_72]; ObjectCreate(name_164, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_164, text_40, 8, "Wingdings", color_12); ObjectSet(name_164, OBJPROP_CORNER, 0); ObjectSet(name_164, OBJPROP_XDISTANCE, x_28 + 64); ObjectSet(name_164, OBJPROP_YDISTANCE, y_24); name_164 = "Candle_M5 " + gsa_76[li_72]; ObjectCreate(name_164, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_164, text_32, 8, "Wingdings", color_16); ObjectSet(name_164, OBJPROP_CORNER, 0); ObjectSet(name_164, OBJPROP_XDISTANCE, x_28 + 84); ObjectSet(name_164, OBJPROP_YDISTANCE, y_24); y_24 += 13; } y_24 = 45; for (li_72 = ArraySize(gsa_80) - 1; li_72 > -1; li_72--) { name_164 = "CandleDirection " + gsa_80[li_72]; if (gsa_80[li_72] == ".GOLD") gsa_80[li_72] = ".gold"; if (gsa_80[li_72] == "BRENT") gsa_80[li_72] = "brent"; if (gsa_80[li_72] == "DXY") gsa_80[li_72] = "dxy"; if (gsa_80[li_72] == "6J_CONT") gsa_80[li_72] = "JPYx"; if (gsa_80[li_72] == "6E_CONT") gsa_80[li_72] = "EURx"; if (gsa_80[li_72] == "6B_CONT") gsa_80[li_72] = "GBPx"; if (gsa_80[li_72] == "6A_CONT") gsa_80[li_72] = "AUDx"; if (gsa_80[li_72] == "6S_CONT") gsa_80[li_72] = "CHFx"; if (gsa_80[li_72] == "USTEC") gsa_80[li_72] = "ustec"; if (gsa_80[li_72] == "US500") gsa_80[li_72] = "us500"; if (gsa_80[li_72] == "6S_CONT") gsa_80[li_72] = "CHFx"; if (gsa_80[li_72] == "UK100") gsa_80[li_72] = "uk100"; if (gsa_80[li_72] == ".SILVER") gsa_80[li_72] = ".silver"; if (gsa_80[li_72] == "VIX") gsa_80[li_72] = "vix"; ObjectCreate(name_164, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_164, gsa_80[li_72], 8, "Arial", White); ObjectSet(name_164, OBJPROP_CORNER, 0); ObjectSet(name_164, OBJPROP_XDISTANCE, 945); ObjectSet(name_164, OBJPROP_YDISTANCE, y_24); y_24 += 13; } ObjectCreate("CandleDirection", OBJ_LABEL, 0, 0, 0); ObjectSetText("CandleDirection", "D1 H4 H1 M15 M5", 8, "Arial Bold", Gray); ObjectSet("CandleDirection", OBJPROP_CORNER, 0); ObjectSet("CandleDirection", OBJPROP_XDISTANCE, 990); ObjectSet("CandleDirection", OBJPROP_YDISTANCE, 30); ObjectCreate("IndexDirection", OBJ_LABEL, 0, 0, 0); ObjectSetText("IndexDirection", "Candle Directions", 9, "Arial Bold", Gray); ObjectSet("IndexDirection", OBJPROP_CORNER, 0); ObjectSet("IndexDirection", OBJPROP_XDISTANCE, 990); ObjectSet("IndexDirection", OBJPROP_YDISTANCE, 18); ObjectCreate("border3", OBJ_LABEL, 0, 0, 0); ObjectSetText("border3", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border3", OBJPROP_CORNER, 0); ObjectSet("border3", OBJPROP_XDISTANCE, 945); ObjectSet("border3", OBJPROP_YDISTANCE, 62); ObjectCreate("border4", OBJ_LABEL, 0, 0, 0); ObjectSetText("border4", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border4", OBJPROP_CORNER, 0); ObjectSet("border4", OBJPROP_XDISTANCE, 945); ObjectSet("border4", OBJPROP_YDISTANCE, 139); ObjectCreate("border1", OBJ_LABEL, 0, 0, 0); ObjectSetText("border1", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border1", OBJPROP_CORNER, 0); ObjectSet("border1", OBJPROP_XDISTANCE, 945); ObjectSet("border1", OBJPROP_YDISTANCE, 179); ObjectCreate("border2", OBJ_LABEL, 0, 0, 0); ObjectSetText("border2", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border2", OBJPROP_CORNER, 0); ObjectSet("border2", OBJPROP_XDISTANCE, 945); ObjectSet("border2", OBJPROP_YDISTANCE, 231); ObjectCreate("border5", OBJ_LABEL, 0, 0, 0); ObjectSetText("border5", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border5", OBJPROP_CORNER, 0); ObjectSet("border5", OBJPROP_XDISTANCE, 945); ObjectSet("border5", OBJPROP_YDISTANCE, 257); ObjectCreate("border6", OBJ_LABEL, 0, 0, 0); ObjectSetText("border6", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border6", OBJPROP_CORNER, 0); ObjectSet("border6", OBJPROP_XDISTANCE, 945); ObjectSet("border6", OBJPROP_YDISTANCE, 295); ObjectCreate("border7", OBJ_LABEL, 0, 0, 0); ObjectSetText("border7", ".................................................", 8, "Arial Bold", Gray); ObjectSet("border7", OBJPROP_CORNER, 0); ObjectSet("border7", OBJPROP_XDISTANCE, 945); ObjectSet("border7", OBJPROP_YDISTANCE, 348); ObjectCreate("tajuk0", OBJ_LABEL, 0, 0, 0); ObjectSetText("tajuk0", "--Com", 8, "Arial Bold", Gray); ObjectSet("tajuk0", OBJPROP_CORNER, 0); ObjectSet("tajuk0", OBJPROP_XDISTANCE, x_28 + 93); ObjectSet("tajuk0", OBJPROP_YDISTANCE, 72); ObjectSet("tajuk0", OBJPROP_ANGLE, 90); ObjectCreate("tajuk", OBJ_LABEL, 0, 0, 0); ObjectSetText("tajuk", "----CCy Index-----", 8, "Arial Bold", Gray); ObjectSet("tajuk", OBJPROP_CORNER, 0); ObjectSet("tajuk", OBJPROP_XDISTANCE, x_28 + 93); ObjectSet("tajuk", OBJPROP_YDISTANCE, 153); ObjectSet("tajuk", OBJPROP_ANGLE, 90); ObjectCreate("tajuk1", OBJ_LABEL, 0, 0, 0); ObjectSetText("tajuk1", "------USA-----", 8, "Arial Bold", Gray); ObjectSet("tajuk1", OBJPROP_CORNER, 0); ObjectSet("tajuk1", OBJPROP_XDISTANCE, x_28 + 93); ObjectSet("tajuk1", OBJPROP_YDISTANCE, 200); ObjectSet("tajuk1", OBJPROP_ANGLE, 90); ObjectCreate("tajuk2", OBJ_LABEL, 0, 0, 0); ObjectSetText("tajuk2", "--------EURO--", 8, "Arial Bold", Gray); ObjectSet("tajuk2", OBJPROP_CORNER, 0); ObjectSet("tajuk2", OBJPROP_XDISTANCE, x_28 + 93); ObjectSet("tajuk2", OBJPROP_YDISTANCE, 255); ObjectSet("tajuk2", OBJPROP_ANGLE, 90); ObjectCreate("tajuk3", OBJ_LABEL, 0, 0, 0); ObjectSetText("tajuk3", "---Cross------", 8, "Arial Bold", Gray); ObjectSet("tajuk3", OBJPROP_CORNER, 0); ObjectSet("tajuk3", OBJPROP_XDISTANCE, x_28 + 93); ObjectSet("tajuk3", OBJPROP_YDISTANCE, 310); ObjectSet("tajuk3", OBJPROP_ANGLE, 90); ObjectCreate("tajuk4", OBJ_LABEL, 0, 0, 0); ObjectSetText("tajuk4", "---------Majors------", 8, "Arial Bold", Gray); ObjectSet("tajuk4", OBJPROP_CORNER, 0); ObjectSet("tajuk4", OBJPROP_XDISTANCE, x_28 + 93); ObjectSet("tajuk4", OBJPROP_YDISTANCE, 380); ObjectSet("tajuk4", OBJPROP_ANGLE, 90); } void showCSLocation() { string text_4; string name_12; double iopen_24; double iclose_32; color color_40; string symbol_44; int y_0 = 35; ObjectCreate("StatusTitle", OBJ_LABEL, 0, 0, 0); ObjectSetText("StatusTitle", "Position", 8, "Arial Bold", Yellow); ObjectSet("StatusTitle", OBJPROP_CORNER, 0); ObjectSet("StatusTitle", OBJPROP_XDISTANCE, 885); ObjectSet("StatusTitle", OBJPROP_YDISTANCE, y_0); for (int index_20 = 0; index_20 < ArraySize(gsa_84); index_20++) { symbol_44 = gsa_84[index_20]; iopen_24 = iOpen(symbol_44, PERIOD_M15, 0); iclose_32 = iClose(symbol_44, PERIOD_M15, 0); SymFiboPivot(symbol_44); if (iclose_32 > gd_148) { text_4 = ">R3"; color_40 = Lime; } if (iclose_32 < gd_148) { text_4 = "R2-R3"; color_40 = Green; } if (iclose_32 < gd_140) { text_4 = "R1-R2"; color_40 = DarkGreen; } if (iclose_32 < gd_132) { text_4 = "Piv-R1"; color_40 = DimGray; } if (iclose_32 < gd_100) { text_4 = "S1-Piv"; color_40 = DimGray; } if (iclose_32 < gd_108) { text_4 = "S2-S1"; color_40 = Maroon; } if (iclose_32 < gd_116) { text_4 = "S3-S2"; color_40 = Crimson; } if (iclose_32 < gd_124) { text_4 = "= gd_148) { text_4 = "X R3"; color_40 = Fuchsia; } if (iopen_24 < gd_140 && iclose_32 >= gd_140) { text_4 = "X R2"; color_40 = Fuchsia; } if (iopen_24 < gd_132 && iclose_32 >= gd_132) { text_4 = "X R1"; color_40 = Fuchsia; } if (iopen_24 > gd_108 && iclose_32 <= gd_108) { text_4 = "X S1"; color_40 = Fuchsia; } if (iopen_24 > gd_116 && iclose_32 <= gd_116) { text_4 = "X S2"; color_40 = Fuchsia; } if (iopen_24 > gd_124 && iclose_32 <= gd_124) { text_4 = "X S3"; color_40 = Fuchsia; } name_12 = "Status " + symbol_44; ObjectCreate(name_12, OBJ_LABEL, 0, 0, 0); ObjectSetText(name_12, text_4, 8, "Arial Bold", color_40); ObjectSet(name_12, OBJPROP_CORNER, 0); ObjectSet(name_12, OBJPROP_XDISTANCE, 888); ObjectSet(name_12, OBJPROP_YDISTANCE, y_0 + 10); y_0 += 10; } } void SymFiboPivot(string a_symbol_0) { double lda_8[1][6]; double ld_12; double ld_20; double ld_28; ArrayCopyRates(lda_8, a_symbol_0, PERIOD_D1); if (DayOfWeek() == 1) { if (TimeDayOfWeek(iTime(a_symbol_0, PERIOD_D1, 1)) == 5) { ld_12 = lda_8[1][4]; ld_20 = lda_8[1][3]; ld_28 = lda_8[1][2]; } else { for (int li_36 = 5; li_36 >= 0; li_36--) { if (TimeDayOfWeek(iTime(a_symbol_0, PERIOD_D1, li_36)) == 5) { ld_12 = lda_8[li_36][4]; ld_20 = lda_8[li_36][3]; ld_28 = lda_8[li_36][2]; } } } } else { ld_12 = lda_8[1][4]; ld_20 = lda_8[1][3]; ld_28 = lda_8[1][2]; } double ld_40 = ld_20 - ld_28; gd_100 = (ld_20 + ld_28 + ld_12) / 3.0; gd_148 = gd_100 + 1.0 * ld_40; gd_140 = gd_100 + 0.618 * ld_40; gd_132 = gd_100 + ld_40 / 2.0; gd_108 = gd_100 - ld_40 / 2.0; gd_116 = gd_100 - 0.618 * ld_40; gd_124 = gd_100 - 1.0 * ld_40; }