Commit 7455c2ad authored by Mark Oteiza's avatar Mark Oteiza
Browse files

Set up combination and random item location

* lisp/play/dunnet.el (dun-combination): Make defconst.
(tloc, tcomb): Remove.  Replace with a top-level form.
parent 44931daf
......@@ -1123,6 +1123,8 @@ treasures for points?" "4" "four")
("What network protocol is used between pokey and gamma?"
"tcp/ip" "ip" "tcp")))
(defconst dun-combination (prin1-to-string (+ 100 (random 899))))
;;;; Mode definitions for interactive mode
(define-derived-mode dun-mode text-mode "Dungeon"
......@@ -2964,12 +2966,9 @@ drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..")
(dun-uexit nil)))
(setq tloc (+ 60 (random 18)))
(dun-replace dun-room-objects tloc
(append (nth tloc dun-room-objects) (list 18)))
(setq tcomb (+ 100 (random 899)))
(setq dun-combination (prin1-to-string tcomb))
(let ((tloc (+ 60 (random 18))))
(dun-replace dun-room-objects tloc
(append (nth tloc dun-room-objects) (list 18))))
;;;;
;;;; This section defines the DOS emulation functions for dunnet
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment