home *** CD-ROM | disk | FTP | other *** search
/ ISV Strong Games / ISV_STRONG_GAMES.iso / desktop / spatience / !SPatience / DoublePack < prev    next >
Text File  |  1992-10-16  |  1KB  |  57 lines
  1. |
  2. |  Rules for the game of Double Pack Patience
  3. |  Written by J.Horsnell BSc(Hons) MSc
  4. |
  5. |  This game (as its title suggests) includes two packs 
  6. |  of cards.  The foundations at the top are built from
  7. |  the ace up.  Empty stacks may only accept kings.
  8. |  The stacks are of the normal descending value
  9. |  alternating colour variety.  But, no checks are made
  10. |  to see that a whole stack conforms to the rules when
  11. |  moving cards, only the intersection.  The pack, when
  12. |  clicked, deals one card to each of the stacks
  13. |  regardless of current state.
  14. |
  15. SCRIPT_TYPE 1
  16. |
  17. BEGIN "Double Pack Patience"
  18.  
  19.   FLAGS ClickFly AnimateFly
  20.   PACKS 2
  21.   WIDTH 9 * CW + 14
  22.   HEIGHT 3000
  23.   ZeroToWin 104 - CARDSIN$1
  24.  
  25.   FOR stack = 0 TO 7
  26.     FOUNDATION
  27.       X 12 + CW * stack
  28.       Y 16
  29.       ID 1
  30.     END
  31.   END
  32.  
  33.   FOR stack = 0 TO 7
  34.     STACK
  35.       X stack * CW + 12
  36.       Y 16 + CH
  37.       FIRST 13
  38.       DEAL 1,1
  39.       FLAGS ClickFly Join__DC
  40.       ID 2
  41.     END
  42.   END
  43.  
  44.   STACK
  45.     X 12 + 8 * CW
  46.     Y 16 + CH / 2
  47.     DEAL 96
  48.     DEALTO 2,1
  49.     TAKEFROM 0
  50.     MAX 0
  51.     DRAGUPTO 0
  52.     FLAGS PaintCount
  53.     ID 3
  54.   END
  55.  
  56. END
  57.