#property copyright "Wall-khi"
extern double Lots=1;
//---- input parameters
int init()
 {
 return(0);
 }
int deinit()
 {
 return(0);
 }

int start()
 {
 int ticket;
 double noopen;
 double CloseBuyStrong, CloseSellStrong, BuyCancel, SellCancel;
 double CloseBuyMedium, CloseSellMedium;
 double CloseBuyWeak, CloseSellWeak;
 
 double stop=1000; //no definite stop yet
 double profit=1000; //no definite limit either
 
 datetime t; 

//Various Ichimokus
 double a=9;
 double b=26;
 double c=52;
 double dp=13;
 double KumoHigh,KumoLow;
 double StrongBuyCross1, StrongBuyPrice1, StrongBuySwap1, StrongSellCross1, StrongSellPrice1, StrongSellSwap1;
 double MediumBuyCross1, MediumBuyPrice1, MediumBuySwap1, MediumSellCross1, MediumSellPrice1, MediumSellSwap1;
 double WeakBuyCross1, WeakBuyPrice1, WeakBuySwap1, WeakSellCross1, WeakSellPrice1, WeakSellSwap1;
 double StrongBuyCross2, StrongBuyPrice2, StrongBuySwap2, StrongSellCross2, StrongSellPrice2, StrongSellSwap2;
 double MediumBuyCross2, MediumBuyPrice2, MediumBuySwap2, MediumSellCross2, MediumSellPrice2, MediumSellSwap2;
 double WeakBuyCross2, WeakBuyPrice2, WeakBuySwap2, WeakSellCross2, WeakSellPrice2, WeakSellSwap2;
 double tenkan = iIchimoku(NULL, 0, a, b, c, MODE_TENKANSEN, 1);
 double pretenkan = iIchimoku(NULL, 0, a, b, c, MODE_TENKANSEN, 2);
 double expretenkan = iIchimoku(NULL, 0, a, b, c, MODE_TENKANSEN,3);
 double kijun = iIchimoku(NULL, 0, a, b, c, MODE_KIJUNSEN, 1);
 double prekijun = iIchimoku(NULL, 0, a, b, c, MODE_KIJUNSEN, 2);
 double exprekijun = iIchimoku(NULL, 0, a, b, c, MODE_KIJUNSEN, 3);
 double senkouA = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANA, 1);
 double senkouB = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANB, 1);
 double presenkouA = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANA, 2);
 double presenkouB = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANB, 2);
 double expresenkouA = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANA, 3);
 double expresenkouB = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANB, 3);
 double chinkou = iIchimoku(NULL, 0, a, b, c, MODE_CHINKOUSPAN, 27);
 double senkouA26 = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANA, -25);
 double senkouB26 = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANB, -25);
 double senkouA25 = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANA, -24);
 double senkouB25 = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANB, -24);
 double senkouA24 = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANA, -20);
 double senkouB24 = iIchimoku(NULL, 0, a, b, c, MODE_SENKOUSPANB, -20);


  //KUMO
 if (senkouA>senkouB) KumoHigh=senkouA;
 if (senkouA<=senkouB) KumoHigh=senkouB;
 if (senkouA>senkouB) KumoLow=senkouB;
 if (senkouA<=senkouB) KumoLow=senkouA;


 //STRONG LONG SIGNALS
 if (expretenkan<=exprekijun && pretenkan>prekijun && iLow(NULL,0,1)>KumoHigh && tenkan>kijun) 
  {StrongBuyCross1=1;
   StrongBuyCross2=1;
  }
 if (iLow(NULL,0,2)<=exprekijun && iLow(NULL,0,1)>prekijun && prekijun>KumoHigh &&  tenkan>kijun && iClose(NULL,0,1)>KumoHigh) 
  {StrongBuyPrice1=1;
   StrongBuyPrice2=1;
  }
 if (senkouA24<senkouB24 && senkouA26>senkouB26 && senkouA25<senkouA26 && senkouA26>senkouB26 && senkouA26+10*Point>=senkouA24 && tenkan>kijun)
  {StrongBuySwap1=1;
   StrongBuySwap2=1;
  }

 //STRONG SHORT SIGNALS
 if (expretenkan>=exprekijun && pretenkan<prekijun && iHigh(NULL,0,1)<KumoLow && tenkan<kijun) 
  {StrongSellCross1=1;
   StrongSellCross2=1;
  }
 if (iHigh(NULL,0,2)>=prekijun && iHigh(NULL,0,1)<prekijun && prekijun<KumoLow &&  tenkan<kijun && iClose(NULL,0,1)<KumoLow) 
  {StrongSellPrice1=1;
   StrongSellPrice2=1;
  }
 if (senkouA24>senkouB24 && senkouA26<senkouB26 && senkouA25>senkouA26 && senkouA26<senkouB26 && senkouA26+10*Point<=senkouA24 && tenkan<kijun) 
  {StrongSellSwap1=1;
   StrongSellSwap2=1;
  }

//MODERATE LONG SIGNALS
 if (expretenkan<=exprekijun && pretenkan>prekijun && iClose(NULL,0,1)>KumoLow && iClose(NULL,0,1)<KumoHigh) 
  {MediumBuyCross1=1;
   MediumBuyCross2=1;
  }
 if (iLow(NULL,0,2)<=exprekijun && iLow(NULL,0,1)>prekijun && iClose(NULL,0,1)>KumoLow && iClose(NULL,0,1)<KumoHigh) 
  {MediumBuyPrice1=1;
   MediumBuyPrice2=1;
  }

 //MODERATE SHORT SIGNALS
 if (expretenkan>=exprekijun && pretenkan<prekijun && iClose(NULL,0,1)>KumoLow && iClose(NULL,0,1)<KumoHigh) 
  {MediumSellCross1=1;
   MediumSellCross2=1;
  }
 if (iHigh(NULL,0,2)>=exprekijun && iHigh(NULL,0,1)<prekijun && iClose(NULL,0,1)>KumoLow && iClose(NULL,0,1)<KumoHigh) 
  {MediumSellPrice1=1;
   MediumSellPrice2=1;
  }
 
 //WEAK LONG SIGNALS
 if (expretenkan<=exprekijun && pretenkan>prekijun && iHigh(NULL,0,1)<KumoLow) 
  {WeakBuyCross1=1;
   WeakBuyCross2=1;
  }
 if (iLow(NULL,0,2)<=exprekijun && iLow(NULL,0,1)>prekijun && iHigh(NULL,0,1)<KumoLow) 
  {WeakBuyPrice1=1;
   WeakBuyPrice2=1;
  }

 //WEAK SHORT SIGNALS
 if (expretenkan>=exprekijun && pretenkan<prekijun && iLow(NULL,0,1)>KumoHigh) 
  {WeakSellCross1=1;
   WeakSellCross2=1;
  }
 if (iHigh(NULL,0,2)>=exprekijun && iHigh(NULL,0,1)<prekijun && iLow(NULL,0,1)>KumoHigh) 
  {WeakSellPrice1=1;
   WeakSellPrice2=1;
  }
 
 //CHINKOU CONFIRMATION
if (chinkou<=iHigh(NULL,0,b)) BuyCancel=1;
if (chinkou>=iLow(NULL,0,b)) SellCancel=1;
 
 //DeMARKER CONFIRMATION
if (iDeMarker(NULL,0,dp,1) <0.5) BuyCancel=1;
if (iDeMarker(NULL,0,dp,1) >0.5) SellCancel=1;

 //DIFFERENCE CONFIRMATION
if (iLow(NULL,0,1)-KumoHigh>100*Point) BuyCancel=1;
if (KumoLow-iHigh(NULL,0,1)>100*Point) SellCancel=1;
    
  //CLOSING Conditions
 if (tenkan<kijun || iClose(NULL,0,1)<KumoHigh) CloseBuyStrong=1;
 if (tenkan>kijun || iClose(NULL,0,1)>KumoLow) CloseSellStrong=1;
 
 if (tenkan<kijun) CloseBuyMedium=1;
 if (tenkan>kijun) CloseSellMedium=1;

 if (tenkan<kijun) CloseBuyWeak=1;
 if (tenkan>kijun) CloseSellWeak=1; 

 //No repeat order in the same bar
      OrderSelect(OrdersHistoryTotal(),SELECT_BY_TICKET,MODE_HISTORY);
      t=OrderOpenTime();
      if (t>=Time[0]) noopen=1;
      //if (noopen==1) return(0);

  //If the order is alive, don't execute a new one with the same kind.
  int ot = OrdersTotal();
  for(int say=ot-1;say>=0;say--)
   {
    OrderSelect(say, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==1) StrongBuyCross1=0;
    if (OrderMagicNumber()==2) StrongBuyCross2=0;
    if (OrderMagicNumber()==3) StrongBuyPrice1=0;
    if (OrderMagicNumber()==4) StrongBuyPrice2=0;
    if (OrderMagicNumber()==5) StrongBuySwap1=0;
    if (OrderMagicNumber()==6) StrongBuySwap2=0;
    if (OrderMagicNumber()==7) StrongSellCross1=0;
    if (OrderMagicNumber()==8) StrongSellCross2=0;
    if (OrderMagicNumber()==9) StrongSellPrice1=0;
    if (OrderMagicNumber()==10) StrongSellPrice2=0;
    if (OrderMagicNumber()==11) StrongSellSwap1=0;
    if (OrderMagicNumber()==12) StrongSellSwap2=0;
    if (OrderMagicNumber()==13) MediumBuyCross1=0;
    if (OrderMagicNumber()==14) MediumBuyCross2=0;
    if (OrderMagicNumber()==15) MediumBuyPrice1=0;
    if (OrderMagicNumber()==16) MediumBuyPrice2=0;
    if (OrderMagicNumber()==17) MediumBuySwap1=0;
    if (OrderMagicNumber()==18) MediumBuySwap2=0;
    if (OrderMagicNumber()==19) MediumSellCross1=0;
    if (OrderMagicNumber()==20) MediumSellCross2=0;
    if (OrderMagicNumber()==21) MediumSellPrice1=0;
    if (OrderMagicNumber()==22) MediumSellPrice2=0;
    if (OrderMagicNumber()==23) MediumSellSwap1=0;
    if (OrderMagicNumber()==24) MediumSellSwap2=0;
    if (OrderMagicNumber()==25) WeakBuyCross1=0;
    if (OrderMagicNumber()==26) WeakBuyCross1=0;
    if (OrderMagicNumber()==27) WeakBuyPrice1=0;
    if (OrderMagicNumber()==28) WeakBuyPrice2=0;
    if (OrderMagicNumber()==29) WeakBuySwap1=0;
    if (OrderMagicNumber()==30) WeakBuySwap2=0;
    if (OrderMagicNumber()==31) WeakSellCross1=0;
    if (OrderMagicNumber()==32) WeakSellCross1=0;
    if (OrderMagicNumber()==33) WeakSellPrice1=0;
    if (OrderMagicNumber()==34) WeakSellPrice2=0;
    if (OrderMagicNumber()==35) WeakSellSwap1=0;
    if (OrderMagicNumber()==36) WeakSellSwap2=0;
   }
    
//  LONG ORDERS
//  if (noopen==0 && StrongBuyCross1 == 1 && KumoHigh-KumoLow>5*Point && iLow(NULL,0,1)>KumoHigh && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"SBC1",1,0,DarkGreen);
  if (noopen==0 && StrongBuyCross2 == 1 && KumoHigh-KumoLow>5*Point && iLow(NULL,0,1)>KumoHigh && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"SBC2",2,0,DarkGreen);
  if (noopen==0 && StrongBuyPrice1 == 1 && iLow(NULL,0,1)>KumoHigh && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"SBP1",3,0,ForestGreen);
//  if (noopen==0 && StrongBuyPrice2 == 1 && iLow(NULL,0,1)>KumoHigh && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"SBP2",4,0,ForestGreen);
  if (noopen==0 && StrongBuySwap1 == 1 && iLow(NULL,0,1)>KumoHigh) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"SBS1",5,0,Lime);
//  if (noopen==0 && StrongBuySwap2 == 1 && iLow(NULL,0,1)>KumoHigh && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"SBS2",6,0,Lime);

//  if (noopen==0 && MediumBuyCross1 == 1 && KumoHigh-KumoLow>5*Point && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"MBC1",13,0,DarkGreen);
//  if (noopen==0 && MediumBuyCross2 == 1 && KumoHigh-KumoLow>5*Point && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"MBC2",14,0,DarkGreen);
//  if (noopen==0 && MediumBuyPrice1 == 1 && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"MBP1",15,0,ForestGreen);
//  if (noopen==0 && MediumBuyPrice2 == 1 && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"MBP2",16,0,ForestGreen);

  if (noopen==0 && WeakBuyCross1 == 1 && KumoHigh-KumoLow>5*Point && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"WBC1",25,0,DarkGreen);
//  if (noopen==0 && WeakBuyCross2 == 1 && KumoHigh-KumoLow>5*Point && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"WBC2",26,0,DarkGreen);
  if (noopen==0 && WeakBuyPrice1 == 1 && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"WBP1",27,0,ForestGreen);
//  if (noopen==0 && WeakBuyPrice2 == 1 && BuyCancel==0) ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,Lots,Ask-stop*Point,Ask+profit*Point,"WBP2",28,0,ForestGreen);

//  SHORT ORDERS
// if (noopen==0 && StrongSellCross1 == 1 && KumoHigh-KumoLow>5*Point && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"SSC1",7,0,Purple);
 if (noopen==0 && StrongSellCross2 == 1 && KumoHigh-KumoLow>5*Point && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"SSC2",8,0,Purple);
 if (noopen==0 && StrongSellPrice1 == 1 && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"SSP1",9,0,DarkViolet);
// if (noopen==0 && StrongSellPrice2 == 1 && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"SSP2",10,0,DarkViolet);
 if (noopen==0 && StrongSellSwap1 == 1 && iHigh(NULL,0,1)<KumoLow) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"SSS1",11,0,MediumVioletRed);
// if (noopen==0 && StrongSellSwap2 == 1 && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"SSS2",12,0,MediumVioletRed);   
   
//    if (noopen==0 && MediumSellCross1 == 1 && KumoHigh-KumoLow>5*Point && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"MSC1",19,0,Purple);
//    if (noopen==0 && MediumSellCross2 == 1 && KumoHigh-KumoLow>5*Point && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"MSC2",20,0,Purple);
//    if (noopen==0 && MediumSellPrice1 == 1 && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"MSP1",21,0,DarkViolet);
//    if (noopen==0 && MediumSellPrice2 == 1 && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"MSP2",22,0,DarkViolet);
 
    if (noopen==0 && WeakSellCross1 == 1 && KumoHigh-KumoLow>5*Point && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"WSC1",31,0,Purple);
//    if (noopen==0 && WeakSellCross2 == 1 && KumoHigh-KumoLow>3*Point && iHigh(NULL,0,1)<KumoLow && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"WSC2",32,0,Purple);
    if (noopen==0 && WeakSellPrice1 == 1 && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"WSP1",33,0,DarkViolet);
//    if (noopen==0 && WeakSellPrice2 == 1 && SellCancel==0) ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,Lots,Bid+stop*Point,Bid-profit*Point,"WSP2",34,0,DarkViolet);
   
    StrongBuyCross1=0;
    StrongBuyPrice1=0;
    StrongBuySwap1=0;
    StrongBuyCross2=0;
    StrongBuyPrice2=0;
    StrongBuySwap2=0;
    MediumBuyCross1=0;
    MediumBuyPrice1=0;
    MediumBuySwap1=0;
    MediumBuyCross2=0;
    MediumBuyPrice2=0;
    MediumBuySwap2=0;
    WeakBuyCross1=0;
    WeakBuyPrice1=0;
    WeakBuySwap1=0;
    WeakBuyCross2=0;
    WeakBuyPrice2=0;
    WeakBuySwap2=0;    
    BuyCancel=0;
    
    StrongSellCross1=0;
    StrongSellPrice1=0;
    StrongSellSwap1=0;
    StrongSellCross2=0;
    StrongSellPrice2=0;
    StrongSellSwap2=0;
    MediumSellCross1=0;
    MediumSellPrice1=0;
    MediumSellSwap1=0;
    MediumSellCross2=0;
    MediumSellPrice2=0;
    MediumSellSwap2=0;
    WeakSellCross1=0;
    WeakSellPrice1=0;
    WeakSellSwap1=0;
    WeakSellCross2=0;
    WeakSellPrice2=0;
    WeakSellSwap2=0;
    SellCancel=0;

// CLOSINGS THE POSITIONS
// SBC: Strong Buy Cross, SBP: Strong Buy Price, SBS: Strong Buy Swap the Cloud 
// SSC: Strong Sell Cross, SSP: Strong Sell Price, SSS: Strong Sell Swap the Cloud
// M**: Midium * *
// W**: Weak * *

// SBC1 Close
if (CloseBuyStrong==1)
 {int otb1 = OrdersTotal();
  for(int sayb1=otb1-1;sayb1>=0;sayb1--)
   {OrderSelect(sayb1, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==1) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
// SBC2 Close
 if (iLow(NULL,0,0)<KumoHigh)
 {int otb2 = OrdersTotal();
  for(int sayb2=otb2-1;sayb2>=0;sayb2--)
   {OrderSelect(sayb2, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==2) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
 
 //SSC1 Close
 if (CloseSellStrong==1)
 {int ots1 = OrdersTotal();
  for(int says1=ots1-1;says1>=0;says1--)
   {OrderSelect(says1, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==7) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
 // SSC2 Close
 if (iHigh(NULL,0,0)>KumoLow)
 {int ots2 = OrdersTotal();
  for(int says2=ots2-1;says2>=0;says2--)
   {OrderSelect(says2, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==8) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } } 

// SBP1 Close
//if (CloseBuyStrong==1 && iClose(NULL,0,1)<tenkan )
if (CloseBuyStrong==1)
 {int otb3 = OrdersTotal();
  for(int sayb3=otb3-1;sayb3>=0;sayb3--)
   {OrderSelect(sayb3, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==3) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
// SBP2 Close
//if (iLow(NULL,0,0)<KumoHigh)
if (exprekijun>prekijun)
 {int otb4 = OrdersTotal();
  for(int sayb4=otb4-1;sayb4>=0;sayb4--)
   {OrderSelect(sayb4, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==4) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }

// SSP1 Close
if (CloseSellStrong==1)
 {int ots3 = OrdersTotal();
  for(int says3=ots3-1;says3>=0;says3--)
   {OrderSelect(says3, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==9) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
// SSP2 Close
if (exprekijun<prekijun)
 {int ots4 = OrdersTotal();
  for(int says4=ots4-1;says4>=0;says4--)
   {OrderSelect(says4, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==10) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }

// SBS1 Close
if (iLow(NULL,0,1)<kijun)
 {int otb5 = OrdersTotal();
  for(int sayb5=otb5-1;sayb5>=0;sayb5--)
   {OrderSelect(sayb5, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==5) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
// SBS2 Close
if (senkouA26+10*Point<senkouA24)
 {int otb6 = OrdersTotal();
  for(int sayb6=otb6-1;sayb6>=0;sayb6--)
   {OrderSelect(sayb6, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==6) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }

// SSS1 Close
//if (tenkan>kijun )
if (iHigh(NULL,0,1)>kijun)
 {int ots5 = OrdersTotal();
  for(int says5=ots5-1;says5>=0;says5--)
   {OrderSelect(says5, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==11) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
// SSS2 Close
//if (iHigh(NULL,0,0)>KumoLow)
if (senkouA26+10*Point>senkouA24)
 {int ots6 = OrdersTotal();
  for(int says6=ots6-1;says6>=0;says6--)
   {OrderSelect(says6, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==12) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }


// MBC1 Close
if (CloseBuyMedium==1 && iClose(NULL,0,1)<KumoLow)
 {otb1 = OrdersTotal();
  for(sayb1=otb1-1;sayb1>=0;sayb1--)
   {OrderSelect(sayb1, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==13) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
// MBC2 Close
 if (CloseBuyMedium==1)
 {otb2 = OrdersTotal();
  for(sayb2=otb2-1;sayb2>=0;sayb2--)
   {OrderSelect(sayb2, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==14) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
 
//MSC1 Close
 if (CloseSellMedium==1 && iClose(NULL,0,1)>KumoHigh)
 {ots1 = OrdersTotal();
  for(says1=ots1-1;says1>=0;says1--)
   {OrderSelect(says1, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==19) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
// MSC2 Close
 if (CloseSellMedium==1)
 {ots2 = OrdersTotal();
  for(says2=ots2-1;says2>=0;says2--)
   {OrderSelect(says2, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==20) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }

// MBP1 Close
if (CloseBuyMedium==1 && iClose(NULL,0,1)<KumoLow)
 {otb3 = OrdersTotal();
  for(sayb3=otb3-1;sayb3>=0;sayb3--)
   {OrderSelect(sayb3, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==15) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
// MBP2 Close
if (CloseBuyMedium==1)
 {otb4 = OrdersTotal();
  for(sayb4=otb4-1;sayb4>=0;sayb4--)
   {OrderSelect(sayb4, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==16) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }

 // MSP1 Close
if (CloseSellMedium==1 && iClose(NULL,0,1)>KumoHigh)
 {ots3 = OrdersTotal();
  for(says3=ots3-1;says3>=0;says3--)
   {OrderSelect(says3, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==21) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
// MSP2 Close
if (CloseSellMedium==1)
 {ots4 = OrdersTotal();
  for(says4=ots4-1;says4>=0;says4--)
   {OrderSelect(says4, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==22) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }


// WBC1 Close
if (CloseBuyWeak==1 && iClose(NULL,0,1)<KumoLow)
 {otb1 = OrdersTotal();
  for(sayb1=otb1-1;sayb1>=0;sayb1--)
   {OrderSelect(sayb1, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==25) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
//// WBC2 Close
 if (CloseBuyWeak==1)
 {otb2 = OrdersTotal();
  for(sayb2=otb2-1;sayb2>=0;sayb2--)
   {OrderSelect(sayb2, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==26) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }

//WSC1 Close
 if (CloseSellWeak==1)
 {ots1 = OrdersTotal();
  for(says1=ots1-1;says1>=0;says1--)
   {OrderSelect(says1, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==31) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
 // WSC2 Close
 if (CloseSellWeak==1)
 {ots2 = OrdersTotal();
  for(says2=ots2-1;says2>=0;says2--)
   {OrderSelect(says2, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==32) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }

// WBP1 Close
if (CloseBuyWeak==1)
 {otb3 = OrdersTotal();
  for(sayb3=otb3-1;sayb3>=0;sayb3--)
   {OrderSelect(sayb3, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==27) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }
// WBP2 Close
if (CloseBuyWeak==1)
 {otb4 = OrdersTotal();
  for(sayb4=otb4-1;sayb4>=0;sayb4--)
   {OrderSelect(sayb4, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==28) OrderClose( OrderTicket(), OrderLots(), Ask, 3, Red );
 } }

 // WSP1 Close
if (CloseSellWeak==1)
 {ots3 = OrdersTotal();
  for(says3=ots3-1;says3>=0;says3--)
   {OrderSelect(says3, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==33) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
// WSP2 Close
if (CloseSellWeak==1)
 {ots4 = OrdersTotal();
  for(says4=ots4-1;says4>=0;says4--)
   {OrderSelect(says4, SELECT_BY_POS, MODE_TRADES);
    if (OrderMagicNumber()==34) OrderClose( OrderTicket(), OrderLots(), Bid, 3, Red );
 } }
 
CloseBuyStrong=0; 
CloseSellStrong=0;
CloseBuyMedium=0; 
CloseSellMedium=0;
return(0);
}