if (st2 <  et1) and (et2 > et1) then {
  if (vb = 0) then {
            time1 = time1 + (et2 -st1);
            time1tmp = time1 - (et2 - st1);
            }
  if (vb = 1) then {
            set time1 = time1tmp + (et2 -st1);
            }
            set va = 0;
            set vb = 0;
            }           
if (et1 < st2) then {
   if (va = 0) then {
            set st1 = st2;
            set et1 = et2;
            time3 = time3 + (et1 - st1) + (et2 - st2);
time3tmp = time3 - (et2 - st2);
      }
    if (va = 1) then {
                 time3 = time3tmp - (et2 - st2);
                }
            set va = 1;
            set vb = 1;          
             }