home *** CD-ROM | disk | FTP | other *** search
/ ISV Strong Games / ISV_STRONG_GAMES.iso / desktop / spatience / !SPatience / 40 < prev    next >
Text File  |  1992-10-16  |  1KB  |  71 lines
  1. |
  2. |  Rules for the game of Forty thieves
  3. |  Written by J.Horsnell BSc(Hons) MSc
  4. |
  5. |  This is a game I saw once on another machine.
  6. |  Its stacks are of the same suit descending
  7. |  variety.  The game includes two packs of cards
  8. |  and thus eight foundations to collect them all.
  9. |  The pack turns one card at a time but is not
  10. |  reuseable.  You are only allowed to move 1 card
  11. |  at a time but any card may be placed on an empty
  12. |  stack.  This really means you may move 1 card
  13. |  plus the number of empty game stacks.
  14. |
  15. SCRIPT_TYPE 1
  16. |
  17. BEGIN "Forty thieves"
  18.  
  19.   FLAGS ClickFly AnimateFly
  20.   PACKS 2
  21.   WIDTH 12 * CW + 16
  22.   HEIGHT 692 + CH
  23.   ZeroToWin 104 - CARDSIN$2
  24.  
  25.   FOR stack = 0 TO 1
  26.     FOR pack = 0 TO 3
  27.       FOUNDATION
  28.         X 10 * CW + stack * CW + 12
  29.         Y 16 + pack * CH
  30.         ID 2
  31.       END
  32.     END
  33.   END
  34.  
  35.   FOR stack = 0 TO 9
  36.     STACK
  37.       X stack * CW + 12
  38.       Y 16
  39.       FIRST 1,13
  40.       MAX 16
  41.       DEAL 4,1
  42.       DRAGUPTO 1 + EMPTY$1
  43.       FLAGS ClickFly JoinSS__ DeepCheck
  44.       ID 1
  45.     END
  46.   END
  47.  
  48.   STACK
  49.     X 12
  50.     Y 692
  51.     DEAL 64
  52.     DEALTO 4,1
  53.     TAKEFROM 0
  54.     MAX 0
  55.     DRAGUPTO 0
  56.     FLAGS PaintBack
  57.     ID 3
  58.   END
  59.  
  60.   STACK
  61.     X 12 + CW
  62.     Y 692
  63.     DEAL 0
  64.     MAX 0
  65.     DRAGUPTO 1
  66.     FLAGS PaintLeft
  67.     ID 4
  68.   END
  69.  
  70. END
  71.