qq_half_a_session

//25.10.2005 
// Because of my dismal stupidity not even named this EA
#property copyright "RamilT" 
#property link "RamilT@bk.ru" 


//-----------------------------------Òèïà ïåðåìåííûå----------------------------------------------------------- 
extern int pr=11; 
extern int sl=35; 
extern int tp=75; 
extern int tz=60; 
extern int mm=1; 
extern int qq=30; 
extern int chas1=15;
extern int chas2=23;

static double Lots=0.1; 
//------------------------------------------------------------------------------------------------------------- 

int start() 
{ 
if(Hour()<=chas1||Hour()>=chas2)return(0);
   if(Bars<100)
     {
      Print("bars less than 100");
      return(0);  
} 

//-----------------------------------Ìîíýé ìåíäæìåíò----------------------------------------------------------- 
if (mm==1) 
{ 
if(Lots<(MathCeil((AccountFreeMargin()/10000)*qq)/10)){Lots=(MathCeil((AccountFreeMargin()/10000)*qq)/10);if(Lots>100){Lots=100;}} 
} 
//------------------------------------------------------------------------------------------------------------- 


//----------------------------------Ãëàâíûé àëãîðèòì----------------------------------------------------------- 
if(Month()!=12){ 
if(DayOfWeek()!=1){ 
if(OrdersTotal()<1) 
{ 
if (((iOpen(NULL,5,1)-iClose(NULL,5,pr))>(Point*tz))&&(Ask>iOpen(NULL,5,1))) 
{ 
OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-sl*Point,Ask+tp*Point,"qq-buy60",11603575,0,Blue); 
} 


if (((iOpen(NULL,5,1)-iClose(NULL,5,pr))<(-Point*tz))&&(Bid<iOpen(NULL,5,1))) 
{ 
OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+sl*Point,Bid-tp*Point,"qq-sell60",11603575,0,Red); 
} 
} 
} 
} 
//------------------------------------------------------------------------------------------------------------- 


}