gnome-games r9054 - trunk/aisleriot/rules

[vpovirk svn gnome org]

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

Log:
aisleriot: allow moving builds starting with ace to the foundation in
Seahaven


Modified:
   trunk/aisleriot/rules/seahaven.scm

Modified: trunk/aisleriot/rules/seahaven.scm
==============================================================================
--- trunk/aisleriot/rules/seahaven.scm	(original)
+++ trunk/aisleriot/rules/seahaven.scm	Mon Apr 13 05:10:11 2009
@@ -66,11 +66,12 @@
   (list 10 4))
 
 (define (sequence-matches-slot? card-list slot)
-  (and (not (empty-slot? slot))
-       (= (get-suit (car card-list))
-	  (get-suit (get-top-card slot)))
-       (= (get-value (car card-list))
-	  (+ 1 (get-value (get-top-card slot))))))
+  (if (empty-slot? slot)
+      (= (get-value (car card-list)) ace)
+      (and (= (get-suit (car card-list))
+	      (get-suit (get-top-card slot)))
+           (= (get-value (car card-list))
+	      (+ 1 (get-value (get-top-card slot)))))))
 
 (define (button-pressed slot-id card-list)
   (and (not (empty-slot? slot-id))