mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(dun-endgame-question, tcom, tloc):

Browse Source 
Use (random N) instead of combination of %, abs and random.
This commit is contained in:
Paul Eggert 1993-08-01 20:50:07 +00:00
parent f7e55318b4
commit 93cc044bd6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/play/dunnet.el
View File

@ -1038,7 +1038,7 @@ for a moment, then straighten yourself up.
(let (which i newques)
(setq i 0)
(setq newques nil)
(setq which (% (abs (random)) (length dun-endgame-questions)))
(setq which (random (length dun-endgame-questions)))
(dun-mprincl "Your question is:")
(dun-mprincl (setq dun-endgame-question (car
(nth which
@ -2990,11 +2990,11 @@ drwxr-xr-x 3 root staff 2048 Jan 1 1970 ..")
(random t)
(setq tloc (+ 60 (% (abs (random)) 18)))
(setq tloc (+ 60 (random 18)))
(dun-replace dun-room-objects tloc
(append (nth tloc dun-room-objects) (list 18)))
(setq tcomb (+ 100 (% (abs (random)) 899)))
(setq tcomb (+ 100 (random 899)))
(setq dun-combination (prin1-to-string tcomb))
;;;;