diff options
| author | Eli Zaretskii | 2025-09-26 14:24:00 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-09-26 14:24:00 +0300 |
| commit | 0fe5113fa39c5cfda4f0466d84f63054fec4df83 (patch) | |
| tree | 8ccb7c403678eab9b7fd136c6aa06af052766578 | |
| parent | fa8e32f757198a3b883c8015c763572a2be2a707 (diff) | |
| download | emacs-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.el | 44 |
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 |
| 150 | been removed. There is a VAX 11/780 in front of you, however, with | 150 | been removed. There is a VAX 11/780 in front of you, however, with |
| 151 | one of the cabinets wide open. A sign on the front of the machine | 151 | one of the cabinets wide open. A sign on the front of the machine |
| 152 | says: This VAX is named ‘pokey’. To type on the console, use the | 152 | says: This VAX is named 'pokey'. To type on the console, use the |
| 153 | ‘type’ 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 |
| 163 | is a sign on the wall that reads: ‘receiving room’." | 163 | is 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 |
| 239 | towards a deep lake. On the ground nearby there is a chute, with a sign | 239 | towards a deep lake. On the ground nearby there is a chute, with a sign |
| 240 | that says ‘put treasures here for points’." | 240 | that 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 |
| 519 | switch on the wall labeled ‘BL’. There are doors to the west and north." | 519 | switch 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 |
| 524 | history. On the blackboard is written, ‘No children allowed downstairs.’ | 524 | history. On the blackboard is written, 'No children allowed downstairs.' |
| 525 | There is a door to the east with an ‘exit’ sign on it. There is another | 525 | There is a door to the east with an 'exit' sign on it. There is another |
| 526 | door to the west." | 526 | door 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 |
| 558 | than you have ever seen. It has no manufacturers name on it, but it | 558 | than you have ever seen. It has no manufacturers name on it, but it |
| 559 | does have a sign that says: This machine's name is ‘endgame’. The | 559 | does have a sign that says: This machine's name is 'endgame'. The |
| 560 | exit is to the southwest. There is no console here on which you could | 560 | exit is to the southwest. There is no console here on which you could |
| 561 | type." | 561 | type." |
| 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 |
| 570 | order to get by. Use the ‘answer’ command to answer the question." | 570 | order 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 |
| 600 | it is a sign that reads: | 600 | it 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. |
| 602 | A hole leads north." | 602 | A hole leads north." |
| 603 | "PC area" ;104 | 603 | "PC area" ;104 |
| 604 | ) | 604 | ) |
| @@ -1020,8 +1020,8 @@ the inventory.") | |||
| 1020 | 2 Megabytes of RAM onboard." | 1020 | 2 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." |
| 1022 | nil | 1022 | nil |
| 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 |
| 1024 | this word: ‘worms’" | 1024 | this 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 |
| 1026 | famous EMACS editor. You notice that he is not wearing any shoes." | 1026 | famous EMACS editor. You notice that he is not wearing any shoes." |
| 1027 | nil | 1027 | nil |
| @@ -1064,10 +1064,10 @@ pipes into nowhere. The hole is too small for a person to fit in. The | |||
| 1064 | flush handle is so clean that you can see your reflection in it." | 1064 | flush handle is so clean that you can see your reflection in it." |
| 1065 | nil nil | 1065 | nil 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 |
| 1067 | written: ‘For key upgrade, put key in here.’" | 1067 | written: 'For key upgrade, put key in here.'" |
| 1068 | nil | 1068 | nil |
| 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 |
| 1105 | treasures for points?" "4" "four") | 1105 | treasures 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.") | |||
| 1953 | Here is some useful information (read carefully because there are one | 1953 | Here is some useful information (read carefully because there are one |
| 1954 | or more clues in here): | 1954 | or 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))) |