|
|  Scotch Patience
|  Written by Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Scotch Patience"

  FLAGS  ClickFly AutoFly AnimateFly
  PACKS  1
  WIDTH  18 * CW
  HEIGHT CH + CH + 3 * COH + 12 * COH

  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 3
    FOUNDATION
      X 4 * CW + 3 * stack * CW 
      Y 0
      ID 2
      FLAGS Join__DC
    END
  END

  FOR stack = 0 TO 15
    STACK
      X stack * CW
      Y CH
      FIRST 0
      JOINOFFSET -1
      DRAGUPTO 1
      DEAL 3,1
      FLAGS ClickFly Join____ AppendOneOnly
      ID 1
    END
  END

  FOR stack = 0 TO 1
    STACK
      X 16 * CW + stack * CW
      Y CH
      FIRST 0
      JOINOFFSET -1
      DRAGUPTO 1
      DEAL 2,1
      FLAGS ClickFly Join____ AppendOneOnly
      ID 1
    END
  END

END
