|
|  Toni Patience
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Toni"

  FLAGS  ClickFly AnimateFly
  PACKS  2
  WIDTH   7 * CW + 2 * COW
  HEIGHT  5 * CH
  ZeroToWin 104 - CARDSIN$2

| Ace Foundations

  FOR stack = 1 TO 2
    FOUNDATION
      X stack * CW
      Y 0
      DEAL 1,1
      DealCard x1
      ID 2
    END
  END

  FOR stack = 4 TO 5
    FOUNDATION
      X stack * CW + 2 * COW
      Y 0
      DEAL 1,1
      DealCard x1
      ID 2
    END
  END

| King Foundations

  FOR stack = 0 TO 3
    FOUNDATION
      X 3 * CW + COW
      Y stack * CH
      DEAL 1,1
      DealCard x13
      JoinOffset -1
      ID 2
    END
  END

| Left stacks

  FOR row = 2 TO 3
    FOR pack = 0 TO 2
      STACK
        X pack * CW
        Y row * CH
        MAX 0
        DEAL 1, 1
        FLAGS ClickFly PaintLast
        ID 1
      END
    END
  END

| right stacks

  FOR row = 2 TO 3
    FOR pack = 4 TO 6
      STACK
        X pack * CW + 2 * COW
        Y row * CH
        MAX 0
        DEAL 1, 1
        FLAGS ClickFly PaintLast
        ID 1
      END
    END
  END

| Stock

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

END
