청산조건에 따라 진입도 다르게하는 함수

매수.매도청산식이 각각 두 조건이 있을 때
  A1식으로 매도청산한 것은 A2식으로만 매수하고
  B1식으로 매도청산한 것은 B2식으로만 매수하고
  C1식으로 매수청산한 것은 C2식으로만 매도하고
  D1식으로 매수청산한 것은 D2식으로만 매도하기

즉, 매수 후  매수청산에 두가지 조건이 있고 만족하는 값에 따라
다음 매도가 정해지고  매도 후  매도청산에 두가지 조건이 있고
만족하는 값에 따라 다음 매수가 정해지는 수식입니다.
------------------------------------------------------------------------------------------------------------
var : cnt(0),A1(0),B1(0),C1(0),D1(0),A1index(0),B1index(0),C1index(0),D1index(0);

var1 = ma(c,20);
var2 = ma(c,60);
var3 = StochasticsK(5,3);
var4 = StochasticsD(5,3,3);
var5 = StochasticsK(10,6);
var6 = StochasticsD(10,6,6);


if crossup(var1, var2) and cnt < 1 then{
      buy("초기매수");
      cnt = cnt +1;
}

if cnt == 1 and A1 == 1 then{
    if crossup(C, var1) then{
          buy("A2buy");
          A1 = 0;
          B1 = 0;
          C1 = 0;
          D1 = 0;
      }
}

if cnt == 1 and B1 == 1 then{
    if crossup(C, var2) then{
          buy("B2buy");
          A1 = 0;
          B1 = 0;
          C1 = 0;
          D1 = 0;
      }
}

if crossdown(var3,var4) then{
      exitlong("C1exl");
      C1 = 1;
}

if crossdown(var5,var6) then{
      exitlong("D1exl");
      D1 = 1;
}

if crossdown(var1, var2) and cnt < 1 then{
      sell("초기매도");
      cnt = cnt +1;
}

if cnt == 1 and C1 == 1 then{
      if crossdown(c, var1) then{
      sell("C2sell");
          A1 = 0;
          B1 = 0;
          C1 = 0;
          D1 = 0;
      }
}

if cnt == 1 and D1 == 1 then{
      if crossdown(c, var2) then{
      sell("D2sell");
          A1 = 0;
          B1 = 0;
          C1 = 0;
          D1 = 0;
      }
}     

if crossup(var3,var4) then{
      exitshort("A1exs");
      A1 = 1;
}

if crossup(var5,var6) then{
      exitshort("B1exs");
      B1 = 1;
}