//+------------------------------------------------------------------+
//| stop_and_reverse.mq4 |
//| Copyright © 2008, Silas Palmer. |
//| http://www.silaspalmer.com/ |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, Silas Palmer."
#property link "http://www.silaspalmer.com"
#include <stderror.mqh>
#include <stdlib.mqh>
// #property show_confirm
// Uncomment to enable confirmation
//+------------------------------------------------------------------+
//| script "close all orders on a chart, place one in opposite direction to last opened order" |
//+------------------------------------------------------------------+
int start()
{
// Change these amounts to suit your needs
int lotbucks = 50000; // 1 lot for every x dollars in your account.
int Slippage = 3; // Standard amount
// Note script auto-detects minimum lot size
// It also automatically scales lots based on currency pair
// (so that a 1 pip move will be $1 per lotbuck regardless of the pair chosen)
//----
int cmd = -1; // Nothing (buy=0 sell=1)
int i;
double lots,minl,maxl,pipbucks,step;
// Calculate lots
pipbucks = MarketInfo(Symbol(),MODE_TICKVALUE);
minl = MarketInfo(Symbol(),MODE_MINLOT);
maxl = MarketInfo(Symbol(),MODE_MAXLOT);
step = MarketInfo(Symbol(),MODE_LOTSTEP);
// Scale lots so 1 pip = $1 at 1 lot
lots = MathFloor( (((10 / pipbucks) * AccountFreeMargin()) / lotbucks) / step) * step;
if (lots < minl) lots = minl;
if (lots > maxl) lots = maxl;
for ( i=0; i<OrdersTotal(); i++ ) // Loop through orders
if ( OrderSelect ( i, SELECT_BY_POS, MODE_TRADES ) ) {
if ( OrderSymbol() == Symbol() ) {
if (OrderType() == OP_BUY) {
cmd = OP_SELL; // sell
// Close buy Order
OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Blue);
}
if (OrderType() == OP_SELL ) {
cmd = OP_BUY; // buy
// Close sell order
OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Blue);
}
}
}
if(cmd==OP_BUY) {
// buy
if ( OrderSend( Symbol(), OP_BUY, lots, Ask, Slippage, 0, 0, "Opened Buy Order", 0, 0, Orange ) > 0 )
Print ( "Opened Buy Order at ", Ask );
else
Alert ( "Could not open Buy order for ", Symbol(), " ", lots, " at ", Ask, " Error=", ErrorDescription(GetLastError()) );
}
if (cmd==OP_SELL) {
// sell
if ( OrderSend( Symbol(), OP_SELL, lots, Bid, Slippage, 0, 0, "Opened Buy Order", 0, 0, Yellow ) > 0 )
Print ( "Opened Sell Order at ",Bid );
else
Alert ( "Could not open Sell order for ", Symbol(), " ", lots, " at ", Bid, " Error=", ErrorDescription(GetLastError()) );
}
if (cmd==-1) {
Alert ( "Cannot stop and reverse. No orders open.");
}
//----
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
It automatically opens orders when conditions are reached
Other Features: