//+------------------------------------------------------------------+ //| Hans123 Expert Advisor | //| Version 8.1 | //| v8 Programmed by Fukinagashi | //| v8.1 Programmed by AymenSaket | //+------------------------------------------------------------------+ #include extern int BeginSession1= 5; extern int LengthSession1= 4; extern int BeginSession2= 9; extern int LengthSession2= 4; extern double Lots = 1; extern int LocalTimeZone= 1; extern int DestTimeZone= 1; extern int ClsOnlUnprTX=1; extern int ProtectYourInvestments= 1; extern int Type_TS_Calc= 1; extern double FactorTSCalculation = 0.5; datetime bartime = 0; double Slippage= 3; int OrderInterval = 10000; //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int start() { int cnt, ticket, err, i, j; int MagicNumber; double ts, tp, sl, LowestPrice, HighestPrice, Price; bool Order[5]; string setup; datetime Validity=0; double TrailingStop; double TakeProfit; double InitialStopLoss; int PipsForEntry; int TimeZoneDiff= LocalTimeZone - DestTimeZone; MagicNumber = func_Symbol2Val(Symbol()); setup="H123v8.1_" + Symbol(); if (Symbol()=="GBPUSD") { PipsForEntry= 13; TrailingStop = 32; TakeProfit = 62; InitialStopLoss=52; } else if (Symbol()=="EURUSD") { PipsForEntry= 13; TrailingStop = 30; TakeProfit = 52; InitialStopLoss=42; } else if (Symbol()=="USDCHF") { PipsForEntry= 13; TrailingStop = 30; TakeProfit = 62; InitialStopLoss=52; } else { PipsForEntry= 13; TrailingStop = 32; TakeProfit = 52; InitialStopLoss=42; } if (bartime == Time[0]) { return(0); } else { bartime = Time[0]; } ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////// MODIFICATIONS ON OPEN ORDERS //////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// for(cnt=OrdersTotal();cnt>=0;cnt--) { if (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES)) { err = GetLastError(); if (err>1) { Print("Error selecting order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); } if(OrderType()==OP_BUY && OrderSymbol()==Symbol() && (OrderMagicNumber()==(MagicNumber+1) || OrderMagicNumber()==(MagicNumber+3))) { if(TimeDay(OrderOpenTime())!=TimeDay(Time[0])) { if (ClsOnlUnprTX==1) { if(Bid-OrderOpenPrice()1) { Print("Error closing buy order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); } } else if (TrailingStop>0) { if (ProtectYourInvestments==1 && Bid-OrderOpenPrice()>Point*TrailingStop) { ts = OrderOpenPrice(); } else { if (Type_TS_Calc==1) { ts = Bid-(Point*TrailingStop); } else if (Type_TS_Calc==2) { ts = Low[0] - FactorTSCalculation * iATR(NULL,0,14,0); } else if (Type_TS_Calc==3) { ts = Low[0] - (FactorTSCalculation *(High[0]-Low[0])); } } if (OrderStopLoss()Point*TrailingStop) OrderModify(OrderTicket(),OrderOpenPrice(),ts,OrderTakeProfit(),0,White); err = GetLastError(); if (err>1) { Print("Error modifying buy order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); } } } else if(OrderType()==OP_SELL && OrderSymbol()==Symbol() && (OrderMagicNumber()==(MagicNumber+2) || OrderMagicNumber()==(MagicNumber+4))) { if(TimeDay(OrderOpenTime())!=TimeDay(Time[0])) { if (ClsOnlUnprTX==1) { if((OrderOpenPrice()-Ask)<(Point*TrailingStop)) { OrderClose(OrderTicket(), Lots, Ask, 3, Red); } } else { OrderClose(OrderTicket(), Lots, Ask, 3, Red); } err = GetLastError(); if (err>1) { Print("Error closing Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); } } else if (TrailingStop>0) { if (ProtectYourInvestments==1 && (OrderOpenPrice()-Ask)>(Point*TrailingStop)) { ts = OrderOpenPrice(); } else { if (Type_TS_Calc==1) { ts = Ask+(Point*TrailingStop); } else if (Type_TS_Calc==2) { ts = High[0] + FactorTSCalculation * iATR(NULL,0,14,0); } else if (Type_TS_Calc==3) { ts = High[0] + (FactorTSCalculation *(High[0]-Low[0])); } } if (OrderStopLoss()>ts && (OrderOpenPrice()-Ask)>(Point*TrailingStop)) OrderModify(OrderTicket(),OrderOpenPrice(),ts,OrderTakeProfit(),0,White); err = GetLastError(); if (err>1) { Print("Error modifyin sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); } } } } } ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////// SETTING ORDERS //////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// if(AccountFreeMargin()<(1000*Lots)) return(0); Validity=StrToTime(TimeYear(Time[0]) + "." + TimeMonth(Time[0]) + "." + TimeDay(Time[0]) + " 23:59")+(TimeZoneDiff*3600); for(i=1;i<5;i++) { Order[i]=false; } for(cnt=OrdersTotal();cnt>=0;cnt--) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); err = GetLastError(); if(OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+1)) { Order[1]=true; } else if (OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+2)) { Order[2]=true; } else if (OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+3)) { Order[3]=true; } else if (OrderSymbol()==Symbol() && OrderMagicNumber()==(MagicNumber+4)) { Order[4]=true; } } if (TimeHour(Time[0])==BeginSession1+LengthSession1+TimeZoneDiff && TimeMinute(Time[0])==0) { LowestPrice=Low[Lowest(NULL, 0, MODE_LOW, LengthSession1*60/Period(), 0)]; HighestPrice=High[Highest(NULL, 0, MODE_HIGH, LengthSession1*60/Period(), 0)]; Print("Determine Low: " + LowestPrice + " and High: " + HighestPrice + " for timephase " + TimeToStr(Time[240/Period()]) + " - " + TimeToStr(Time[0])); Price = HighestPrice+PipsForEntry*Point; if (TakeProfit>0) { tp=Price+TakeProfit*Point; } else { tp=0; } if (InitialStopLoss>0) { if((Price-InitialStopLoss*Point)0) { tp=Price-TakeProfit*Point; } else { tp=0; } if (InitialStopLoss>0) { if((Price+InitialStopLoss*Point)>HighestPrice+PipsForEntry*Point) { sl = HighestPrice+PipsForEntry*Point; } else { sl = Price+InitialStopLoss*Point; } } else { sl=0; } Sleep(OrderInterval); if (!Order[2]) ticket=OrderSendExtended(Symbol(),OP_SELLSTOP,Lots,Price,Slippage,sl,tp,setup,(MagicNumber+2),Validity,Green); } if (TimeHour(Time[0])==BeginSession2+LengthSession2+TimeZoneDiff && TimeMinute(Time[0])==0) { LowestPrice=Low[Lowest(NULL, 0, MODE_LOW, LengthSession2*60/Period(), 0)]; HighestPrice=High[Highest(NULL, 0, MODE_HIGH, LengthSession2*60/Period(), 0)]; Print("Determine Low: " + LowestPrice + " and High: " + HighestPrice + " for timephase " + TimeToStr(Time[240/Period()]) + " - " + TimeToStr(Time[0])); Price = HighestPrice+PipsForEntry*Point; if (TakeProfit>0) { tp=Price+TakeProfit*Point; } else { tp=0; } if (InitialStopLoss>0) { if((Price-InitialStopLoss*Point)0) { tp=Price-TakeProfit*Point; } else { tp=0; } if (InitialStopLoss>0) { if((Price+InitialStopLoss*Point)>HighestPrice+PipsForEntry*Point) { sl = HighestPrice+PipsForEntry*Point; } else { sl = Price+InitialStopLoss*Point; } } else { sl=0; } Sleep(OrderInterval); if (!Order[4]) ticket=OrderSendExtended(Symbol(),OP_SELLSTOP,Lots,Price,Slippage,sl,tp,setup,(MagicNumber+2),Validity,Green); } } ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////// DIVERSE SUBROUTINES ///////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////// int func_Symbol2Val(string symbol) { if(symbol=="AUDUSD") { return(01); } else if(symbol=="CHFJPYm") { return(02); } else if(symbol=="EURAUD") { return(10); } else if(symbol=="EURCAD") { return(11); } else if(symbol=="EURCHF") { return(12); } else if(symbol=="EURGBP") { return(13); } else if(symbol=="EURJPY") { return(14); } else if(symbol=="EURUSD") { return(15); } else if(symbol=="GBPCHF") { return(20); } else if(symbol=="GBPJPY") { return(21); } else if(symbol=="GBPUSD") { return(22); } else if(symbol=="USDCAD") { return(40); } else if(symbol=="USDCHF") { return(41); } else if(symbol=="USDJPY") { return(42); } else if(symbol=="GOLD") { return(90); } else { Comment("unexpected Symbol"); return(0); } } int OrderSendExtended(string symbol, int cmd, double volume, double price, int slippage, double stoploss, double takeprofit, string comment, int magic, datetime expiration=0, color arrow_color=CLR_NONE) { datetime OldCurTime; int timeout=5; int ticket=0; int err1; if (!IsTesting()) { MathSrand(LocalTime()); Sleep(MathRand()/6); } OldCurTime=CurTime(); while (GlobalVariableCheck("InTrade") && !IsTradeAllowed()) { if(OldCurTime+timeout<=CurTime()) { Print("Error in OrderSendExtended(): Timeout encountered"); return(0); } Sleep(OrderInterval/10); } ticket = OrderSend(symbol, cmd, volume, price, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color); Sleep (OrderInterval+5000); err1 = GetLastError(); if (err1==130) { ticket=OrderSend(symbol, cmd, volume, Ask, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color); Sleep (OrderInterval+5000); } while (!OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES)) { ticket = OrderSend(symbol, cmd, volume, price, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color); Sleep (OrderInterval+5000); err1 = GetLastError(); if (err1==130) { ticket=OrderSend(symbol, cmd, volume, Ask, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color); Sleep (OrderInterval+5000); } if (err1 > 0) { Print("error(",err1,"): ",ErrorDescription(err1)); } } return(ticket); }