gnome-games r7711 - trunk/aisleriot/rules
- From: chpe svn gnome org
- To: svn-commits-list gnome org
- Subject: gnome-games r7711 - trunk/aisleriot/rules
- Date: Wed, 18 Jun 2008 20:50:05 +0000 (UTC)
Author: chpe
Date: Wed Jun 18 20:50:05 2008
New Revision: 7711
URL: http://svn.gnome.org/viewvc/gnome-games?rev=7711&view=rev
Log:
Implement dealable? for escalator. Bug #445955
Modified:
trunk/aisleriot/rules/escalator.scm
Modified: trunk/aisleriot/rules/escalator.scm
==============================================================================
--- trunk/aisleriot/rules/escalator.scm (original)
+++ trunk/aisleriot/rules/escalator.scm Wed Jun 18 20:50:05 2008
@@ -175,6 +175,12 @@
(deal-cards slot-id '(1))))
(#t #f)))
+(define (dealable?)
+ (not (empty-slot? 0)))
+
+(define (do-deal-next-cards)
+ (play-card 0))
+
;; Single-clicking isn't sane in click-to-move more, so we mostly ignore it
;; in that case.
(define (button-clicked slot-id)
@@ -230,8 +236,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?)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]