# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1018729596 0
# Node ID 9bdd94e7a20531d71d97216b42d94610187f8c2c
# Parent  ada5f764f32af3d11e07233b57c0ca19a143450d
(gamegrid-add-score-with-update-game-score): Renamed from `gamegrid-add-score'.
(gamegrid-add-score-insecure): Restored from the old `update-game-score'.
(gamegrid-add-score): Just dispatch on `system-type' to one of the
previous two functions.

diff -r ada5f764f32a -r 9bdd94e7a205 lisp/play/gamegrid.el
--- a/lisp/play/gamegrid.el	Sat Apr 13 17:49:34 2002 +0000
+++ b/lisp/play/gamegrid.el	Sat Apr 13 20:26:36 2002 +0000
@@ -406,6 +406,13 @@
 
 (defun gamegrid-add-score (file score)
   "Add the current score to the high score file."
+  (case system-type
+    ((ms-dos windows-nt)
+     (gamegrid-add-score-insecure file score))
+    (t
+     (gamegrid-add-score-with-update-game-score file score))))
+
+(defun gamegrid-add-score-with-update-game-score (file score)
   (let ((result nil)
 	(errbuf (generate-new-buffer " *update-game-score loss*"))
 	(target (if game-score-directory
@@ -445,6 +452,28 @@
     (save-excursion
       (find-file-read-only-other-window target))))
 	
+(defun gamegrid-add-score-insecure (file score)
+  (save-excursion
+    (setq file (expand-file-name file temporary-file-directory))
+    (find-file-other-window file)
+    (setq buffer-read-only nil)
+    (goto-char (point-max))
+    (insert (format "%05d\t%s\t%s <%s>\n"
+		    score
+		    (current-time-string)
+		    (user-full-name)
+		    (cond ((fboundp 'user-mail-address)
+			   (user-mail-address))
+			  ((boundp 'user-mail-address)
+			   user-mail-address)
+			  (t ""))))
+    (sort-numeric-fields 1 (point-min) (point-max))
+    (reverse-region (point-min) (point-max))
+    (goto-line (1+ gamegrid-score-file-length))
+    (delete-region (point) (point-max))
+    (setq buffer-read-only t)
+    (save-buffer)))
+
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;