(progn
(if (not dun-inbus)
(progn
- (dun-mprincl"You fall into a hole in the ground.")
+ (dun-mprincl "You fall into a hole in the ground.")
(setq dun-current-room vermont-station)
(dun-describe-room vermont-station))
(progn
(dun-mprincl
"I don't know how to combine those objects. Perhaps you should
just try dropping it.")
- (dun-mprincl"You can't put that there.")))))))))))
+ (dun-mprincl "You can't put that there.")))))))))))
(defun dun-type (_args)
(if (not (= dun-current-room computer-room))
(if (not (= (dun-score nil) 90))
(dun-mprincl
"You have not achieved enough points to connect to endgame.")
- (dun-mprincl"\nWelcome to the endgame. You are a truly noble adventurer.")
+ (dun-mprincl "\nWelcome to the endgame. You are a truly noble adventurer.")
(setq dun-current-room treasure-room)
(setq dun-endgame t)
(dun-replace dun-room-objects endgame-treasure-room (list obj-bill))