SLAndLots

//+------------------------------------------------------------------+
//|                                                    SLAndLots.mq4 |
//|                                           Copyright © 2009, DKeN |
//|                                              http://www.dken.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, DKeN"
#property link      "http://www.dken.biz"

#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 0.1
extern double cfg_iRiskPercent=1;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
  InitAll();
      
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   if(ObjectFind("SLAndLots_SL")!=-1) ObjectDelete("SLAndLots_SL");
   if(ObjectFind("SLAndLots_Open")!=-1) ObjectDelete("SLAndLots_Open");
   if(ObjectFind("SLAndLots_Comment")!=-1) ObjectDelete("SLAndLots_Comment");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   double sl=0,open=0;
//----
   if(ObjectFind("SLAndLots_SL")!=-1){
      sl=ObjectGet("SLAndLots_SL",OBJPROP_PRICE1);
   }else{
      if(ObjectCreate("SLAndLots_SL",OBJ_HLINE,0,0,Bid-500*Point)){
      ObjectSet("SLAndLots_SL",OBJPROP_STYLE,STYLE_DOT);
      ObjectSet("SLAndLots_SL",OBJPROP_COLOR,Red);
      }
   }
   
   if(ObjectFind("SLAndLots_Open")!=-1){
      open=ObjectGet("SLAndLots_Open",OBJPROP_PRICE1);
     
   }else{
      if(ObjectCreate("SLAndLots_Open",OBJ_HLINE,0,0,Ask)){
      ObjectSet("SLAndLots_Open",OBJPROP_STYLE,STYLE_DOT);
      ObjectSet("SLAndLots_Open",OBJPROP_COLOR,Blue);
      }
    
   }
   if(ObjectFind("SLAndLots_Comment")==-1)
   if(ObjectCreate("SLAndLots_Comment",OBJ_LABEL,WindowFind("SLAndLots"),0,Bid)){
      ObjectSetText("SLAndLots_Comment","Test text", 9, "Times New Roman", Red);
      }     
      
   double lot=get_lot(Symbol(),sl,open);
   //Print(sl,open);
  // Comment("SLAndLots v1.0 Risk = ",cfg_iRiskPercent," Open = ",open, " SL = ",sl, " Lot = ",lot);
   string cmt="Risk = "+DoubleToStr(cfg_iRiskPercent,2)+
   "% Open = "+DoubleToStr(open,Digits)+ 
   " SL = "+DoubleToStr(sl,Digits)+ 
   " Lot = "+DoubleToStr(lot,2);
   
   ObjectSet("SLAndLots_Comment",OBJPROP_CORNER,0);
   ObjectSet("SLAndLots_Comment",OBJPROP_YDISTANCE,5);
   ObjectSetText("SLAndLots_Comment",cmt, 9, "Times New Roman", Red);
//----
   return(0);
  }
 
 void InitAll(){
 
  if(ObjectCreate("SLAndLots_Open",OBJ_HLINE,0,0,Ask)){
      ObjectSet("SLAndLots_Open",OBJPROP_STYLE,STYLE_DOT);
      ObjectSet("SLAndLots_Open",OBJPROP_COLOR,Blue);
      Print("Open");
      }
   if(ObjectCreate("SLAndLots_SL",OBJ_HLINE,0,0,Bid-500*Point)){
      ObjectSet("SLAndLots_SL",OBJPROP_STYLE,STYLE_DOT);
      ObjectSet("SLAndLots_SL",OBJPROP_COLOR,Red);
      }     
       
 }
 
 double get_lot(string name,double stoplevel,double openlevel){
   double lot=0;
   if(stoplevel<=0 || openlevel<=0) return (0);
   
   
   int    TipInstrumenta=0;  
   double BazCours=0;
   double dCof=1;
   string SMB;   
   double stop=0;
     
 // --------- âû÷èñëÿåì êàêàÿ ïàðà (ïðÿìàÿ, îáðàòíàÿ, êðîññ) --------------
   TipInstrumenta=StringFind(name,"USD",0); 
   SMB=StringSubstr(name,0,3); //áàçîâàÿ âàëþòà
   BazCours=MarketInfo(SMB+"USD",MODE_BID);     
   double Dig10=1;
   if(MarketInfo(name,MODE_DIGITS)==5) Dig10=10;
   double dBid=MarketInfo(name,MODE_BID);
   
   if(TipInstrumenta==3){//ïàðà ïðÿìàÿ, íàïð. EurUsd
     dCof=10;
     Dig10=10;
   }
   if(TipInstrumenta==0){//ïàðà îáðàòíàÿ, íàïð. UsdJpy
     dCof=10/dBid;
     Dig10=10;
   }  
   if(TipInstrumenta==-1){//Êðîññ-ïàðà, íàïð EurJpy
     dCof=10*BazCours/dBid;
     Dig10=10;
   }  
     double dPoint=MarketInfo(name,MODE_POINT);
     
     lot=NormalizeDouble(0.001*cfg_iRiskPercent*AccountFreeMargin()*dPoint*Dig10/MathAbs(openlevel-stoplevel),1);       
     
     if(lot>MarketInfo(name,MODE_MAXLOT)) lot=MarketInfo(name,MODE_MAXLOT);
     if(lot<MarketInfo(name,MODE_MINLOT)) lot=MarketInfo(name,MODE_MINLOT);
      
     //Print(lot); 
     if(lot*100*dBid>0.8*AccountFreeMargin()) Print("LOT: ",lot," ActiveMargin > FreeMargin");
      
     return (lot);     
  }  
  
//+------------------------------------------------------------------+