|
|  Rules for wholepack patience
|  Written by J.Horsnell
|
SCRIPT_TYPE 1
|
BEGIN "Wholepack patience"

  FLAGS ClickFly AnimateFly
  WIDTH 10 * 76 + 14
  HEIGHT 3000
  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 1
    FOUNDATION
      X 8 * 76 + 12
      Y 16 + 100 * stack
      ID 2
    END
  END

  FOR stack = 0 TO 1
    FOUNDATION
      X 7 * 76 + 12 + stack * 152
      Y 16 + 50 
      ID 2
    END
  END

  STACK
    X 12
    y 16
    FIRST 13
    MAX 52
    JoinOffset -1
    DEAL 2 , 1
    FLAGS RotateJoin ClickFly JoinSS__
    ID 1
  END

  STACK
    X 12 + 76
    y 16
    FIRST 13
    MAX 52
    JoinOffset -1
    DEAL 5 , 2
    FLAGS RotateJoin ClickFly JoinSS__
    ID 1
  END

  FOR stack = 2 to 6
    STACK
      X stack * 76 + 12
      y 16
      FIRST 13
      MAX 52
      JoinOffset -1
      DEAL stack + 5 , stack + 1
      FLAGS RotateJoin ClickFly JoinSS__
      ID 1
    END
  END

END
