Oops v0.1

//+------------------------------------------------------------------+
//|                                                         Oops.mq4 |
//|                                         Copyright Amayak ©  2009 |
//|                                              http://www.poka.net |
//+------------------------------------------------------------------+
#property copyright "Copyright Amayak ©  2009"
#property link      "http://www.poka.net"

//---- input parameters
extern double       lot     = 0.1;
extern double       tp      = 100;
extern double       sl      = 100;
extern double       delta   = 100;
extern int          mag_num = 3374;

void start()
 {
  int kol_ords = OrdersTotal();
  int i,j;  
  if (!GlobalVariableCheck("kol_bar"))
      GlobalVariableSet("kol_bar",iBars("EURUSD",PERIOD_D1));
      
  if (GlobalVariableGet("kol_bar") != iBars("EURUSD",PERIOD_D1))
    {
     for (i = kol_ords ; i >= 0; i--)
      {
       for (j=0; j < 5; j++)
         if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==true)
             break;
         
       
        if (OrderSymbol()==Symbol())
           if ((OrderType()==OP_BUYSTOP) || (OrderType()==OP_SELLSTOP))
            if (OrderMagicNumber()==mag_num)
                for (j=0; j<5; j++)
                  if (OrderDelete(OrderTicket(),CLR_NONE)==true)
                     break;
      }
      
      for (j=0; j<5; j++)
         if (OrderSend(Symbol(),OP_BUYSTOP,lot,Open[0]+delta*Point,3,Open[0]+(delta-sl)*Point,Open[0]+(delta+tp)*Point,NULL,mag_num,0,Green)!=true)
             continue;
          else
             break;


      for (j=0; j<5; j++)
         if (OrderSend(Symbol(),OP_SELLSTOP,lot,Open[0]-delta*Point,3,Open[0]-(delta-sl)*Point,Open[0]-(delta+tp)*Point,NULL,mag_num,0,Red)!=true)
             continue;
          else
             break;
             
                    
      GlobalVariableSet("kol_bar",iBars("EURUSD",PERIOD_D1));
   
    }
  return;
 }
//+------------------------------------------------------------------+