|
|  Russite Antares
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Antares"

  FLAGS  ClickFly AutoFly AnimateFly
  PACKS  1
  WIDTH  8 * CW + COW
  HEIGHT 2 * CH + 7 * COH + 11 * COH

  ZeroToWin 52 - CARDSIN$2

| Foundations

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

| Tableau : Scorpion Piles

  FOR stack = 0 TO 3
    STACK
      X stack * CW
      Y CH
      FIRST 13
      DEAL 6,1
      FLAGS ClickFly JoinSS__ ShallowCheck Drag____
      ID 1
    END
  END

| Tableau : FreeCell piles

  FOR stack = 4 TO 7
    STACK
      X stack * CW + COW
      Y CH
      FIRST 1, 13
      DEAL 7,1
      DragOffset -1
      DragUpto 1 + Empty$3
      FLAGS ClickFly Join__DC ShallowCheck Drag__DC
      ID 1
    END
  END

| Cells

  FOR stack = 0 TO 3
    STACK
      X stack * CW
      Y 0
      FIRST 1, 13
      MAX 1 
      FLAGS ClickFly PaintLast
      ID 3
    END
  END

END
