aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2025-09-26 14:24:00 +0300
committerEli Zaretskii2025-09-26 14:24:00 +0300
commit0fe5113fa39c5cfda4f0466d84f63054fec4df83 (patch)
tree8ccb7c403678eab9b7fd136c6aa06af052766578
parentfa8e32f757198a3b883c8015c763572a2be2a707 (diff)
downloademacs-0fe5113fa39c5cfda4f0466d84f63054fec4df83.tar.gz
emacs-0fe5113fa39c5cfda4f0466d84f63054fec4df83.zip
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)
-rw-r--r--lisp/play/dunnet.el44
1 files changed, 22 insertions, 22 deletions
diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index ab9cb568c5d..d2c5811366a 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -149,8 +149,8 @@ kept. The exit is to the west."
149"You are in a computer room. It seems like most of the equipment has 149"You are in a computer room. It seems like most of the equipment has
150been removed. There is a VAX 11/780 in front of you, however, with 150been removed. There is a VAX 11/780 in front of you, however, with
151one of the cabinets wide open. A sign on the front of the machine 151one of the cabinets wide open. A sign on the front of the machine
152says: This VAX is named pokey. To type on the console, use the 152says: This VAX is named 'pokey'. To type on the console, use the
153type command. The exit is to the east." 153'type' command. The exit is to the east."
154 "Computer room" 154 "Computer room"
155 ) 155 )
156 ( 156 (
@@ -160,7 +160,7 @@ to the west, and a door leads to the south."
160 ) 160 )
161 ( 161 (
162"You are in a round, stone room with a door to the east. There 162"You are in a round, stone room with a door to the east. There
163is a sign on the wall that reads: receiving room." 163is a sign on the wall that reads: 'receiving room'."
164 "Receiving room" 164 "Receiving room"
165 ) 165 )
166 ( 166 (
@@ -237,7 +237,7 @@ northeast through the brush you can see the bear hangout."
237 ( 237 (
238"The entrance to a cave is to the south. To the north, a road leads 238"The entrance to a cave is to the south. To the north, a road leads
239towards a deep lake. On the ground nearby there is a chute, with a sign 239towards a deep lake. On the ground nearby there is a chute, with a sign
240that says put treasures here for points." 240that says 'put treasures here for points'."
241 "Cave Entrance" ;28 241 "Cave Entrance" ;28
242 ) 242 )
243 ( 243 (
@@ -516,13 +516,13 @@ starvation. Doors lead out to the south and east."
516 ) 516 )
517 ( 517 (
518"You are in some sort of maintenance room for the museum. There is a 518"You are in some sort of maintenance room for the museum. There is a
519switch on the wall labeled BL. There are doors to the west and north." 519switch on the wall labeled 'BL'. There are doors to the west and north."
520 "Maintenance room" ;87 520 "Maintenance room" ;87
521 ) 521 )
522 ( 522 (
523"You are in a classroom where school children were taught about natural 523"You are in a classroom where school children were taught about natural
524history. On the blackboard is written, No children allowed downstairs. 524history. On the blackboard is written, 'No children allowed downstairs.'
525There is a door to the east with an exit sign on it. There is another 525There is a door to the east with an 'exit' sign on it. There is another
526door to the west." 526door to the west."
527 "Classroom" ;88 527 "Classroom" ;88
528 ) 528 )
@@ -556,7 +556,7 @@ a room to the northeast."
556 ( 556 (
557"You are in another computer room. There is a computer in here larger 557"You are in another computer room. There is a computer in here larger
558than you have ever seen. It has no manufacturers name on it, but it 558than you have ever seen. It has no manufacturers name on it, but it
559does have a sign that says: This machine's name is endgame. The 559does have a sign that says: This machine's name is 'endgame'. The
560exit is to the southwest. There is no console here on which you could 560exit is to the southwest. There is no console here on which you could
561type." 561type."
562 "Endgame computer room" ;95 562 "Endgame computer room" ;95
@@ -567,7 +567,7 @@ type."
567 ) 567 )
568 ( 568 (
569"You have reached a question room. You must answer a question correctly in 569"You have reached a question room. You must answer a question correctly in
570order to get by. Use the answer command to answer the question." 570order to get by. Use the 'answer' command to answer the question."
571 "Question room 1" ;97 571 "Question room 1" ;97
572 ) 572 )
573 ( 573 (
@@ -598,7 +598,7 @@ a hallway leads to the south."
598 ( 598 (
599"You have reached a dead end. There is a PC on the floor here. Above 599"You have reached a dead end. There is a PC on the floor here. Above
600it is a sign that reads: 600it is a sign that reads:
601 Type the reset command to type on the PC. 601 Type the 'reset' command to type on the PC.
602A hole leads north." 602A hole leads north."
603 "PC area" ;104 603 "PC area" ;104
604 ) 604 )
@@ -1020,8 +1020,8 @@ the inventory.")
10202 Megabytes of RAM onboard." 10202 Megabytes of RAM onboard."
1021"It looks like some kind of meat. Smells pretty bad." 1021"It looks like some kind of meat. Smells pretty bad."
1022nil 1022nil
1023"The paper says: Don't forget to type help for help. Also, remember 1023"The paper says: Don't forget to type 'help' for help. Also, remember
1024this word: worms" 1024this word: 'worms'"
1025"The statuette is of the likeness of Richard Stallman, the author of the 1025"The statuette is of the likeness of Richard Stallman, the author of the
1026famous EMACS editor. You notice that he is not wearing any shoes." 1026famous EMACS editor. You notice that he is not wearing any shoes."
1027nil 1027nil
@@ -1064,10 +1064,10 @@ pipes into nowhere. The hole is too small for a person to fit in. The
1064flush handle is so clean that you can see your reflection in it." 1064flush handle is so clean that you can see your reflection in it."
1065nil nil 1065nil nil
1066"The box has a slit in the top of it, and on it, in sloppy handwriting, is 1066"The box has a slit in the top of it, and on it, in sloppy handwriting, is
1067written: For key upgrade, put key in here." 1067written: 'For key upgrade, put key in here.'"
1068nil 1068nil
1069"It says express mail on it." 1069"It says 'express mail' on it."
1070"It is a 35 passenger bus with the company name mobytours on it." 1070"It is a 35 passenger bus with the company name 'mobytours' on it."
1071"It is a large metal gate that is too big to climb over." 1071"It is a large metal gate that is too big to climb over."
1072"It is a HIGH cliff." 1072"It is a HIGH cliff."
1073"Unfortunately you do not know enough about dinosaurs to tell very much about 1073"Unfortunately you do not know enough about dinosaurs to tell very much about
@@ -1099,11 +1099,11 @@ nil nil nil nil
1099 (setq a (+ a 1)))) 1099 (setq a (+ a 1))))
1100 1100
1101(defconst dun-endgame-questions 1101(defconst dun-endgame-questions
1102 '(("What is your password on the machine called pokey?" "robert") 1102 '(("What is your password on the machine called 'pokey'?" "robert")
1103 ("What password did you use during anonymous ftp to gamma?" "foo") 1103 ("What password did you use during anonymous ftp to gamma?" "foo")
1104 ("Excluding the endgame, how many places are there where you can put 1104 ("Excluding the endgame, how many places are there where you can put
1105treasures for points?" "4" "four") 1105treasures for points?" "4" "four")
1106 ("What is your login name on the endgame machine?" "toukmond") 1106 ("What is your login name on the 'endgame' machine?" "toukmond")
1107 ("What is the nearest whole dollar to the price of the shovel?" 1107 ("What is the nearest whole dollar to the price of the shovel?"
1108 "20" "twenty") 1108 "20" "twenty")
1109 ("What is the name of the bus company serving the town?" "mobytours") 1109 ("What is the name of the bus company serving the town?" "mobytours")
@@ -1945,7 +1945,7 @@ to swim.")
1945 (dun-mprincl " endgame points out of a possible 110.") 1945 (dun-mprincl " endgame points out of a possible 110.")
1946 (if (= (dun-endgame-score) 110) 1946 (if (= (dun-endgame-score) 110)
1947 (dun-mprincl 1947 (dun-mprincl
1948"\n\nCongratulations. You have won. The wizard password is moby")))) 1948"\n\nCongratulations. You have won. The wizard password is 'moby'"))))
1949 1949
1950(defun dun-help (_args) 1950(defun dun-help (_args)
1951 (dun-mprincl 1951 (dun-mprincl
@@ -1953,7 +1953,7 @@ to swim.")
1953Here is some useful information (read carefully because there are one 1953Here is some useful information (read carefully because there are one
1954or more clues in here): 1954or more clues in here):
1955- If you have a key that can open a door, you do not need to explicitly 1955- If you have a key that can open a door, you do not need to explicitly
1956 open it. You may just use in or walk in the direction of the door. 1956 open it. You may just use 'in' or walk in the direction of the door.
1957 1957
1958- If you have a lamp, it is always lit. 1958- If you have a lamp, it is always lit.
1959 1959
@@ -1967,8 +1967,8 @@ or more clues in here):
1967 If this happens, your score will decrease, and in many cases you can never 1967 If this happens, your score will decrease, and in many cases you can never
1968 get credit for it again. 1968 get credit for it again.
1969 1969
1970- You can save your game with the save command, and restore it 1970- You can save your game with the 'save' command, and restore it
1971 with the restore command. 1971 with the 'restore' command.
1972 1972
1973- There are no limits on lengths of object names. 1973- There are no limits on lengths of object names.
1974 1974
@@ -2102,7 +2102,7 @@ for a moment, then straighten yourself up.\n")
2102 (if (null questions) 2102 (if (null questions)
2103 (progn 2103 (progn
2104 (dun-mprincl "Your question is:") 2104 (dun-mprincl "Your question is:")
2105 (dun-mprincl "No more questions, just do answer foo.") 2105 (dun-mprincl "No more questions, just do 'answer foo'.")
2106 (setq dun-correct-answer '("foo"))) 2106 (setq dun-correct-answer '("foo")))
2107 (let* ((which (random (length questions))) 2107 (let* ((which (random (length questions)))
2108 (question (nth which questions))) 2108 (question (nth which questions)))