[gnome-games] aisleriot: Add slot types to Klondike
- From: Christian Persch <chpe src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [gnome-games] aisleriot: Add slot types to Klondike
- Date: Fri, 20 Nov 2009 17:05:41 +0000 (UTC)
commit f9e0c26aeec23251f524599579184ad903eba02a
Author: Christian Persch <chpe gnome org>
Date: Fri Nov 20 18:01:29 2009 +0100
aisleriot: Add slot types to Klondike
aisleriot/rules/klondike.scm | 28 ++++++++++++++--------------
1 files changed, 14 insertions(+), 14 deletions(-)
---
diff --git a/aisleriot/rules/klondike.scm b/aisleriot/rules/klondike.scm
index a3e7ec4..fdffb4a 100644
--- a/aisleriot/rules/klondike.scm
+++ b/aisleriot/rules/klondike.scm
@@ -35,25 +35,25 @@
(make-standard-deck)
(shuffle-deck)
- (add-normal-slot DECK)
+ (add-normal-slot DECK 'stock)
(if deal-three
- (add-partially-extended-slot '() right 3)
- (add-normal-slot '()))
+ (add-partially-extended-slot '() right 3 'waste)
+ (add-normal-slot '() 'waste))
(add-blank-slot)
- (add-normal-slot '())
- (add-normal-slot '())
- (add-normal-slot '())
- (add-normal-slot '())
+ (add-normal-slot '() 'foundation)
+ (add-normal-slot '() 'foundation)
+ (add-normal-slot '() 'foundation)
+ (add-normal-slot '() 'foundation)
(add-carriage-return-slot)
- (add-extended-slot '() down)
- (add-extended-slot '() down)
- (add-extended-slot '() down)
- (add-extended-slot '() down)
- (add-extended-slot '() down)
- (add-extended-slot '() down)
- (add-extended-slot '() down)
+ (add-extended-slot '() down 'tableau)
+ (add-extended-slot '() down 'tableau)
+ (add-extended-slot '() down 'tableau)
+ (add-extended-slot '() down 'tableau)
+ (add-extended-slot '() down 'tableau)
+ (add-extended-slot '() down 'tableau)
+ (add-extended-slot '() down 'tableau)
(deal-tableau tableau)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]