|
|  Russite British Constitution
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "British Constitution"

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

  ZeroToWin 104 - CARDSIN$7

| Hidden stacks for Kings and Queens

  FOUNDATION
    X 0
    Y 0 - CH
    DEAL 4
    DEALCARD x12, x12, x12, x12
  END

  FOUNDATION
    X 0
    Y 0 - CH
    DEAL 4
    DEALCARD x12, x12, x12, x12
  END

  FOUNDATION
    X 0
    Y 0 - CH
    DEAL 4
    DEALCARD x13, x13, x13, x13
  END

  FOUNDATION
    X 0
    Y 0 - CH
    DEAL 4
    DEALCARD x13, x13, x13, x13
  END

| The  foundations

  FOR stack = 0 TO 7
    FOUNDATION
      X stack * CW 
      Y 0
      DEAL 1,1
      DEALCARD x1
      JoinFrom 1
      FLAGS AutoFly
      ID 7
    END
  END

| The first three rows of cards

  FOR row = 1 TO 3
    FOR stack = 0 TO 7
      STACK
        X stack * CW
        Y row * CH + COH
        FIRST 1,13
        DEAL 1,1
        DRAGUPTO 1
        JoinFrom row + 1
        FLAGS ClickFly AppendOneOnly Join__DC PaintLast
        ID row
      END
    END
  END

| The last (4th) row of cards

  FOR stack = 0 TO 7
    STACK
      X stack * CW
      Y 4 * CH + COH
      FIRST 1,13
      DEAL 1,1
      DRAGUPTO 1
      JoinFrom 5
      FLAGS ClickFly AppendOneOnly Join__DC PaintLast FirstFly
      ID 4
    END
  END

|  The stock and the waste

  STACK
    X 3 * CW
    Y 5 * CH + COH
    DEAL 47
    DEALTO 5,1
    TAKEFROM 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 6
  END

  STACK
    X 4 * CW
    Y 5 * CH + COH
    DEAL 1,1
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 5
  END

END
