|
|  Rules for Syrian patience
|  Written by J.Horsnell
|  Described by S.Fahkry
|
|  This version of the game has ShallowCheck stacks.
|  This may be wrong but I refuse to believe that they're
|  meant to be DeepCheck stacks because that's virtually
|  impossible to play let alone win.
|
|  Alterations: Any card can be placed on an empty stack.
|               Max cards per stack is now fifty two.
|               Blame R.Wilson. for those.
|
SCRIPT_TYPE 1
|
BEGIN "Syrian patience"

  FLAGS ClickFly AnimateFly
  WIDTH 9 * 74 + 14
  HEIGHT 800
  ZeroToWin 52 - CARDSIN$2

  FOR stack = 0 TO 1
    FOR row = 0 TO 1
      FOUNDATION
        X 7 * 74 + 12 + stack * 74
        Y 16 + 100 * row
        ID 2
      END
    END
  END

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

  STACK
    X 7 * 74 + 12 + 37
    Y 216
    MAX 0
    DEAL 24
    DEALTO 1,1
    TAKEFROM 0
    DRAGUPTO 0
    FLAGS PaintBack
  END

END
