4xmeter

Some interesting indicators in their blog. I am not going to check them out; I am complete.
 
http://www.bluedreamfx.blogspot.com

Some interesting indicators in their blog. I am not going to check them out; I am complete.
 
http://www.bluedreamfx.blogspot.com

Share is Care
 
is there any manual for this Meter ??
 
http://i.imgur.com/QKwJb.png
 
hxxp://xxx.multiupload.com/5Q2XBW66NZ

http://www.4shared.com/file/bBIwCnYp/25M.html
 
This indicator is a 25 % increment atr; being the Danger Area line at 100%.. If you like to play with it change the bool false to true on the mq4 file. For me to many lines. I like to Keep it simple.

the "Close All Hots" is all purposes closing script which means you can decide what type orders you want to close; you can choose one of 8 options by its index number by setting the option parameter in the input window you get when you run the script.
 
The new thing is you can assign a Hot Key to the script and with one click you can close all you orders very simply and quickly.
 
The other new stuff is that the script is able to reside on the chart. And this enables you to attach it to any chart even if this chart hosts an Expert Advisor.
 
// Set this prameter to the type of closing you want:
// 0- Close all (instant and pending orders) (Default)
// 1- Close all instant orders
// 2- Close all pending orders
// 3- Close by the magic number
// 4- Close by comment
// 5- Close orders in profit
// 6- Close orders in loss
// 7- Close not today orders
 
hxxp://xpworx.com/mql4/scripts/CloseAllHot.zip

http://www.4shared.com/file/bBIwCnYp/25M.html
 
This indicator is a 25 % increment atr; being the Danger Area line at 100%.. If you like to play with it change the bool false to true on the mq4 file. For me to many lines. I like to Keep it simple.

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

http://www.4shared.com/file/dzpBm8g8/TSR_Trendlines_1v0_mark_.html

Make easy... using Aligator...
 
This download indicator...
 
http://img191.imageshack.us/img191/5960/17714635.png
 
This Suggest Logic....
 
http://img221.imageshack.us/img221/7458/33788047.png
 
DOWNLOAD LINK :
 
http://www.filefactory.com/file/b472ac3/n/_Aligator-SEFC.ex4
 
http://img52.imageshack.us/img52/9538/ali1z.png
 
then... (IF YOU CAN'T LOOK SUGGEST, YOU CAN REFRESH YOUR MT4 ->Right click at main chart -> Refresh)
 
http://img190.imageshack.us/img190/2984/ali2.png
 
and.. this my creation... :D :D :D
at GBPUSD(x) .... (Ralat)... -> GBPJPY
 
http://img203.imageshack.us/img203/2042/aligu2.png
 
 
 
at EURUSD....
 
RALAT : On this Pictured StopLoss = Above / Below Signal, Not Under/Below(x)
Taking Profit = Above/Below, ...... Not Under/Below(x)
I'm Sorry for that... :D
 
http://img39.imageshack.us/img39/8287/alisystem.png

Race to the Bottom
 
by Peter Schiff
 
 
Long ago, before economic models developed their current levels of sophistication, it used to be that the goal of a government's economic policy was to bring prosperity to its citizens; in other words, to raise the general level of material comfort, while at the same time reducing the amount of toil required to attain that end.
 
However, due to the blather spouted by modern economists, success is no longer measured in those terms. Instead, governments simply look to pump up nominal levels of gross domestic product (GDP), while simultaneously catering to the needs of entrenched political classes. As exports feed directly into GDP, currency devaluation has been widely used as a means to boost exports and therefore achieve "prosperity." In this model, selling is an end unto itself. There is no focus whatsoever paid to the obviously negative consequences of currency debasement: diminished purchasing power and lowered living standards.
 
Way back in the 20th century, a nation's currency was viewed much as a company's stock price. The reliability, competitiveness, and growth of a national economy usually translated into a strong currency. This system made sense.
 
 
Countries that offered the most fertile soil for investment capital or that made products other countries wanted would attract funds from abroad. Demand for the currency of these "blue chip" countries (which was needed to invest or buy locally) would inevitably push up the value of the currency. And so, much as shareholders of successful companies are rewarded by higher stock prices, citizens of successful countries were rewarded with stronger currencies – with which they could buy more goods and services both domestically and internationally, raising their living standards.
 
But all that has changed in recent years. With a strategy that seems to be taken from the playbook of Sam Walton, governments now look to take market share from competitors by lowering the cost of their exports. To do this, they have adopted a beggar-thyself policy of habitual currency debasement. Although such a move may benefit those who buy the products, it is a burden to the country's own workers who, like Wal-Mart employees, have to get by on subsistence wages. While the markets like a low-cost provider, this is not a niche that everyone can, or should, fill. While some will compete only on price, more successful ventures will compete on quality and innovation. For every Kia, there is a Mercedes Benz.
 
 
Given the US dollar's status as the world's reserve currency, America's oversized status as the world's biggest consumer, and the influence of overseas export-oriented businesses on their home governments, the falling dollar is a difficult issue for many countries to ignore. And with the imminent arrival of a second round of "quantitative easing" from the Fed, the big guns of dollar destruction are being locked and loaded. The move looks poised to set off a frantic race to the bottom among global currencies, which will have important ramifications for every investor. Unfortunately, this is one race the United States is poised to win.
 
The goal of those trying to win the race to the bottom is to promote exports and create jobs. However, people don't work simply for their love of labor. They work so that they can earn enough to consume the things they need and want. Under normal conditions, a nation only exports its production, rather than consuming it domestically, to leverage its comparative advantages. If a country can produce one type of good especially efficiently, it can trade that good for other goods it doesn't make as efficiently at home. As a result of this process, its citizens will be able to consume more goods than if consumption had been limited to domestically produced goods.
 
However, when a government debases its currency in order to gain sales overseas, the nation earns less foreign exchange for the goods that it exports. As a result, its comparative advantage is blunted, and its citizens consume less as a result. In other words, as a nation's currency declines, its citizens are forced to work harder for less.
 
 
If a department store decided to have a sale in which all of its merchandise were marked down 50%, it will surely sell a lot more stuff. However, it would earn a lot less than if it had been able to sell its goods without marking them down. This is how currency debasement works. Similarly, one way for the unemployed to get work is to accept lower wages. Workers will sell a lot more of their labor if they accept 50% pay cuts. However, are they better off as a result? Relative to being unemployed, the answer is yes – but they would be much better off being employed at full pay.
 
Last week, Brazilian Finance Minister Guido Mantega made headlines when he mentioned that a worldwide currency war was brewing, with the winner being the nation with the weakest currency. Ignoring the irony of why countries would want to destroy their own currencies, Mantega reasonably warned that the conflict could get out of hand and destabilize the global economy. His comments came in the wake of overt efforts by both the Japanese and Swiss governments to intervene in the foreign exchange market to push down their respective currencies.
 
The politics of currency intervention are actually quite simple. Japan's economy is dominated by large manufacturers that export lots of goods to Americans. The problem is that Americans can't really afford to buy in the quantities that they did just a few years ago. So, instead of looking for new customers with more money to spend, Japanese manufacturers use their political clout to force a bailout of their traditional US customers.
 
Essentially, in order to protect the status quo of their elite, governments are surreptitiously forcing workers to take pay cuts through inflation. Everyone works harder, but the extra effort does not raise living standards. In fact, despite the added jobs, overall consumption will fall.
 
The irony for the United States is that its currency debasement plan has little to do with saving export jobs. We don't have many of those left to save. The government is debasing our currency merely to "pay" its own bills, preserve bank profits and Wall Street bonuses, allow us to continue buying homes we can't afford, and prevent many service-sector workers from having to find more productive jobs. In return, they will perpetuate an unworkable economic model. So while the US will probably "win" the currency war, we will definitely lose the far more important battle to improve our quality of life.
 
October 2, 2010
 
Peter Schiff is president of Euro Pacific Capital and author of The Little Book of Bull Moves in Bear Markets and Crash Proof: How to Profit from the Coming Economic Collapse. His latest book is How an Economy Grows and Why It Crashes.

Nice articles about gold and currencies.
 
http://www.marketoracle.co.uk/Article22916.html
 
http://www.marketoracle.co.uk/Article22968.html

http://www.fx1618.com/mt5/mql4-to-mql5.html

Your imagination!
 
huuu, Could you upload the mq4 for t2g?

You are welcome!
 
A friend sent me this nice indicator originally called Bluejay's lines
 
#property indicator_chart_window
 
extern double StartPrice = 0.0;
extern int NumLines = 2;
extern int Spacing = 25;
extern string AboveBelow = "AB";
extern color LineColor = Gray;
extern int LineWidth = 1;
extern int LineStyle = 0;
extern string TimeFrames = "M1, M5, M15, M30, H1, H4, D1, W1, MN";
string gs_120;
 
int init() {
int li_0 = 0;
string ls_4 = NumberToStr(StartPrice, "2.5") + NumberToStr(NumLines, "3") + NumberToStr(Spacing, "4.1") + AboveBelow + TimeToStr(TimeLocal(), TIME_SECONDS);
for (int li_12 = 0; li_12 < StringLen(ls_4); li_12++) li_0 += li_12 * StringGetChar(ls_4, li_12);
gs_120 = "SpacedLines-" + li_0;
IndicatorShortName(gs_120);
del_obj();
plot_obj();
return (0);
}
 
int deinit() {
del_obj();
return (0);
}
 
int start() {
return (0);
}
 
int MathSign(double ad_0) {
if (ad_0 > 0.0) return (1);
if (ad_0 < 0.0) return (-1);
return (0);
}
 
double MathFix(double ad_0, int ai_8) {
return (MathRound(ad_0 * MathPow(10, ai_8) + 0.0 * MathSign(ad_0)) / MathPow(10, ai_8));
}
 
void plot_obj() {
double ld_4;
double ld_12;
string l_name_32;
TimeFrames = StringUpper(TimeFrames) + ",";
int li_0 = 0;
if (StringFind(TimeFrames, "M1,") >= 0) li_0++;
if (StringFind(TimeFrames, "M5,") >= 0) li_0 += 2;
if (StringFind(TimeFrames, "M15,") >= 0) li_0 += 4;
if (StringFind(TimeFrames, "M30,") >= 0) li_0 += 8;
if (StringFind(TimeFrames, "H1,") >= 0) li_0 += 16;
if (StringFind(TimeFrames, "H4,") >= 0) li_0 += 32;
if (StringFind(TimeFrames, "D1,") >= 0) li_0 += 64;
if (StringFind(TimeFrames, "W1,") >= 0) li_0 += 128;
if (StringFind(TimeFrames, "MN,") >= 0) li_0 += 256;
if (Digits >= 4) {
ld_4 = 0.0001;
ld_12 = MathFix(Close[0], 2);
} else {
ld_4 = 0.01;
ld_12 = MathFix(Close[0], 0);
}
if (StartPrice > 0.0) ld_12 = StartPrice;
AboveBelow = StringUpper(AboveBelow);
int li_20 = 0;
int li_24 = 0;
if (AboveBelow == "A") {
li_20 = -1;
li_24 = NumLines - 2;
} else {
if (AboveBelow == "B") {
li_20 = (-NumLines) + 2;
li_24 = 1;
} else {
if (AboveBelow == "AB") {
li_20 = (-NumLines) + 1;
li_24 = NumLines - 1;
}
}
}
for (int li_28 = li_20; li_28 <= li_24; li_28++) {
l_name_32 = gs_120 + "-" + li_28;
ObjectCreate(l_name_32, OBJ_HLINE, 0, 0, ld_12 + Spacing * ld_4 * li_28);
ObjectSet(l_name_32, OBJPROP_COLOR, LineColor);
ObjectSet(l_name_32, OBJPROP_WIDTH, LineWidth);
ObjectSet(l_name_32, OBJPROP_STYLE, LineStyle);
ObjectSet(l_name_32, OBJPROP_TIMEFRAMES, li_0);
}
}
 
void del_obj() {
string l_name_4;
int li_0 = 0;
while (li_0 < ObjectsTotal()) {
l_name_4 = ObjectName(li_0);
if (StringSubstr(l_name_4, 0, StringLen(gs_120)) == gs_120) ObjectDelete(l_name_4);
else li_0++;
}
}
 
string StringUpper(string as_0) {
int li_36;
string ls_ret_8 = "";
string ls_16 = "abcdefghijklmnopqrstuvwxyz";
string ls_24 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
for (int li_32 = 0; li_32 < StringLen(as_0); li_32++) {
li_36 = StringFind(ls_16, StringSubstr(as_0, li_32, 1), 0);
if (li_36 >= 0) ls_ret_8 = ls_ret_8 + StringSubstr(ls_24, li_36, 1);
else ls_ret_8 = ls_ret_8 + StringSubstr(as_0, li_32, 1);
}
return (ls_ret_8);
}
 
string NumberToStr(double ad_0, string as_8) {
string ls_36;
bool li_68;
bool li_72;
bool li_76;
bool li_80;
bool li_84;
bool li_88;
bool li_92;
string ls_108;
bool li_116;
bool li_120;
string ls_124;
string ls_132;
int l_str_len_144;
as_8 = StringUpper(as_8);
int li_16 = 0;
int li_20 = StringFind(as_8, ".", 0);
if (li_20 < 0) {
li_20 = StringLen(as_8);
li_16 = 1;
}
int li_24 = 0;
int li_28 = 0;
for (int li_32 = 0; li_32 < li_20; li_32++) {
ls_36 = StringSubstr(as_8, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") li_24 = 10 * li_24 + StrToInteger(ls_36);
}
if (li_16 == 0) {
for (li_32 = li_20 + 1; li_32 <= StringLen(as_8); li_32++) {
ls_36 = StringSubstr(as_8, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") li_28 = 10 * li_28 + StrToInteger(ls_36);
}
}
li_28 = MathMin(li_28, 7);
if (li_16 == 1) {
for (li_32 = 0; li_32 < StringLen(as_8); li_32++) {
ls_36 = StringSubstr(as_8, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") {
li_20 = li_32;
break;
}
}
}
string ls_44 = "";
if (StringFind(as_8, "$", 0) >= 0) ls_44 = "$";
if (StringFind(as_8, "£", 0) >= 0) ls_44 = "£";
if (StringFind(as_8, "€", 0) >= 0) ls_44 = "€";
if (StringFind(as_8, "¥", 0) >= 0) ls_44 = "¥";
string ls_52 = "";
string ls_60 = "";
if (StringFind(as_8, "+", 0) >= 0 && StringFind(as_8, "+", 0) < li_20) {
ls_52 = " ";
if (ad_0 > 0.0) ls_52 = "+";
if (ad_0 < 0.0) ls_52 = "-";
}
if (StringFind(as_8, "-", 0) >= 0 && StringFind(as_8, "-", 0) < li_20) {
if (ad_0 < 0.0) ls_52 = "-";
else ls_52 = " ";
}
if (StringFind(as_8, "-", 0) >= 0 && StringFind(as_8, "-", 0) > li_20) {
if (ad_0 < 0.0) ls_60 = "-";
else ls_60 = " ";
}
if (StringFind(as_8, "(", 0) >= 0 || StringFind(as_8, ")", 0) >= 0) {
ls_52 = " ";
ls_60 = " ";
if (ad_0 < 0.0) {
ls_52 = "(";
ls_60 = ")";
}
}
if (StringFind(as_8, ",", 0) >= 0) li_68 = TRUE;
else li_68 = FALSE;
if (StringFind(as_8, "Z", 0) >= 0) li_72 = TRUE;
else li_72 = FALSE;
if (StringFind(as_8, "B", 0) >= 0) li_76 = TRUE;
else li_76 = FALSE;
if (StringFind(as_8, "R", 0) >= 0) li_80 = TRUE;
else li_80 = FALSE;
if (StringFind(as_8, "*", 0) >= 0) li_84 = TRUE;
else li_84 = FALSE;
if (StringFind(as_8, "L", 0) >= 0) li_88 = TRUE;
else li_88 = FALSE;
if (StringFind(as_8, ";", 0) >= 0) li_92 = TRUE;
else li_92 = FALSE;
if (li_80) ad_0 = MathFix(ad_0, li_28);
string ls_ret_96 = ad_0;
int l_count_104 = 0;
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") l_count_104++;
if (ls_36 == ".") break;
}
if (li_72) ls_108 = "0";
else ls_108 = " ";
if (ad_0 < 0.0) ls_ret_96 = "-" + StringRepeat(ls_108, li_24 - l_count_104) + StringSubstr(ls_ret_96, 1, StringLen(ls_ret_96) - 1);
else ls_ret_96 = StringRepeat(ls_108, li_24 - l_count_104) + StringSubstr(ls_ret_96, 0, StringLen(ls_ret_96));
ls_ret_96 = StringSubstr(ls_ret_96, StringLen(ls_ret_96) - 9 - li_24, li_24 + 1 + li_28 - li_16);
if (li_68) {
li_116 = FALSE;
li_120 = FALSE;
ls_124 = "";
ls_132 = "";
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 == ".") li_120 = TRUE;
if (!li_120 && li_24 - li_32 == 3 || li_24 - li_32 == 6 || li_24 - li_32 == 9) {
if (li_116) ls_124 = ls_124 + ",";
else ls_124 = ls_124 + " ";
}
ls_124 = ls_124 + ls_36;
if (ls_36 >= "0" && ls_36 <= "9") li_116 = TRUE;
}
ls_ret_96 = ls_124;
}
ls_ret_96 = ls_44 + ls_52 + ls_ret_96 + ls_60;
ls_124 = "";
ls_132 = "";
bool li_140 = TRUE;
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") li_140 = FALSE;
if ((ls_36 == " " && li_140) || (li_76 && ad_0 == 0.0)) ls_124 = ls_124 + " ";
else ls_132 = ls_132 + ls_36;
}
ls_ret_96 = ls_124 + ls_132;
if (li_84 && l_count_104 > li_24) ls_ret_96 = "*" + StringSubstr(ls_ret_96, 1, StringLen(ls_ret_96) - 1);
if (li_88) {
l_str_len_144 = StringLen(ls_ret_96);
ls_ret_96 = StringLeftTrim(ls_ret_96);
ls_ret_96 = ls_ret_96 + StringRepeat(" ", l_str_len_144 - StringLen(ls_ret_96));
}
if (li_92) {
ls_124 = "";
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 == ".") ls_124 = ls_124 + ",";
else {
if (ls_36 == ",") ls_124 = ls_124 + ".";
else ls_124 = ls_124 + ls_36;
}
}
ls_ret_96 = ls_124;
}
return (ls_ret_96);
}
 
string StringLeftTrim(string as_0) {
bool li_8 = TRUE;
string ls_ret_12 = "";
for (int li_20 = 0; li_20 < StringLen(as_0); li_20++) {
if (StringSubstr(as_0, li_20, 1) != " " || !li_8) {
ls_ret_12 = ls_ret_12 + StringSubstr(as_0, li_20, 1);
li_8 = FALSE;
}
}
return (ls_ret_12);
}
 
string StringRepeat(string as_0, int ai_8) {
string ls_ret_12 = "";
for (int l_count_20 = 0; l_count_20 < ai_8; l_count_20++) ls_ret_12 = ls_ret_12 + as_0;
return (ls_ret_12);
}

http://www.fxneo.com/?p=13

You are welcome!
 
A friend sent me this nice indicator originally called Bluejay's lines
 
#property indicator_chart_window
 
extern double StartPrice = 0.0;
extern int NumLines = 2;
extern int Spacing = 25;
extern string AboveBelow = "AB";
extern color LineColor = Gray;
extern int LineWidth = 1;
extern int LineStyle = 0;
extern string TimeFrames = "M1, M5, M15, M30, H1, H4, D1, W1, MN";
string gs_120;
 
int init() {
int li_0 = 0;
string ls_4 = NumberToStr(StartPrice, "2.5") + NumberToStr(NumLines, "3") + NumberToStr(Spacing, "4.1") + AboveBelow + TimeToStr(TimeLocal(), TIME_SECONDS);
for (int li_12 = 0; li_12 < StringLen(ls_4); li_12++) li_0 += li_12 * StringGetChar(ls_4, li_12);
gs_120 = "SpacedLines-" + li_0;
IndicatorShortName(gs_120);
del_obj();
plot_obj();
return (0);
}
 
int deinit() {
del_obj();
return (0);
}
 
int start() {
return (0);
}
 
int MathSign(double ad_0) {
if (ad_0 > 0.0) return (1);
if (ad_0 < 0.0) return (-1);
return (0);
}
 
double MathFix(double ad_0, int ai_8) {
return (MathRound(ad_0 * MathPow(10, ai_8) + 0.0 * MathSign(ad_0)) / MathPow(10, ai_8));
}
 
void plot_obj() {
double ld_4;
double ld_12;
string l_name_32;
TimeFrames = StringUpper(TimeFrames) + ",";
int li_0 = 0;
if (StringFind(TimeFrames, "M1,") >= 0) li_0++;
if (StringFind(TimeFrames, "M5,") >= 0) li_0 += 2;
if (StringFind(TimeFrames, "M15,") >= 0) li_0 += 4;
if (StringFind(TimeFrames, "M30,") >= 0) li_0 += 8;
if (StringFind(TimeFrames, "H1,") >= 0) li_0 += 16;
if (StringFind(TimeFrames, "H4,") >= 0) li_0 += 32;
if (StringFind(TimeFrames, "D1,") >= 0) li_0 += 64;
if (StringFind(TimeFrames, "W1,") >= 0) li_0 += 128;
if (StringFind(TimeFrames, "MN,") >= 0) li_0 += 256;
if (Digits >= 4) {
ld_4 = 0.0001;
ld_12 = MathFix(Close[0], 2);
} else {
ld_4 = 0.01;
ld_12 = MathFix(Close[0], 0);
}
if (StartPrice > 0.0) ld_12 = StartPrice;
AboveBelow = StringUpper(AboveBelow);
int li_20 = 0;
int li_24 = 0;
if (AboveBelow == "A") {
li_20 = -1;
li_24 = NumLines - 2;
} else {
if (AboveBelow == "B") {
li_20 = (-NumLines) + 2;
li_24 = 1;
} else {
if (AboveBelow == "AB") {
li_20 = (-NumLines) + 1;
li_24 = NumLines - 1;
}
}
}
for (int li_28 = li_20; li_28 <= li_24; li_28++) {
l_name_32 = gs_120 + "-" + li_28;
ObjectCreate(l_name_32, OBJ_HLINE, 0, 0, ld_12 + Spacing * ld_4 * li_28);
ObjectSet(l_name_32, OBJPROP_COLOR, LineColor);
ObjectSet(l_name_32, OBJPROP_WIDTH, LineWidth);
ObjectSet(l_name_32, OBJPROP_STYLE, LineStyle);
ObjectSet(l_name_32, OBJPROP_TIMEFRAMES, li_0);
}
}
 
void del_obj() {
string l_name_4;
int li_0 = 0;
while (li_0 < ObjectsTotal()) {
l_name_4 = ObjectName(li_0);
if (StringSubstr(l_name_4, 0, StringLen(gs_120)) == gs_120) ObjectDelete(l_name_4);
else li_0++;
}
}
 
string StringUpper(string as_0) {
int li_36;
string ls_ret_8 = "";
string ls_16 = "abcdefghijklmnopqrstuvwxyz";
string ls_24 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
for (int li_32 = 0; li_32 < StringLen(as_0); li_32++) {
li_36 = StringFind(ls_16, StringSubstr(as_0, li_32, 1), 0);
if (li_36 >= 0) ls_ret_8 = ls_ret_8 + StringSubstr(ls_24, li_36, 1);
else ls_ret_8 = ls_ret_8 + StringSubstr(as_0, li_32, 1);
}
return (ls_ret_8);
}
 
string NumberToStr(double ad_0, string as_8) {
string ls_36;
bool li_68;
bool li_72;
bool li_76;
bool li_80;
bool li_84;
bool li_88;
bool li_92;
string ls_108;
bool li_116;
bool li_120;
string ls_124;
string ls_132;
int l_str_len_144;
as_8 = StringUpper(as_8);
int li_16 = 0;
int li_20 = StringFind(as_8, ".", 0);
if (li_20 < 0) {
li_20 = StringLen(as_8);
li_16 = 1;
}
int li_24 = 0;
int li_28 = 0;
for (int li_32 = 0; li_32 < li_20; li_32++) {
ls_36 = StringSubstr(as_8, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") li_24 = 10 * li_24 + StrToInteger(ls_36);
}
if (li_16 == 0) {
for (li_32 = li_20 + 1; li_32 <= StringLen(as_8); li_32++) {
ls_36 = StringSubstr(as_8, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") li_28 = 10 * li_28 + StrToInteger(ls_36);
}
}
li_28 = MathMin(li_28, 7);
if (li_16 == 1) {
for (li_32 = 0; li_32 < StringLen(as_8); li_32++) {
ls_36 = StringSubstr(as_8, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") {
li_20 = li_32;
break;
}
}
}
string ls_44 = "";
if (StringFind(as_8, "$", 0) >= 0) ls_44 = "$";
if (StringFind(as_8, "£", 0) >= 0) ls_44 = "£";
if (StringFind(as_8, "€", 0) >= 0) ls_44 = "€";
if (StringFind(as_8, "¥", 0) >= 0) ls_44 = "¥";
string ls_52 = "";
string ls_60 = "";
if (StringFind(as_8, "+", 0) >= 0 && StringFind(as_8, "+", 0) < li_20) {
ls_52 = " ";
if (ad_0 > 0.0) ls_52 = "+";
if (ad_0 < 0.0) ls_52 = "-";
}
if (StringFind(as_8, "-", 0) >= 0 && StringFind(as_8, "-", 0) < li_20) {
if (ad_0 < 0.0) ls_52 = "-";
else ls_52 = " ";
}
if (StringFind(as_8, "-", 0) >= 0 && StringFind(as_8, "-", 0) > li_20) {
if (ad_0 < 0.0) ls_60 = "-";
else ls_60 = " ";
}
if (StringFind(as_8, "(", 0) >= 0 || StringFind(as_8, ")", 0) >= 0) {
ls_52 = " ";
ls_60 = " ";
if (ad_0 < 0.0) {
ls_52 = "(";
ls_60 = ")";
}
}
if (StringFind(as_8, ",", 0) >= 0) li_68 = TRUE;
else li_68 = FALSE;
if (StringFind(as_8, "Z", 0) >= 0) li_72 = TRUE;
else li_72 = FALSE;
if (StringFind(as_8, "B", 0) >= 0) li_76 = TRUE;
else li_76 = FALSE;
if (StringFind(as_8, "R", 0) >= 0) li_80 = TRUE;
else li_80 = FALSE;
if (StringFind(as_8, "*", 0) >= 0) li_84 = TRUE;
else li_84 = FALSE;
if (StringFind(as_8, "L", 0) >= 0) li_88 = TRUE;
else li_88 = FALSE;
if (StringFind(as_8, ";", 0) >= 0) li_92 = TRUE;
else li_92 = FALSE;
if (li_80) ad_0 = MathFix(ad_0, li_28);
string ls_ret_96 = ad_0;
int l_count_104 = 0;
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") l_count_104++;
if (ls_36 == ".") break;
}
if (li_72) ls_108 = "0";
else ls_108 = " ";
if (ad_0 < 0.0) ls_ret_96 = "-" + StringRepeat(ls_108, li_24 - l_count_104) + StringSubstr(ls_ret_96, 1, StringLen(ls_ret_96) - 1);
else ls_ret_96 = StringRepeat(ls_108, li_24 - l_count_104) + StringSubstr(ls_ret_96, 0, StringLen(ls_ret_96));
ls_ret_96 = StringSubstr(ls_ret_96, StringLen(ls_ret_96) - 9 - li_24, li_24 + 1 + li_28 - li_16);
if (li_68) {
li_116 = FALSE;
li_120 = FALSE;
ls_124 = "";
ls_132 = "";
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 == ".") li_120 = TRUE;
if (!li_120 && li_24 - li_32 == 3 || li_24 - li_32 == 6 || li_24 - li_32 == 9) {
if (li_116) ls_124 = ls_124 + ",";
else ls_124 = ls_124 + " ";
}
ls_124 = ls_124 + ls_36;
if (ls_36 >= "0" && ls_36 <= "9") li_116 = TRUE;
}
ls_ret_96 = ls_124;
}
ls_ret_96 = ls_44 + ls_52 + ls_ret_96 + ls_60;
ls_124 = "";
ls_132 = "";
bool li_140 = TRUE;
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 >= "0" && ls_36 <= "9") li_140 = FALSE;
if ((ls_36 == " " && li_140) || (li_76 && ad_0 == 0.0)) ls_124 = ls_124 + " ";
else ls_132 = ls_132 + ls_36;
}
ls_ret_96 = ls_124 + ls_132;
if (li_84 && l_count_104 > li_24) ls_ret_96 = "*" + StringSubstr(ls_ret_96, 1, StringLen(ls_ret_96) - 1);
if (li_88) {
l_str_len_144 = StringLen(ls_ret_96);
ls_ret_96 = StringLeftTrim(ls_ret_96);
ls_ret_96 = ls_ret_96 + StringRepeat(" ", l_str_len_144 - StringLen(ls_ret_96));
}
if (li_92) {
ls_124 = "";
for (li_32 = 0; li_32 < StringLen(ls_ret_96); li_32++) {
ls_36 = StringSubstr(ls_ret_96, li_32, 1);
if (ls_36 == ".") ls_124 = ls_124 + ",";
else {
if (ls_36 == ",") ls_124 = ls_124 + ".";
else ls_124 = ls_124 + ls_36;
}
}
ls_ret_96 = ls_124;
}
return (ls_ret_96);
}
 
string StringLeftTrim(string as_0) {
bool li_8 = TRUE;
string ls_ret_12 = "";
for (int li_20 = 0; li_20 < StringLen(as_0); li_20++) {
if (StringSubstr(as_0, li_20, 1) != " " || !li_8) {
ls_ret_12 = ls_ret_12 + StringSubstr(as_0, li_20, 1);
li_8 = FALSE;
}
}
return (ls_ret_12);
}
 
string StringRepeat(string as_0, int ai_8) {
string ls_ret_12 = "";
for (int l_count_20 = 0; l_count_20 < ai_8; l_count_20++) ls_ret_12 = ls_ret_12 + as_0;
return (ls_ret_12);
}