#property copyright "Copyright © 2009, Totom Sukopratomo"
#property link      "forexengine@gmail.com"
#define Magic 1234
#define buy -15
#define sell 15

extern double    StartLot=0.1;
extern int       Range=20;
extern int       Level=15;
extern double    TPInMoney=10.0;  //in money
extern int       StartHour=0;
extern int       EndHour=24;
extern bool      TradeInMonday=true;
extern double    MoneyTargetInMonday=100;
extern double    CutLossInMonday=0;
extern bool      TradeInTuesday=true;
extern double    MoneyTargetInTuesday=100;
extern double    CutLossInTuesday=0;
extern bool      TradeInWednesday=true;
extern double    MoneyTargetInWednesday=100;
extern double    CutLossInWednesday=0;
extern bool      TradeInThursday=true;
extern double    MoneyTargetInThursday=100;
extern double    CutLossInThursday=0;
extern bool      TradeInFriday=true;
extern double    MoneyTargetInFriday=100;
extern double    CutLossInFriday=0;
extern bool      UseMultiplier=true;
extern string    note="true,maka besar nextlot dikali multiplier";
extern double    Multiplier=2.0;
extern bool      UseIncreament=false;
extern string    note1="true,maka besar nextlot ditambah increament";
extern double    Increament=1.0;
extern int       MySWBStyle=2;
extern string    note2="0=swb GRID, 1=swb GRID 2, 2=swb GRID 3";
extern int       MyTradeStyle=1;
extern string    note3="0=Follow Trend, 1=CounterTrend";
extern string    TradeStyle_0="Follow Trend";
extern int       FastMAPeriod=5;
extern int       SlowMAPeriod=20;
extern string    TradeStyle_1="Counter Trend";
extern bool      UseBB=true;
extern int       BBPeriod=20;
extern int       BBDeviation=2;
extern bool      UseStoch=true;
extern int       StochKPeriod=5;
extern int       StochDPeriod=3;
extern int       StochSlowing=3;
extern int       UseRSI=true;
extern int       RSIPeriod=9;
extern int       HighLevel=70;
extern int       LowLevel=30;

       int total,histotal,i,jumlah,prec,type,ticket,ordercounter=0;
       double pt,minlot,maxlot,stoplevel,lot,openprice,profit,profitX,profitY;
       
int totalorder()
{
    total=OrdersTotal(); jumlah=0;
    for(i=0; i<total; i++)
    {
        OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
        jumlah++;
    }
    return(jumlah);
}

int sendorder(int cmd,double lot,double prc,color warna)
{
    return(OrderSend(Symbol(),cmd,lot,prc,3,0,0,"",Magic,0,warna));
}

int closeorder()
{
    total=OrdersTotal();
    for(i=total-1; i>=0; i--)
    {
        OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
        switch(OrderType())
        {
               case 0: 
               {
                    OrderClose(OrderTicket(),OrderLots(),Bid,1,CLR_NONE);
                    break;
               }
               case 1:
               {
                    OrderClose(OrderTicket(),OrderLots(),Ask,1,CLR_NONE);
                    break;
               }
               case 2:
               {
                    OrderDelete(OrderTicket());
                    break;
               }
               case 3:
               {
                    OrderDelete(OrderTicket());
                    break;
               }
        }
    }
    return(0);
}

double lastlot()
{
    total=OrdersTotal(); lot=0;
    for(i=0; i<total; i++)
    {
        OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
        lot=OrderLots();
    }
    return(lot);
}

double profit()
{
    total=OrdersTotal();
    profit=0;
    for(i=0; i<total; i++)
    {
        OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
        profit+=OrderProfit();
    }
    return(profit);
}

double profitoftheday(int curday)
{
    histotal=OrdersHistoryTotal();
    for(i=0; i<histotal; i++)
    {
        OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
        if(TimeDayOfWeek(OrderOpenTime())!=curday) continue;
        if(TimeDay(OrderOpenTime())!=TimeDay(TimeCurrent())) continue;
        if(TimeMonth(OrderOpenTime())!=TimeMonth(TimeCurrent())) continue;
        if(TimeYear(OrderOpenTime())!=TimeYear(TimeCurrent())) continue; 
        profit+=OrderProfit();
    }
    return(profit);
}

int signal()
{
    if(MyTradeStyle==0)
    {
       double fastma0=iMA(Symbol(),0,FastMAPeriod,0,0,0,0);
       double fastma1=iMA(Symbol(),0,FastMAPeriod,0,0,0,1);
       double slowma1=iMA(Symbol(),0,SlowMAPeriod,0,0,0,1);
       if(fastma0>fastma1 && fastma1>slowma1) return(buy);
       if(fastma0<fastma1 && fastma1<slowma1) return(sell);
       return(0);
    }
    if(MyTradeStyle==1)
    {
       double upperbb=iBands(Symbol(),0,BBPeriod,BBDeviation,0,0,MODE_UPPER,0);
       double lowerbb=iBands(Symbol(),0,BBPeriod,BBDeviation,0,0,MODE_LOWER,0);
       double stoch=iStochastic(Symbol(),0,StochKPeriod,StochDPeriod,StochSlowing,0,0,MODE_SIGNAL,0);
       double rsi=iRSI(Symbol(),0,RSIPeriod,0,0);
       if(UseBB && !UseStoch && !UseRSI)
       {
          if(Close[0]>upperbb) return(sell);
          if(Close[0]<lowerbb) return(buy);
          return(0);
       }
       if(!UseBB && UseStoch && !UseRSI)
       {
          if(stoch>HighLevel) return(sell);
          if(stoch<LowLevel)  return(buy);
          return(0);
       }
       if(!UseBB && !UseStoch && UseRSI)
       {
          if(rsi>HighLevel)  return(sell);
          if(rsi<LowLevel)   return(buy);
          return(0);
       }
       if(UseBB && UseStoch && !UseRSI)
       {
          if(Close[0]>upperbb && stoch>HighLevel) return(sell);
          if(Close[0]<lowerbb && stoch<LowLevel)  return(buy);
          return(0);
       }
       if(UseBB && !UseStoch && UseRSI)
       {
          if(Close[0]>upperbb && rsi>HighLevel)   return(sell);
          if(Close[0]<lowerbb && rsi<LowLevel)    return(buy);
          return(0);
       }
       if(!UseBB && UseStoch && UseRSI)
       {
          if(stoch>HighLevel && rsi>HighLevel)    return(sell);
          if(stoch<LowLevel  && rsi<LowLevel)     return(buy);
          return(0);
       }
       if(UseBB && UseStoch && UseRSI)
       {
          if(Close[0]>upperbb && stoch>HighLevel && rsi>HighLevel) return(sell);
          if(Close[0]<lowerbb && stoch<LowLevel && rsi<LowLevel)   return(buy);
          return(0);
       }
    } 
}

int manageorder0()
{
    if(profit()>=TPInMoney)
    {
       closeorder();
    }
    if(totalorder()==0 && lastlot()==0)
    {
       if(signal()==buy)
       {
          if(sendorder(0,StartLot,Ask,Blue)>0) return(0);
       }
       if(signal()==sell)
       {
          if(sendorder(1,StartLot,Bid,Red)>0) return(0);
       }
    }
    if(totalorder()>0 && totalorder()<Level)
    {
       type=-1; openprice=0; total=OrdersTotal();
       for(i=0; i<total; i++)
       {
           OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
           if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
           type=OrderType();
           openprice=OrderOpenPrice();
       }
       if(type==0)
       {
           if(Ask>openprice-Range*pt) return(0);
           if(UseMultiplier)
           {
              if(NormalizeDouble(StartLot*MathPow(Multiplier,totalorder()),prec)>maxlot) return(0);
              if(sendorder(0,NormalizeDouble(StartLot*MathPow(Multiplier,totalorder()),prec),Ask,Blue)>0) return(0);
           }
           if(UseIncreament)
           {
              if(NormalizeDouble(StartLot+(lastlot()+Increament),prec)>maxlot) return(0);
              ticket=sendorder(0,NormalizeDouble(lastlot()+Increament,prec),Ask,Blue);
           }
       }
       if(type==1)
       {
           if(Bid<openprice+Range*pt) return(0);
           if(UseMultiplier)
           {
              if(NormalizeDouble(StartLot*MathPow(Multiplier,totalorder()),prec)>maxlot) return(0);
              if(sendorder(1,NormalizeDouble(StartLot*MathPow(Multiplier,totalorder()),prec),Bid,Red)>0) return(0);
           }
           if(UseIncreament)
           {
              if(NormalizeDouble(StartLot+(lastlot()+Increament),prec)>maxlot) return(0);
              if(sendorder(1,NormalizeDouble(StartLot+(Increament*i),prec),Bid,Blue)>0) return(0);
           }
       }  
    }
    return(0);
}

int manageorder1()
{
    if(totalorder()==0) ordercounter=0;
    histotal=OrdersHistoryTotal();
    total=OrdersTotal();
    profit=0;
    for(i=histotal-ordercounter; i<histotal; i++)
    {
        OrderSelect(i,SELECT_BY_POS,MODE_HISTORY);
        if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
        profit+=OrderProfit();
    }
    profitY=0;
    for(i=0; i<total; i++)
    {
       OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
       if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
       profitY+=OrderProfit();
    }
    profitX=profit+profitY;
    if(profitX>=TPInMoney)
    {
       closeorder();
    }
    if(totalorder()==0 && lastlot()==0 && ordercounter==0)
    {
       if(signal()==buy)
       {
          ticket=sendorder(0,StartLot,Ask,Blue);
          if(ticket>0) { ordercounter++; return(0);}
       }
       if(signal()==sell)
       {
          ticket=sendorder(1,StartLot,Bid,Red);
          if(ticket>0) { ordercounter++; return(0);}
       }
    }
    if(totalorder()>0 && totalorder()<Level)
    {
       type=-1; openprice=0; total=OrdersTotal();
       for(i=0; i<total; i++)
       {
           OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
           if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
           type=OrderType();
           openprice=OrderOpenPrice();
       }
       if(type==0)
       {
           if(Ask>openprice-Range*pt) return(0);
           if(UseMultiplier)
           {
              if(NormalizeDouble(StartLot*MathPow(Multiplier,ordercounter),prec)>maxlot) return(0);
              ticket=sendorder(0,NormalizeDouble(StartLot*MathPow(Multiplier,ordercounter),prec),Ask,Blue);
              if(ticket>0)
              {
                 ordercounter++;
                 total=OrdersTotal();
                 for(i=0; i<total; i++)
                 {
                     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
                     if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
                     if(OrderTicket()!=ticket)
                     {
                        OrderClose(OrderTicket(),OrderLots(),Bid,3,CLR_NONE);
                     }
                 }
              }
           }
           if(UseIncreament)
           {
              if(NormalizeDouble(StartLot+(lastlot()+Increament),prec)>maxlot) return(0);
              ticket=sendorder(0,NormalizeDouble(lastlot()+Increament,prec),Ask,Blue);
              if(ticket>0)
              {
                 ordercounter++;
                 total=OrdersTotal();
                 for(i=0; i<total; i++)
                 {
                     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
                     if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
                     if(OrderTicket()!=ticket)
                     {
                        OrderClose(OrderTicket(),OrderLots(),Bid,3,CLR_NONE);
                     }
                 }
              }
           }
       }
       if(type==1)
       {
           if(Bid<openprice+Range*pt) return(0);
           if(UseMultiplier)
           {
              if(NormalizeDouble(StartLot*MathPow(Multiplier,ordercounter),prec)>maxlot) return(0);
              ticket=sendorder(1,NormalizeDouble(StartLot*MathPow(Multiplier,ordercounter),prec),Bid,Red);
              if(ticket>0)
              {
                 ordercounter++;
                 total=OrdersTotal();
                 for(i=0; i<total; i++)
                 {
                     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
                     if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
                     if(OrderTicket()!=ticket)
                     {
                        OrderClose(OrderTicket(),OrderLots(),Ask,3,CLR_NONE);
                     }
                 }
              }
           }
           if(UseIncreament)
           {
              if(NormalizeDouble(StartLot+(lastlot()+Increament),prec)>maxlot) return(0);
              ticket=sendorder(1,NormalizeDouble(StartLot+(Increament*ordercounter),prec),Bid,Blue);
              if(ticket>0)
              {
                 ordercounter++;
                 total=OrdersTotal();
                 for(i=0; i<total; i++)
                 {
                     OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
                     if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
                     if(OrderTicket()!=ticket)
                     {
                        OrderClose(OrderTicket(),OrderLots(),Ask,3,CLR_NONE);
                     }
                 }
              }
           }
       }  
    }
    return(0);
}

int manageorder2()
{
    if(profit()>=TPInMoney)
    {
       closeorder();
    }
    if(totalorder()==0 && lastlot()==0)
    {
       if(signal()==buy)
       {
          if(sendorder(0,StartLot,Ask,Blue)>0) return(0);
       }
       if(signal()==sell)
       {
          if(sendorder(1,StartLot,Bid,Red)>0) return(0);
       }
    }
    if(totalorder()==1 && lastlot()==StartLot)
    {
       type=-1; openprice=0; total=OrdersTotal();
       for(i=0; i<total; i++)
       {
           OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
           if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=Magic) continue;
           type=OrderType();
           openprice=OrderOpenPrice();
       }
       if(type==0)
       {
          for(i=1; i<=Level; i++)
          {
              if(UseMultiplier)
              {
                 if(NormalizeDouble(StartLot*MathPow(Multiplier,i),prec)>maxlot) return(0);
                 sendorder(2,NormalizeDouble(StartLot*MathPow(Multiplier,i),prec),Ask-((Range*i)*pt),Blue);
              }
              if(UseIncreament)
              {
                 if(NormalizeDouble(StartLot+(Increament*i),prec)>maxlot) return(0);
                 sendorder(2,NormalizeDouble(StartLot+(Increament*i),prec),Ask-((Range*i)*pt),Blue);
              }
          }
       }
       if(type==1)
       {
          for(i=1; i<=Level; i++)
          {
              if(UseMultiplier)
              {
                 if(NormalizeDouble(StartLot*MathPow(Multiplier,i),prec)>maxlot) return(0);
                 sendorder(3,NormalizeDouble(StartLot*MathPow(Multiplier,i),prec),Bid+((Range*i)*pt),Red);
              }
              if(UseIncreament)
              {
                 if(NormalizeDouble(StartLot+(Increament*i),prec)>maxlot) return(0);
                 sendorder(3,NormalizeDouble(StartLot+(Increament*i),prec),Bid+((Range*i)*pt),Blue);
              }
          }
       }  
    }
    return(0);
}

int init()
  {
    if(Digits==3 || Digits==5) pt=10*Point;
    else                       pt=Point;
    minlot=MarketInfo(Symbol(),MODE_MINLOT);
    if(minlot==0.01) prec=2;
    else
    if(minlot==0.1)  prec=1;
    else             prec=0;
    if(StartLot<=minlot) StartLot=minlot;
    stoplevel=MarketInfo(Symbol(),MODE_STOPLEVEL);
    if(Range<=stoplevel) Range=stoplevel;
    maxlot=MarketInfo(Symbol(),MODE_MAXLOT);
    return(0);
  }

int deinit()
  {
    Comment("");
    return(0);
  }

int start()
  {
    if((TimeHour(TimeCurrent())<StartHour || TimeHour(TimeCurrent())>=EndHour) && totalorder()==0) 
    {
        Comment("\nBELUM JAMNYA TRADING........");
        return(0);
    }
    if(DayOfWeek()==1 && !TradeInMonday)
    {
        Comment("\nTIDAK TRADING DI HARI SENIN.....");
        return(0);
    }
    if(DayOfWeek()==2 && !TradeInTuesday && totalorder()==0)
    {
        Comment("\nTIDAK TRADING DI HARI SELASA....");
        return(0);
    }
    if(DayOfWeek()==3 && !TradeInWednesday && totalorder()==0)
    {
        Comment("\nTIDAK TRADING DI HARI  RABU....");
        return(0);
    }
    if(DayOfWeek()==4 && !TradeInThursday && totalorder()==0)
    {
        Comment("\nTIDAK TRADING DI HARI KAMIS....");
        return(0);
    }
    if(DayOfWeek()==5 && !TradeInFriday && totalorder()==0)
    {
       Comment("\nTIDAK TRADING DI HARI JUMAT.....");
       return(0);
    }
    if(DayOfWeek()==1)
    {
       if(profitoftheday(1)>=MoneyTargetInMonday && totalorder()==0)
       {
          Comment("\nTARGET HARI INI TERCAPAI");
          return(0);
       }
       if(AccountEquity()<=CutLossInMonday)
       {
          Comment("\nHARI INI CUTLOSS");
          closeorder();
          return(0);
       }
    }
    if(DayOfWeek()==2)
    {
       if(profitoftheday(2)>=MoneyTargetInTuesday && totalorder()==0)
       {
          Comment("\nTARGET HARI INI TERCAPAI");
          return(0);
       }
       if(AccountEquity()<=CutLossInTuesday)
       {
          Comment("\nHARI INI CUTLOSS");
          closeorder();
          return(0);
       }
    }
    if(DayOfWeek()==3)
    {
       if(profitoftheday(3)>=MoneyTargetInWednesday && totalorder()==0)
       {
          Comment("\nTARGET HARI INI TERCAPAI");
          return(0);
       }
       if(AccountEquity()<=CutLossInWednesday)
       {
          Comment("\nHARI INI CUTLOSS");
          closeorder();
          return(0);
       }
    }
    if(DayOfWeek()==4)
    {
       if(profitoftheday(4)>=MoneyTargetInThursday && totalorder()==0)
       {
          Comment("\nTARGET HARI INI TERCAPAI");
          return(0);
       }
       if(AccountEquity()<=CutLossInThursday)
       {
          Comment("\nHARI INI CUTLOSS");
          closeorder();
          return(0);
       }
    }
    if(DayOfWeek()==5)
    {
       if(profitoftheday(5)>=MoneyTargetInFriday && totalorder()==0)
       {
          Comment("\nTARGET HARI INI TERCAPAI");
          return(0);
       }
       if(AccountEquity()<=CutLossInFriday)
       {
          Comment("\nHARI INI CUTLOSS");
          closeorder();
          return(0);
       }
    }
    Comment("");
    switch(MySWBStyle)
    {
       case 0: { manageorder0(); break;}
       case 1: { manageorder1(); break;}
       case 2: { manageorder2(); break;}
    }
    return(0);
  }