Function: dun-save-game

dun-save-game is a byte-compiled function defined in dunnet.el.gz.

Signature

(dun-save-game FILENAME)

Source Code

;; Defined in /usr/src/emacs/lisp/play/dunnet.el.gz
;;;;
;;;; This section defines the save and restore game functions for dunnet.
;;;;

(defun dun-save-game (filename)
  (if (not (setq filename (car filename)))
      (dun-mprincl "You must supply a filename for the save.")
    (when (file-exists-p filename) (delete-file filename))
    (setq dun-numsaves (1+ dun-numsaves))
    (with-temp-buffer
      (dun-save-val "dun-current-room")
      (dun-save-val "dun-computer")
      (dun-save-val "dun-combination")
      (dun-save-val "dun-visited")
      (dun-save-val "dun-diggables")
      (dun-save-val "dun-key-level")
      (dun-save-val "dun-floppy")
      (dun-save-val "dun-numsaves")
      (dun-save-val "dun-numcmds")
      (dun-save-val "dun-logged-in")
      (dun-save-val "dungeon-mode")
      (dun-save-val "dun-jar")
      (dun-save-val "dun-lastdir")
      (dun-save-val "dun-black")
      (dun-save-val "dun-nomail")
      (dun-save-val "dun-unix-verbs")
      (dun-save-val "dun-hole")
      (dun-save-val "dun-uncompressed")
      (dun-save-val "dun-ethernet")
      (dun-save-val "dun-sauna-level")
      (dun-save-val "dun-room-objects")
      (dun-save-val "dun-room-silents")
      (dun-save-val "dun-inventory")
      (dun-save-val "dun-endgame-questions")
      (dun-save-val "dun-endgame")
      (dun-save-val "dun-cdroom")
      (dun-save-val "dun-cdpath")
      (dun-save-val "dun-correct-answer")
      (dun-save-val "dun-inbus")
      (dun-save-val "dun-endgame-question")

      (if (dun-compile-save-out filename)
          (dun-mprincl "Error saving to file.")
        (dun-do-logfile 'save nil)))
    (princ "")
    (dun-mprincl "Done.")))