This reminds me that back in the 80's, David Betz wrote an object-oriented lisp dialect called advsys for authoring text adventures.
I recently rediscovered in on github at https://github.com/dbetz/advsys
I recently rediscovered in on github at https://github.com/dbetz/advsys
Code: http://t3x.org/s9fes/advgen.scm.html
Sample adventure: http://t3x.org/s9game/index.html
Code of the sample adventure: http://t3x.org/s9fes/adventure.adv.html
(location livingroom
(property
description "This appears to be the livingroom. There is a hallway to
the north and a closet to the west."
short-description "You are in the livingroom."
north hallway
west closet
south front-door-1))
https://github.com/dbetz/advsys/blob/master/osample.advcompared with something like MDL -
<DEFINE EAST-HOUSE ()
<COND (<VERB? "LOOK">
<TELL
"You are behind the white house. In one corner of the house there
is a small window which is " ,LONG-TELL1 <COND (<TRNN
<SFIND-OBJ "WINDO"> ,OPENBIT>
"open.")
("slightly ajar.")>>)>>
https://github.com/historicalsource/zork-mdl/blob/master/act...