← Back to branch summary

~ubuntu-branches/debian/jessie/aisleriot/jessie

« back to all changes in this revision

Viewing changes to games/gold-mine.scm

  • Committer: Package Import Robot
  • Author(s): Jordi Mallach, Jeremy Bicha, Jordi Mallach
  • Date: 2012-04-22 12:49:26 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120422124926-gmr0thwstl91jt1n
Tags: 1:3.4.1-1
[ Jeremy Bicha ]
* New upstream release
* debian/control.in: (Build)-depend on guile-2.0
* debian/*.install: Cards files are now stored as zipped .svg's
* debian/patches/99_format-security.patch: Dropped, applied upstream

[ Jordi Mallach ]
* New upstream release.
* Update copyright to final version of the machine-readable 1.0 spec.
* Bump Standards Version to 3.9.3.

Show diffs side-by-side

added added

removed removed

Lines of Context:
games/gold-mine.scm
 
1
; AisleRiot - gold_mine.scm
 
2
; Copyright (C) 1998, 2003 Jonathan Blandford <jrb@mit.edu>
 
3
;
 
4
; This program is free software: you can redistribute it and/or modify
 
5
; it under the terms of the GNU General Public License as published by
 
6
; the Free Software Foundation, either version 3 of the License, or
 
7
; (at your option) any later version.
 
8
;
 
9
; This program is distributed in the hope that it will be useful,
 
10
; but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
12
; GNU General Public License for more details.
 
13
;
 
14
; You should have received a copy of the GNU General Public License
 
15
; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
16
 
 
17
(use-modules (aisleriot interface) (aisleriot api))
 
18
 
 
19
(primitive-load-path "klondike")
 
20
 
 
21
(define deal-one #f)
 
22
(define deal-three #t)
 
23
(define kings-only #f)
 
24
 
 
25
(define max-redeal 0)
 
26
 
 
27
(define tableau '(6 7 8 9 10 11 12))
 
28
(define foundation '(2 3 4 5))
 
29
(define stock 0)
 
30
(define waste 1)
 
31
 
 
32
(define (new-game)
 
33
  (initialize-playing-area)
 
34
  (set-ace-low)
 
35
 
 
36
  (make-standard-deck)
 
37
  (shuffle-deck)
 
38
  
 
39
  (add-normal-slot DECK 'stock)
 
40
 
 
41
  (if deal-three
 
42
      (add-partially-extended-slot '() right 3 'waste)
 
43
      (add-normal-slot '() 'waste))
 
44
 
 
45
  (add-blank-slot)
 
46
  (add-normal-slot '() 'foundation)
 
47
  (add-normal-slot '() 'foundation)
 
48
  (add-normal-slot '() 'foundation)
 
49
  (add-normal-slot '() 'foundation)
 
50
  (add-carriage-return-slot)
 
51
  (add-extended-slot '() down 'tableau)
 
52
  (add-extended-slot '() down 'tableau)
 
53
  (add-extended-slot '() down 'tableau)
 
54
  (add-extended-slot '() down 'tableau)
 
55
  (add-extended-slot '() down 'tableau)
 
56
  (add-extended-slot '() down 'tableau)
 
57
  (add-extended-slot '() down 'tableau)
 
58
 
 
59
  (give-status-message)
 
60
 
 
61
  (list 7 3.1)
 
62
)
 
63
 
 
64
(define (get-options)
 
65
  '())
 
66
 
 
67
(define (apply-options options) #f)
 
68
 
 
69
(set-lambda! 'new-game new-game)
 
70
(set-lambda! 'get-options get-options)
 
71
(set-lambda! 'apply-options apply-options)