#property copyright "Copyright © 2007, Mark A Flexhaug"
#property link      "pipaholic@shaw.ca"
#property library

#import "kernel32.dll"
   int GetTimeZoneInformation(int& a0[]);
#import

int gia_76[10];
double gda_unused_80[1000];
double gda_unused_84[1000];
double gda_unused_88[1000];
double gda_unused_92[1000];
string gsa_96[] = {"Server", "GMT", "Local"};
string gsa_100[] = {"Unknown", "Interbank FX, LLC", "FXDirectDealer", "Demo Account", "North Finance Company Ltd", "FOREX", "Alpari (UK) Ltd."};
int gi_104 = 7;
int gi_108;
int gi_unused_112 = 1;
int gi_unused_116 = 2;
int gia_120[] = {0, 0, 3, 3, 3, 0, 2};
int gia_124[43];

void MilToStr(string as_0) {
   int l_str2int_8;
   string l_str_concat_12 = "";
   string ls_20 = "";
   if (StringLen(as_0) != 4) {
      l_str2int_8 = StrToInteger(as_0);
      if (l_str2int_8 < 10) ls_20 = "000" + l_str2int_8;
      else {
         if (l_str2int_8 < 100) ls_20 = "00" + l_str2int_8;
         else {
            if (l_str2int_8 < 1000) ls_20 = "0" + l_str2int_8;
            else ls_20 = l_str2int_8;
         }
      }
   } else ls_20 = as_0;
   l_str_concat_12 = StringConcatenate(l_str_concat_12, CharToStr(StringGetChar(ls_20, 0)));
   l_str_concat_12 = StringConcatenate(l_str_concat_12, CharToStr(StringGetChar(ls_20, 1)));
   l_str_concat_12 = StringConcatenate(l_str_concat_12, ":");
   l_str_concat_12 = StringConcatenate(l_str_concat_12, CharToStr(StringGetChar(ls_20, 2)));
   StringConcatenate(l_str_concat_12, CharToStr(StringGetChar(ls_20, 3)));
}

int TimeCheckWindow(int /*<unknown>*/ ai_unused_0, int /*<unknown>*/ ai_unused_4, int /*<unknown>*/ ai_unused_8, int /*<unknown>*/ ai_unused_12, int /*<unknown>*/ ai_unused_16, int /*<unknown>*/ ai_unused_20) {
   return (0);
}

string TimeGet(int ai_0, int ai_4, int aia_8[], int ai_12) {
   string l_str_concat_20;
   string l_str_concat_28;
   TimeSync(Time[ai_4], aia_8, ai_12);
   if (ai_4 == 0) {
      if (TimeMinute(TimeLocal()) < 10) l_str_concat_20 = StringConcatenate(":0", TimeMinute(TimeLocal()));
      else l_str_concat_20 = StringConcatenate(":", TimeMinute(TimeLocal()));
   } else {
      if (TimeMinute(Time[ai_4]) < 10) l_str_concat_20 = StringConcatenate(":0", TimeMinute(Time[ai_4]));
      else l_str_concat_20 = StringConcatenate(":", TimeMinute(Time[ai_4]));
   }
   int li_16 = aia_8[ai_0];
   if (li_16 < 10) l_str_concat_28 = StringConcatenate("0", li_16, l_str_concat_20);
   else l_str_concat_28 = StringConcatenate(li_16, l_str_concat_20);
   return (l_str_concat_28);
}

int TimeSync(int ai_0, int &aia_4[], int ai_8) {
   int li_ret_20;
   string ls_unused_24;
   string ls_unused_32;
   aia_4[0] = TimeHour(ai_0);
   aia_4[1] = aia_4[0] - gia_120[ai_8];
   if (aia_4[1] < 0) aia_4[1] += 24;
   aia_4[2] = aia_4[0] + gi_108;
   if (aia_4[2] < 0) aia_4[2] += 24;
   aia_4[6] = aia_4[0] - aia_4[1];
   return (li_ret_20);
}

int TimeGetBar(int ai_0, int ai_4, int ai_8, int ai_12) {
   int li_20;
   int li_24 = 30 * (1440 / Period());
   for (int l_index_16 = 0; l_index_16 < li_24; l_index_16++) {
      TimeSync(Time[l_index_16], gia_76, ai_12);
      li_20 = gia_76[ai_0];
      if (li_20 == ai_4 && TimeMinute(Time[l_index_16]) == ai_8) return (l_index_16);
   }
   return (-1);
}

int TimeCheckBroker() {
   string ls_16 = AccountCompany();
   int l_hour_4 = TimeHour(TimeLocal());
   int li_8 = Hour();
   if (li_8 < l_hour_4) li_8 += 24;
   gi_108 = l_hour_4 - li_8;
   bool li_ret_12 = FALSE;
   for (int l_index_0 = 0; l_index_0 < gi_104; l_index_0++) {
      if (ls_16 == gsa_100[l_index_0]) {
         li_ret_12 = l_index_0;
         l_index_0 = gi_104;
      }
   }
   return (li_ret_12);
}

int TimeGMT() {
   int li_0 = GetTimeZoneInformation(gia_124);
   if (li_0 == 1) li_0 = 3600;
   else li_0 = 0;
   return (TimeLocal() + li_0 + 60 * (gia_124[0] + gia_124[42]));
}

string Int2Mil(int ai_0) {
   string ls_ret_4 = "";
   if (ai_0 < 10) ls_ret_4 = "000" + ai_0;
   else {
      if (ai_0 < 100) ls_ret_4 = "00" + ai_0;
      else {
         if (ai_0 < 1000) ls_ret_4 = "0" + ai_0;
         else ls_ret_4 = ai_0;
      }
   }
   return (ls_ret_4);
}

string String2Mil(string as_0) {
   string ls_ret_12 = "";
   int l_str2int_8 = StrToInteger(as_0);
   if (l_str2int_8 < 10) ls_ret_12 = "000" + l_str2int_8;
   else {
      if (l_str2int_8 < 100) ls_ret_12 = "00" + l_str2int_8;
      else {
         if (l_str2int_8 < 1000) ls_ret_12 = "0" + l_str2int_8;
         else ls_ret_12 = l_str2int_8;
      }
   }
   return (ls_ret_12);
}