|
|  Kings and Aces Patience
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Kings and Aces"

  FLAGS  ClickFly AnimateFly
  PACKS  2
  WIDTH  8 * CW
  HEIGHT 4 * CH
  ZeroToWin 104 - CARDSIN$2

| Left foundations

  FOR column = 0 TO 1
    FOR stack = 0 TO 3
      STACK
        X column * CW
        Y stack * CH
        Deal 1,1
        DealCard x13
        Max 0
      END
    END
  END

| Right foundations

  FOR column = 6 TO 7
    FOR stack = 0 TO 3
      FOUNDATION
        X column * CW
        Y stack * CH
        Deal 1,1
        DealCard x1
        FLAGS Join____
        ID 2
      END
    END
  END

| Stock

  STACK
    X 3 * CW
    Y 3 * CH / 2
    DEAL 87
    DEALTO 4,1
    TakeFrom 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

| Waste

  STACK
    X 4 * CW 
    Y 3 * CH / 2
    MAX 0
    DEAL 1,1
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
