[gnome-games] aisleriot: make template.scm actually work



commit 095cfd8ad2451e88993f75d10f4c0e4738d9dedc
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sun Apr 19 16:54:56 2009 -0500

    aisleriot: make template.scm actually work
---
 aisleriot/rules/template.scm |   10 ++++++++--
 1 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/aisleriot/rules/template.scm b/aisleriot/rules/template.scm
index 41cb11c..4535387 100644
--- a/aisleriot/rules/template.scm
+++ b/aisleriot/rules/template.scm
@@ -18,13 +18,19 @@
 
 (define (new-game)
   (initialize-playing-area)
-)
+
+  (make-standard-deck)
+  (shuffle-deck)
+
+  (add-normal-slot DECK)
+
+  (list 1 1))
 
 (define (button-pressed slot-id card-list)
   #f)
 
 ;;; Not essential, see set-features below.
-(define (droppable)
+(define (droppable? start-slot card-list end-slot)
   #f)
 
 (define (button-released start-slot card-list end-slot)



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]