SemiLong

//+------------------------------------------------------------------+
//|                                    pipsnja-gbp/usd-M15           |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright ""
#property link      ""

//---- input parameters
extern int       Profit=120;
extern int       Loss=60;
extern int       Shift1=100;
extern int       Move1=60;
extern int       Shift2=10;
extern int       Move2=30;
extern int       Decr=14;

extern double       Lots=1;
extern int Trailing=0;
extern bool  Autolot=true;
extern int   AutoMrgDiv=7;

int Magic=1915;
int spr;
int tp,sl,d;
bool isOrder,buy,sell;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   spr=MarketInfo(Symbol(),MODE_SPREAD);
   if (Loss==0) sl=0; else sl=1;
   if (Profit==0) tp=0; else tp=1;
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
//   if (CurTime()-Time[0]<=10) {

     int i;
    if (IsTradeAllowed()) isOrder=true;
     for (i = 0; i < OrdersTotal(); i++) {
      OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if (OrderMagicNumber()==Magic && OrderSymbol()==Symbol() ) isOrder=false;
     }
     buy=false;
     sell=false;
     if (Bid-Close[Shift1]<-Move1*Point && Close[Shift1]-Close[Shift1+Shift2]>Move2*Point) {buy=true;sell=false;}
     if (Bid-Close[Shift1]>Move1*Point && Close[Shift1]-Close[Shift1+Shift2]<-Move2*Point) {sell=true;buy=false;}
 
     if (AccountFreeMargin()<GetLots()*2000) isOrder=false;
     if (isOrder && buy) {OrderSend(Symbol(),OP_BUY,GetLots(),Ask,3,(Bid-(Loss)*Point)*sl,(Ask+(Profit+spr)*Point)*tp,"",Magic,0,FireBrick); d=Day();}
     if (isOrder && sell) {OrderSend(Symbol(),OP_SELL,GetLots(),Bid,3,(Ask+(Loss)*Point)*sl,(Bid-(Profit+spr)*Point)*tp,"",Magic,0,DarkViolet); d=Day();}
     
 
     if (Trailing>0) for(i=0; i<=OrdersTotal();i++) {
     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
     if (OrderMagicNumber()==Magic && OrderSymbol()==Symbol()) {
       if (OrderType()==OP_BUY && Bid-OrderOpenPrice()>Trailing*Point && Bid-OrderStopLoss()>Trailing*Point ) OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Trailing*Point,OrderTakeProfit(),0,CLR_NONE);
       if (OrderType()==OP_SELL && OrderOpenPrice()-Ask>Trailing*Point && OrderStopLoss()-Ask>Trailing*Point ) OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Trailing*Point,OrderTakeProfit(),0,CLR_NONE);
       }
     }      
         
     

//----
   return(0);
  }
//+------------------------------------------------------------------+
double GetLots()
{
 double res;
 if (Autolot) {
  res=NormalizeDouble(AccountFreeMargin()/(AutoMrgDiv*1000),0);
 if (Decr>0) { 
  int losses=0;
  for(int j=HistoryTotal()-1;j>=0;j--)
        {
         if(OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
         if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic ) continue;
         //----
         if(OrderProfit()>0) break;
         if(OrderProfit()<0) losses++;
        }
   if(losses>1) res=NormalizeDouble(res-res*losses/Decr,0);
  }    
  if (res<Lots) res=Lots;
  if (res>99) res=99;
  return(res);
 } else return(Lots);
}