//+---------------------------------------------------------------------+ //| E-Bay_Clone_1v1.mq4 | //| Copyright ? 2007, [email protected] | //| [email protected] | //+---------------------------------------------------------------------+ #property copyright \"Copyright ? 2007, [email protected]\" #property link \"[email protected]\" // This Expert created by => Copy Over Paste Yippee Code Assembly Technician <= , aka \"C.O.P.Y.C.A.T.\" // For Demo Testing Only , [email protected] will not accept responsibility for any loses incurred // If you\'re not sure what incurred means , go here http://dictionary.reference.com/browse/incurred #include #include extern bool SuspendAfterClose = False; extern double StartLots = 0.01; extern bool UseMM = False; extern int PipsBetweenTrades = 20; extern double TakeProfitPips = 2; extern bool ReverseTrading = True; int SendRequest; bool FirstRun = True; string Accfreemargin; string MaxLots; string usedmargin; string openbuys; string opensells; extern bool ShowComments = True; int Magic; int cnt; double lotsi; double mylotsi; int OpenOrders; double Profit; double lotstote; double LastLots; int buytote; double buylots; double LastBuyPrice; double LastBuyLots; double BuyPips; int selltote; double selllots; double LastSellPrice; double LastSellLots; double SellPips; extern bool CloseM = False; double goober; //+------------------------------------------------------------------+ //| expert start function | //+------------------------------------------------------------------+ int start() { //---- if (!IsDemo())return(0); lotsi = StartLots; if (UseMM) { lotsi=MathFloor(AccountBalance()/2000)*StartLots; } if (lotsi < StartLots) lotsi = StartLots; SendRequest = -1; if (FirstRun) { if (Symbol()==\"EURUSD\"){Magic=110+ReverseTrading;} if (Symbol()==\"GBPUSD\"){Magic=220+ReverseTrading;} if (Symbol()==\"USDJPY\"){Magic=330+ReverseTrading;} if (Symbol()==\"USDCHF\"){Magic=440+ReverseTrading;}// copy this line , paste below it // after you paste , change \"USDCHF\" to whatever symbol you are running and change Magic= \"xxx\" +ReverseTrading;. if (Magic < 2){Magic=5+ReverseTrading;} Accfreemargin = AccountNumber()+\"_Accfreemargin\"; MaxLots = AccountNumber()+\"_\"+Symbol()+\"_\"+Magic+\"_MaxLots\"; usedmargin = AccountNumber()+\"_\"+Symbol()+\"_\"+Magic+\"_usedmargin\"; openbuys = AccountNumber()+\"_\"+Symbol()+\"_\"+Magic+\"_openbuys\"; opensells = AccountNumber()+\"_\"+Symbol()+\"_\"+Magic+\"_opensells\"; if (!GlobalVariableCheck(Accfreemargin)) { GlobalVariableSet(Accfreemargin,200000000); } if (!GlobalVariableCheck(MaxLots)) { GlobalVariableSet(MaxLots,lotstote); } if (!GlobalVariableCheck(usedmargin)) { GlobalVariableSet(usedmargin,0); } if (!GlobalVariableCheck(openbuys)) { GlobalVariableSet(openbuys,buytote); } if (!GlobalVariableCheck(opensells)) { GlobalVariableSet(opensells,selltote); } FirstRun=False; } OpenOrders = 0; Profit = 0; lotstote = 0; LastLots = 0; buytote = 0; buylots = 0; LastBuyPrice = 0; LastBuyLots = 0; BuyPips = 0; selltote = 0; selllots = 0; LastSellPrice = 0; LastSellLots = 0; SellPips = 0; mylotsi = 0; if (OrdersTotal() > 0) { for (cnt = 0; cnt < OrdersTotal(); cnt++) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if ((OrderSymbol()==Symbol()) && (OrderMagicNumber() == Magic)) { OpenOrders++; Profit+=OrderProfit(); lotstote+=OrderLots(); LastLots = OrderLots(); if ((OrderSymbol()==Symbol()) && (OrderType()==OP_BUY) && (OrderMagicNumber() == Magic)) { buytote++; buylots+=OrderLots(); LastBuyPrice = OrderOpenPrice(); LastBuyLots = OrderLots(); BuyPips += (OrderClosePrice()-OrderOpenPrice()); } if ((OrderSymbol()==Symbol()) && (OrderType()==OP_SELL) && (OrderMagicNumber() == Magic)) { selltote++; selllots-=OrderLots(); LastSellPrice = OrderOpenPrice(); LastSellLots = OrderLots(); SellPips += (OrderOpenPrice()-OrderClosePrice()); } } } } if ((CloseM) && (OpenOrders <= 0)) { CloseM = False; return(0); } if ((CloseM) && (OpenOrders > 0)) CloseAll(); if (!CloseM) { if ((BuyPips+SellPips) >= TakeProfitPips*Point) { CloseM = True; CloseAll(); } if ((!SuspendAfterClose) && (OpenOrders <= 0)) { if ((SuspendAfterClose) && (OpenOrders <= 0)) { return(0); } //if ( LastSellPrice = 0; LastBuyPrice = 0; RequestBuy(); } if ((OpenOrders == 1) && (selltote == 0)) { RequestSell(); } if ( (!ReverseTrading) && (OpenOrders >= 2) ) { if (NormalizeDouble(Bid,Digits) <= (LastSellPrice-(PipsBetweenTrades*Point)) ) { RequestAdditionalSell(); } else if (NormalizeDouble(Ask,Digits) >= (LastBuyPrice+(PipsBetweenTrades*Point)) ) { RequestAdditionalBuy(); } } if ( (ReverseTrading) && (OpenOrders >= 2) ) { if (NormalizeDouble(Ask,Digits) <= (LastBuyPrice-(PipsBetweenTrades*Point)) ) { RequestAdditionalBuy(); } else if (NormalizeDouble(Bid,Digits) >= (LastSellPrice+(PipsBetweenTrades*Point)) ) { RequestAdditionalSell(); } } } if (AccountFreeMargin() < GlobalVariableGet(Accfreemargin)) GlobalVariableSet(Accfreemargin,AccountFreeMargin()); if (lotstote > GlobalVariableGet(MaxLots)) GlobalVariableSet(MaxLots,lotstote); if (buytote > GlobalVariableGet(openbuys)) GlobalVariableSet(openbuys,buytote); if (selltote > GlobalVariableGet(opensells)) GlobalVariableSet(opensells,selltote); if ((MarketInfo(Symbol(),MODE_MARGINREQUIRED)*lotstote) != GlobalVariableGet(usedmargin)) { GlobalVariableSet(usedmargin,(MarketInfo(Symbol(),MODE_MARGINREQUIRED)*lotstote)); } if (ShowComments) { Comment(\"\\n LastBuyPrice = \",DoubleToStr(LastBuyPrice,Digits),\" , LastSellPrice = \",DoubleToStr(LastSellPrice,Digits), \"\\n Account Lowest Free Margin = $ \",DoubleToStr(GlobalVariableGet(Accfreemargin),2),\" , Max Open Lots = \",DoubleToStr(GlobalVariableGet(MaxLots),2), \"\\n Open Buys = \",buytote,\" , Open Sells = \",selltote,\" , Margin In Use = $ \",DoubleToStr(GlobalVariableGet(usedmargin),2), \"\\n Pips Between Trades = \",DoubleToStr(PipsBetweenTrades*Point,Digits),\" , Start Lots = \",StartLots,\" , UseMM = \",UseMM,\" , Start Lots = \",lotsi, \"\\n Open Buy Lots = \",DoubleToStr(buylots,2),\" , Open Sell Lots = \",DoubleToStr(selllots,2),\" , Total Lots Bias = \",DoubleToStr(buylots+selllots,2), \"\\n BuyPips = \",DoubleToStr(BuyPips,Digits),\" , SellPips = \",DoubleToStr(SellPips,Digits),\" , BuyPips+SellPips = \",DoubleToStr(BuyPips+SellPips,Digits), \"\\n SuspendAfterClose = \",SuspendAfterClose,\" , Magic = \",Magic,\" , Margin Required For 1 Lot = $ \",DoubleToStr(MarketInfo(Symbol(),MODE_MARGINREQUIRED),2)); } if ((!ShowComments) && (goober != Time[0])) { Comment(\"\"); goober = Time[0]; } //---- return(0); } //+------------------------------------------------------------------+ void CloseAll() { int crumbs = OrdersTotal(); for (cnt = 0; cnt < crumbs; cnt++) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if ((Symbol() == Symbol()) && (OrderMagicNumber() == Magic)) { OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),0,White); CloseM = True; } } } void RequestAdditionalBuy() { SendRequest = -1; mylotsi = LastLots * 2; if (mylotsi>100) { mylotsi=100; } SendRequest = OrderSend(Symbol(),OP_BUY,mylotsi,Ask,3,0,0,\"\"+Symbol()+\" E-Bay_Clone_1v1 \"+Magic+\"\",Magic,0,Blue); if (SendRequest < 0) { Print(\"Error - OrderSend Buy @ \",Ask); ReportError(); } } void RequestAdditionalSell() { SendRequest = -1; mylotsi = LastLots * 2; if (mylotsi>100) { mylotsi=100; } SendRequest = OrderSend(Symbol(),OP_SELL,mylotsi,Bid,3,0,0,\"\"+Symbol()+\" E-Bay_Clone_1v1 \"+Magic+\"\",Magic,0,Red); if (SendRequest < 0) { Print(\"Error - OrderSend Sell @ \",Bid); ReportError(); } } void RequestBuy() { if ((!SuspendAfterClose) && (buytote == 0) && (!CloseM)) { SendRequest = -1; SendRequest = OrderSend(Symbol(),OP_BUY,lotsi,Ask,3,0,0,\"\"+Symbol()+\" E-Bay_Clone_1v1 \"+Magic+\"\",Magic,0,Blue); if (SendRequest < 0) { Print(\"Error - OrderSend Buy @ \",Ask); ReportError(); } } } void RequestSell() { if ((!SuspendAfterClose) && (selltote == 0) && (!CloseM)) { SendRequest = -1; SendRequest = OrderSend(Symbol(),OP_SELL,lotsi,Bid,3,0,0,\"\"+Symbol()+\" E-Bay_Clone_1v1 \"+Magic+\"\",Magic,0,Red); if (SendRequest < 0) { Print(\"Error - OrderSend Sell @ \",Bid); ReportError(); } } } void ReportError() { int err = GetLastError(); Print(\"Error(\",err,\"): \", ErrorDescription(err)); }