Mart

//+------------------------------------------------------------------+
//|                                                         Ìàðò.mq4 |
//|                                                  Zuzabush-Càõàëèí|
//|                                           www.Zuzabush@yandex.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright c 2006, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
 
extern int P = 13;
extern int distance=90; 
//+------------------------------------------------------------------+
//| expert initialization function -íåáîëüøîé ìàíäðàæ                |
//+------------------------------------------------------------------+
int init()
  {
 
   MathSrand(LocalTime());
 
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function -Ýõ ïðîêà÷ó                                |
//+------------------------------------------------------------------+
 
int err = 0;
double Lot = 0.1;
double Ballance=0.0;
int start()
  {
//----
   if (OrdersTotal()==0&&err==0)
     {
       if (Ballance!=0.0)
         {
           if (Ballance>AccountBalance())
      
       Lot=Lot+1;
           else
             Lot=Lot-1+(!(Lot>1));
         }
       Ballance=AccountBalance();
         
       int order;
       if ((iMA(NULL,0,P,6,MODE_SMA,PRICE_CLOSE,0))<Ask)
 
         order=OrderSend(Symbol(),OP_SELL,Lot,Bid,5*Point,Ask+distance*Point,Bid-distance*Point);
       else
        order=OrderSend(Symbol(),OP_BUY,Lot,Ask,5*Point,Bid-distance*Point,Ask+distance*Point);
         
 }
   
   return(0);
  }
//+------------------------------------------------------------------+