/*[[
	Name := ...
	Author := Copyright © 2004, MetaQuotes Software Corp.
	Link := http://www.metaquotes.net/
	Lots := 0.10
	Stop Loss := 0
	Take Profit := 0
	Trailing Stop := 0
]]*/

 defines: Slippage(3);
 defines: BeginHour(7),FinalHour(17),CloseHour(22);
 defines: ReversPoint(61), maxLossTrades(3),useGraphics(0);
 defines: delaySeconds(30);
 var: curBalance(0),prevBalance(0),lossCounter(0),cnt(0),StopTradeOut(false);
 var: buyStopLoss(0),sellStopLoss(0);
 var: OpenedTrades(0),PendingOrders(0),ExpertTotal(0); 
 var: buyExist(false),sellExist(false); 
 var: newBuyStop(0),newSellStop(0);
 

ExpertTotal=0;
For cnt=1 to TotalTrades
	{
	If OrderValue(cnt,VAL_SYMBOL)=Symbol then ExpertTotal=ExpertTotal+1;
	}
 
 if (ExpertTotal=0 and lossCounter>=maxLossTrades and StopTradeOut=false) then
 	{
 	Comment("Работа прекращена после "+maxLossTrades+" убыточных сделок");
 	StopTradeOut=true;
 	}
 if (StopTradeOut=true and TimeHour(CurTime)>CloseHour and TimeHour(CurTime)>CloseHour)	then
 	{
 	StopTradeOut=false;
 	lossCounter=0;
 	Comment("Начался новый день");
 	}
 if (TimeHour(CurTime)<BeginHour and ExpertTotal=0) then exit;
// if (TimeHour(CurTime)>=FinalHour) then exit;
 if (  ( ((TimeHour(CurTime)<BeginHour)or(TimeHour(CurTime)>=CloseHour)) and ExpertTotal>0 and (CurTime-LastTradeTime>delaySeconds))or (lossCounter>=maxLossTrades)and ExpertTotal>0) then  
 // закрываем открытый ордер и снимаем отложенный
 	Begin
	Print("Закрываем открытый ордер и снимаем отложенный");
 	for cnt=TotalTrades DownTo 1
		{
		If OrderValue(cnt,VAL_TYPE)=OP_BUY and OrderValue(cnt,VAL_SYMBOL)=Symbol then // открыта длинная позиция
			{
			Print("Цена закрытия=",Bid,". Ордер в покупку №",cnt,". Его номер=",OrderValue(cnt,VAL_TICKET),". Bid=",Bid,". Ask=",Ask);
			CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Bid,3,Green) ;
		 	Exit;
			}
			
		If OrderValue(cnt,VAL_TYPE)=OP_SELL and OrderValue(cnt,VAL_SYMBOL)=Symbol then // открыта длинная позиция
			{
			Print("Цена закрытия=",Ask,". Ордер в покупку №",cnt,". Его номер=",OrderValue(cnt,VAL_TICKET),". Bid=",Bid,". Ask=",Ask);
			CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_LOTS),Ask,3,Green) ;
		 	Exit;
			}
		If (OrderValue(cnt,VAL_TYPE)=OP_SELLSTOP or OrderValue(cnt,VAL_TYPE)=OP_BUYSTOP) and OrderValue(cnt,VAL_SYMBOL)=Symbol then // отложенный ордер
			{
			//Print("Цена закрытия=",Ask,". Ордер в покупку №",cnt,". Его номер=",OrderValue(cnt,VAL_TICKET),". Bid=",Bid,". Ask=",Ask);
			DeleteOrder(OrderValue(cnt,VAL_TICKET),White) ;
		 	Exit;
			}

		}	

 	End;
 	
 if TimeHour(CurTime)>=BeginHour and TimeHour(CurTime)<FinalHour and (CurTime-LastTradeTime>delaySeconds and ExpertTotal>0 and lossCounter<maxLossTrades) then
 	Begin
 	curBalance=Balance;
 	if prevBalance<>curBalance then
 		{
 		if (curBalance<prevBalance) then lossCounter=lossCounter+1 else lossCounter=lossCounter-1;
 		prevBalance=curBalance;
 		}
 	OpenedTrades=0;
 	PendingOrders=0;	
	buyExist=false;
	sellExist=false;
 	for cnt=TotalTrades DownTo 1
		{
		If OrderValue(cnt,VAL_TYPE)=OP_BUY and OrderValue(cnt,VAL_SYMBOL)=Symbol then // открыта длинная позиция
			{
			OpenedTrades=OpenedTrades+1;
			buyStopLoss=Bid-ReversPoint*Point;
			buyExist=true;
			newSellStop=OrderValue(cnt,VAL_STOPLOSS);
			if (Bid-ReversPoint*Point>OrderValue(cnt,VAL_STOPLOSS)or OrderValue(cnt,VAL_STOPLOSS)=0) then
				{
				newSellStop=Bid-ReversPoint*Point;			 
				//Print("Цена закрытия=",Bid,". Ордер в покупку №",cnt,". Его номер=",OrderValue(cnt,VAL_TICKET),". Bid=",Bid,". Ask=",Ask);
				ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_OPENPRICE),buyStopLoss,OrderValue(cnt,VAL_TAKEPROFIT),Yellow) ;
			 	Exit;
				}
			}
			
		If OrderValue(cnt,VAL_TYPE)=OP_SELL and OrderValue(cnt,VAL_SYMBOL)=Symbol then // открыта длинная позиция
			{
			OpenedTrades=OpenedTrades+1;
			sellStopLoss=Ask+ReversPoint*Point;
			sellExist=true;
			newBuyStop=OrderValue(cnt,VAL_STOPLOSS);
			if (Ask+ReversPoint*Point<OrderValue(cnt,VAL_STOPLOSS)or OrderValue(cnt,VAL_STOPLOSS)=0) then
				{
				newBuyStop=Ask+ReversPoint*Point;		
				//Print("Цена закрытия=",Ask,". Ордер в покупку №",cnt,". Его номер=",OrderValue(cnt,VAL_TICKET),". Bid=",Bid,". Ask=",Ask);
				ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue(cnt,VAL_OPENPRICE),sellStopLoss,OrderValue(cnt,VAL_TAKEPROFIT),Yellow) ;
			 	Exit;
		 		}
			}
		// провели подтягивание стопов, теперь изменим цену открытия отложенных ордеров

		If OrderValue(cnt,VAL_TYPE)=OP_BUYSTOP and OrderValue(cnt,VAL_SYMBOL)=Symbol  then // открыта длинная позиция
			{
			PendingOrders=PendingOrders+1;
			if OrderValue(cnt,VAL_OPENPRICE)>newBuyStop and (CurTime-LastTradeTime>delaySeconds)then
				{
				ModifyOrder(OrderValue(cnt,VAL_TICKET),newBuyStop,newBuyStop-ReversPoint*Point,0,Blue) ;
			 	Exit;
				}
			}
		If OrderValue(cnt,VAL_TYPE)=OP_SELLSTOP and OrderValue(cnt,VAL_SYMBOL)=Symbol  then // открыта длинная позиция
			{
			PendingOrders=PendingOrders+1;
			if OrderValue(cnt,VAL_OPENPRICE)<newSellStop and (CurTime-LastTradeTime>delaySeconds)then			
				{
				ModifyOrder(OrderValue(cnt,VAL_TICKET),newSellStop,newSellStop+ReversPoint*Point,0,Red) ;
			 	Exit;
				}
			}

		}	
		if ExpertTotal>0 and PendingOrders=0 and (CurTime-LastTradeTime>delaySeconds) then // ордера есть, но отложенных нет
			{
			Print("Выставляем отложенный ордер");
			if (buyExist) then // установим отложенный на продажу
				{
				SetOrder(OP_SELLSTOP,lots,newSellStop,Slippage,newSellStop+ReversPoint*Point,0,red);
				exit;
				}
			if (sellExist) then // установим отложенный в покупку
				{
				SetOrder(OP_BUYSTOP,lots,newBuyStop,Slippage,newBuyStop-ReversPoint*Point,0,Blue);
				exit;
				}
			}
 	End;