;; Gold Mine is like Klondike but no cards are dealt out to start.  
;; 3 card deal, no redeals.  difficulty 50%
;; "King Only" off by default

;; TODO "King Only" option needs to be implemented in Klondike 
;; ideally it would be implemented for all games 
;; and there would be a standard Options/Settings menu similar to
;; Pretty Good Solitaire

(load "klondike.scm") 

(define deal-three #t)

;; must redefine a whole new-game just to stop cards being dealt 
;; not very elegant.  

(define (new-game)
  (initialize-playing-area)
  (set-ace-low)

  (make-standard-deck)
  (shuffle-deck)
  
  (add-normal-slot DECK)

  (if deal-three
      (add-partially-extended-slot '() right 3)
      (add-normal-slot '()))

  (add-blank-slot)
  (add-normal-slot '())
  (add-normal-slot '())
  (add-normal-slot '())
  (add-normal-slot '())
  (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)

; ALAN  (deal-cards stock '(6 7 8 9 10 11 12 7 8 9 10 11 12 8 9 10 11 12 9 10 11 12 10 11 12 11 12 12))
  
;  (map flip-top-card tableau)   ; ALAN haven't dealt any cards, dont want to flip

  (give-status-message)

  (list 7 3) 
)


(define (get-redeals-string)
  (string-append (_"Redeals left:") " "
;; ALAN		 (number->string (- 2 FLIP-COUNTER))))
		 (number->string (- 0 FLIP-COUNTER))))

(set-lambda new-game button-pressed button-released button-clicked button-double-clicked game-over game-won get-hint get-options apply-options timeout)
