|
|  Take Away Patience
|  Written by Ph.DONSBACK
|
|
SCRIPT_TYPE 1
|
BEGIN "Take Away"

  FLAGS ClickFly AnimateFly
  PACKS 1
  WIDTH 10 * CW + COW
  HEIGHT CH + 20 * COH
  ZeroToWin 52 - CARDSIN$1

  FOR stack = 4 TO 9
    FOUNDATION
      X CW * stack + COW
      Y 0
      MAX 52
      FIRST 1,13
      FLAGS Join____ RotateJoin PaintDown
      JoinOffset 1, -1
      ID 1
    END
  END

  FOR stack = 0 TO 3
    STACK
      X stack * CW
      Y 0
      Max 0
      DEAL 13,1
      FLAGS ClickFly
      ID 2
    END
  END

END
