AccountSentry

//+------------------------------------------------------------------+
//|                                                AccountSentry.mq4 |
//|                                Copyright © 2008, David E. Fulton |
//|                                     http://www.defulton.com/forex|
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, David E. Fulton"
#property link      "http://www.defulton.com/forex"

//*******************************************************
extern string version= "AccountSentry V1.0";          //*
extern string ContactMe="david@defulton.com";         //*
extern string Build = "Build 014";                    //*
extern string BuildDate="-- 19 December 2008 --";     //*
//*******************************************************

double MaxAccountMargin = 0.0;
double MaxFloatingLoss = 0.0;
double MinMarginLevel = 0.0;
double AccountMarginLevel = 0.0;
double AccountCurrentBalance;
bool   ContinueOpening=true;
string Status="";
int    nTickCount;

int deinit() {
    return(0);
}

int init() {
    if (AccountMargin() > 0) // eleminate zero divide error
        MinMarginLevel = AccountEquity() / AccountMargin() * 100;

    if (!GlobalVariableCheck("GV_AccountBeginningBalance"))
        GlobalVariableSet("GV_AccountBeginningBalance",0.0);

    if (!GlobalVariableCheck("GV_AccountEquityProtection"))
        GlobalVariableSet("GV_AccountEquityProtection",0.0);

    if (!GlobalVariableCheck("GV_TrailingEquityProtection"))
        GlobalVariableSet("GV_TrailingEquityProtection",0.0);

    if (!GlobalVariableCheck("GV_CloseAllAndHalt"))
        GlobalVariableSet("GV_CloseAllAndHalt",0.0);

    if (!GlobalVariableCheck("GV_MarginLevel"))
        GlobalVariableSet("GV_MarginLevel",0.0);

    if (!GlobalVariableCheck("GV_MaxAccountMargin"))
        GlobalVariableSet("GV_MaxAccountMargin",0.0);

    if (!GlobalVariableCheck("GV_MaxFloatingLoss"))
        GlobalVariableSet("GV_MaxFloatingLoss",0.0);

    if (!GlobalVariableCheck("GV_MaxFloatingProfit"))
        GlobalVariableSet("GV_MaxFloatingProfit",0.0);

    if (!GlobalVariableCheck("GV_MaxOpenOrders"))
        GlobalVariableSet("GV_MaxOpenOrders",0.0);

    if (!GlobalVariableCheck("GV_MinMarginLevel"))
        GlobalVariableSet("GV_MinMarginLevel",0.0);

    if (!GlobalVariableCheck("GV_MinEquityLevel"))
        GlobalVariableSet("GV_MinEquityLevel",0.0);

    return(0);
}



//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start() {
    nTickCount++;
    GlobalVariableSet("GV_AccountCurrentBalance",AccountBalance());

// Account equity protection

    if (AccountEquity() <= GlobalVariableGet("GV_TrailingEquityProtection")) {
        ContinueOpening=False;
        GlobalVariableSet("GV_CloseAllAndHalt",1.0);
        CloseAll();
        Status="HALTED";
        DisplayComments();
        return(0);
    } else {
        GlobalVariableSet("GV_CloseAllAndHalt",0.0);
        ContinueOpening=true;
    }

    if (GlobalVariableGet("GV_AccountCurrentBalance") > GlobalVariableGet("GV_AccountBeginningBalance")) {
        GlobalVariableSet("GV_TrailingEquityProtection",GlobalVariableGet("GV_AccountEquityProtection") +
                          GlobalVariableGet("GV_AccountCurrentBalance") - GlobalVariableGet("GV_AccountBeginningBalance"));
    } else {
        GlobalVariableSet("GV_AccountCurrentBalance",AccountBalance());
        GlobalVariableSet("GV_TrailingEquityProtection",GlobalVariableGet("GV_AccountEquityProtection"));
    }

    if (AccountMargin() > 0) { // eleminate zero divide error
        AccountMarginLevel = AccountEquity() / AccountMargin() * 100;
    }

    if (GlobalVariableGet("GV_MinMarginLevel") == 0) {
        GlobalVariableSet("GV_MinMarginLevel",AccountMarginLevel);
    }

    if (AccountMarginLevel < GlobalVariableGet("GV_MinMarginLevel")) {
        GlobalVariableSet("GV_MinMarginLevel",AccountMarginLevel);  //update minimum margin level
    }

    if (AccountMargin() > GlobalVariableGet("GV_MaxAccountMargin")) {
        MaxAccountMargin = AccountMargin();
        GlobalVariableSet("GV_MaxAccountMargin",AccountMargin());  //update GV_MaxAccountMargin
    }

    if (AccountProfit() > GlobalVariableGet("GV_MaxFloatingProfit")) {
        GlobalVariableSet("GV_MaxFloatingProfit",AccountProfit());
    }
    if (GlobalVariableGet("GV_MinEquityLevel") == 0) {
        GlobalVariableSet("GV_MinEquityLevel",AccountEquity());
    } else {
        if (AccountEquity() < GlobalVariableGet("GV_MinEquityLevel"))
            GlobalVariableSet("GV_MinEquityLevel",AccountEquity());
    }

    if (AccountProfit() < MaxFloatingLoss) {
        MaxFloatingLoss = AccountProfit();
        GlobalVariableSet("GV_MaxFloatingLoss",MaxFloatingLoss);  //update GV_MaxFloatingLoss
    }

    if (OrdersTotal() > GlobalVariableGet("GV_MaxOpenOrders")) {
        GlobalVariableSet("GV_MaxOpenOrders",OrdersTotal());  //update GV_MaxOpenOrders
    }

    if (ContinueOpening>0) {
        Status="RUNNING";
    } else {
        Status="HALTED";
    }

    if (!IsTesting()) {
       DisplayComments();
    }
    return(0);
}

void DisplayComments() {
        Comment("\n",version," ",Build,
                "\n",
                "\nTick=",nTickCount,
                "\nCurrent Terminal Status=",Status,
                "\nAccount Leverage=1:",AccountLeverage(),
                "\n",
                "\nBeginning Account Balance=",GlobalVariableGet("GV_AccountBeginningBalance"),
                "\nCurrent Account Balance=",GlobalVariableGet("GV_AccountCurrentBalance"),
                "\nTrailing Equity Stop Loss=",GlobalVariableGet("GV_TrailingEquityProtection"),
                "\n",
                "\nCurrent AccountEquity=",AccountEquity(),
                "\nCurrent AccountMargin=",AccountMargin(),
                "\nCurrent Account Margin Level=",MathRound(AccountMarginLevel),"%",
                "\nCurrent Open Orders=",OrdersTotal(),
                "\n",
                "\nMinumum Equity Level=",GlobalVariableGet("GV_MinEquityLevel"),
                "\nMaximum Floating Profit=",GlobalVariableGet("GV_MaxFloatingProfit"),
                "\nMaximum Floating Loss=",GlobalVariableGet("GV_MaxFloatingLoss"),
                "\nMaximum Account Margin=",GlobalVariableGet("GV_MaxAccountMargin"),
                "\nMinimum Margin Level=",MathRound(GlobalVariableGet("GV_MinMarginLevel")),"%",
                "\nMaximum Open Orders=",GlobalVariableGet("GV_MaxOpenOrders"));

    }
    
//+------------------------------------------------------------------+
//| Close all orders                                                 |
//+------------------------------------------------------------------+
void CloseAll() {
    for (int i=0;i<5;i++) {
        int total_trades=OrdersTotal();
        for (int j=0;j<total_trades;j++) {
            while (!IsTradeAllowed()) {  // wait if trade context is busy
            }

            if (OrderSelect(j,SELECT_BY_POS,MODE_TRADES)) {
                int order_type=OrderType();
                double order_openprice=OrderOpenPrice();
                int order_ticket=OrderTicket();
                double order_volume=OrderLots();
                string order_symbol=OrderSymbol();

//close pending orders
                if (order_type>=OP_BUYLIMIT) OrderDelete(order_ticket,CLR_NONE);

//close sell orders
                if (order_type==OP_SELL) OrderClose(order_ticket,order_volume,
                                                        MarketInfo(order_symbol,MODE_ASK),3,CLR_NONE);


//close buy orders
                if (order_type==OP_BUY) OrderClose(order_ticket,order_volume,
                                                       MarketInfo(order_symbol,MODE_BID),3,CLR_NONE);
            }
        }
    }
    total_trades=OrdersTotal();
    return(0);
}

//+------------------------------------------------------------------+