|
|  Rules for 28 card patience
|  Written by J.Horsnell
|
|  The name '28 card' is because there
|  are twenty eight cards on the table.
|
|  This is the standard patience game supplied
|  with RISC OS 2.  Its stacks descend with
|  alternating colours.  Its pack turns three
|  cards at a time.  Only kings may be placed
|  onto empty stacks and the foundations are
|  built from the ace up.
|
SCRIPT_TYPE 1
|
BEGIN "28 card patience"

  FLAGS ClickFly AnimateFly
  WIDTH 10 * 76 + 14
  HEIGHT 800
  ZEROTOWIN 52 - CARDSIN$2
  Score 7 * 76 + 12 + 12 , 16 + 100 * 3

  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

  FOR stack = 0 to 6
    STACK
      X stack * 76 + 12
      y 16
      FIRST 13
      MAX 19
      DEAL 7 - stack , 7 - stack
      FLAGS ClickFly Join__DC
    END
  END

  STACK
    X 7 * 76 + 12 + 38
    Y 216
    MAX 0
    DEAL 24
    DEALTO 4,3
    DRAGUPTO 0
    FLAGS PaintCount
  END

  STACK
    X 8 * 76 + 12 + 38
    Y 216
    MAX 0
    DRAGUPTO 1
    FLAGS PaintLast
    ID 4
  END

END
