Hi I have this code from an ancient thread of 2008. I googled but could not find away to correct this ObjectCreate() error to get it compiled.
Could any coder, programmer help us newbies get this code working?
Many Thanks
Meta editor complained about
Could any coder, programmer help us newbies get this code working?
Many Thanks
Inserted Code
//+------------------------------------------------------------------+
//| Anchorfx.mq4 |
//| forexlion |
//| http://www.anchorfx.com/ |
//+------------------------------------------------------------------+
#property copyright "forexlion"
#property link "http://www.anchorfx.com/"
#property indicator_chart_window
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
ObjectsDeleteAll();
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
//----
ObjectsDeleteAll();
Comment("http://www.anchorfx.com/");
double Hi, Li, C;
double yesterday_high, yesterday_low, yesterday_close, D;
int h = DayOfWeek();
C = iClose(Symbol(),PERIOD_D1,h+1);
if (DayOfWeek() != 1) {D=iClose(Symbol(),PERIOD_D1,1);}
Hi = iHighest(Symbol(),PERIOD_D1,MODE_HIGH,6,h+1);
Li = iLowest(Symbol(),PERIOD_D1,MODE_LOW,6,h+1);
yesterday_high = iHigh(Symbol(),PERIOD_D1,Hi);
yesterday_low = iLow(Symbol(),PERIOD_D1,Li);
yesterday_close = C;
double R = yesterday_high - yesterday_low;//range
double p = (yesterday_high + yesterday_low + yesterday_close)/3;// Standard Pivot
double r3 = p + (R * 1.000);
double r2 = p + (R * 0.618);
double r1 = p + (R * 0.382);
double s1 = p - (R * 0.382);
double s2 = p - (R * 0.618);
double s3 = p - (R * 1.000);
double fp1 = p + (R * 0.236);
double fn1 = p - (R * 0.236);
double fp2 = p + (R * 0.5);
double fn2 = p - (R * 0.5);
double fp3 = p + (R * 0.782);
double fn3 = p - (R * 0.782);
string lbl[11], lbl2[11];
int n = 30;
lbl[3] = "L1";
lbl2[3] = "Pivot : " + DoubleToStr(p,4);
lbl[2] = "L2";
lbl2[2] = "R1 : " + DoubleToStr(r1,4);
lbl[1] = "L3";
lbl2[1] = "R2 : " + DoubleToStr(r2,4);
lbl[0] = "L4";
lbl2[0] = "R3 : " + DoubleToStr(r3,4);
lbl[4] = "L5";
lbl2[4] = "S1 : " + DoubleToStr(s1,4);
lbl[5] = "L6";
lbl2[5] = "S2 : " + DoubleToStr(s2,4);
lbl[6] = "L7";
lbl2[6] = "S3 : " + DoubleToStr(s3,4);
double S1 = MarketInfo(Symbol(), MODE_TICKVALUE) / 10;
double S2 = AccountBalance() / S1;
double cl = iClose(Symbol(),PERIOD_MN1,0);
double lw = iLow(Symbol(),PERIOD_MN1,0);
double hi = iHigh(Symbol(),PERIOD_MN1,0);
double vol = iVolume(Symbol(),PERIOD_MN1,0);
double bw = ((cl - lw) * vol)/((cl-lw)+(hi-cl));
double sw = ((hi - cl) * vol)/((cl-lw)+(hi-cl));
double pw;
if (bw > sw)
{
pw = bw/sw;
}
if (sw > bw)
{
pw = sw/bw;
}
lbl[7] = "L8";
lbl2[7] = "Buyers : " + DoubleToStr(bw,0);
lbl[8] = "L9";
lbl2[8] = "Sellers : " + DoubleToStr(sw,0);
lbl[9] = "L10";
lbl2[9] = "Power : " + DoubleToStr(pw,0);
string signal;
if (Bid < D) {signal = "Short Possible";}
if (Bid > D) {signal = "Long Possible";}
lbl[10] = "L11";
lbl2[10] = signal;
for (int u=0;u<ArraySize(lbl);u++)
{
ObjectCreate(lbl[u],23,0,Time,PRICE_CLOSE);
ObjectSet(lbl[u],OBJPROP_XDISTANCE,610);
ObjectSet(lbl[u],OBJPROP_YDISTANCE,n);
ObjectSetText(lbl[u],lbl2[u],14,"Arial",Green);
n = n+20;
}
drawLine(r3,"R3", Green,0);
drawLabel("Resistance 3",r3,Green);
drawLine(r2,"R2", Green,0);
drawLabel("Resistance 2",r2,Green);
drawLine(r1,"R1", Green,0);
drawLabel("Resistance 1",r1,Green);
drawLine(p,"PIVOT",Green,1);
drawLabel("PIVOT level",p,Green);
drawLine(D,"DAILY",Green,2);
drawLabel("DAILY level",D,Green);
drawLine(s1,"S1",Green,0);
drawLabel("Support 1",s1,Green);
drawLine(s2,"S2",Green,0);
drawLabel("Support 2",s2,Green);
drawLine(s3,"S3",Green,0);
drawLabel("Support 3",s3,Green);
drawLine(fp1,"fp1",Yellow,1);
drawLabel("+ 23.6%",fp1,Green);
drawLine(fn1,"fn1",Yellow,1);
drawLabel("- 23.6%",fn1,Green);
drawLine(fp2,"fp2",Yellow,1);
drawLabel("+ 50%",fp2,Green);
drawLine(fn2,"fn2",Yellow,1);
drawLabel("- 50%",fn2,Green);
drawLine(fp3,"fp3",Yellow,1);
drawLabel("+ 78.2%",fp3,Green);
drawLine(fn3,"fn3",Yellow,1);
drawLabel("- 78.2%",fn3,Green);
//----
return(0);
}
//+------------------------------------------------------------------+
void drawLabel(string name,double lvl,color Color)
{
if(ObjectFind(name) != 0)
{
ObjectCreate(name, OBJ_TEXT, 0, Time[10], lvl);
ObjectSetText(name, name, 14, "Arial", EMPTY);
ObjectSet(name, OBJPROP_COLOR, Color);
}
else
{
ObjectMove(name, 0, Time[10], lvl);
}
}
void drawLine(double lvl,string name, color Col,int type)
{
if(ObjectFind(name) != 0)
{
ObjectCreate(name, OBJ_HLINE, 0, Time[0], lvl,Time[0],lvl);
if(type == 1)
ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
else
ObjectSet(name, OBJPROP_STYLE, STYLE_DOT);
ObjectSet(name, OBJPROP_COLOR, Col);
ObjectSet(name,OBJPROP_WIDTH,1);
}
else
{
ObjectDelete(name);
ObjectCreate(name, OBJ_HLINE, 0, Time[0], lvl,Time[0],lvl);
if(type == 1)
ObjectSet(name, OBJPROP_STYLE, STYLE_SOLID);
else
ObjectSet(name, OBJPROP_STYLE, STYLE_DOT);
ObjectSet(name, OBJPROP_COLOR, Col);
ObjectSet(name,OBJPROP_WIDTH,1);
} Meta editor complained about
Inserted Code
'ObjectCreate' - no one of the overloads can be applied to the function call anchorfx.mq4 126 1