_SET_BUY_STOP

//+------------------------------------------------------------------+
//|                                                     SELL_SET.mq4 |
//|                      Copyright © 2009, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
int magic=327;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
void start(){
  //GlobalVariablesDeleteAll();
  double lot;
  int tick;
  if(!GlobalVariableCheck("lot")){
    GlobalVariableSet("lot",0);
    Alert("Ââåäèòå ðàçìåð ëîòà â ãëîáàëüíóþ ïåðåìåííóþ");
    return;
  }else{
    if(GlobalVariableGet("lot")==0){
      Alert("Ââåäèòå ðàçìåð ëîòà â ãëîáàëüíóþ ïåðåìåííóþ");
      return;    
    }
    lot=GlobalVariableGet("lot");
    if(ObjectFind("order")!=0){
      Alert("Óñòàíîâèòå ëèíèþ îðäåðà");
      return;     
    }
  while(!IsStopped()&&tick==0){    
    double prise=NormalizeDouble(ObjectGet("order",OBJPROP_PRICE1),Digits);
    int stlw=MarketInfo(Symbol(),MODE_STOPLEVEL);
    int spr =MarketInfo(Symbol(),MODE_SPREAD);
    if(prise-Ask>stlw*Point){
      tick=OrderSend(Symbol(),4,lot,prise,spr,0,0,NULL,magic,0,Blue);
      if(tick<1){
        Print("Îøèáêà óñòàíîâêè îðäåðà  ¹",GetLastError());      
        Alert("Îøèáêà óñòàíîâêè îðäåðà  ¹",GetLastError());
        return;
      }else{PlaySound("expert.wav");}
    }else{
        RefreshRates();
        if(Ask-prise>=spr*Point*2){
          Alert("ÍÅ ïðàâèëüíàÿ öåíà");
          return;
        }
        if(Ask-prise>=0&&Ask-prise<spr*Point){
          tick=OrderSend(Symbol(),0,lot,Ask,spr,0,0,NULL,magic,0,Blue);
          if(tick<1){
            Print("Îøèáêà óñòàíîâêè îðäåðà  ¹",GetLastError());      
            Alert("Îøèáêà óñòàíîâêè îðäåðà  ¹",GetLastError());
            return;
          }else{PlaySound("expert.wav");}          
        }
        Comment("SET_SELL DISTANSE = ",DoubleToStr((prise-Ask)/Point,0));
        Sleep(200);
        Comment("");
      }
    }
  }
  
Comment("");
return;}
//+------------------------------------------------------------------+