Hi guys,

I am new to this forum and I would like to get your support on the following strategy that I would like to adjust to trade the OR breakout for futures. I found this code on another post and I would like to make following modifications:
- add opening and closing time (for me 15.30 and 22.00 since I am based in Europe)currently this code takes the first bar of the day on the chart. I could use the index tickers but I usually trade on futures index
- add stop loss @high/low of opening range when going short/long
- take profit end of the day at 22:01 (CET time)

thanks a lot for your help

here is the code:

Inputs: iRangeLengthMin(30),

iBrakePoints(1),

iEntryTimeLimit(-90),

iContracts(1),

iProfitTarget(500),

Price(Close),

Length(12),
ShowText (true);



Var: OpenRangeTime(CalcTime(SessionStartTime(0,1), iRangeLengthMin)),

EntryTimeLimit(CalcTime(SessionEndTime(0,1), iEntryTimeLimit)),

RangeH(0),RangeL(0), // H&L of range

TimeH(0), TimeL(0), // time of H&L

RangeHtime(0), RangeLtime(0),

vDollarStop(500),

FirstTrade(true),

CustomCond(true),

Cond4trade(true),

vVolumeLenght(7),

ExpAvg(0),

firstcheck(true),

MaxP(0),

DateInFromTo(false);



// New day settings

if Date<>Date[1] then begin

//DateInFromTo= (Date>=iFromYYYMMDD and Date<=iToYYYMMDD);

FirstTrade=true;

RangeH=H; RangeL=L; // first bars High Low are Ranges h&l

TimeH=Time; TimeL=Time;

end;



// Range settings

If L<LowD(0)[1] then TimeL=Time; {if new H or L, remember the time of H or L}

If H>HighD(0)[1] then TimeH=Time;



If Time=OpenRangeTime then begin // if openning range is finished

RangeH=HighD(0);

RangeL=LowD(0);

RangeHtime=TimeH;

RangeLtime=TimeL;

end; // remember Range parameters



// ***************** Trade ******************

CustomCond= true;

Cond4trade = CustomCond and time>OpenRangeTime and time<EntryTimeLimit ; //and DateInFromTo



If Cond4Trade then begin

If FirstTrade and Close>=RangeH then

begin

Buy("BrOR_L1") iContracts contracts Next bar at open;

FirstTrade=false;

end;

If FirstTrade and Close<=RangeL then

begin

sellshort("RrOR_Sh1") iContracts contracts next bar at open;

FirstTrade=false;

end;

end;

SetStopContract;

SetStopLoss(100);

SetProfitTarget(100);



// ******************** Plots and Text ********************

Vars: Decimals(Log(PriceScale)/ Log(10)),

PLot_hi(0),Plot_lo(0),

Low_line(-1),OR_Bar(-1),Hi_Line(-1),

Hi_text(-1),Lo_text(-1);



if time = OpenRangeTime then begin

Plot_hi = HighD(0);

Plot_lo = LowD(0);



{Draw Lines}

Hi_line = TL_new(date,time,Plot_hi,date,SessionEndTime(0,1),Plot_hi);

Tl_setstyle(Hi_line,tool_dashed2);

Tl_setcolor(Hi_line, yellow);

Low_line = TL_new(date,time,Plot_lo,Date,SessionEndTime(0,1),Plot_lo);

Tl_setstyle(Low_line,tool_dashed2);

Tl_setcolor(Low_line,yellow );

OR_bar = TL_new(date,time,Plot_hi,date,time,plot_lo);

TL_setcolor(OR_bar,lightgray);

{Text}

if ShowText then begin

Hi_text = Text_new(Date,SessionStartTime(0,1) ,Plot_hi ,numtostr(Plot_hi,decimals));

Lo_text = Text_new(Date,SessionStartTime(0,1),Plot_lo ,numtostr(Plot_lo,decimals));

end;

end;

Hi Soacm,

I managed to make some adjustments to the code, but it doesn't give any result. can you maybe help here?

Inputs:
startTime ( 7 ),
endTime ( 9 ),
startTradeTime ( 11 ),
use_yest ( 5 ),
use_stop_method ( 0 ),
stoploss ( 16 ),
target1 ( 32 ),
target2 ( 16 ),
target3 ( 72 ),
datramt ( 1 ),
minrange ( 100 ),
mind_gap ( 1 ),
mind_yesthl ( 1 );

variables:
sessHi (0),
sessLo (0),
sessOp (0),
yHi ( 0 ),
yLo ( 0 ),
yOp ( 0 ),
yCl ( 0 ),
tradestoday ( 0 ),
datr ( 0 );

if date <> date[1] then begin
yHi = sessHi;
yLo = sessLo;
yOp = sessOp;
yCl = Close[1];
sessOp = Open;
sessLo = Low;
sessHi = High;
datr = XAverage(DailyATR(1), 7);
tradestoday = 0;
end;

if time > startTime*100 and time <= endTime*100 then begin
if High > SessHi then SessHi = High;
if Low < SessLo then SessLo = Low;
end;

if time > startTradeTime * 100 and time < 1320 and AbsValue(sessHi - sessLo) > (minrange * MinMove / PriceScale) and MarketPosition = 0 and exitdate(1) <> date then begin


SetStopContract;

SetStopLoss( stoploss * BigPointValue );

// entries

condition1 = false;
condition2 = false;

if mind_yesthl = 1 and Close + (target1 * MinMove / PriceScale) > yHi then condition1 = true;
if mind_yesthl = 1 and Close - (target1 * MinMove / PriceScale) < yLo then condition2 = true;

if mind_yesthl = 0 then begin condition1 = true; condition2 = true; end;

condition3 = false;
condition4 = false;

if mind_gap = 1 and sessOp > yCl and sessLo < yCl then condition3 = true;
if mind_gap = 1 and sessOp < yCl and sessHi > yCl then condition4 = true;

if mind_gap = 0 then begin condition3 = true; condition4 = true; end;

if use_yest = 0 and condition1 and condition3 and Close > SessHi then begin
Buy 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 0 and condition2 and condition4 and Close < SessLo then begin
Sellshort 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 1 and condition1 and condition3 and Close > yHi then begin
Buy 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 1 and condition2 and condition4 and Close < yLo then begin
Sellshort 3 Contracts Next Bar At Market;
tradestoday = 1;
end;

if use_yest = 2 and condition1 and condition3 and Close > yHi and Close > SessHi then begin
Buy 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 2 and condition2 and condition4 and Close < yLo and Close < SessLo then begin
Sellshort 3 Contracts Next Bar At Market;
tradestoday = 1;
end;

if use_yest = 3 and condition1 and condition3 and Close > SessHi and (Close > yHi or sessLo > yHi) then begin
Buy 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 3 and condition2 and condition4 and Close < SessLo and (Close < yLo or sessHi < yLo) then begin
Sellshort 3 Contracts Next Bar At Market;
tradestoday = 1;
end;

if use_yest = 4 and condition1 and condition3 and Close > SessHi and (Close > yHi or sessLo > yOp) then begin
Buy 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 4 and condition2 and condition4 and Close < SessLo and (Close < yLo or sessHi < yOp) then begin
Sellshort 3 Contracts Next Bar At Market;
tradestoday = 1;
end;

if use_yest = 5 and condition1 and condition3 and Close > SessHi and (Close > yHi or sessLo > yCl) then begin
Buy 3 Contracts Next Bar At Market;
tradestoday = 1;
end;
if use_yest = 5 and condition2 and condition4 and Close < SessLo and (Close < yLo or sessHi < yCl) then begin
Sellshort 3 Contracts Next Bar At Market;
tradestoday = 1;
end;

end;

if MarketPosition = 1 then begin
if CurrentContracts = 3 then begin
Sell 1 Contracts Next Bar At EntryPrice(0) + (target1 * MinMove / PriceScale) Limit;
Sell 1 Contracts Next Bar At EntryPrice(0) + ((target1+target2) * MinMove / PriceScale) Limit;
Sell 1 Contracts Next Bar At EntryPrice(0) + ((target1+target2+target3) * MinMove / PriceScale) Limit;
end;
if CurrentContracts = 2 then begin
Sell 1 Contracts Next Bar At EntryPrice(0) + ((target1+target2) * MinMove / PriceScale) Limit;
Sell 1 Contracts Next Bar At EntryPrice(0) + ((target1+target2+target3) * MinMove / PriceScale) Limit;
end;
if CurrentContracts = 1 then begin
Sell 1 Contracts Next Bar At EntryPrice(0) + (target1 * MinMove / PriceScale) Limit;
end;
end;

if MarketPosition = -1 then begin
if CurrentContracts = 3 then begin
Buytocover 1 Contracts Next Bar At EntryPrice(0) - (target1 * MinMove / PriceScale) Limit;
Buytocover 1 Contracts Next Bar At EntryPrice(0) - ((target1+target2) * MinMove / PriceScale) Limit;
Buytocover 1 Contracts Next Bar At EntryPrice(0) - ((target1+target2+target3) * MinMove / PriceScale) Limit;
end;
if CurrentContracts = 2 then begin
Buytocover 1 Contracts Next Bar At EntryPrice(0) - ((target1+target2) * MinMove / PriceScale) Limit;
Buytocover 1 Contracts Next Bar At EntryPrice(0) - ((target1+target2+target3) * MinMove / PriceScale) Limit;
end;
if CurrentContracts = 1 then begin
Buytocover 1 Contracts Next Bar At EntryPrice(0) - (target1 * MinMove / PriceScale) Limit;
end;
end;


if time > 1320 and MarketPosition = 1 then Sell All Contracts Next Bar At Market;
if time > 1320 and MarketPosition = -1 then Buytocover All Contracts Next Bar At Market;

if use_stop_method = 1 and MarketPosition = 1 then Sell All Contracts Next Bar At MinList(Low[BarsSinceEntry], Low[BarsSinceEntry+1], Low[BarsSinceEntry+2]) Stop;
if use_stop_method = 1 and MarketPosition = -1 then Buytocover All Contracts Next Bar At MaxList(High[BarsSinceEntry], High[BarsSinceEntry+1], High[BarsSinceEntry+2]) Stop;

if use_stop_method = 2 and MarketPosition = 1 and Lowest(Low, 3)[BarsSinceEntry] > XAverage(Close, 20) and Close < XAverage(Close, 20) then Sell All Contracts Next Bar At Market;
if use_stop_method = 2 and MarketPosition = -1 and Highest(High, 3)[BarsSinceEntry] < XAverage(Close, 20) and Close > XAverage(Close, 20) then Buytocover All Contracts Next Bar At Market;

// check for dt/db
if MarketPosition = 1 and Highest(High, 100)[1] = High then Sell All Contracts Next Bar At Market;
if MarketPosition = -1 and Lowest(Low, 100)[1] = Low then Buytocover All Contracts Next Bar At Market;