//--------------------------------------------------------------------------
// Moves stop loss at all orders when profit is bigger defined value
// (c) Koshelev M.A.
//--------------------------------------------------------------------------
library StopMover;

uses
  StrategyInterfaceUnit;

var
  ProfitBigger: integer;
  NewStopLoss: integer;


{-----Init strategy----------------------------------------------------------}
procedure InitStrategy; stdcall;
begin
  StrategyShortName('StopMover');
  StrategyDescription('Moves stop loss when profit if bigger some value');

  RegOption('ProfitBigger', ot_Integer, ProfitBigger);
  ProfitBigger := 50;

  RegOption('NewStopLoss', ot_Integer, NewStopLoss);
  NewStopLoss := 10;
end;

{-----Done strategy----------------------------------------------------------}
procedure DoneStrategy; stdcall;
begin
  //
end;

{-----Reset strategy---------------------------------------------------------}
procedure ResetStrategy; stdcall;
begin
  //
end;

{-----Process single tick----------------------------------------------------}
procedure GetSingleTick; stdcall;
var
  i: integer;
begin
  for i:=0 to OrdersTotal - 1 do
    if OrderSelect(i, SELECT_BY_POS, MODE_TRADES) then
      if (OrderType in [tp_Buy, tp_Sell]) and (OrderProfitPips >= ProfitBigger) and
         (GetStopLossPoints(OrderTicket) <> NewStopLoss) then
        SetStopLossPoints(OrderTicket, NewStopLoss);
end;

exports

InitStrategy,
DoneStrategy,
ResetStrategy,
GetSingleTick;

end.