1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00

Fix dunnet when played on terminals which don't support UTF-8

* lisp/play/dunnet.el (dun-rooms, dun-endgame-question, dun-help)
(dun-physobj-desc, dun-endgame-questions): Don't use non-ASCII
characters.  (Bug#79520)
This commit is contained in:
Eli Zaretskii 2025-09-26 14:24:00 +03:00
parent fa8e32f757
commit 0fe5113fa3

View file

@ -149,8 +149,8 @@ kept. The exit is to the west."
"You are in a computer room. It seems like most of the equipment has "You are in a computer room. It seems like most of the equipment has
been removed. There is a VAX 11/780 in front of you, however, with been removed. There is a VAX 11/780 in front of you, however, with
one of the cabinets wide open. A sign on the front of the machine one of the cabinets wide open. A sign on the front of the machine
says: This VAX is named pokey. To type on the console, use the says: This VAX is named 'pokey'. To type on the console, use the
type command. The exit is to the east." 'type' command. The exit is to the east."
"Computer room" "Computer room"
) )
( (
@ -160,7 +160,7 @@ to the west, and a door leads to the south."
) )
( (
"You are in a round, stone room with a door to the east. There "You are in a round, stone room with a door to the east. There
is a sign on the wall that reads: receiving room." is a sign on the wall that reads: 'receiving room'."
"Receiving room" "Receiving room"
) )
( (
@ -237,7 +237,7 @@ northeast through the brush you can see the bear hangout."
( (
"The entrance to a cave is to the south. To the north, a road leads "The entrance to a cave is to the south. To the north, a road leads
towards a deep lake. On the ground nearby there is a chute, with a sign towards a deep lake. On the ground nearby there is a chute, with a sign
that says put treasures here for points." that says 'put treasures here for points'."
"Cave Entrance" ;28 "Cave Entrance" ;28
) )
( (
@ -516,13 +516,13 @@ starvation. Doors lead out to the south and east."
) )
( (
"You are in some sort of maintenance room for the museum. There is a "You are in some sort of maintenance room for the museum. There is a
switch on the wall labeled BL. There are doors to the west and north." switch on the wall labeled 'BL'. There are doors to the west and north."
"Maintenance room" ;87 "Maintenance room" ;87
) )
( (
"You are in a classroom where school children were taught about natural "You are in a classroom where school children were taught about natural
history. On the blackboard is written, No children allowed downstairs. history. On the blackboard is written, 'No children allowed downstairs.'
There is a door to the east with an exit sign on it. There is another There is a door to the east with an 'exit' sign on it. There is another
door to the west." door to the west."
"Classroom" ;88 "Classroom" ;88
) )
@ -556,7 +556,7 @@ a room to the northeast."
( (
"You are in another computer room. There is a computer in here larger "You are in another computer room. There is a computer in here larger
than you have ever seen. It has no manufacturers name on it, but it than you have ever seen. It has no manufacturers name on it, but it
does have a sign that says: This machine's name is endgame. The does have a sign that says: This machine's name is 'endgame'. The
exit is to the southwest. There is no console here on which you could exit is to the southwest. There is no console here on which you could
type." type."
"Endgame computer room" ;95 "Endgame computer room" ;95
@ -567,7 +567,7 @@ type."
) )
( (
"You have reached a question room. You must answer a question correctly in "You have reached a question room. You must answer a question correctly in
order to get by. Use the answer command to answer the question." order to get by. Use the 'answer' command to answer the question."
"Question room 1" ;97 "Question room 1" ;97
) )
( (
@ -598,7 +598,7 @@ a hallway leads to the south."
( (
"You have reached a dead end. There is a PC on the floor here. Above "You have reached a dead end. There is a PC on the floor here. Above
it is a sign that reads: it is a sign that reads:
Type the reset command to type on the PC. Type the 'reset' command to type on the PC.
A hole leads north." A hole leads north."
"PC area" ;104 "PC area" ;104
) )
@ -1020,8 +1020,8 @@ the inventory.")
2 Megabytes of RAM onboard." 2 Megabytes of RAM onboard."
"It looks like some kind of meat. Smells pretty bad." "It looks like some kind of meat. Smells pretty bad."
nil nil
"The paper says: Don't forget to type help for help. Also, remember "The paper says: Don't forget to type 'help' for help. Also, remember
this word: worms" this word: 'worms'"
"The statuette is of the likeness of Richard Stallman, the author of the "The statuette is of the likeness of Richard Stallman, the author of the
famous EMACS editor. You notice that he is not wearing any shoes." famous EMACS editor. You notice that he is not wearing any shoes."
nil nil
@ -1064,10 +1064,10 @@ pipes into nowhere. The hole is too small for a person to fit in. The
flush handle is so clean that you can see your reflection in it." flush handle is so clean that you can see your reflection in it."
nil nil nil nil
"The box has a slit in the top of it, and on it, in sloppy handwriting, is "The box has a slit in the top of it, and on it, in sloppy handwriting, is
written: For key upgrade, put key in here." written: 'For key upgrade, put key in here.'"
nil nil
"It says express mail on it." "It says 'express mail' on it."
"It is a 35 passenger bus with the company name mobytours on it." "It is a 35 passenger bus with the company name 'mobytours' on it."
"It is a large metal gate that is too big to climb over." "It is a large metal gate that is too big to climb over."
"It is a HIGH cliff." "It is a HIGH cliff."
"Unfortunately you do not know enough about dinosaurs to tell very much about "Unfortunately you do not know enough about dinosaurs to tell very much about
@ -1099,11 +1099,11 @@ nil nil nil nil
(setq a (+ a 1)))) (setq a (+ a 1))))
(defconst dun-endgame-questions (defconst dun-endgame-questions
'(("What is your password on the machine called pokey?" "robert") '(("What is your password on the machine called 'pokey'?" "robert")
("What password did you use during anonymous ftp to gamma?" "foo") ("What password did you use during anonymous ftp to gamma?" "foo")
("Excluding the endgame, how many places are there where you can put ("Excluding the endgame, how many places are there where you can put
treasures for points?" "4" "four") treasures for points?" "4" "four")
("What is your login name on the endgame machine?" "toukmond") ("What is your login name on the 'endgame' machine?" "toukmond")
("What is the nearest whole dollar to the price of the shovel?" ("What is the nearest whole dollar to the price of the shovel?"
"20" "twenty") "20" "twenty")
("What is the name of the bus company serving the town?" "mobytours") ("What is the name of the bus company serving the town?" "mobytours")
@ -1945,7 +1945,7 @@ to swim.")
(dun-mprincl " endgame points out of a possible 110.") (dun-mprincl " endgame points out of a possible 110.")
(if (= (dun-endgame-score) 110) (if (= (dun-endgame-score) 110)
(dun-mprincl (dun-mprincl
"\n\nCongratulations. You have won. The wizard password is moby")))) "\n\nCongratulations. You have won. The wizard password is 'moby'"))))
(defun dun-help (_args) (defun dun-help (_args)
(dun-mprincl (dun-mprincl
@ -1953,7 +1953,7 @@ to swim.")
Here is some useful information (read carefully because there are one Here is some useful information (read carefully because there are one
or more clues in here): or more clues in here):
- If you have a key that can open a door, you do not need to explicitly - If you have a key that can open a door, you do not need to explicitly
open it. You may just use in or walk in the direction of the door. open it. You may just use 'in' or walk in the direction of the door.
- If you have a lamp, it is always lit. - If you have a lamp, it is always lit.
@ -1967,8 +1967,8 @@ or more clues in here):
If this happens, your score will decrease, and in many cases you can never If this happens, your score will decrease, and in many cases you can never
get credit for it again. get credit for it again.
- You can save your game with the save command, and restore it - You can save your game with the 'save' command, and restore it
with the restore command. with the 'restore' command.
- There are no limits on lengths of object names. - There are no limits on lengths of object names.
@ -2102,7 +2102,7 @@ for a moment, then straighten yourself up.\n")
(if (null questions) (if (null questions)
(progn (progn
(dun-mprincl "Your question is:") (dun-mprincl "Your question is:")
(dun-mprincl "No more questions, just do answer foo.") (dun-mprincl "No more questions, just do 'answer foo'.")
(setq dun-correct-answer '("foo"))) (setq dun-correct-answer '("foo")))
(let* ((which (random (length questions))) (let* ((which (random (length questions)))
(question (nth which questions))) (question (nth which questions)))