Основная часть пасьянса

int i, line, pos;

TCard card;

card.Init(0,0) ;

// правая кнопка мыши — сброс if( Button == mbRight )

'{

Line = -1;

return;

}

// щелчок на главной колоде —

// разложить карты во вспомогательном ряду ^(4-я // группа)

if ( Х > MAIN_LEFT && Х < MAIN_LEFT+CARD_WIDTH && Y > MAIN_TOP && Y < MAIN_TOP+CARD_HEIGHT )

{ int j , k;

if( !Pack.IsCard() ) // карты в колоде //з акончилис ь:

{ // собрать карты со вспомогательного ряда:

for( j =4; j >= 0; j - )

for( k = 0; k < PACK_TOTAL; k ++ ) if( Well[4][j][k].Is )

{ // убрать карту со стола:

Well[4][j][k].Is = false;

// вернуть карту обратно в колоду:

Pack.AddCard(Well[4][j][k]) ;

)

215