Friday, 19 April 2019
quote [ With access to the source code, a group of dedicated fans is now tinkering with the Zork Implementation Language (ZIL). Infocom was eventually bought out by Activision in 1986, but was quickly shut down a few years later. There are more modern collections of Infocom games available, keeping the spirit of Zork alive, but the source code, which could teach us how Infocom managed to create such a sophisticated game at the time, had been deemed lost. That is, until this week, when internet archivist Jason Scott uploaded a collection of all Infocom text adventures and interactive fiction games’ source codes to GitHub, including the Zork games and Infocom’s video game adaptation of The Hitchhiker's Guide to the Galaxy. ]
Awesome - I wonder if there's a mobile version
|
(
)
(T
)
(T
)>
)>)>
)
(T
)>)>)>>
<code>
(<VERB? FUCK KISS TOUCH>
<COND (<NOT ,GONE-APE>
<TELL "What a repulsive, bestial idea!" CR>)
(T
<COND (<EQUAL? ,NAUGHTY-LEVEL 0>
<TELL
"Normally, we wouldn't allow this in TAME mode, but it's okay in this
case since you're only a gorilla. This sort of thing appears all
the time in National Geographic.">)
(T
<COND (<NOT ,GORILLA-EXAMINED>
<SETG GORILLA-EXAMINED T>
<NOT-BAD-LOOKING>
<TELL " ">)>
<TELL
"You begin nuzzling, and things quickly get hot and heavy.">
<COND (<EQUAL? ,NAUGHTY-LEVEL 2>
<TELL
" The " 'PRSO " screams, \"Eee oo oo ah!\" which translates roughly
as \"Oh, you animal!\"">)>)>
<COND (<IN? ,MAD-SCIENTIST ,HERE>
<TELL " ">
<MINE-THEORY T>)
(T
<CRLF>)>)>)>>
</code>
And if you can't beat off to that, you're on the wrong website.
(
)
(T
"Normally, we wouldn't allow this in TAME mode, but it's okay in this
case since you're only a gorilla. This sort of thing appears all
the time in National Geographic.">)
(T
)>
"You begin nuzzling, and things quickly get hot and heavy.">
" The " 'PRSO " screams, \"Eee oo oo ah!\" which translates roughly
as \"Oh, you animal!\"">)>)>
)
(T
)>)>)>>
(<VERB? FUCK KISS TOUCH>
<COND (<NOT ,GONE-APE>
<TELL "What a repulsive, bestial idea!" CR>)
(T
<COND (<EQUAL? ,NAUGHTY-LEVEL 0>
<TELL
"Normally, we wouldn't allow this in TAME mode, but it's okay in this
case since you're only a gorilla. This sort of thing appears all
the time in National Geographic.">)
(T
<COND (<NOT ,GORILLA-EXAMINED>
<SETG GORILLA-EXAMINED T>
<NOT-BAD-LOOKING>
<TELL " ">)>
<TELL
"You begin nuzzling, and things quickly get hot and heavy.">
<COND (<EQUAL? ,NAUGHTY-LEVEL 2>
<TELL
" The " 'PRSO " screams, \"Eee oo oo ah!\" which translates roughly
as \"Oh, you animal!\"">)>)>
<COND (<IN? ,MAD-SCIENTIST ,HERE>
<TELL " ">
<MINE-THEORY T>)
(T
<CRLF>)>)>)>>
(<VERB? FUCK KISS TOUCH>
<COND (<NOT ,GONE-APE>
<TELL "What a repulsive, bestial idea!" CR>)
(T
<COND (<EQUAL? ,NAUGHTY-LEVEL 0>
<TELL
"Normally, we wouldn't allow this in TAME mode, but it's okay in this
case since you're only a gorilla. This sort of thing appears all
the time in National Geographic.">)
(T
<COND (<NOT ,GORILLA-EXAMINED>
<SETG GORILLA-EXAMINED T>
<NOT-BAD-LOOKING>
<TELL " ">)>
<TELL
"You begin nuzzling, and things quickly get hot and heavy.">
<COND (<EQUAL? ,NAUGHTY-LEVEL 2>
<TELL
" The " 'PRSO " screams, \"Eee oo oo ah!\" which translates roughly
as \"Oh, you animal!\"">)>)>
<COND (<IN? ,MAD-SCIENTIST ,HERE>
<TELL " ">
<MINE-THEORY T>)
(T
<CRLF>)>)>)>>