{Bought a Sold - umstit do skriptu ped Long a Short}
Bought:= If(Long,1,If(LongEnd,0,Prev));
Sold:= If(Short,1,If(ShortEnd,0,Prev));



{Calculate Simulated Individual Trade Profit In Pips}
LongEntryPrice  := valuewhen(1,Long,C);
LongExitPrice   := valuewhen(1,LongEnd,C);
ShortEntryPrice := valuewhen(1,Short,C);
ShortExitPrice  := valuewhen(1,ShortEnd,C);

RealProfitBuy := If(Bought=1,C-LongEntryPrice-Spread,0)*10000;
RealProfitSell:= If(Sold=1,ShortEntryPrice-C-Spread,0)*10000;
RealProfitInPips:= RealProfitBuy+RealProfitSell;

TradeProfitBuy := If(LongEnd=1,RealProfitBuy,0);
TradeProfitSell:= If(ShortEnd=1,RealProfitSell,0);
TradeProfitInPips:= TradeProfitBuy+TradeProfitSell;

{Calculate Simulated Total Profit In Pips}
TotalProfitInPips:= cum(TradeProfitInPips);
Risk:= lowest(TotalProfitInPips);

LosingTrades:=  cum(If(TradeProfitInPips< 0,1,0))/10000;
WinningTrades:= cum(If(TradeProfitInPips> 0,1,0))/10000;
TotalTrades:=   cum(If(TradeProfitInPips<>0,1,0))/10000;

SumLosingTrades:=  cum(If(TradeProfitInPips<0,TradeProfitInPips,0))/10000;
SumWinningTrades:= cum(If(TradeProfitInPips>0,TradeProfitInPips,0))/10000;

AvgLosingTrade:=  SumLosingTrades/LosingTrades/10000;
AvgWinningTrade:= SumWinningTrades/WinningTrades/10000;