//+------------------------------------------------------------------+
//|                                                   TradesInfo.mq4 |
//|                                                      John Taylor |
//|                                             http://www.noone.net |
//+------------------------------------------------------------------+
#property copyright "John Taylor"
#property link      "http://www.noone.net"

#property show_inputs

#include <stdlib.mqh>

extern string symbol = "ALL";

string scriptName = "TradesInfo";

int start() {
   double profit,swap,commission,slippage;
   
   for(int pos=OrdersHistoryTotal()-1;pos>=0;pos--) {
      if(!OrderSelect(pos,SELECT_BY_POS,MODE_HISTORY)) {
         Print("OrderSelect failed - ",ErrorDescription(GetLastError()));
      }
      else {
         if(symbol=="ALL" || symbol =="" || OrderSymbol()== Symbol()) {
            double thisProfit=OrderProfit();
            
            if(OrderComment()=="Deposit") continue; 
            
            if(MathAbs(OrderStopLoss()-OrderClosePrice())<MathAbs(OrderTakeProfit()-OrderClosePrice())) {
               // Assume trade was a loser
               if(OrderType()==OP_BUY) {
                  slippage+=OrderClosePrice()-OrderStopLoss();
               }
               else {
                  slippage+=OrderStopLoss()-OrderClosePrice();
               }
            }
            else {
               if(OrderType()==OP_BUY) {
                  slippage+=OrderTakeProfit()-OrderClosePrice();
               }
               else {
                  slippage +=OrderClosePrice()-OrderTakeProfit();
               }
            }

            profit    +=OrderProfit();
            swap      +=OrderSwap();
            commission+=OrderCommission();
         }
      }            
   }

   string msg;
   msg = StringConcatenate(msg,"Profit\t\t",    munge(DoubleToStr(profit    ,2)),"\r\n");
   msg = StringConcatenate(msg,"Swap\t\t",      munge(DoubleToStr(swap      ,2)),"\r\n");
   msg = StringConcatenate(msg,"Commission\t",  munge(DoubleToStr(commission,2)),"\r\n");
   msg = StringConcatenate(msg,"Slippage\t\t",  munge(DoubleToStr(slippage  ,2)),"\r\n");

   MessageBox(msg,scriptName);
   return(0);
}

string Right(string s,int nChars) {
   return(StringSubstr(s,StringLen(s)-nChars));
}

string Left(string s, int nChars) {
   return(StringSubstr(s,0,nChars));
}

int Len(string s) {
   return(StringLen(s));
}

string munge (string s) {
   string result = s;
   while(Right(result,1)=="0") {
      result = Left(result,Len(result)-1);
   }
   if (Right(result,1)==".") {
      result = Left(result,Len(result)-1);
   }
   return (result);
}