[aisleriot] sir_tommy: Use hint-move instead of get-hint.

[Vincent Povirk <vpovirk src gnome org>]

commit 2cf4c6b52cfa619488738f1325762499e524a134
Author: Vincent Povirk <madewokherd gmail com>
Date:   Sat Nov 19 17:07:20 2011 -0600

    sir_tommy: Use hint-move instead of get-hint.
    
    For bug 551859.

 games/sir_tommy.scm |   26 +++++++++++---------------
 1 files changed, 11 insertions(+), 15 deletions(-)
---
diff --git a/games/sir_tommy.scm b/games/sir_tommy.scm
index e51b8aa..d8a60d5 100644
--- a/games/sir_tommy.scm
+++ b/games/sir_tommy.scm
@@ -20,22 +20,22 @@
   (make-standard-deck)
   (shuffle-deck)
 
-  (add-normal-slot DECK)
-  (add-normal-slot '())
+  (add-normal-slot DECK 'stock)
+  (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-blank-slot)
   (add-blank-slot)
   (add-blank-slot)
-  (add-extended-slot '() down)
-  (add-extended-slot '() down)
-  (add-extended-slot '() down)
-  (add-extended-slot '() down)
+  (add-extended-slot '() down 'reserve)
+  (add-extended-slot '() down 'reserve)
+  (add-extended-slot '() down 'reserve)
+  (add-extended-slot '() down 'reserve)
 
   (give-status-message)
   (list 7 4))
@@ -119,11 +119,7 @@
 	 (check-to-foundation 6))
 	((and (not (empty-slot? slot))
 	      (check-top-card slot 2))
-	 (or (and (= (get-value (get-top-card slot)) ace)
-		  (list 2 (get-name (get-top-card slot)) (_"empty foundation")))
-	     (list 1 
-		   (get-name (get-top-card slot))
-		   (get-name (get-top-card (car (check-top-card slot 2)))))))
+	 (hint-move slot 1 (car (check-top-card slot 2))))
 	(#t (check-to-foundation (+ 1 slot)))))
 
 (define (move-waste)