[JoeDormann]

//Hier fehlt z.B. noch das Löschen veralteter Trades und eine Magicnumber, etc...

//+------------------------------------------------------------------+
//| 10 Pips a Day.mq4 |
//| Marc |
//| ... |
//+------------------------------------------------------------------+
#property copyright "Marc"
#property link "..."

extern int _BTP=100;
extern int _BSL=200;
extern int _STP=100;
extern int _SSL=200;
extern double Lots=0.02;
extern int slippage=20;
extern int MaxTrades=1;

int OBS=10;
int OSS=-10;
int TradeSignal=0;
int iTicket;
int TotalTrades;
int spread;



//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start() {

//----Kauflogik
if (Open[1] < Close[1])
TradeSignal=OBS;
TotalTrades=OrdersTotal();
spread=(Ask-Bid)/Point;

if ((TradeSignal == OBS) && (TotalTrades < MaxTrades)) {
double BSL=High[1]-_BSL*Point;
double BTP=High[1]+_BTP*Point;
if(High[1]>=Ask+2*spread*Point) {
Print("DoLong price=",High[1]," BSL=",BSL," BTP=",BTP);
iTicket=OrderSend(Symbol(), OP_BUYSTOP, Lots, High[1], slippage, NormalizeDouble(BSL,Digits), 0, "Kauf",0,0,Blue);
if(OrderSelect(iTicket,SELECT_BY_TICKET))
OrderModify(OrderTicket(),OrderOpenPrice(),OrderSt opLoss(),NormalizeDouble(BTP,Digits),0,Blue);
}
}

//----Verkaufslogik
if (Close[1] < Open[1])
TradeSignal=OSS;
TotalTrades=OrdersTotal();

if ((TradeSignal == OSS) && (TotalTrades < MaxTrades)) {
double SSL=Low[1]+_SSL*Point;
double STP=Low[1]-_STP*Point;
if(Low[1]<=Bid-2*spread*Point) {
Print("DoShort price=",Low[1]," SSL=",SSL," STP=",STP);
iTicket=OrderSend (Symbol(), OP_SELLSTOP, Lots, Low[1], slippage, NormalizeDouble(SSL,Digits), 0, "Verkauf",0,0,Red);
if(OrderSelect(iTicket,SELECT_BY_TICKET))
OrderModify(OrderTicket(),OrderOpenPrice(),OrderSt opLoss(),NormalizeDouble(STP,Digits),0,Red);
}
}

return(0);
}
//+------------------------------------------------------------------+