|
|  Chessboard
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Chessboard"

  FLAGS  ClickFly AnimateFly
  PACKS  1
  WIDTH  10 * CW 
  HEIGHT  2 * CH + 11 * COH + 6 * COH
  ZeroToWin 52 - CARDSIN$2

| Foundations

  FOUNDATION
    X 3 * CW
    Y 0
    FIRST 1,13
    FLAGS RotateJoin
    ID 2
  END

  FOR stack = 1 TO 3
    FOUNDATION
      X stack * CW + 3 * CW
      Y 0
      FIRST -2,0
      FLAGS RotateJoin
      ID 2
    END
  END

| Tableau

  FOR stack = 0 TO 1
    STACK
      X stack * CW
      Y CH
      FIRST 1,13
      DEAL 6,1
      DRAGUPTO 1
      JOINOFFSET 1,-1
      FLAGS ClickFly JoinSS__
      ID 1
    END
  END

  FOR stack = 2 TO 9
    STACK
      X stack * CW
      Y CH
      FIRST 1,13
      DEAL 5,1
      DRAGUPTO 1
      JOINOFFSET 1,-1
      FLAGS ClickFly JoinSS__
      ID 1
    END
  END

END
