gnome-games r7715 - trunk/aisleriot/rules

[chpe svn gnome org]

Author: chpe
Date: Wed Jun 18 20:50:11 2008
New Revision: 7715
URL: http://svn.gnome.org/viewvc/gnome-games?rev=7715&view=rev

Log:
Implement dealable? for thirteen. Bug #445955


Modified:
   trunk/aisleriot/rules/thirteen.scm

Modified: trunk/aisleriot/rules/thirteen.scm
==============================================================================
--- trunk/aisleriot/rules/thirteen.scm	(original)
+++ trunk/aisleriot/rules/thirteen.scm	Wed Jun 18 20:50:11 2008
@@ -403,14 +403,17 @@
 		    (get-name (get-top-card slot2)))))))
 
 (define (dealable?)
-  (if (not (empty-slot? 0))
-      (list 0 (_"Deal a card"))
-      #f))
+  (not (empty-slot? 0)))
+
+(define (do-deal-next-cards)
+  (deal-cards-face-up 0 (list waste-slot)))
 
 (define (get-hint)
   (or (check-waste-for-move) 
       (check-move waste-slot 2)
-      (dealable?)))
+      (if (not (empty-slot? 0))
+          (list 0 (_"Deal a card"))
+          #f)))
 
 (define (get-options) 
   #f)
@@ -421,8 +424,8 @@
 (define (timeout) 
   #f)
 
-(set-features droppable-feature)
+(set-features droppable-feature dealable-feature)
 
 (set-lambda new-game button-pressed button-released button-clicked
 button-double-clicked game-continuable game-won get-hint get-options
-apply-options timeout droppable?)
+apply-options timeout droppable? dealable?)