#property link "http://www.haoib.com"
#property indicator_chart_window
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
int i,hstTotal=OrdersHistoryTotal();
/*
for(i=0;i<283;i++)
{
ObjectCreate("arrow"+i, OBJ_ARROW,0,Time[i],Low[i]);
ObjectSet("arrow"+i,OBJPROP_ARROWCODE,i);
ObjectSet("arrow1",OBJPROP_COLOR,Green);
}
*/
for(i=0;i<hstTotal;i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
if(Symbol()==OrderSymbol() && OrderType()<=OP_SELL)
{
int tk=OrderTicket();
if(ObjectFind("aopen"+tk)==-1)
{
ObjectCreate("aopen"+tk,OBJ_ARROW,0,OrderOpenTime(),OrderOpenPrice());
ObjectSet("aopen"+tk,OBJPROP_ARROWCODE,1);
if(OrderType()==OP_BUY) ObjectSet("aopen"+tk,OBJPROP_COLOR,Green);
if(OrderType()==OP_SELL) ObjectSet("aopen"+tk,OBJPROP_COLOR,Red);
}
if(ObjectFind("aclose"+tk)==-1)
{
ObjectCreate("aclose"+tk,OBJ_ARROW,0,OrderCloseTime(),OrderClosePrice());
ObjectSet("aclose"+tk,OBJPROP_ARROWCODE,3);
ObjectSet("aclose"+tk,OBJPROP_COLOR,Goldenrod);
}
if(ObjectFind("#"+tk)==-1)
{
if(ObjectFind("##"+tk)!=-1)ObjectDelete( "##"+tk) ;
ObjectCreate("#"+tk,OBJ_TREND,0,OrderOpenTime(),OrderOpenPrice(),OrderCloseTime(),OrderClosePrice());
ObjectSet("#"+tk,OBJPROP_STYLE,STYLE_DOT);
ObjectSet("#"+tk,OBJPROP_RAY,0);
if(OrderType()==OP_BUY) ObjectSet("#"+tk,OBJPROP_COLOR,Green);
if(OrderType()==OP_SELL) ObjectSet("#"+tk,OBJPROP_COLOR,Red);
}
}
if(Symbol()==OrderSymbol() && OrderType()>OP_SELL)
{
tk=OrderTicket();
if(ObjectFind("aopen"+tk)==-1)
{
ObjectCreate("aopen"+tk,OBJ_ARROW,0,OrderOpenTime(),OrderOpenPrice());
if(OrderType()<=OP_BUYSTOP) ObjectSet("aopen"+tk,OBJPROP_ARROWCODE,217);
else ObjectSet("aopen"+tk,OBJPROP_ARROWCODE,218);
}
if(ObjectFind("aclose"+tk)==-1)
{
ObjectCreate("aclose"+tk,OBJ_ARROW,0,OrderCloseTime(),OrderOpenPrice());
ObjectSet("aclose"+tk,OBJPROP_ARROWCODE,251);
}
if(ObjectFind("#"+tk)==-1)
{
ObjectCreate("#"+tk,OBJ_TREND,0,OrderOpenTime(),OrderOpenPrice(),OrderCloseTime(),OrderOpenPrice());
ObjectSet("#"+tk,OBJPROP_STYLE,STYLE_DOT);
ObjectSet("#"+tk,OBJPROP_RAY,0);
ObjectSet("#"+tk,OBJPROP_COLOR,White);
}
}
}
int total=OrdersTotal();
for(i=0;i<total;i++)
{
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
if(Symbol()==OrderSymbol() && OrderType()<=OP_SELL)
{
tk=OrderTicket();
if(ObjectFind("aopen"+tk)==-1)
{
ObjectCreate("aopen"+tk,OBJ_ARROW,0,OrderOpenTime(),OrderOpenPrice());
ObjectSet("aopen"+tk,OBJPROP_ARROWCODE,1);
if(OrderType()==OP_BUY) ObjectSet("aopen"+tk,OBJPROP_COLOR,Green);
if(OrderType()==OP_SELL) ObjectSet("aopen"+tk,OBJPROP_COLOR,Red);
}
if(ObjectFind("##"+tk)==-1)
{
ObjectCreate("##"+tk,OBJ_TREND,0,OrderOpenTime(),OrderOpenPrice(),Time[0],Bid);
ObjectSet("##"+tk,OBJPROP_STYLE,STYLE_DOT);
ObjectSet("##"+tk,OBJPROP_RAY,0);
}
else
{
ObjectSet("##"+tk,OBJPROP_TIME2,Time[0]);
ObjectSet("##"+tk,OBJPROP_PRICE2,Bid);
if(OrderType()==OP_BUY)
{
ObjectSet("##"+tk,OBJPROP_COLOR,Green);
ObjectSet("##"+tk,OBJPROP_PRICE2,Bid);
}
if(OrderType()==OP_SELL)
{
ObjectSet("##"+tk,OBJPROP_COLOR,Red);
ObjectSet("##"+tk,OBJPROP_PRICE2,Ask);
}
}
}
if(Symbol()==OrderSymbol() && OrderType()>OP_SELL)
{
tk=OrderTicket();
if(ObjectFind("aopen"+tk)==-1)
{
ObjectCreate("aopen"+tk,OBJ_ARROW,0,OrderOpenTime(),OrderOpenPrice());
if(OrderType()<=OP_BUYSTOP) ObjectSet("aopen"+tk,OBJPROP_ARROWCODE,217);
else ObjectSet("aopen"+tk,OBJPROP_ARROWCODE,218);
}
}
}
//----
//----
return(0);
}
//+------------------------------------------------------------------+
