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

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

  ZeroToWin 104 - CARDSIN$1

| Foundations

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

| Tableau

  FOR stack = 0 TO 7
    STACK
      X stack * CW
      Y CH
      FIRST 1,13
      DEAL 3,1
      DRAGUPTO 1
      FirstFrom 3
      FLAGS ClickFly Join____
      ID 4
    END
  END

| The stock

  STACK
    X 0
    Y CH + CH + 11 * COH 
    MAX 0
    DEAL 77
    DEALTO 3,1
    Takefrom 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 2
  END

| The 3 waste piles

  FOR stack = 1 TO 3
    STACK
      X stack * CW
      Y CH + CH + 11 * COH 
      MAX 0
      DEAL 1,1
      DRAGUPTO 1
      FLAGS ClickFly PaintLast
      ID 3
    END
  END

END
