Firebird

extern int MA_length = 10;
extern double Percent = 0.2;
extern int TradeOnFriday =1; // >0 trades on friday
extern int MAtype=0;//0=close, 1=HL		 
extern int slip = 100;//exits only
extern int Lots = 1;
extern int TakeProfit = 30;
extern int Stoploss = 200;// total loss on all open positions in pips

extern int PipStep = 30;//if position goes this amount of pips against you add another.
extern double IncreasementType =0;//0=just add every PipStep,  >0 =OrdersToal()^x *Pipstep
extern int SymbolFloatingPoints =4;//4 for most Symbols, 2 for JPY, check in MarketWatchWindow

double KeepStopLoss=0;
double KeepAverage;
double dummy;
double spread=0;
double CurrentPipStep;
int OrderWatcher=0,flag=0,OpenTime=0;
int cnt=0, total,OpenTradesOnSymbol=0;
double LastPrice;
datetime orderclosetime;
int TheHistoryTotal;
int Direction=0;//1=long, 11=avoid long, 2=short, 22=avoid short
double StopperBuy=0,StopperSell=0;
   double PriceTargetBuy=0,PriceTargetSell=0;
   double AveragePriceBuy=0,AveragePriceSell=0;

int start()
{
      // код доступен только после оплаты
   }
   if(Symbol()=="USDJPY" || Symbol()=="EURJPY" || Symbol()=="GBPJPY") SymbolFloatingPoints=2;

   total=OrdersTotal();
   OpenTradesOnSymbol=0;
   for(cnt=0;cnt<total;cnt++)
     {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if (OrderType()==OP_SELL || OrderType()==OP_BUY &&
          OrderSymbol()==Symbol() ) OpenTradesOnSymbol++;    
     }

Comment("LastPrice = ",LastPrice,"\n",
        "AveragePriceBuy = ",AveragePriceBuy,"\n",
        "AveragePriceSell = ",AveragePriceSell,"\n",
        "TradesOnsSymbol = ",OpenTradesOnSymbol,"\n", 
        "PriceTargetBuy = ",PriceTargetBuy,"\n", 
        "PriceTargetSell = ",PriceTargetSell,"\n", 
        "StopperBuy = ",StopperBuy,"\n", 
        "StopperSell = ",StopperSell,"\n", 
        "LastClosedOrder = ",TimeToStr(orderclosetime,TIME_DATE|TIME_SECONDS) ,"\n",
        "Flag = ",flag,"\n",
        "CurrentPipStep = ",CurrentPipStep); 

CurrentPipStep=PipStep;
if(IncreasementType>0)
  {
  CurrentPipStep=MathPow(OrdersTotal(),IncreasementType)*PipStep;
  } 

TheHistoryTotal=HistoryTotal();

for(int cnt2=TheHistoryTotal-1;cnt2>TheHistoryTotal-10;cnt2--) {
  OrderSelect(cnt2,SELECT_BY_POS,MODE_HISTORY);

    if ( (OrderSymbol()==Symbol()) ) {
       orderclosetime=OrderCloseTime();
       if(CurTime()-orderclosetime<Period()*60*2)  // At least 2 periods away!
       flag=1;   // Throw a flag
       else
       flag=0;
       break;
       }
} 

if(flag==0 && CurTime()-OpenTime>120) {   

if(MAtype==0)
   {
   if((iMA(NULL,0,MA_length,0,MODE_SMA,PRICE_OPEN,0)*(1+Percent/100))<Bid && Direction!=22 && (Bid>=(LastPrice+(CurrentPipStep*Point))||OpenTradesOnSymbol==0)) // Go SHORT -> Only sell if >= 30 pips above previous position entry	
 	  {
      OrderSend(Symbol(),OP_SELL,Lots,Bid,slip,Bid+(Stoploss*Point),Bid-(TakeProfit*Point),"1",0,0,Red);
      LastPrice=Bid;
      flag=1;
      OpenTime=CurTime();
      Direction=2;
      return;
     }   

   if((iMA(NULL,0,MA_length,0,MODE_SMA,PRICE_OPEN,0)*(1-Percent/100))>Ask && Direction!=11 && (Ask<=(LastPrice-(CurrentPipStep*Point))||OpenTradesOnSymbol==0)) // Go LONG -> Only buy if >= 30 pips below previous position entry	 

     {
      OrderSend(Symbol(),OP_BUY,Lots,Ask,slip,Ask-(Stoploss*Point),Ask+(TakeProfit*Point),"2",0,0,Blue);
      LastPrice=Ask;
      flag=1;
      OpenTime=CurTime();
      Direction=1;
      return;

Показано первые 50% кода (символов: 5500)