gnome-games r9049 - trunk/aisleriot/rules

[vpovirk svn gnome org]

Author: vpovirk
Date: Mon Apr 13 05:09:30 2009
New Revision: 9049
URL: http://svn.gnome.org/viewvc/gnome-games?rev=9049&view=rev

Log:
aisleriot: forbid picking up multiple cards at once in Plait

The rules do not allow them to be dropped anywhere.


Modified:
   trunk/aisleriot/rules/plait.scm

Modified: trunk/aisleriot/rules/plait.scm
==============================================================================
--- trunk/aisleriot/rules/plait.scm	(original)
+++ trunk/aisleriot/rules/plait.scm	Mon Apr 13 05:09:30 2009
@@ -264,12 +264,11 @@
 
 
 (define (button-pressed slot card-list)
-  (if (or (free? slot)
-	  (edge? slot)
-	  (= stock slot)
-	  (= plait slot))
-      #t
-      #f))
+  (and (or (free? slot)
+           (edge? slot)
+           (= stock slot)
+           (= plait slot))
+       (= (length card-list) 1)))
 
 (define (droppable? start-slot card-list end-slot)
   (cond ((= start-slot end-slot) #f)