mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-05 22:20:24 -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:
parent
fa8e32f757
commit
0fe5113fa3
1 changed files with 22 additions and 22 deletions
|
|
@ -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
|
||||
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
|
||||
says: This VAX is named ‘pokey’. To type on the console, use the
|
||||
‘type’ command. The exit is to the east."
|
||||
says: This VAX is named 'pokey'. To type on the console, use the
|
||||
'type' command. The exit is to the east."
|
||||
"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
|
||||
is a sign on the wall that reads: ‘receiving room’."
|
||||
is a sign on the wall that reads: '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
|
||||
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
|
||||
)
|
||||
(
|
||||
|
|
@ -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
|
||||
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
|
||||
)
|
||||
(
|
||||
"You are in a classroom where school children were taught about natural
|
||||
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
|
||||
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
|
||||
door to the west."
|
||||
"Classroom" ;88
|
||||
)
|
||||
|
|
@ -556,7 +556,7 @@ a room to the northeast."
|
|||
(
|
||||
"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
|
||||
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
|
||||
type."
|
||||
"Endgame computer room" ;95
|
||||
|
|
@ -567,7 +567,7 @@ type."
|
|||
)
|
||||
(
|
||||
"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
|
||||
)
|
||||
(
|
||||
|
|
@ -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
|
||||
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."
|
||||
"PC area" ;104
|
||||
)
|
||||
|
|
@ -1020,8 +1020,8 @@ the inventory.")
|
|||
2 Megabytes of RAM onboard."
|
||||
"It looks like some kind of meat. Smells pretty bad."
|
||||
nil
|
||||
"The paper says: Don't forget to type ‘help’ for help. Also, remember
|
||||
this word: ‘worms’"
|
||||
"The paper says: Don't forget to type 'help' for help. Also, remember
|
||||
this word: 'worms'"
|
||||
"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."
|
||||
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."
|
||||
nil nil
|
||||
"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
|
||||
"It says ‘express mail’ on it."
|
||||
"It is a 35 passenger bus with the company name ‘mobytours’ on it."
|
||||
"It says 'express mail' 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 HIGH cliff."
|
||||
"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))))
|
||||
|
||||
(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")
|
||||
("Excluding the endgame, how many places are there where you can put
|
||||
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?"
|
||||
"20" "twenty")
|
||||
("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.")
|
||||
(if (= (dun-endgame-score) 110)
|
||||
(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)
|
||||
(dun-mprincl
|
||||
|
|
@ -1953,7 +1953,7 @@ to swim.")
|
|||
Here is some useful information (read carefully because there are one
|
||||
or more clues in here):
|
||||
- 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.
|
||||
|
||||
|
|
@ -1967,8 +1967,8 @@ or more clues in here):
|
|||
If this happens, your score will decrease, and in many cases you can never
|
||||
get credit for it again.
|
||||
|
||||
- You can save your game with the ‘save’ command, and restore it
|
||||
with the ‘restore’ command.
|
||||
- You can save your game with the 'save' command, and restore it
|
||||
with the 'restore' command.
|
||||
|
||||
- There are no limits on lengths of object names.
|
||||
|
||||
|
|
@ -2102,7 +2102,7 @@ for a moment, then straighten yourself up.\n")
|
|||
(if (null questions)
|
||||
(progn
|
||||
(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")))
|
||||
(let* ((which (random (length questions)))
|
||||
(question (nth which questions)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue