|
|  Rules for the game of Double Pack Patience
|  Written by J.Horsnell
|
|  This game (as its title suggests) includes two packs 
|  of cards.  The foundations at the top are built from
|  the ace up.  Empty stacks may only accept kings.
|  The stacks are of the normal descending value
|  alternating colour variety.  But, no checks are made
|  to see that a whole stack conforms to the rules when
|  moving cards, only the intersection.  The pack, when
|  clicked, deals one card to each of the stacks
|  regardless of current state.
|
SCRIPT_TYPE 1
|
BEGIN "Double Pack Patience"

  FLAGS ClickFly AnimateFly
  PACKS 2
  WIDTH 9 * CW + 14
  HEIGHT 3000
  ZeroToWin 104 - CARDSIN$1

  FOR stack = 0 TO 7
    FOUNDATION
      X 12 + CW * stack
      Y 16
      ID 1
    END
  END

  FOR stack = 0 TO 7
    STACK
      X stack * CW + 12
      Y 16 + CH
      FIRST 13
      DEAL 1,1
      FLAGS ClickFly Join__DC
      ID 2
    END
  END

  STACK
    X 12 + 8 * CW
    Y 16 + CH / 2
    DEAL 96
    DEALTO 2,1
    TAKEFROM 0
    MAX 0
    DRAGUPTO 0
    FLAGS PaintCount
    ID 3
  END

END
