|
|  Russite Colonnes en 10
|  Ecrit par Ph. DONSBACK
|
|  D'aprs "Patiences et russites", FLEURUS IDEES
|
|  Constituer sur les 8 as des progressions allant du deux au roi,
|  et cela en combinant sur le tableau des colonnes descendantes
|  de couleurs alternes.
|  Clicker sur le tas donne une carte supplmentaire sur chaque colonne.
|  Une colonne vide ne peut tre occupe que par un roi en tte.
|
SCRIPT_TYPE 1
|
BEGIN "Colonnes en 10"

  FLAGS  ClickFly AnimateFly
  PACKS  2
  WIDTH  10 * CW
  HEIGHT 2 * CH + 10 * COH + 11 * COH

  ZeroToWin 104 - CARDSIN$2

| Foundations

  FOR stack = 0 TO 7
    FOUNDATION
      X stack * CW 
      Y 0 
      ID 2
    END
  END

| Tableau

  FOR stack = 0 TO 9
    STACK
      X stack * CW
      Y CH
      FIRST 13
      DEAL 1,1
      DragOffset -1
      FLAGS ClickFly Join__DC DeepCheck Drag__DC
      ID 1
    END
  END

| Stock

  STACK
    X 9 * CW
    Y 0  
    DEAL 94
    DEALTO 1,1
    TAKEFROM 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

END
