--- /dev/null
+In order to compile this game you need a Pascal compiler. The Free Pascal
+Compiler works: http://freepascal.org/
+
+Your GNU/Linux distro may already have it packaged. In the Trisquel GNU/Linux
+distro for example: sudo apt-get install fpc
+
+To compile it then run:
+fpc src/BEYOND.PAS
+
+The binary will be named BEYOND and stored in the src directory.
+
+--
+Copyright (C) 2014 Jason Self <j@jxself.org>
+
+This file is free software: you may copy, redistribute and/or modify it
+under the terms of the GNU Affero General Public License as published by the
+Free Software Foundation, either version 3 of the License, or (at your
+option) any later version.
+
+This file is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
+details.
+
+You should have received a copy of the GNU General Public License along
+with this program; if not, see https://gnu.org/licenses or write to:
+ Free Software Foundation, Inc.
+ 51 Franklin Street, Fifth Floor
+ Boston, MA 02110-1301
+ USA
--- /dev/null
+ GNU AFFERO GENERAL PUBLIC LICENSE
+ Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+ Preamble
+
+ The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+ The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works. By contrast,
+our General Public Licenses are intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.
+
+ When we speak of free software, we are referring to freedom, not
+price. Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+ Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+ A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate. Many developers of free software are heartened and
+encouraged by the resulting cooperation. However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+ The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community. It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server. Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+ An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals. This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+ The precise terms and conditions for copying, distribution and
+modification follow.
+
+ TERMS AND CONDITIONS
+
+ 0. Definitions.
+
+ "This License" refers to version 3 of the GNU Affero General Public License.
+
+ "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+ "The Program" refers to any copyrightable work licensed under this
+License. Each licensee is addressed as "you". "Licensees" and
+"recipients" may be individuals or organizations.
+
+ To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy. The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+ A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+ To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy. Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+ To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies. Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+ An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License. If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+ 1. Source Code.
+
+ The "source code" for a work means the preferred form of the work
+for making modifications to it. "Object code" means any non-source
+form of a work.
+
+ A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+ The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form. A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+ The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities. However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work. For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+ The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+ The Corresponding Source for a work in source code form is that
+same work.
+
+ 2. Basic Permissions.
+
+ All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met. This License explicitly affirms your unlimited
+permission to run the unmodified Program. The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work. This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+ You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force. You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright. Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+ Conveying under any other circumstances is permitted solely under
+the conditions stated below. Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+ 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+ No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+ When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+ 4. Conveying Verbatim Copies.
+
+ You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+ You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+ 5. Conveying Modified Source Versions.
+
+ You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+ a) The work must carry prominent notices stating that you modified
+ it, and giving a relevant date.
+
+ b) The work must carry prominent notices stating that it is
+ released under this License and any conditions added under section
+ 7. This requirement modifies the requirement in section 4 to
+ "keep intact all notices".
+
+ c) You must license the entire work, as a whole, under this
+ License to anyone who comes into possession of a copy. This
+ License will therefore apply, along with any applicable section 7
+ additional terms, to the whole of the work, and all its parts,
+ regardless of how they are packaged. This License gives no
+ permission to license the work in any other way, but it does not
+ invalidate such permission if you have separately received it.
+
+ d) If the work has interactive user interfaces, each must display
+ Appropriate Legal Notices; however, if the Program has interactive
+ interfaces that do not display Appropriate Legal Notices, your
+ work need not make them do so.
+
+ A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit. Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+ 6. Conveying Non-Source Forms.
+
+ You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+ a) Convey the object code in, or embodied in, a physical product
+ (including a physical distribution medium), accompanied by the
+ Corresponding Source fixed on a durable physical medium
+ customarily used for software interchange.
+
+ b) Convey the object code in, or embodied in, a physical product
+ (including a physical distribution medium), accompanied by a
+ written offer, valid for at least three years and valid for as
+ long as you offer spare parts or customer support for that product
+ model, to give anyone who possesses the object code either (1) a
+ copy of the Corresponding Source for all the software in the
+ product that is covered by this License, on a durable physical
+ medium customarily used for software interchange, for a price no
+ more than your reasonable cost of physically performing this
+ conveying of source, or (2) access to copy the
+ Corresponding Source from a network server at no charge.
+
+ c) Convey individual copies of the object code with a copy of the
+ written offer to provide the Corresponding Source. This
+ alternative is allowed only occasionally and noncommercially, and
+ only if you received the object code with such an offer, in accord
+ with subsection 6b.
+
+ d) Convey the object code by offering access from a designated
+ place (gratis or for a charge), and offer equivalent access to the
+ Corresponding Source in the same way through the same place at no
+ further charge. You need not require recipients to copy the
+ Corresponding Source along with the object code. If the place to
+ copy the object code is a network server, the Corresponding Source
+ may be on a different server (operated by you or a third party)
+ that supports equivalent copying facilities, provided you maintain
+ clear directions next to the object code saying where to find the
+ Corresponding Source. Regardless of what server hosts the
+ Corresponding Source, you remain obligated to ensure that it is
+ available for as long as needed to satisfy these requirements.
+
+ e) Convey the object code using peer-to-peer transmission, provided
+ you inform other peers where the object code and Corresponding
+ Source of the work are being offered to the general public at no
+ charge under subsection 6d.
+
+ A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+ A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling. In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage. For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product. A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+ "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source. The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+ If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information. But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+ The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed. Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+ Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+ 7. Additional Terms.
+
+ "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law. If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+ When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it. (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.) You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+ Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+ a) Disclaiming warranty or limiting liability differently from the
+ terms of sections 15 and 16 of this License; or
+
+ b) Requiring preservation of specified reasonable legal notices or
+ author attributions in that material or in the Appropriate Legal
+ Notices displayed by works containing it; or
+
+ c) Prohibiting misrepresentation of the origin of that material, or
+ requiring that modified versions of such material be marked in
+ reasonable ways as different from the original version; or
+
+ d) Limiting the use for publicity purposes of names of licensors or
+ authors of the material; or
+
+ e) Declining to grant rights under trademark law for use of some
+ trade names, trademarks, or service marks; or
+
+ f) Requiring indemnification of licensors and authors of that
+ material by anyone who conveys the material (or modified versions of
+ it) with contractual assumptions of liability to the recipient, for
+ any liability that these contractual assumptions directly impose on
+ those licensors and authors.
+
+ All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10. If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term. If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+ If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+ Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+ 8. Termination.
+
+ You may not propagate or modify a covered work except as expressly
+provided under this License. Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+ However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+ Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+ Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License. If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+ 9. Acceptance Not Required for Having Copies.
+
+ You are not required to accept this License in order to receive or
+run a copy of the Program. Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance. However,
+nothing other than this License grants you permission to propagate or
+modify any covered work. These actions infringe copyright if you do
+not accept this License. Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+ 10. Automatic Licensing of Downstream Recipients.
+
+ Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License. You are not responsible
+for enforcing compliance by third parties with this License.
+
+ An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations. If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+ You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License. For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+ 11. Patents.
+
+ A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based. The
+work thus licensed is called the contributor's "contributor version".
+
+ A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version. For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+ Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+ In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement). To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+ If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients. "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+ If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+ A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License. You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+ Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+ 12. No Surrender of Others' Freedom.
+
+ If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all. For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+ 13. Remote Network Interaction; Use with the GNU General Public License.
+
+ Notwithstanding any other provision of this License, if you modify the
+Program, your modified version must prominently offer all users
+interacting with it remotely through a computer network (if your version
+supports such interaction) an opportunity to receive the Corresponding
+Source of your version by providing access to the Corresponding Source
+from a network server at no charge, through some standard or customary
+means of facilitating copying of software. This Corresponding Source
+shall include the Corresponding Source for any work covered by version 3
+of the GNU General Public License that is incorporated pursuant to the
+following paragraph.
+
+ Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU General Public License into a single
+combined work, and to convey the resulting work. The terms of this
+License will continue to apply to the part which is the covered work,
+but the work with which it is combined will remain governed by version
+3 of the GNU General Public License.
+
+ 14. Revised Versions of this License.
+
+ The Free Software Foundation may publish revised and/or new versions of
+the GNU Affero General Public License from time to time. Such new versions
+will be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+ Each version is given a distinguishing version number. If the
+Program specifies that a certain numbered version of the GNU Affero General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation. If the Program does not specify a version number of the
+GNU Affero General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+ If the Program specifies that a proxy can decide which future
+versions of the GNU Affero General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+ Later license versions may give you additional or different
+permissions. However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+ 15. Disclaimer of Warranty.
+
+ THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. Limitation of Liability.
+
+ IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+ 17. Interpretation of Sections 15 and 16.
+
+ If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Programs
+
+ If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+ To do so, attach the following notices to the program. It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the program's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU Affero General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU Affero General Public License for more details.
+
+ You should have received a copy of the GNU Affero General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+ If your software can interact with users remotely through a computer
+network, you should also make sure that it provides a way for users to
+get its source. For example, if your program is a web application, its
+interface could display a "Source" link that leads users to an archive
+of the code. There are many ways you could offer source, and different
+solutions will be better for different programs; see section 13 for the
+specific requirements.
+
+ You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU AGPL, see
+<http://www.gnu.org/licenses/>.
{//-------------------------------------------------------------------------}\r
{/* }\r
+{Copyright (C) 2014 Jason Self <j@jxself.org> }\r
+{ }\r
+{This file is free software: you may copy, redistribute and/or modify it }\r
+{under the terms of the GNU Affero General Public License as published by }\r
+{the Free Software Foundation, either version 3 of the License, or (at your }\r
+{option) any later version. }\r
+{ }\r
+{This file is distributed in the hope that it will be useful, but WITHOUT }\r
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }\r
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}\r
+{for more details. }\r
+{ }\r
+{You should have received a copy of the GNU Affero General Public License }\r
+{along with this program; if not, see https://gnu.org/licenses or write to: }\r
+{ Free Software Foundation, Inc. }\r
+{ 51 Franklin Street, Fifth Floor }\r
+{ Boston, MA 02110-1301 }\r
+{ USA }\r
+{ }\r
+{This file incorporates work covered by the following copyright and }\r
+{permission notice: }\r
+{ }\r
{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }\r
{ }\r
-{This file is part of Supernova. Supernova is free software; you can }\r
-{redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 3 }\r
-{of the License, or (at your option) any later version. }\r
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }\r
+{software; you can redistribute it and/or modify it under the terms of the }\r
+{GNU General Public License as published by the Free Software Foundation; }\r
+{either version 3 of the License, or (at your option) any later version. }\r
{ }\r
-{This program is distributed in the hope that it will be useful, }\r
-{but WITHOUT ANY WARRANTY; without even the implied warranty of }\r
-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }\r
+{This program is distributed in the hope that it will be useful, but WITHOUT}\r
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }\r
+{FITNESS FOR A PARTICULAR PURPOSE. }\r
{ }\r
{See the GNU General Public License for more details. }\r
{ }\r
{You should have received a copy of the GNU General Public License }\r
-{along with this program; if not, write to the Free Software }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}\r
+{along with this program; if not, write to: }\r
+{ Free Software Foundation, Inc. }\r
+{ 51 Franklin Street, Fifth Floor }\r
+{ Boston, MA 02110-1301 }\r
+{ USA }\r
{ }\r
{Original Source: 1990 Scott Miller }\r
{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
\r
procedure RR(RoomNum : integer);\r
begin FlagSA:='s';\r
- seek(rooms1,RoomNum);seek(rooms2,RoomNum);\r
- READ(rooms1,text1);READ(rooms2,text2);\r
- writeln(text1,text2);\r
+ reset(rooms1);\r
+ seek(rooms1,RoomNum);\r
+ reset(rooms2);\r
+ seek(rooms2,RoomNum);\r
+ READ(rooms1,text1);\r
+ READ(rooms2,text2);\r
+ {window(1,1,25,80);}\r
+ writeln(text1,text2);\r
end; {of RoomRead}\r
\r
\r
procedure RS(RoomNum : integer);\r
begin\r
+{ writeln('RS'); }\r
FlagSA:='s';\r
- seek(Special1,RoomNum);seek(Special2,RoomNum);\r
- READ(Special1,text1);READ(Special2,text2);\r
+ seek(Special1,RoomNum);\r
+ seek(Special2,RoomNum);\r
+ READ(Special1,text1);\r
+ READ(Special2,text2);\r
writeln(text1,text2);\r
end; {of SpecialRead}\r
\r
end; {of Check}\r
\r
{***************************** END OF ADPARSER ******************************}\r
-\1a\r
-{//-------------------------------------------------------------------------}\r
-{/* }\r
-{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }\r
-{ }\r
-{This file is part of Supernova. Supernova is free software; you can }\r
-{redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 3 }\r
-{of the License, or (at your option) any later version. }\r
-{ }\r
-{This program is distributed in the hope that it will be useful, }\r
-{but WITHOUT ANY WARRANTY; without even the implied warranty of }\r
-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }\r
-{ }\r
-{See the GNU General Public License for more details. }\r
-{ }\r
-{You should have received a copy of the GNU General Public License }\r
-{along with this program; if not, write to the Free Software }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}\r
-{ }\r
-{Original Source: 1990 Scott Miller }\r
-{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
-{*/ }\r
-{//-------------------------------------------------------------------------}\r
-{****************************************************************************}\r
-{* BEYOND THE TITANIC *}\r
-{* Written by Scott Miller with Turbo Pascal V.2. Began May 12, '84. *}\r
-{* Shareware Version *}\r
-{* Copyright 1987 *}\r
-{$C-,K-,V-,R-****************************************************************}\r
-\r
-{ Last modified: July 23, 1987 }\r
-\r
-const\r
- Q = '#';\r
- VMax = 65;\r
- NMax = 89;\r
- RMax = 76;\r
- Null = -1;\r
-\r
-type\r
- ComSet = set of 0..VMax;\r
- CharSet = set of Char;\r
- PlayersObjects = set of 0..NMax;\r
- Str14 = string[14];\r
- Str80 = string[80];\r
- Str240 = string[240];\r
- SaveGame = record\r
- aInven,\r
- aKitSet,\r
- aCabiSet :PlayersObjects;\r
- aPanelCon,\r
- aSlotCon,\r
- aCompCon,\r
- aRopeCon,\r
- aTic,\r
- aYearDial,\r
- aPrm,\r
- aMnRm,\r
- aSc,\r
- aShots,\r
- aShRm,\r
- aRx :integer;\r
- aEv :CharSet;\r
- aCode,\r
- aLoc :Str14;\r
- aKeyHole :boolean;\r
- end;\r
-\r
-var\r
- WordList : file of Str14;\r
- Things : file of integer;\r
- Objects : file of PlayersObjects;\r
- GameSave : file of SaveGame;\r
- DiskSave : SaveGame;\r
- Input,\r
- Again,\r
- Line : Str80;\r
- V{erb} : array [0..VMax,1..5] of Str14;\r
- N{oun} : array [0..NMax,1..5] of Str14;\r
- R{oom} : array [0..NMax] of integer;\r
- P{lace} : array [0..RMax] of PlayersObjects;\r
- RmSh : set of 0..14;\r
- OneWordCommands: Comset;\r
- Mov{able},\r
- Inven{tory},\r
- KitSet,\r
- CabiSet : PlayersObjects;\r
- Word,\r
- LastNoun,\r
- Drive,\r
- Code,\r
- Loc{ation},\r
- SepWord : Str14;\r
- Rooms1, Rooms2,\r
- Special1, Special2 : file of Str240;\r
- Text1, Text2 : Str240;\r
- Line1 : file of Str80;\r
- Verb,\r
- Noun, Noun2,\r
- PanelCon,\r
- RopeCon,\r
- CompCon,\r
- SlotCon,\r
- RopeOld,\r
- Tic,\r
- YearDial,\r
- DayDial,\r
- Prm, {Player Room}\r
- MnRm, {Monster Room}\r
- Sc{ore},\r
- Shots,\r
- DialNum,\r
- Stuff,\r
- ShRm, {Shuttle Room}\r
- m0,m1,m2,m3,m4,m5,m6,m7,m8,m9,\r
- Rx, {deserted road}\r
- Ox, {ocean bottom}\r
- x, y, o : integer;\r
- Flag,\r
- FlagSA : char;\r
- Ev{ent} : CharSet;\r
- Attack,\r
- Skip,\r
- Back,\r
- KeyHole,\r
- Verbose : boolean;\r
-\r
-\r
-\r
-{$Ia:AdParser.PAS}{ <--- Loads in sentence logic. <*********************}\r
-\r
-\r
-{$Ia:Commands.PAS}{ <--- Loads in misc. procedures. <*********************}\r
-\r
-\r
-{$Ia:WordList.PAS }{ <----- CALLS UP THE VERBS & NOUNS <*******************}\r
-\r
-\r
-{$Ia:Objects.PAS }{ <----- CALLS UP THE VERBS & NOUNS <*******************}\r
-\r
-\r
-{===================}\r
-overlay procedure DefaultAnswers1;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-22 :begin if(Prm in[59..68])then\r
- begin RmSh:=RmSh-[ShRm];RS(84)end;\r
- if flasoff and (Prm in [6..24])then RL(54) else\r
- if Verbose then DescribeRm\r
- else begin Verbose:=true;DescribeRm;Verbose:=false;end;\r
- if(23 in p[Prm])and(MnRm=Prm)then RL(357);\r
- if Back then begin Attack:=False; Back:=False;end\r
- end;\r
-\r
-18 :if inven=[] then RL(116)\r
- else\r
- begin\r
- writeln('You have in your possession...');\r
- for o:= 0 to NMax do\r
- begin\r
- if(o in inven)then\r
- if(o=74)then\r
- writeln('an ',n[o,1])else writeln('a ',n[o,1]);\r
- if(ropecon in inven)and(o=ropecon)then\r
- writeln(' The rope is tied to the ',n[o,1],'.');\r
- if(o=74)and(en('p'))then RL(174);\r
- if(o=89)and(en('i'))then RL(321);\r
- end;\r
- end;\r
-\r
-11 :case noun of\r
- 60:Diagnose;\r
- 2:if(en('b'))then RL(198) else RL(199);\r
- 29:begin RL(89);if(en('a'))then RL(200) else RL(201);end;\r
- 57:if(ropecon<>Null)then\r
- writeln('The rope is tied to the ',n[ropecon,1],'.')\r
- else RL(133);\r
- 65:if(Prm in[59..68])then RS(84)else Line:='l';\r
- 8:RL(202);\r
- 7:RL(163);\r
- 70:RL(164);\r
- 52:RL(165);\r
- 74:RL(166);\r
- 23:RS(70);\r
- 32:RL(253);\r
- 13:RL(167);\r
- 22:RL(226);\r
- 1:if(Prm=42)and(13 in p[42])then RL(167);\r
- 21:RL(227);\r
- 9:if(Prm=49)then RL(228)else if(Prm>62)then RS(68)else RL(229);\r
- 69:RL(355);\r
- 77:RL(403);\r
- 37:RL(295);\r
- 27:RL(394);\r
- 89:RL(338);\r
- 18:if(Prm in[63..70])then RS(68)else RL(348);\r
- 46,66:If(Prm in[58,59,63,69])then begin\r
- TextColor(12);RS(83);TextColor(m2)end;\r
- 87:RL(230);\r
- 84:RL(231);\r
- 34:begin RL(189);\r
- if(Shots>0)then writeln('is about ',Shots*10,' percent full.')\r
- else Writeln('is empty.')end;\r
- 15:if(84 in p[Prm])then RL(180)else If(71 in p[Prm])then RL(182)\r
- else RL(181);\r
- 56,44:if(en('r'))then RL(51) else RL(52)\r
- else if not(noun in[1,12,14,15,17,18,19,22,31,36,50,\r
- 54,67,69,73,79,80,84,87,88])and(random(3)=1)then\r
- case random(3) of\r
- 0 :RL(407);\r
- 1 :writeln('Yea, it''s definitely a ',n[noun,1],'!');\r
- 2 :writeln('It looks like any other ',n[noun,1],'.');\r
- end\r
- else writeln('You see nothing special about the ',n[noun,1],'.')\r
- end;\r
-\r
-41 :begin writeln('Time passes');y:=wherey;for o:=1 to 6 do\r
- begin gotoxy(11+o,y-1);writeln('.');sound(o*99);delay(30)end;\r
- if(Prm in[59..68])then sound(20)else nosound end;\r
-\r
-43..52 :if(Prm in[6..24])and(FlasOff)then RL(14)else\r
- if(Prm=69)then RL(358)else RL(144);\r
-\r
-57,58 :begin Attack:=False;\r
- if(Prm in[6..24])and(FlasOff)then RL(14)else RL(190);end;\r
-\r
- end {of case}\r
-end; {of DefaultAnswers1}\r
-{-------------------}\r
-overlay procedure DefaultAnswers2;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-29 :if(noun in Mov)then\r
- if(noun in inven)then\r
- begin FlagSA:='r';\r
- case Noun2 of\r
- 39:if(en('o'))then begin RL(186);Vanish(noun);\r
- kitset:=kitset+[noun];r[noun]:=Prm;end\r
- else RL(185);\r
- 68:if(Prm=34)then\r
- if(SlotCon=Null)then begin RL(186);Vanish(noun);\r
- SlotCon:=Noun;r[noun]:=Prm;end\r
- else Say(68,'being used')\r
- else\r
- if(noun=63)and(Prm=58)then\r
- begin RL(337);KeyHole:=True;r[63]:=Prm;inven:=inven-[63];end\r
- else RL(327);\r
- 88:begin RL(293);vanish(noun);r[noun]:=random(4)+51;end;\r
- 47,53,73:if(Prm in[0..6,9,10,13,41..43])then\r
- begin RL(307);vanish(noun);end;\r
- 11:if(en('k'))then begin RL(186);Vanish(noun);\r
- CabiSet:=CabiSet+[noun];r[noun]:=Prm;end\r
- else RL(187);\r
- 26:if(Prm=76)and(noun=57)then begin RL(409);Vanish(57)end;\r
- 49:if(PanelCon=Null)and(noun in[2,7,8,13,27,32,51,52,63,77])then\r
- begin RL(186);Vanish(noun);PanelCon:=Noun;r[noun]:=Prm;end\r
- else RL(188);\r
- 30:if(noun=70)then\r
- if not(en('d'))then\r
- begin Ev:=Ev+['d'];RL(69);Vanish(70);r[70]:=Prm;end\r
- else Say(70,'in the dirt')\r
- else Crazy\r
- end;{of case}\r
-\r
- if(FlagSA<>'s')then\r
- begin\r
- if(SepWord='to')then\r
- if(noun2 in[4,6,9,11,14,16,22,30,50,59,61,64,65,69,75])then\r
- begin RL(186);Vanish(noun);r[noun]:=Prm;end\r
- else RL(197);\r
- if(SepWord='at')or(SepWord='near')or(SepWord='behind')then\r
- if(noun2 in[0,4,6,9,11,12,14,16,17,20..23,26,28,30,35,39,43,\r
- 50,53,54,59,61,62,64..69,72,73,75,78..80])then\r
- begin RL(186);Vanish(noun);r[noun]:=Prm;end\r
- else RL(197);\r
- if(SepWord='under')then\r
- if(noun2 in[4,15,16,20,23,59,60,61,75])then\r
- begin RL(186);Vanish(noun);r[noun]:=Prm;end\r
- else RL(197);\r
- if(SepWord='in')then\r
- if(noun2 in[6,16,43,47,30,50,59,64,65,72,78,80,84])then\r
- begin RL(186);Vanish(noun);r[noun]:=Prm;end\r
- else RL(197);\r
- if(FlagSA<>'s')then Crazy;\r
- end\r
- end\r
- else writeln('First you must have the ',n[noun,1],'.')\r
- else Crazy;\r
-\r
- end {of case}\r
-end; {of DefaultAnswers2}\r
-{-------------------}\r
-overlay procedure DefaultAnswers3;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-31,63 :if(Verb=63)and(Prm<>MnRm)then RL(395)\r
- else\r
- if(Prm=MnRm)then\r
- begin Attack:=False;\r
- if(input='hi')or(input='hello')or(input='bye')then RL(396)else\r
- if(copy(input,1,6)='follow')then RL(397)else\r
- case random(5) of\r
- 0:RL(365);1:RL(398);2:RL(399);3:RL(400);4:RL(401)\r
- end\r
- end\r
- else RL(123);\r
-\r
-33 :RL(124);\r
-\r
-38 :case noun of\r
- 83:RL(262);\r
- 23:begin RL(366);DropAll;Ev:=Ev+['r'];Attack:=False end\r
- else RL(125);\r
- end;\r
-\r
-16 :if(MnRm=Prm)then begin Attack:=False;RL(372)end else\r
- if(en('r'))then RL(373)else\r
- if(Prm<15)and(70 in p[12])then RL(374)else RL(371);\r
-\r
-19 :if(noun=Null)then RL(136)else Crazy;\r
-24 :if(noun=7)then RL(422)else\r
- if(noun in[26,6,7,22,36,17,50,65,73,74,80,79,30,84])then RL(126)\r
- else Crazy;\r
-21 :RL(127);\r
-40 :Crazy;\r
-\r
-8 :if(noun in[73,80])or(noun=Null)then\r
- if(noun<>Null)then RL(36)\r
- else if(here(73))or(here(80))then RL(36)else RL(37)\r
- else RL(53);\r
-\r
-12 :RL(38);\r
-2 :if(noun in[4,35,39,8,11,12,14,20,21,30,57,43,59,67,70,75])then\r
- RL(43)else RL(44);\r
-\r
-15 :if(noun in mov)then\r
- if(sepword='to')then\r
- if(noun2=23)then\r
- begin RL(62);Vanish(noun);Attack:=False end\r
- else Crazy\r
- else RL(60)\r
- else RL(61);\r
-\r
-1 :if(verbose)then\r
- begin verbose:=false;RL(134);end\r
- else begin verbose:=true;RL(135);end;\r
-\r
-13 :RL(77);\r
-23 :RL(78);\r
-\r
-60 :case noun of\r
- 43,12:RL(252);\r
- 35:RL(288)\r
- else RL(78);\r
- end;\r
-\r
-25 :if(Prm>62)and(Noun in[9,18,19,41])then RL(350)else RL(78);\r
-34 :RL(79);\r
-\r
- end {of case}\r
-end; {of DefaultAnswers3}\r
-{-------------------}\r
-overlay procedure DefaultAnswers4;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-20 :RL(81);\r
-35 :RL(82);\r
-\r
-6 :if(noun=23)and(here(40))then begin vanish(40);RL(84);end\r
- else\r
- if here(40)then\r
- if(noun2=Null)or(noun2=40)then\r
- case noun of\r
- 57:RL(259);\r
- 60:RL(260)\r
- else writeln('At the last moment you decide to spare',\r
- ' the ',n[noun,1],'''s life!')\r
- end\r
- else Crazy\r
- else RL(83);\r
-\r
-30 :if(noun in [39,43,12,26,6,22,47,49,68,78,17,11,\r
- 50,65,73,74,80,79,30])then RL(93) else RL(94);\r
-\r
-54 :begin write('Would you like to SAVE your game first (Y or N)? ');\r
- read(kbd,flag);if(upcase(flag)<>'N')then SAVE else writeln('No.');\r
- write('Are you still sure you want to quit? ');\r
- read(kbd,flag);if(upcase(flag)='Y')then\r
- begin RL(367);delay(999);window(1,1,80,25);clrscr;close(rooms1);\r
- close(rooms2);close(special1);close(special2);close(line1);\r
- HALT end else RL(264)end;\r
-53 :if(Prm in[27,30])then RL(123) else RL(145);\r
-59 :If(noun=23)then RL(368)else Diagnose;\r
-\r
-55 :if(noun=74)then\r
- if(en('p'))then\r
- begin Ev:=Ev-['p'];RL(169);end\r
- else RL(168)\r
- else\r
- if(noun=89)then\r
- if(en('i'))then\r
- begin\r
- Ev:=Ev-['i'];RL(322);\r
- if(Prm in[59,63..68])then begin RS(66);DEAD;end;\r
- end\r
- else RL(323)\r
- else Crazy;\r
-\r
-56 :if(noun=Null)or(noun in[60,23])or(noun in Mov)then\r
- case noun of\r
- 23:RL(369);\r
- 60,Null:RL(193);\r
- 7:RL(194)\r
- else RL(195);\r
- end\r
- else RL(196);\r
-\r
-3 :case noun of\r
- 7:RL(235);\r
- 2:if(en('b'))then RL(236)else RL(237);\r
- 62:RL(238);\r
- 65:RL(239);\r
- 74:RL(240);\r
- 78:RL(241);\r
- 84,40,50,68,85:RL(242)\r
- else Crazy;\r
- end;\r
-\r
-7 :begin if(noun=Null)then noun:=30;\r
- if(noun in[30,36,47,50,71,72,79])then\r
- case noun of\r
- 30,47,50,71:if(Prm in[5..22,44..49])then RL(247) else RL(248);\r
- 36:RL(249);\r
- 72:RL(250);\r
- 79:RL(251);\r
- end\r
- else Crazy;\r
- end;\r
-\r
-\r
- end {of CASE.}\r
-end; {of DefaultAnswers4}\r
-{-------------------}\r
-overlay procedure DefaultAnswers5;\r
-var o: integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-9 :if noun<>1 then\r
- if(noun in Inven)then\r
- if(noun=74)and(en('p'))then RL(170)\r
- else if(noun=89)and(en('i'))then RL(335)\r
- else begin\r
- inven:=inven-[noun];writeln(n[noun,1],': Dropped.');\r
- R[noun]:=Prm;\r
- end\r
- else\r
- writeln('You don''t have the ',n[noun,1],'.')\r
- else\r
- begin\r
- if(74 in inven)and(en('p'))then RL(170)else\r
- if(89 in inven)and(en('i'))then RL(335)else\r
- DropAll;\r
- end;\r
-\r
-26 :case noun of\r
- 2:if not(en('b'))then\r
- begin\r
- Ev:=Ev+['b'];\r
- RL(3);end\r
- else Say(noun,'peeled');\r
- 7:RL(162);\r
- 57:if(ropecon<>Null)then\r
- begin\r
- ropecon:=Null;\r
- RL(117);end\r
- else Say(noun,'untied');\r
- 62:RL(238)\r
- else Crazy;\r
- end; {end of OPEN }\r
-\r
- end {of case}\r
-end; {of DefaultAnswers5}\r
-{-------------------}\r
-overlay procedure DefaultAnswers6;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-28,27 :case noun of\r
- 23:RL(369);\r
- 29:if not(en('a'))then\r
- begin Ev:=Ev+['a'];\r
- RL(120);end\r
- else begin Ev:=Ev-['a'];\r
- RL(121);end;\r
- 57:if(ropecon<>Null)and not(ropecon in inven)\r
- and(r[ropecon]<>Prm)then\r
- if(ropecon in mov)then begin\r
- RL(57);writeln('...it''s a ',n[ropecon,1],'!');\r
- r[ropecon]:=Prm;Ev:=Ev-['u'];\r
- if(ropecon=29)and not(flasoff)then DescribeRm;end\r
- else RL(56)\r
- else RL(122);\r
- 8:begin RL(243);RL(244);play(9999,3500,0);play(3499,2000,1);\r
- play(1999,1000,2);play(999,200,5);play(199,8,16);Ev:=Ev+['e'];\r
- n[36,5]:=Q;n[78,5]:='glass';n[68,1]:='slot';n[66,4]:=Q;\r
- Ev:=Ev-['j'];\r
- moveto(30);\r
- if(MnRm=Prm)then RS(73);\r
- end;\r
- 81:if not(en('j'))then\r
- if KeyHole then\r
- begin Ev:=Ev+['j'];RL(326);play(2000,2001,200);end\r
- else RL(123)\r
- else\r
- begin Ev:=Ev-['j'];\r
- if Keyhole then begin RL(326);play(2001,2000,200)end\r
- else RL(123);\r
- if(Prm in[59..68])then begin nosound;RS(62);DEAD;end;\r
- end;\r
- 36:begin\r
- if(Prm > 57)then if(Prm = 58)then RL(123)else\r
- begin RS(63);DEAD;end;\r
- end\r
- else RL(122);\r
- end; {of case}\r
-\r
-62 :begin write('You have ',Sc,' of 1000 points',\r
- ', giving you the rank of ');Tic:=Tic-1;\r
- case Sc of\r
- 0..99:writeln('beginner.');\r
- 100..249:writeln('novice adventurer.');\r
- 250..399:writeln('adventurer third class.');\r
- 400..549:writeln('adventurer second class.');\r
- 550..699:writeln('adventurer first class.');\r
- 700..849:writeln('expert adventurer.');\r
- 850..999:writeln('master adventurer.')\r
- else writeln('dead adventurer!')\r
- end;\r
- Attack:=False;\r
- if(MnRm=Prm)then RL(370)\r
- end;\r
-\r
- end {of case}\r
-end; {of DefaultAnswers6}\r
-{-------------------}\r
-overlay procedure DefaultAnswers7;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-14 :if(noun<>1)then\r
- if(noun in Mov)then\r
- if not(noun in inven)then\r
- begin\r
- Stuff:=0;\r
- for o:=0 to NMax do if(o in inven)then Stuff:=Stuff+1;\r
- if(Stuff < 6)then\r
- if(en('r'))and(inven<>[])then RL(87)\r
- else begin\r
- Vanish(Noun);inven:=inven+[noun];\r
- writeln(n[noun,1],': Taken.');\r
- if(noun=70)then Ev:=Ev-['d'];\r
- end\r
- else RL(234)\r
- end\r
- else writeln('You already have the ',n[noun,1],'.')\r
- else Crazy\r
- else if(en('r'))then RL(88) else\r
- begin flag:='0';Stuff:=0;\r
- for o:=0 to NMax do if(o in inven)then Stuff:=Stuff+1;\r
- if(Stuff < 7)then\r
- for o:=0 to NMax do\r
- begin\r
- if r[o]=Prm then\r
- if(Stuff+1 < 7)then\r
- begin\r
- vanish(o);inven:=inven+[o];Stuff:=Stuff+1;\r
- writeln(n[o,1],': Taken.');flag:='1';\r
- if(o=70)then Ev:=Ev-['d'];\r
- end\r
- else\r
- begin flag:='1';\r
- writeln(n[o,1],': You have too many objects already!');end\r
- end\r
- else RL(234);\r
- if(flag='0')then RL(49)\r
- end; {of 14}\r
-\r
-4,5 :RL(420);\r
-\r
-64 :SAVE;\r
-\r
- end {of case}\r
-end; {of DefaultAnswers7}\r
-{-------------------}\r
-overlay procedure DefaultAnswers8;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-10 :if(noun in [2,52])then\r
- if(noun=2)then\r
- if(en('b'))then begin\r
- RL(45); Ev:=Ev+['c'];inven:=inven+[51];\r
- Vanish(2);Sc:=Sc+10;end\r
- else RL(46)\r
- else begin RL(47);Ev:=Ev+['n'];Sc:=Sc+15;Vanish(52);end\r
- else writeln('I don''t think the ',n[noun,1],\r
- ' would do much for your digestive system!');\r
-\r
-42 :case noun of\r
- 74:if not(en('p'))then\r
- if not(en('i'))then\r
- begin RL(20);inven:=inven+[74];r[74]:=Null;Ev:=Ev+['p'];end\r
- else RL(320)\r
- else Say(74,'on');\r
- 89:if not(en('i'))then\r
- if not(en('p'))then\r
- begin RL(319);vanish(89);inven:=inven+[89];Ev:=Ev+['i'];end\r
- else RL(318)\r
- else Say(89,'on your head')\r
- else RL(128);\r
- end;\r
-\r
-17,0 :if(noun2=Noun)then Crazy else\r
- if(noun2 in Mov)or(Noun2=Null)then\r
- case Noun of\r
- 2:begin RL(21);Vanish(2);Sc:=Sc+25;r[51]:=Prm;end;\r
- 60:begin RL(22);DEAD;end;\r
- 52:begin RL(34);Vanish(52);end;\r
- 23:if(noun2=null)then RL(369)\r
- else begin Vanish(noun2);Attack:=False;\r
- writeln('The monster grabs the ',n[noun2,1],' and eats it!');\r
- end;\r
- 7:begin RL(35);Vanish(7);r[52]:=Prm;Ev:=Ev+['I'];end\r
- else if(verb=0)then writeln('At the last moment you decide to',\r
- ' spare the ',n[noun,1],'''s life!')\r
- else RL(216);\r
- end{of case}\r
- else Crazy;\r
-\r
-39 :if((SepWord='to')or(SepWord='off'))and(Noun2=Null)then\r
- case Noun of\r
- 29:if(SepWord='to')then begin Ev:=Ev+['a'];RL(120);end\r
- else begin Ev:=Ev-['a'];RL(121);end;\r
- 13:RL(148);\r
- 20:RL(149);\r
- 65:RL(150)\r
- else Crazy end\r
- else RL(80);\r
-\r
- end {of case}\r
-end; {of DefaultAnswers8}\r
-{-------------------}\r
-overlay procedure DefaultAnswers9;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-32 :if(34 in inven)then\r
- if(shots>0)then\r
- begin\r
- Shots:=Shots-1;\r
- for x:=1 to (26-(4*(6-Shots))) do\r
- begin play(300,350,11-Shots*2);play(320,370,11-Shots*2);end;\r
- if(noun=34)and(noun2<>34)and(noun2<>Null)and(SepWord='at')then\r
- begin noun:=noun2; noun2:=34; SepWord:='with';end;\r
- if((noun2=34)and(noun<>34)and(SepWord='with'))or\r
- ((noun<>34)and(SepWord='s'))then\r
- case noun of\r
- 1:begin;Crazy;Shots:=Shots+1;end;\r
- 2,7,8,13,27,29,32,40,51,52,63,74,77,89:begin vanish(noun);\r
- writeln('The ',n[noun,1],' vanishes in an explosion of light!');\r
- if(noun=74)and(en('p'))then begin RL(232);DEAD;end;\r
- end;\r
- 48:begin RL(222);RL(223);Ev:=Ev+['g'];p[40]:=p[40]-[48];\r
- if not(en('P'))then begin Ev:=Ev+['P'];Sc:=Sc+25;end;end;\r
- 12,26:RL(224);\r
- 23:begin case random(4)of 0:RL(375);1:RL(376);2:RL(377);3:RL(378)end;\r
- Attack:=False;\r
- end;\r
- 45:RL(315);\r
- 60,56,44:begin RL(233);DEAD;end\r
- else writeln('A blinding ray strikes the ',n[noun,1],', but it is',\r
- ' only slightly blackened.');\r
- end {of shoot case}\r
- else if(noun=34)and(noun2=Null)then RL(213)\r
- else begin;Crazy;Shots:=Shots+1;end;\r
- end\r
- else begin writeln('...click!');play(25,32,9);end\r
- else RL(208);\r
-\r
- end {of case}\r
-end; {of DefaultAnswers9}\r
-{-------------------}\r
-overlay procedure DefaultAnswers10;\r
-var o : integer;\r
-begin\r
-\r
-CASE VERB OF\r
-\r
-36 :if(noun in mov)then\r
- if(noun in inven)then\r
- if((noun in[2,7,52,29])or\r
- (noun2 in[2,7,23,29,47,52,53,73,88]))and(noun<>noun2)then\r
- begin\r
- if(noun=2)or(noun2=2)then begin RL(95);vanish(2);\r
- r[51]:=Prm;end;\r
- if(noun=7)or(noun2=7)then begin RL(35);vanish(7);\r
- Ev:=Ev+['I'];r[52]:=Prm;end;\r
- if(noun=29)or(noun2=29)then begin RL(96);vanish(29);end;\r
- if(noun=52)or(noun2=52)then begin RL(34);vanish(52);end;\r
- if(noun2=88)then begin RL(293);vanish(noun);\r
- if(noun=2)then noun:=51;if(noun=7)then noun:=52;\r
- r[noun]:=random(4)+51;end;\r
- if(Prm in[0..6,9,10,13,41..43])and(noun2 in[73,53,47])then\r
- begin RL(306);vanish(noun);end;\r
- if(noun2=23)then begin Attack:=False;Vanish(noun);RL(379);\r
- writeln(n[noun,1],' out of mid-flight and eats it',\r
- ' in one giant gulp!')end;\r
- end\r
- else begin writeln('The ',n[noun,1],' collides with the ',\r
- n[noun2,1],' but nothing interesting happens.');\r
- Vanish(noun);r[noun]:=Prm;end\r
- else writeln('First you must have the ',n[noun,1],'.')\r
- else Crazy;\r
-\r
-37 :if(noun=57)then\r
- if(sepword='to')then\r
- if not(noun2 in[1,15,17,22,30,46,47,50,52,72,73,79,80,83])then\r
- if(ropecon=Null)then begin\r
- ropecon:=noun2;\r
- writeln('The rope is firmly tied to the ',n[noun2,1],'.');\r
- if(noun2=57)then RL(48);end\r
- else writeln('It is already tied to the ',n[ropecon,1],'.')\r
- else RL(50)\r
- else Crazy\r
- else Crazy;\r
-\r
-61 :begin RL(245);read(kbd,flag);\r
- if(upcase(flag)<>'N')then\r
- begin RL(380);delay(999);window(1,1,80,25);clrscr;close(rooms1);\r
- close(rooms2);close(special1);close(special2);close(line1);\r
- assign(rooms1,'BEYOND.com');execute(rooms1)end\r
- else RL(264)\r
- end;\r
-\r
-65 :RESTORE;\r
-\r
- end {of case}\r
-end; {of DefaultAnswers10}\r
-{===================}\r
-overlay procedure SpecialAnswers1;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-CASE Prm OF\r
-\r
-3 :case verb of\r
- 44,58 :moveto(1);\r
- 20,52 :if(noun=6)then RL(40);\r
- 14 :if(noun=57)and not(en('o'))then RL(419);\r
- 6 :if(noun=57)and(here(40))and((noun2=Null)or(noun2=40))then\r
- begin\r
- RS(4); tic:=15; moveto(4); Ev:=Ev+['A']; Sc:=Sc+25;\r
- if(en('o'))then\r
- for o:= 0 to 57 do begin\r
- if(o in kitset)then r[o]:=Prm;\r
- if(r[o]=3)then r[o]:=Prm;end\r
- end;\r
- 26 :if(noun=39)then\r
- if not(en('o'))then\r
- begin Ev:=Ev+['o'];RL(328); for o:=2 to 57 do\r
- if(o in kitset)then r[o]:=Prm;end\r
- else Say(noun,'opened');\r
- 3 :if(noun=39)then\r
- if(en('o'))then\r
- begin Ev:=Ev-['o'];RL(186); for o:=2 to 57 do\r
- if(o in kitset)then r[o]:=Null;end\r
- else Say(noun,'shut');\r
- 17,28,27 :if(noun in [6,57,39,59])then RL(29);\r
- 24,11 :case noun of\r
- 39 :if(en('o'))then\r
- if kitset=[] then begin RL(329);end\r
- else begin RL(330);for o:= 0 to 57 do\r
- if(o in kitset)then writeln(' a ',n[o,1]);end\r
- else RL(331);\r
- 57 :RL(10);\r
- 73 :RL(19);\r
- 6 :DescribeRm;\r
- end;\r
- end; {of 3}\r
-\r
-4 :case verb of\r
- 43..52,20:RL(7);\r
- 55 :if(noun=35)then begin RL(332);Ev:=Ev-['B'];end;\r
- 42,3:if noun=35 then begin RL(8); Ev:=Ev+['B'];end\r
- else if(noun=39)then\r
- if(en('o'))then\r
- begin Ev:=Ev-['o'];RL(186); for o:=0 to 57 do\r
- if(o in kitset)then r[o]:=Null;end\r
- else Say(noun,'shut');\r
- 29,37 :if(noun=35)and(noun2=60)then begin\r
- RL(8);Ev:=Ev+['B'];end;\r
- 26 :if(noun=35)and(en('B'))then begin RL(332);Ev:=Ev-['B'];end\r
- else if(noun=39)then\r
- if not(en('o'))then\r
- begin Ev:=Ev+['o'];RL(328); for o:=0 to 57 do\r
- if(o in kitset)then r[o]:=Prm;end\r
- else Say(noun,'opened');\r
- 19,2:if(noun in[6,64])or(noun=Null)then\r
- if(en('B'))then RL(9)\r
- else begin RL(0);DEAD;end;\r
- 24,11:case noun of\r
- 39 :if(en('o'))then\r
- if kitset=[] then begin RL(329);end\r
- else begin RL(330);for o:= 0 to 57 do\r
- if(o in kitset)then writeln(' a ',n[o,1]);end\r
- else RL(331);\r
- 35 :RL(12);\r
- 73 :RL(19);\r
- 6 :DescribeRm;\r
- end; {of case}\r
- end; {of 4}\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP1}\r
-{-------------------}\r
-overlay procedure SpecialAnswers2;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-5 :case verb of\r
- 45 :moveto(6);\r
- 2 :if(noun=79)then RL(263);\r
- end;\r
-\r
-6 :case verb of\r
- 46 :moveto(5);\r
- 43..52:if FlasOff then RL(14)\r
- else case verb of\r
- 43:begin Ox:=0;RL(286);moveto(7);end;\r
- 45:moveto(9); 49:moveto(8);\r
- end;\r
- end; {of 6}\r
-\r
-7 :case verb of\r
- 23..25,11:if(noun in[6,36,73,0,15,64,67])then RS(9);\r
- 43..50 :if FlasOff then RL(14)\r
- else\r
- begin\r
- If(Verb in[43,47,48])then Ox:=Ox+1;\r
- If(Verb in[44,49,50])then Ox:=Ox-1;\r
- if(Ox<1)then begin RL(286);moveto(6)end\r
- else\r
- begin\r
- RL(333);\r
- if(random(20)=2)then begin writeln;RS(9);\r
- if not(en('K'))then begin Ev:=Ev+['K'];Sc:=Sc+15;end;end;\r
- end;\r
- end;\r
- 28,17,6:if(noun=36)or(noun=15)then begin RS(10);DEAD;end;\r
- 31 :if(input='help')then begin RL(334);moveto(6)end;\r
- end; {of 7}\r
-\r
-8 :case verb of\r
- 48,58:if FlasOff then RL(14) else moveto(6);\r
- 43..52:if FlasOff then RL(14);\r
- 11:if(noun in [46,79])then RS(12)\r
- else if(noun in [15,30])then RL(28);\r
- 38 :if(noun=46)then begin SA;writeln('It feels jagged.');end;\r
- end; {of 8}\r
-\r
-9 :case verb of\r
- 43..52 :if FlasOff then RL(14)\r
- else case verb of\r
- 46:moveto(6);47:moveto(10);49:moveto(11);\r
- end;\r
- end; {of 9}\r
-\r
-10 :case verb of\r
- 50,58 :if FlasOff then RL(14)\r
- else moveto(9);\r
- 43..52:if FlasOff then RL(14);\r
- 19,2:if(noun in[17,80])then begin RL(0);DEAD;end;\r
- end; {of 10}\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP2}\r
-{-------------------}\r
-overlay procedure SpecialAnswers3;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-14 :case verb of\r
- 46,48 :if FlasOff then RL(14)\r
- else if(verb=46)then moveto(11) else moveto(15);\r
- 43..52 :if FlasOff then RL(14);\r
- end; {of 14}\r
-\r
-15 :case Verb of\r
- 52,2 :if(en('d'))and(en('t'))then\r
- begin RL(63);moveto(16);end else RL(64);\r
- 19 :RL(64);\r
- 7 :RL(65);\r
- 14 :if(noun in[57,70])then begin inven:=inven+[noun];r[noun]:=Null;\r
- if(noun=70)then Ev:=Ev-['d']\r
- else Ev:=Ev-['t'];SA;writeln(n[noun,1],': Taken.');end;\r
- 45,49 :if(flasoff)then RL(14) else moveto(14);\r
- 44 :RL(73);\r
- 24,11:if(noun=17)and not(en('u'))then RL(74)\r
- else if(noun=17)and(en('a'))then RL(75);\r
- 17,36,29,9:case noun of\r
- 70:if((noun2 in[30,42])or(noun2=Null))and(verb<>9)then\r
- if not(en('d'))then\r
- begin RL(69);Ev:=Ev+['d'];r[70]:=Prm;inven:=inven-[70];end\r
- else RL(67)\r
- else if(verb=9)then begin end else RL(66);\r
- 57:if(noun2=17)and(verb<>17)then begin\r
- if(here(ropecon))and(ropecon<>57)then begin\r
- RL(71);inven:=inven-[57];r[57]:=Prm;\r
- if(ropecon=70)then Ev:=Ev+['t'];end\r
- else begin RL(70);vanish(57); end;\r
- end else begin end\r
- else if(verb in[9,29,36])and(noun2=17)and(noun in mov)then\r
- if(here(ropecon))and(noun=ropecon)then begin RL(76);\r
- inven:=inven-[noun];r[noun]:=Null;\r
- if(ropecon=29)then Ev:=Ev+['u'];end\r
- else begin RL(72);inven:=inven-[noun];r[noun]:=17;end\r
- end;{of noun case}\r
- end;{of 15}\r
-\r
-16 :case verb of\r
- 51,2 :moveto(15);\r
- 52 :RL(85);\r
- 0,3..18,20..21,26..40,42,53,55,56,60:RL(86);\r
- 19,61:begin RS(18);Ev:=Ev-['a'];Ev:=Ev+['r'];Sc:=Sc+60;\r
- moveto(17);dropall;if(here(2))then begin r[2]:=Null;\r
- r[51]:=Prm;end;r[57]:=Null;end;\r
- end;{of 57}\r
-\r
-end {of Case}\r
-else SA\r
-end; {of SP3}\r
-{-------------------}\r
-overlay procedure SpecialAnswers4;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-19 :case verb of\r
- 48,51,58:if(flasoff)then RL(14)else begin RL(311);moveto(18);end;\r
- 47,52,57:if(flasoff)then RL(14)else begin RL(309);moveto(20);end;\r
- end;{of stairs}\r
-\r
-20 :case verb of\r
- 50,51,58:if(flasoff)then RL(14)else begin RL(310);moveto(19);end;\r
- 11,24,25,23:if(noun=67)then RL(90)\r
- else if(noun in[12,43])and not(en('E'))then begin RL(92);\r
- r[32]:=20;Sc:=Sc+15;Ev:=Ev+['E'];end;\r
- 14,38:if(noun in[67,12])then RL(91);\r
- 43..49,57:if(noun=Null)or(noun in[12,43])then RL(215);\r
- end;{of 20}\r
-\r
-21 :case verb of\r
- 50 :if(flasoff)then RL(14)else moveto(18);\r
- 47 :if(flasoff)then RL(14)else moveto(22);\r
- 2,51:if(flasoff)then RL(14)else\r
- if(noun=64)or(noun=Null)then moveto(23);\r
- 45 :RL(97);\r
- 49,44,43:RL(258);\r
- 11 :if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;\r
- end;\r
-\r
-22 :case verb of\r
- 50 :if(flasoff)then RL(14)else moveto(21);\r
- 2,51 :if(flasoff)then RL(14)else\r
- if(noun=64)or(noun=Null)then moveto(23);\r
- 44 :RL(97);\r
- 47,45,49:RL(258);\r
- 11 :if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;\r
- end; {of 22}\r
-\r
-23 :case verb of\r
- 46,50 :if(flasoff)then RL(14)else moveto(21);\r
- 43,48 :if(flasoff)then RL(14)else moveto(22);\r
- 44..49:RL(258);\r
- 26,27 :if(noun=26)then\r
- if(en('l'))then Say(26,'open')\r
- else begin RL(98);Ev:=Ev+['l'];p[23]:=p[23]+[69];end;\r
- 3 :if(noun=26)then\r
- if(en('l'))then begin RL(171);Ev:=Ev-['l'];p[23]:=p[23]-[69];end\r
- else Say(26,'closed');\r
- 2,52,57:if(en('l'))and((noun=69)or(noun=Null))then moveto(24)else RL(99);\r
- 24,25 :if(noun=26)then RL(151);\r
- 11 :if(noun=26)then if(en('l'))then RL(217)else RL(218)\r
- else if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;\r
- end; {of 23}\r
-\r
-24 :case verb of\r
- 51,58:if(en('l'))then moveto(23) else RL(99);\r
- 52,57:moveto(25);\r
- 24,25 :if(noun=26)then RL(151);\r
- 3 :if(noun=26)then begin RL(171);Ev:=Ev-['l'];end else\r
- if(noun=55)then RL(411);\r
- 2 :if(noun=69)then Moveto(25);\r
- 26 :if(noun=26)then begin RL(98);Ev:=Ev+['l'];end else\r
- if(noun=55)then RL(412);\r
- 11 :if(noun=26)then if(en('l'))then RL(217)else RL(218)else\r
- if(noun=55)then RL(410);\r
- 27,28:If(noun=55)then RL(411);\r
- end;\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP4}\r
-{-------------------}\r
-overlay procedure SpecialAnswers5;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-25 :case verb of\r
- 43:begin writeln('The door slides open...');play(55,70,40);moveto(27);\r
- writeln('The door slides shut behind you.');play(70,55,40);\r
- if not(en('Y'))then begin Ev:=Ev+['Y'];Sc:=Sc+30 end end;\r
- 44:moveto(32); 45:moveto(30);\r
- 46:moveto(34); 47:moveto(28); 49:moveto(31);\r
- 48:if(en('v')and not(en('p')))then begin Verbose:=False;moveto(35);\r
- RS(25);DEAD; end else moveto(35);\r
- 50:moveto(33); 51,58:moveto(24);\r
- 52,2:if(noun=69)or(noun=Null)then moveto(26);\r
- 17,27,28,38:if(noun=26)then\r
- begin RL(413);play(55,70,45);play(69,54,45)end;\r
- 26,40:if(noun=26)then RL(414);\r
- end;\r
-\r
-27 :case verb of\r
- 44,58:begin writeln('The door slides open...');play(55,70,40);moveto(25);\r
- writeln('The door slides shut behind you.');delay(999);play(70,55,40)\r
- end;\r
- 17,27,28,38:if(noun=26)then\r
- begin RL(413);play(30,40,25);play(40,30,25)end;\r
- 26,40:if(noun=26)then RL(414);\r
- 11 :if(noun in[20,21])then RL(103)\r
- else if(noun=58)then case compcon of\r
- Null:RL(155); 1:RS(21); 2:RS(22); 3:RS(23);\r
- 4:begin RS(24);compcon:=Null;gotoxy(1,wherey-1);\r
- writeln('. tim. chamb.r c.de: ',Code,'.. ..tel.port... . .',\r
- '... . .. ime . p.n.l ....... ...');\r
- RL(105);play(29,29,40);end;end;{of case}\r
- 53 :begin\r
- if(input='1')or(input='one')then begin RL(104);compcon:=1;end;\r
- if(input='2')or(input='two')then begin RL(104);compcon:=2;end;\r
- if(input='3')or(input='three')then begin RL(104);compcon:=3;end;\r
- if(input='4')or(input='four')then begin RL(104);compcon:=4;end;\r
- for y:=1 to random(40)+9 do\r
- begin x:=random(6000)+99;play(x,x,50);delay(9)end\r
- end;\r
- 31 :if(compcon=null)then begin\r
- play(9,999,0);sound(999);RS(20);play(999,9,0);if not(en('J'))then\r
- begin Ev:=Ev+['J'];Sc:=Sc+40;end;end;\r
- end;\r
-\r
-28 :case verb of\r
- 50,58:moveto(25);\r
- 45,57:moveto(29);\r
- 28 :if(noun in[33,10])then begin RL(137);play(31,31,450);end;\r
- end;\r
-\r
-29 :case verb of\r
- 46,58:moveto(28);\r
- 36 :if(noun2 in[33,10])and(noun in Mov)then\r
- if(en('M'))then\r
- begin RS(27);Ev:=Ev-['M','r'];Vanish(noun);r[noun]:=28;\r
- if not(en('N'))then begin Ev:=Ev+['N'];Sc:=Sc+55;end;\r
- play(28,34,600)end\r
- else begin Vanish(noun);r[noun]:=28;RL(179);\r
- if(noun in[7,8,29,34,40,51])then Ev:=Ev+['M'];end;\r
- end;\r
-\r
-33 :case verb of\r
- 47,58:moveto(25);\r
- 34 :RL(272);\r
- 28,38:if(noun=10)then begin RL(421);x:=random(9999);case random(3) of\r
- 0:play(x,random(9999),random(3));\r
- 1:for y:=1 to random(300)+60 do\r
- begin x:=random(9999);play(x,x,2);delay(7)end;\r
- 2:begin y:=9999;o:=0;\r
- repeat x:=random(9999);play(x,y,0);\r
- y:=random(9999);play(y,x,0);o:=o+1;\r
- until o>7 end end end\r
- end;\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP5}\r
-{-------------------}\r
-overlay procedure SpecialAnswers6;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-30 :case verb of\r
- 46,58:if(en('e'))then RL(212) else moveto(25);\r
- 26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'open') else RL(159)\r
- else\r
- if(noun in[10,76])and(verb=28)then\r
- begin\r
- if(MnRm=30)then begin RS(76);DEAD;end;\r
- if(en('e'))then\r
- begin RS(29);writeln;\r
- play(1,700,7);play(701,8000,1);Ev:=Ev-['e'];\r
- case YearDial of\r
- 1933:begin Loc:='Civilization!';Sc:=Sc+80;RS(78);HOME;END;\r
- 2111..2679:begin\r
- Verbose:=False;moveto(41);RS(30);Verbose:=True;\r
- if not(en('O'))then begin Sc:=Sc+55;Ev:=Ev+['O'];end;\r
- n[78,5]:=Q;n[37,5]:='glass';n[72,1]:='fence';\r
- n[70,1]:='hooded figure';n[70,2]:='hooded';n[70,3]:='figure';\r
- n[70,4]:='mutant';n[70,5]:=Q;n[3,1]:='footprints';\r
- n[3,2]:='footpri';n[57,1]:='parachute';n[57,2]:='parachu';\r
- n[35,1]:='boulder';n[35,2]:='rock';n[35,3]:='rocks';\r
- n[66,4]:='red';\r
- end;\r
- 0..1111 :begin writeln;RS(31);DEAD;end;\r
- 1112..2110:begin writeln;RS(32);DEAD;end;\r
- 2680..3789:begin writeln;RS(33);DEAD;end\r
- else begin writeln;RS(34);DEAD;end;\r
- end; {of YearDial case}\r
- end\r
- else begin RL(209);play(1,9999,0)end;\r
- end;\r
- 33 :if(noun in[16,59])or(noun=Null)then begin Ev:=Ev+['e'];RL(210);end;\r
- 35 :if(en('e'))then begin Ev:=Ev-['e'];RL(211);Attack:=False end;\r
- 17,0,6:if(noun=49)then RL(160);\r
- 53 :if(input=Code)then\r
- If(en('h'))then Say(49,'open')\r
- else\r
- begin Ev:=Ev+['h'];RL(173);play(23,24,250);Sc:=Sc+30;\r
- if(PanelCon<>Null)then begin r[PanelCon]:=30;Code:='R';\r
- writeln('Sitting inside the panel compartment is a ',\r
- n[PanelCon,1],'.');end\r
- else RL(183);\r
- end\r
- else RL(172);\r
- 3 :If(noun=49)then RL(159);\r
- 39 :if(noun=25)then RL(115) else\r
- case noun of\r
- 24:if(DialNum>0)and(DialNum<377)then begin RL(176);DayDial:=DialNum;end\r
- else RL(178);\r
- 82:if(DialNum>-1)and(DialNum<5000)then begin RL(177);\r
- YearDial:=DialNum;end else RL(178);\r
- end;\r
- 11,24:case noun of\r
- 49:begin SA;if(en('h'))then if(PanelCon=Null)then RL(183)\r
- else writeln('Inside the compartment is a ',n[PanelCon,1],'.')\r
- else RL(184);end;\r
- 82:begin SA;writeln('The year dial is set to ',YearDial,'.');end;\r
- 24:begin SA;writeln('The day dial is set to ',DayDial,'.');end;\r
- 16:begin RL(203);RL(204)end;\r
- 25:RL(115);\r
- 38:RL(161);\r
- end;\r
- end; {of 30}\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP6}\r
-{-------------------}\r
-overlay procedure SpecialAnswers7;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-26 :case verb of\r
- 51,58,2:if(noun=69)or(noun=Null)then moveto(25);\r
- 43,48 :moveto(36); 44,49 :moveto(38); 45,47 :moveto(39); 46,50 :moveto(37);\r
- end;\r
-\r
-35 :case verb of\r
- 49,58:moveto(25);\r
- 11:case noun of\r
- 54:RL(100);\r
- 62:if(en('v'))then RL(205)else RL(206);\r
- end;\r
- 28 :if(noun in[55,10])then\r
- if(en('v'))then begin RL(101);Ev:=Ev-['v'];play(40,65,80)end\r
- else\r
- begin RL(102); Ev:=Ev+['v'];play(65,40,80);\r
- if not(en('p'))then begin RS(28);DEAD;end\r
- else if(MnRm=35)then\r
- begin n[23,1]:='melted monster';n[23,4]:='melted';MnRm:=Null;\r
- RS(74);p[35]:=p[35]+[77];\r
- if not(en('W'))then begin Sc:=Sc+65;Ev:=Ev+['W'] end\r
- end\r
- end;\r
- 14 :if(noun in[1,77])and(77 in p[35])then begin Sc:=Sc+10;noun:=77;end;\r
- 55 :if(noun=74)then\r
- if(en('v'))then begin RS(26);DEAD end;\r
- 38 :RL(30);\r
- end;\r
-\r
-36 :case verb of\r
- 44,49,58:moveto(26);\r
- 45 :moveto(39);\r
- 46 :moveto(37);\r
- 57 :if(noun=12)then RL(215);\r
- end;\r
-\r
-37 :case verb of\r
- 45,47,58:moveto(26);\r
- 43 :moveto(36);\r
- 44 :moveto(38);\r
- 57 :if(noun=12)then RL(215);\r
- end;\r
-\r
-38 :case verb of\r
- 43,48,58:moveto(26);\r
- 45 :moveto(39);\r
- 46 :moveto(37);\r
- 57 :if(noun=12)then RL(215);\r
- 0..99:if(noun=28)or(noun2=28)then\r
- begin RS(35);RL(220);p[40]:=p[40]+[48];moveto(40);Ev:=Ev-['g'];\r
- if(MnRm=Prm)then begin RS(79);DEAD end\r
- end;\r
- end;{of 38}\r
-\r
-39 :case verb of\r
- 46,50,58:moveto(26);\r
- 45 :if(en('g'))then moveto(40);\r
- 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');\r
- 43 :moveto(36);\r
- 44 :moveto(38);\r
- 57 :if(noun=12)then RL(215);\r
- end;\r
-\r
-40 :case verb of\r
- 46,58 :if(en('g'))then moveto(39) else RL(221);\r
- 26 :if(noun=26)then if(en('g'))then Say(26,'open') else RL(221);\r
- 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');\r
- 11,14 :if(noun in[12,43,83])then RL(261);\r
- end;\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP7}\r
-{-------------------}\r
-overlay procedure SpecialAnswers8;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-41 :case verb of\r
- 43 :moveto(42);\r
- 44 :moveto(43);\r
- 2,19 :if(noun in[53,73,87])then\r
- begin RS(39);RL(287);moveto(46);Rx:=4;end;\r
- end;\r
-\r
-42 :case verb of\r
- 44 :moveto(41);\r
- 43 :RL(296);\r
- 14 :if(noun in[13,1])and(13 in p[42])then\r
- begin Sc:=Sc+10;noun:=13;end;\r
- 2,19 :if(noun in[53,73,87])then\r
- begin RS(39);RL(287);moveto(46);Rx:=4;end;\r
- end;\r
-\r
-43 :case verb of\r
- 43 :moveto(41);\r
- 44 :moveto(44);\r
- 2,19 :if(noun in[53,73,87])then\r
- begin RS(39);RL(287);moveto(46);Rx:=4;end;\r
- end;\r
-\r
-44 :case verb of\r
- 43 :moveto(43);\r
- 46 :moveto(47);\r
- 45 :begin RL(274);Rx:=0;moveto(46);end;\r
- 43..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);\r
- end;\r
-\r
-45 :case verb of\r
- 44 :moveto(49);\r
- 46 :begin RL(274);Rx:=8;moveto(46);end;\r
- 45 :begin Rx:=9;RL(274);moveto(46);end;\r
- 43..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);\r
- end;\r
-\r
-46 :case verb of\r
- 45 :begin Rx:=Rx+1;RL(274);\r
- if(Rx=9)then begin\r
- if not(en('T'))then begin Ev:=Ev+['T'];Sc:=Sc+30;end;\r
- moveto(45)end;\r
- if(Rx>86)then begin RL(340);moveto(47)end\r
- end;\r
- 46 :begin Rx:=Rx-1;RL(274);\r
- if(Rx=8)then moveto(45);\r
- if(Rx<1)then moveto(44);\r
- end;\r
- 43..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);\r
- end;\r
-\r
-47 :case verb of\r
- 46,52,2,19:begin if(random(2)=1)then begin RS(37);DropAll;moveto(48)end\r
- else begin RL(277);moveto(48)end;end;\r
- 45 :moveto(44);\r
- 43..50:RL(278);\r
- end;\r
-\r
-48 :case verb of\r
- 45,51,2:if(random(3)=2)and(noun<>35)then begin RS(38);moveto(47)end\r
- else if(noun<>35)then RL(279);\r
- 43..50:RL(279);\r
- 14 :if(noun in[27,1])and(27 in p[48])then\r
- begin Sc:=Sc+20;noun:=27;end;\r
- 11 :if(noun=35)then RL(289)\r
- end;\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP8}\r
-{-------------------}\r
-overlay procedure SpecialAnswers9;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-50 :case verb of\r
- 43,58 :begin RL(290);moveto(49);end;\r
- 44,57 :if(noun=Null)or(noun in[88,26,50])then\r
- begin RS(41);if not(en('L'))then\r
- begin Ev:=Ev+['L'];Sc:=Sc+25;end;moveto(51);end;\r
- 11 :case noun of\r
- 35,50:RL(292);\r
- 88,68:RS(42);\r
- 46,66:RS(43);\r
- end;\r
- 30,28,38,17,14:if(noun=88)then RL(294);\r
- end;\r
-\r
-51 :case verb of\r
- 44 :moveto(52);\r
- 46 :moveto(52);\r
- 48 :moveto(53);\r
- end;\r
-\r
-52 :case verb of\r
- 43 :moveto(51);\r
- 47 :moveto(53);\r
- 46 :moveto(51);\r
- end;\r
-\r
-53 :case verb of\r
- 52,2,57:if(noun=Null)or(noun=69)then begin if not(en('Q'))then\r
- begin Ev:=Ev+['Q'];Sc:=Sc+30;end;moveto(55);end;\r
- 47 :moveto(52);\r
- 45 :moveto(53);\r
- 49 :moveto(54);\r
- end;\r
-\r
-54 :case verb of\r
- 43 :moveto(52);\r
- 49 :moveto(53);\r
- 44 :moveto(51);\r
- 50 :begin if not(en('R'))then\r
- begin Ev:=Ev+['R'];Sc:=Sc+20;end;moveto(56);end;\r
- end; {verb case}\r
-\r
-55 :case verb of\r
- 51,2,58,44:if(noun=Null)or(noun=69)then moveto(53);\r
- 11 :if(noun in[11,45])then\r
- begin RL(297);if(en('k'))then RL(298) else RL(299)end;\r
- 26,40:if(noun in[45,26,11,68])and(noun2=27)and(SepWord='with')then\r
- if not(en('k'))then\r
- begin Ev:=Ev+['k'];RS(45);for o:=2 to NMax do\r
- if(o in cabiset)then r[o]:=55;\r
- if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;\r
- end\r
- else Say(11,'open')\r
- else if(SepWord='s')then RL(317);\r
- 29 :if(noun=27)and(noun2 in[45,26,11,68])and(SepWord='in')then\r
- if not(en('k'))then\r
- begin Ev:=Ev+['k'];RS(45);for o:=2 to NMax do\r
- if(o in cabiset)then r[o]:=55;\r
- if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;\r
- end\r
- else RL(216);\r
- 3 :if(noun in[45,26,11])then\r
- if(en('k'))then\r
- begin RL(314);play(30,32,30);Ev:=Ev-['k'];\r
- for o:= 2 to NMax do if(o in cabiset)then r[o]:=Null;\r
- end\r
- else Say(11,'shut & locked');\r
- 24,30 :if(noun in[26,11])then\r
- if(en('k'))then\r
- begin RL(324);\r
- if(cabiset=[])then RL(339)else\r
- for o:=0 to NMax do if(o in Cabiset)then writeln('a ',n[o,1])\r
- end\r
- else RL(299);\r
- end; {of 55}\r
-\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP9}\r
-{-------------------}\r
-overlay procedure SpecialAnswers10;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-56 :case verb of\r
- 47 :moveto(54);\r
- 2,51,58:if(noun=Null)or(noun=69)then moveto(57);\r
- end;\r
-\r
-57 :case verb of\r
- 46,57,2,33:if(noun=Null)or(noun=65)then\r
- begin n[68,1]:='keyhole';n[68,4]:='slot';moveto(58)end;\r
- 52 :moveto(56);\r
- end;\r
-\r
-58 :case verb of\r
- 45,58:moveto(57);\r
- 43..51,20:if(en('i'))and(en('j'))and KeyHole then\r
- begin sound(38);RS(61);ShRm:=2;moveto(59);sound(20);\r
- for o:=0 to NMax do if(r[o]=58)then r[o]:=59;\r
- if not(en('S'))then begin Ev:=Ev+['S'];Sc:=Sc+60 end end else RL(325);\r
- 28 :if(noun=10)then noun:=81;\r
- 11 :if(noun=68)then if KeyHole then RL(336)else RL(404);\r
- end;\r
-\r
-65 :case verb of\r
- 43,47:moveto(66);\r
- 44,49:moveto(68);\r
- 45,57:begin if not(en('w'))then begin Ev:=Ev+['w'];RL(346);end\r
- else begin RL(347);DEAD end end;\r
- 46..50:moveto(63);\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(38);RL(344);delay(999);sound(20)end;\r
- 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end;\r
-\r
-66 :case verb of\r
- 43 :RL(343);\r
- 46,50 :moveto(65);\r
- 45,49 :moveto(67);\r
- 47 :moveto(64);\r
- 48 :moveto(63);\r
- 57,44 :begin sound(25);if not(en('V'))then begin Ev:=Ev+['V'];Sc:=Sc+30;end;\r
- RS(67);writeln;moveto(69);nosound;\r
- end;\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(38);RL(344);delay(999);sound(20)end;\r
- 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end; {of 66}\r
-\r
-67 :case verb of\r
- 46 :begin RL(347);DEAD;end;\r
- 43,48 :moveto(66);\r
- 44,50 :moveto(68);\r
- 45..49:moveto(64);\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(38);RL(344);delay(999);sound(20)end;\r
- 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end; {of 67}\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP10}\r
-{-------------------}\r
-overlay procedure SpecialAnswers11;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-63 :case verb of\r
- 45 :moveto(65);\r
- 47 :moveto(66);\r
- 49 :moveto(68);\r
- 43..50:RL(343);\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(38);RL(344);delay(999);sound(20)end;\r
- 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end;\r
-\r
-64 :case verb of\r
- 46 :moveto(67);\r
- 48 :moveto(66);\r
- 50 :moveto(68);\r
- 43..50:RL(343);\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(38);RL(344);delay(999);sound(20)end;\r
- 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end;\r
-\r
-68 :case verb of\r
- 43 :begin RL(347);DEAD;end;\r
- 44 :RL(343);\r
- 50 :moveto(63);\r
- 49 :moveto(64);\r
- 46,48 :moveto(65);\r
- 45,47 :moveto(67);\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(38);RL(344);delay(999);sound(20)end;\r
- 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end;\r
-\r
-69 :case verb of\r
- 28,27 :if(noun in[10,21,81,36])then RL(351);\r
- 11 :if(noun in[10,21,81,36,20,25])then RL(352)else\r
- if(noun=65)then RL(353);\r
- 43,58 :moveto(70);\r
- end;\r
-\r
-70 :case verb of\r
- 44,57,2,33:if(noun=Null)or(noun=65)then moveto(69)else\r
- if(noun in[69,50])then moveto(71);\r
- 43,47,48:RL(354);\r
- 49,52 :moveto(71);\r
- 11 :if(noun=65)then RL(353)\r
- else if(noun=68)then if KeyHole then RL(336)else RL(404);\r
- end;\r
-\r
-71 :case verb of\r
- 48,51,58:moveto(70);\r
- 45 :moveto(72);\r
- 11 :if(noun=58)then RL(386)else\r
- if(noun=25)then RL(418);\r
- 28,27:if(noun in[10,36])then begin RL(387);\r
- for o:=1 to random(12)+4 do play(random(250),random(250),random(30))\r
- end;\r
- 39 :if(noun=25)then begin RL(387);\r
- for o:=1 to random(99)+75 do\r
- begin x:=random(9999);play(x,x,random(19)+10);delay(5)end\r
- end\r
- end;{ of 71}\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP11}\r
-{-------------------}\r
-overlay procedure SpecialAnswers12;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-11 :case verb of\r
- 5,45,47,48,50:if FlasOff then RL(14)\r
- else case verb of\r
- 48:moveto(9);47:moveto(13);\r
- 5:if(29 in inven)or(40 in inven)or(2 in inven)then\r
- RL(58)\r
- else begin RL(18); moveto(12);end;\r
- 50:RL(17);\r
- 45:if(en('C'))then moveto(14) else RL(144);\r
- end;\r
- 31 :if(input='nepo egassap')and not(en('C'))then\r
- begin Ev:=Ev+['C']; RS(11);Sc:=Sc+35;end;\r
- 11 :if(noun in [79,72])then if(en('C'))then RL(270)else RS(13);\r
- 27,28:if(noun in [79,72])then RL(26);\r
- 17,0,6:if(noun in [79,72])then RL(27);\r
- 38 :if(noun in [79,72])then RL(30);\r
- end; {of 11}\r
-\r
-12 :case verb of\r
- 4,47 :if FlasOff then RL(14)\r
- else case verb of\r
- 4:begin RL(18); moveto(11);end;\r
- 47 :RL(17);\r
- end;\r
- 43..52 :if FlasOff then RL(14);\r
- 14 :if(noun in[70,1])and not(en('G'))then\r
- begin noun:=70;Ev:=Ev+['G'];Sc:=Sc+40;end;\r
- 7 :if not(en('G'))then begin Ev:=Ev+['G'];RL(157);\r
- FlagSA:='r';verb:=14;noun:=70;Sc:=Sc+40;end;\r
- end; {of 12}\r
-\r
-13 :case verb of\r
- 50 :if flasoff then RL(14)\r
- else begin moveto(11); Ev:=Ev-['q'];end;\r
- 43 :if(en('q'))then begin RL(24); DEAD;end\r
- else begin RL(23); Ev:=Ev+['q'];end;\r
- 52,19,33:RL(42);\r
- 14 :if(noun=47)then RL(25);\r
- 9 :begin RL(68);vanish(noun);end;\r
- end;{of 13}\r
-\r
-17 :case verb of\r
- 51,19,2:RL(15);\r
- 45 :if(flasoff)then RL(14)else moveto(18);\r
- end;\r
-\r
-18 :case verb of\r
- 46 :if(flasoff)then RL(14)else moveto(17);\r
- 49,52 :if(flasoff)then RL(14)else begin RL(308);moveto(19);end;\r
- 47 :if(flasoff)then RL(14)else\r
- if not(en('F'))then begin RS(19);writeln;moveto(21);\r
- Ev:=Ev+['F'];Sc:=Sc+10;end\r
- else moveto(21);\r
- 11 :if(noun in[79,50])then RL(254);\r
- end;{of 18}\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP12}\r
-{-------------------}\r
-overlay procedure SpecialAnswers13;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-2 :case verb of\r
- 46 :moveto(1);\r
- 45, 44 :RL(1);\r
- 19,2 :if(noun in[53,6,64,73])then begin RL(0);DEAD;end;\r
- 14,27 :if noun=14 then RL(2)else\r
- if(noun in[1,40])and(40 in p[2])then\r
- begin noun:=40;Sc:=Sc+10;Verb:=14;RL(417);FlagSA:='r' end;\r
- 11 :if(noun in[66,46])then RL(11);\r
- 26 :if noun=14then RL(13);\r
- end;\r
-\r
-31 :case verb of\r
- 48,58:moveto(25);\r
- 14 :if not(en('I'))and(noun in[7,1])then\r
- begin Ev:=Ev+['I'];noun:=7;Sc:=Sc+5 end;\r
- 23,24,11:if(noun=84)then RL(152)else\r
- if(noun=22)then RL(415);\r
- end;\r
-\r
-32 :case verb of\r
- 43,58:moveto(25);\r
- 11,23 :case Noun of\r
- 61:if(en('H'))then RL(153) else begin Ev:=Ev+['H'];r[34]:=32;\r
- RL(154);Sc:=Sc+15;end;\r
- end;{of Noun case}\r
- end;\r
-\r
-34 :case verb of\r
- 45,58:moveto(25);\r
- 14 :if(noun=74)and(74 in P[34])then begin P[34]:=P[34]-[74];\r
- inven:=inven+[74];RL(138);Sc:=Sc+25;end;\r
- 42 :if(noun=74)and(74 in P[34])then RL(175);\r
- 28,27:if(noun in[10,36])then begin RL(387);\r
- for o:=1 to random(12)+4 do play(random(250),random(250),random(30))\r
- end;\r
- 39 :if(noun=25)then begin RL(387);\r
- for o:=1 to random(99)+75 do\r
- begin x:=random(9999);play(x,x,random(19)+10);delay(5)end\r
- end;\r
- 11 :case noun of\r
- 0:RL(139);\r
- 25:RL(418);\r
- 21:begin;RL(140);RL(141);end;\r
- 68:if(SlotCon=Null)then RL(143) else\r
- begin SA;writeln('The slot contains a ',n[SlotCon,1],'.')end;\r
- 58:if(SlotCon=77)and not(en('x'))then\r
- begin Ev:=Ev+['x'];Sc:=Sc+5;RS(75)end\r
- else if(SlotCon=77)then RS(77)else RL(385)\r
- end\r
- end;\r
-\r
-0 :case verb of\r
- 45 :MoveTo(1);\r
- 44 :begin TextColor(m8);writeln('Casino Hall');TextColor(m2);RS(0)end;\r
- 19,2 :if(noun in[53,6,64,73])then begin RL(0);DEAD;end;\r
- 11 :if(noun=73)then RL(19);\r
- end;\r
-\r
-1 :case verb of\r
- 46 :moveto(0);\r
- 45 :moveto(2);\r
- 43,57 :moveto(3);\r
- 6,17 :if(noun=57)and(here(40))and((noun2=40)or(noun2=Null))then\r
- begin RS(16);Sc:=-500;\r
- Loc:='Locked Cabin';Verbose:=True;inven:=[];KitSet:=KitSet-[57];\r
- n[57,1]:='plastic card';n[57,2]:='card';n[57,3]:='plastic';\r
- n[57,4]:='elevato card';n[57,5]:='elevato';r[57]:=76;moveto(76)\r
- end;\r
- 33,19,2 :if(noun in[6,53,64])then moveto(3)\r
- end;\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP13}\r
-{-------------------}\r
-overlay procedure SpecialAnswers14;\r
-\r
-begin\r
-FlagSA:='r';\r
-if Present then\r
-Case Prm of\r
-\r
-49 :case verb of\r
- 43 :moveto(45);\r
- 44,57 :begin RL(290);moveto(50);n[36,1]:='lever';n[36,2]:='handle';end;\r
- 45..50:RL(291);\r
- 11 :if(noun in[26,50])then RL(292);\r
- 2 :if(noun=72)then RL(312);\r
- 11 :if(noun=72)then RL(313);\r
- end;\r
-\r
-59 :case verb of\r
- 43..50:begin o:=random(8)+3;writeln('You travel about ',o,' miles...');\r
- if(random(4)=2)then ShRm:=13 else ShRm:=Random(15);moveto(59)end;\r
- 52,57:RL(341);\r
- 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;\r
- 51 :begin sound(30);\r
- if not(en('U'))then begin RS(64);writeln;Ev:=Ev+['U'];Sc:=Sc+45;end\r
- else RL(349);moveto(63);sound(20)end;\r
- 14 :if(noun=63)then begin RS(65);DEAD;end;\r
- 28 :if(noun=10)then noun:=81;\r
- end; {of case 59}\r
-\r
-72 :case verb of\r
- 46 :moveto(71);\r
- 43,44,58:moveto(73);\r
- 45 :moveto(74);\r
- end;\r
-\r
-73 :case verb of\r
- 43,45,58:moveto(72);\r
- 46 :moveto(73);\r
- 44 :begin moveto(74);if(MnRm=Null)then RL(356);end;\r
- end;\r
-\r
-74 :case verb of\r
- 43,45 :moveto(73);\r
- 46,58 :moveto(74);\r
- 44 :if(MnRm=Null)then begin Verbose:=False;Moveto(75);Verbose:=True;\r
- RS(69);MnRm:=75;Attack:=False end else moveto(75);\r
- end;\r
-\r
-75 :case verb of\r
- 43,58 :moveto(74);\r
- 11 :if(noun in[14,61])then RL(364);\r
- end;\r
-\r
-76 :case verb of\r
- 43 :RL(114);\r
- 11 :if(noun=26)then RL(271)else\r
- if(noun=57)then RL(408);\r
- end;\r
-\r
-end {of case}\r
-else SA\r
-end; {of SP14}\r
-{===================}\r
-procedure ScreenDraw_PlayerInput;\r
- begin\r
- gotoxy(1,23);writeln;TextColor(m5);write(chr(175),' ');\r
- Window(1,1,80,25);\r
- gotoxy(1,1);textcolor(m4);TextBackGround(m6);\r
- gotoxy(10,1); writeln(Tic,' '); gotoxy(75,1); writeln(Sc,' ');\r
- gotoxy(35-(length(Loc)div 2),1);writeln(' ',Loc,' ');\r
- gotoxy(3,25);TextBackGround(0);Window(1,2,80,25);\r
- textcolor(m1);BufLen:=77;\r
- if(Loc<>'Civilization!')then READLN(LINE)else repeat;until false;\r
- if(Line='r')or(Line='repeat')then Line:=Again\r
- else Again:=Line;\r
- gotoxy(1,23);TextColor(m3);writeln(chr(175));TextColor(m2);\r
- end;\r
-{-------------------}\r
-\r
-\r
-BEGIN\r
-clrscr;\r
-assign0;\r
-assign1;assign2;assign3;assign4;assign5;assign6;assign7;assign8;\r
-Initialize;\r
-\r
- {*****} repeat {*****}\r
-\r
-if Skip then Time; writeln;\r
-\r
-if(length(Line)=0)then begin\r
- ScreenDraw_PlayerInput;\r
- while pos(' then ',Line)>0 do\r
- begin x:=pos('then ',Line);delete(Line,x,4);insert('.',Line,x)end;\r
- LowerCase(Line);\r
- Format(Line);\r
- Chop(Line);\r
-end;\r
-if(pos('.',Line)>0)then begin\r
- Input:=copy(Line,1,pos('.',Line));\r
- delete(Line,1,pos('.',Line));\r
- delete(Input,pos('.',Input),1);\r
-end else\r
- begin\r
- Input:=Line;\r
- Line:=''\r
- end;\r
-Input:=Input+' ';\r
-while pos(' it ',Input)>0 do\r
- begin x:=pos(' it ',Input)+1;delete(Input,x,2);insert(LastNoun,Input,x);\r
- Format(Input);Chop(Input)end;\r
-if(Input[length(Input)]=' ')then delete(Input,length(Input),1);\r
-\r
-\r
-\r
-Check(SepWord);\r
-\r
-if Flag = 'g' then\r
- begin\r
- case Prm of\r
- 3..4 :SpecialAnswers1;\r
- 5..10 :SpecialAnswers2;\r
- 14..16 :SpecialAnswers3;\r
- 19..24 :SpecialAnswers4;\r
- 25,27..29,33 :SpecialAnswers5;\r
- 30 :SpecialAnswers6;\r
- 26,35..40 :SpecialAnswers7;\r
- 41..48 :SpecialAnswers8;\r
- 50..55 :SpecialAnswers9;\r
- 56..58,60..62,65..67:SpecialAnswers10;\r
- 63,64,68..71 :SpecialAnswers11;\r
- 11..13,17,18 :SpecialAnswers12;\r
- 0..2,31,32,34 :SpecialAnswers13;\r
- 49,59,72..76 :SpecialAnswers14\r
- end;\r
-\r
- if FlagSA <> 's' then\r
- case Verb of\r
- 11,18,22,41,43..52,57,58 :DefaultAnswers1;\r
- 29 :DefaultAnswers2;\r
- 1,2,8,12,13,15,16,19,21,\r
- 23..25,31,33,34,38,40,60,63:DefaultAnswers3;\r
- 3,6,7,20,30,35,53..56,59 :DefaultAnswers4;\r
- 9,26 :DefaultAnswers5;\r
- 27,28,62 :DefaultAnswers6;\r
- 14,64,4,5 :DefaultAnswers7;\r
- 0,10,17,42,39 :DefaultAnswers8;\r
- 32 :DefaultAnswers9;\r
- 36,37,61,65 :DefaultAnswers10;\r
- end;\r
- end;\r
-\r
- {*****} until False {*****}\r
-\r
-END. {of program}\r
-\1a\r
+{$mode objfpc}
+
+{//-------------------------------------------------------------------------}
+{/* }
+{Copyright (C) 2014 Jason Self <j@jxself.org> }
+{ }
+{This file is free software: you may copy, redistribute and/or modify it }
+{under the terms of the GNU Affero General Public License as published by }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version. }
+{ }
+{This file is distributed in the hope that it will be useful, but WITHOUT }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details. }
+{ }
+{You should have received a copy of the GNU Affero General Public License }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{This file incorporates work covered by the following copyright and }
+{permission notice: }
+{ }
+{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
+{ }
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }
+{software; you can redistribute it and/or modify it under the terms of the }
+{GNU General Public License as published by the Free Software Foundation; }
+{either version 3 of the License, or (at your option) any later version. }
+{ }
+{This program is distributed in the hope that it will be useful, but WITHOUT}
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. }
+{ }
+{See the GNU General Public License for more details. }
+{ }
+{You should have received a copy of the GNU General Public License }
+{along with this program; if not, write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{Original Source: 1990 Scott Miller }
+{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
+{*/ }
+{//-------------------------------------------------------------------------}
+{****************************************************************************}
+{* BEYOND THE TITANIC *}
+{* Written by Scott Miller with Turbo Pascal V.2. Began May 12, '84. *}
+{* Shareware Version *}
+{* Copyright 1987 *}
+{$C-,K-,V-,R-****************************************************************}
+
+{ Last modified: July 23, 1987 }
+
+uses crt,sysutils;
+const
+ Q = '#';
+ VMax = 65;
+ NMax = 89;
+ RMax = 76;
+ Null = -1;
+
+type
+ ComSet = set of 0..VMax;
+ CharSet = set of Char;
+ PlayersObjects = set of 0..NMax;
+ Str14 = string[14];
+ Str80 = string[80];
+ Str240 = string[240];
+ SaveGame = record
+ aInven,
+ aKitSet,
+ aCabiSet :PlayersObjects;
+ aPanelCon,
+ aSlotCon,
+ aCompCon,
+ aRopeCon,
+ aTic,
+ aYearDial,
+ aPrm,
+ aMnRm,
+ aSc,
+ aShots,
+ aShRm,
+ aRx :integer;
+ aEv :CharSet;
+ aCode,
+ aLoc :Str14;
+ aKeyHole :boolean;
+ end;
+
+var
+ WordList : file of Str14;
+ Things : file of integer;
+ Objects : file of PlayersObjects;
+ GameSave : file of SaveGame;
+ DiskSave : SaveGame;
+ Input,
+ Again,
+ Line : Str80;
+ V{erb} : array [0..VMax,1..5] of Str14;
+ N{oun} : array [0..NMax,1..5] of Str14;
+ R{oom} : array [0..NMax] of integer;
+ P{lace} : array [0..RMax] of PlayersObjects;
+ RmSh : set of 0..14;
+ OneWordCommands: Comset;
+ Mov{able},
+ Inven{tory},
+ KitSet,
+ CabiSet : PlayersObjects;
+ Word,
+ LastNoun,
+ Drive,
+ Code,
+ Loc{ation},
+ SepWord : Str14;
+ Rooms1, Rooms2,
+ Special1, Special2 : file of Str240;
+ Text1, Text2 : Str240;
+ Line1 : file of Str80;
+ Verb,
+ Noun, Noun2,
+ PanelCon,
+ RopeCon,
+ CompCon,
+ SlotCon,
+ RopeOld,
+ Tic,
+ YearDial,
+ DayDial,
+ Prm, {Player Room}
+ MnRm, {Monster Room}
+ Sc{ore},
+ Shots,
+ DialNum,
+ Stuff,
+ ShRm, {Shuttle Room}
+ m0,m1,m2,m3,m4,m5,m6,m7,m8,m9,
+ Rx, {deserted road}
+ Ox, {ocean bottom}
+ x, y, o : integer;
+ Flag,
+ FlagSA : char;
+ Ev{ent} : CharSet;
+ Attack,
+ Skip,
+ Back,
+ KeyHole,
+ Verbose : boolean;
+
+
+
+{$I AdParser.PAS}{ <--- Loads in sentence logic. <*********************}
+
+
+{$I Commands.PAS}{ <--- Loads in misc. procedures. <*********************}
+
+
+{$I WordList.PAS }{ <----- CALLS UP THE VERBS & NOUNS <*******************}
+
+
+{$I Objects.PAS }{ <----- CALLS UP THE VERBS & NOUNS <*******************}
+
+
+{===================}
+procedure DefaultAnswers1;
+var o : integer;
+begin
+
+CASE VERB OF
+
+22 :begin if(Prm in[59..68])then
+ begin RmSh:=RmSh-[ShRm];RS(84)end;
+ if flasoff and (Prm in [6..24])then RL(54) else
+ if Verbose then DescribeRm
+ else begin Verbose:=true;DescribeRm;Verbose:=false;end;
+ if(23 in p[Prm])and(MnRm=Prm)then RL(357);
+ if Back then begin Attack:=False; Back:=False;end
+ end;
+
+18 :if inven=[] then RL(116)
+ else
+ begin
+ writeln('You have in your possession...');
+ for o:= 0 to NMax do
+ begin
+ if(o in inven)then
+ if(o=74)then
+ writeln('an ',n[o,1])else writeln('a ',n[o,1]);
+ if(ropecon in inven)and(o=ropecon)then
+ writeln(' The rope is tied to the ',n[o,1],'.');
+ if(o=74)and(en('p'))then RL(174);
+ if(o=89)and(en('i'))then RL(321);
+ end;
+ end;
+
+11 :case noun of
+ 60:Diagnose;
+ 2:if(en('b'))then RL(198) else RL(199);
+ 29:begin RL(89);if(en('a'))then RL(200) else RL(201);end;
+ 57:if(ropecon<>Null)then
+ writeln('The rope is tied to the ',n[ropecon,1],'.')
+ else RL(133);
+ 65:if(Prm in[59..68])then RS(84)else Line:='l';
+ 8:RL(202);
+ 7:RL(163);
+ 70:RL(164);
+ 52:RL(165);
+ 74:RL(166);
+ 23:RS(70);
+ 32:RL(253);
+ 13:RL(167);
+ 22:RL(226);
+ 1:if(Prm=42)and(13 in p[42])then RL(167);
+ 21:RL(227);
+ 9:if(Prm=49)then RL(228)else if(Prm>62)then RS(68)else RL(229);
+ 69:RL(355);
+ 77:RL(403);
+ 37:RL(295);
+ 27:RL(394);
+ 89:RL(338);
+ 18:if(Prm in[63..70])then RS(68)else RL(348);
+ 46,66:If(Prm in[58,59,63,69])then begin
+ TextColor(12);RS(83);TextColor(m2)end;
+ 87:RL(230);
+ 84:RL(231);
+ 34:begin RL(189);
+ if(Shots>0)then writeln('is about ',Shots*10,' percent full.')
+ else Writeln('is empty.')end;
+ 15:if(84 in p[Prm])then RL(180)else If(71 in p[Prm])then RL(182)
+ else RL(181);
+ 56,44:if(en('r'))then RL(51) else RL(52)
+ else if not(noun in[1,12,14,15,17,18,19,22,31,36,50,
+ 54,67,69,73,79,80,84,87,88])and(random(3)=1)then
+ case random(3) of
+ 0 :RL(407);
+ 1 :writeln('Yea, it''s definitely a ',n[noun,1],'!');
+ 2 :writeln('It looks like any other ',n[noun,1],'.');
+ end
+ else writeln('You see nothing special about the ',n[noun,1],'.')
+ end;
+
+41 :begin writeln('Time passes');y:=wherey;for o:=1 to 6 do
+ begin gotoxy(11+o,y-1);writeln('.');sound(o*99);delay(30)end;
+ if(Prm in[59..68])then sound(20)else nosound end;
+
+43..52 :if(Prm in[6..24])and(FlasOff)then RL(14)else
+ if(Prm=69)then RL(358)else RL(144);
+
+57,58 :begin Attack:=False;
+ if(Prm in[6..24])and(FlasOff)then RL(14)else RL(190);end;
+
+ end {of case}
+end; {of DefaultAnswers1}
+{-------------------}
+procedure DefaultAnswers2;
+var o : integer;
+begin
+
+CASE VERB OF
+
+29 :if(noun in Mov)then
+ if(noun in inven)then
+ begin FlagSA:='r';
+ case Noun2 of
+ 39:if(en('o'))then begin RL(186);Vanish(noun);
+ kitset:=kitset+[noun];r[noun]:=Prm;end
+ else RL(185);
+ 68:if(Prm=34)then
+ if(SlotCon=Null)then begin RL(186);Vanish(noun);
+ SlotCon:=Noun;r[noun]:=Prm;end
+ else Say(68,'being used')
+ else
+ if(noun=63)and(Prm=58)then
+ begin RL(337);KeyHole:=True;r[63]:=Prm;inven:=inven-[63];end
+ else RL(327);
+ 88:begin RL(293);vanish(noun);r[noun]:=random(4)+51;end;
+ 47,53,73:if(Prm in[0..6,9,10,13,41..43])then
+ begin RL(307);vanish(noun);end;
+ 11:if(en('k'))then begin RL(186);Vanish(noun);
+ CabiSet:=CabiSet+[noun];r[noun]:=Prm;end
+ else RL(187);
+ 26:if(Prm=76)and(noun=57)then begin RL(409);Vanish(57)end;
+ 49:if(PanelCon=Null)and(noun in[2,7,8,13,27,32,51,52,63,77])then
+ begin RL(186);Vanish(noun);PanelCon:=Noun;r[noun]:=Prm;end
+ else RL(188);
+ 30:if(noun=70)then
+ if not(en('d'))then
+ begin Ev:=Ev+['d'];RL(69);Vanish(70);r[70]:=Prm;end
+ else Say(70,'in the dirt')
+ else Crazy
+ end;{of case}
+
+ if(FlagSA<>'s')then
+ begin
+ if(SepWord='to')then
+ if(noun2 in[4,6,9,11,14,16,22,30,50,59,61,64,65,69,75])then
+ begin RL(186);Vanish(noun);r[noun]:=Prm;end
+ else RL(197);
+ if(SepWord='at')or(SepWord='near')or(SepWord='behind')then
+ if(noun2 in[0,4,6,9,11,12,14,16,17,20..23,26,28,30,35,39,43,
+ 50,53,54,59,61,62,64..69,72,73,75,78..80])then
+ begin RL(186);Vanish(noun);r[noun]:=Prm;end
+ else RL(197);
+ if(SepWord='under')then
+ if(noun2 in[4,15,16,20,23,59,60,61,75])then
+ begin RL(186);Vanish(noun);r[noun]:=Prm;end
+ else RL(197);
+ if(SepWord='in')then
+ if(noun2 in[6,16,43,47,30,50,59,64,65,72,78,80,84])then
+ begin RL(186);Vanish(noun);r[noun]:=Prm;end
+ else RL(197);
+ if(FlagSA<>'s')then Crazy;
+ end
+ end
+ else writeln('First you must have the ',n[noun,1],'.')
+ else Crazy;
+
+ end {of case}
+end; {of DefaultAnswers2}
+{-------------------}
+ procedure DefaultAnswers3;
+var o : integer;
+begin
+
+CASE VERB OF
+
+31,63 :if(Verb=63)and(Prm<>MnRm)then RL(395)
+ else
+ if(Prm=MnRm)then
+ begin Attack:=False;
+ if(input='hi')or(input='hello')or(input='bye')then RL(396)else
+ if(copy(input,1,6)='follow')then RL(397)else
+ case random(5) of
+ 0:RL(365);1:RL(398);2:RL(399);3:RL(400);4:RL(401)
+ end
+ end
+ else RL(123);
+
+33 :RL(124);
+
+38 :case noun of
+ 83:RL(262);
+ 23:begin RL(366);DropAll;Ev:=Ev+['r'];Attack:=False end
+ else RL(125);
+ end;
+
+16 :if(MnRm=Prm)then begin Attack:=False;RL(372)end else
+ if(en('r'))then RL(373)else
+ if(Prm<15)and(70 in p[12])then RL(374)else RL(371);
+
+19 :if(noun=Null)then RL(136)else Crazy;
+24 :if(noun=7)then RL(422)else
+ if(noun in[26,6,7,22,36,17,50,65,73,74,80,79,30,84])then RL(126)
+ else Crazy;
+21 :RL(127);
+40 :Crazy;
+
+8 :if(noun in[73,80])or(noun=Null)then
+ if(noun<>Null)then RL(36)
+ else if(here(73))or(here(80))then RL(36)else RL(37)
+ else RL(53);
+
+12 :RL(38);
+2 :if(noun in[4,35,39,8,11,12,14,20,21,30,57,43,59,67,70,75])then
+ RL(43)else RL(44);
+
+15 :if(noun in mov)then
+ if(sepword='to')then
+ if(noun2=23)then
+ begin RL(62);Vanish(noun);Attack:=False end
+ else Crazy
+ else RL(60)
+ else RL(61);
+
+1 :if(verbose)then
+ begin verbose:=false;RL(134);end
+ else begin verbose:=true;RL(135);end;
+
+13 :RL(77);
+23 :RL(78);
+
+60 :case noun of
+ 43,12:RL(252);
+ 35:RL(288)
+ else RL(78);
+ end;
+
+25 :if(Prm>62)and(Noun in[9,18,19,41])then RL(350)else RL(78);
+34 :RL(79);
+
+ end {of case}
+end; {of DefaultAnswers3}
+{-------------------}
+ procedure DefaultAnswers4;
+var o : integer;
+begin
+
+CASE VERB OF
+
+20 :RL(81);
+35 :RL(82);
+
+6 :if(noun=23)and(here(40))then begin vanish(40);RL(84);end
+ else
+ if here(40)then
+ if(noun2=Null)or(noun2=40)then
+ case noun of
+ 57:RL(259);
+ 60:RL(260)
+ else writeln('At the last moment you decide to spare',
+ ' the ',n[noun,1],'''s life!')
+ end
+ else Crazy
+ else RL(83);
+
+30 :if(noun in [39,43,12,26,6,22,47,49,68,78,17,11,
+ 50,65,73,74,80,79,30])then RL(93) else RL(94);
+
+54 :begin write('Would you like to SAVE your game first (Y or N)? ');
+ flag:=ReadKey;if(upcase(flag)<>'N')then SAVE else writeln('No.');
+ write('Are you still sure you want to quit? ');
+ flag:=ReadKey;if(upcase(flag)='Y')then
+ begin RL(367);delay(999);window(1,1,80,25);clrscr;close(rooms1);
+ close(rooms2);close(special1);close(special2);close(line1);
+ HALT end else RL(264)end;
+53 :if(Prm in[27,30])then RL(123) else RL(145);
+59 :If(noun=23)then RL(368)else Diagnose;
+
+55 :if(noun=74)then
+ if(en('p'))then
+ begin Ev:=Ev-['p'];RL(169);end
+ else RL(168)
+ else
+ if(noun=89)then
+ if(en('i'))then
+ begin
+ Ev:=Ev-['i'];RL(322);
+ if(Prm in[59,63..68])then begin RS(66);DEAD;end;
+ end
+ else RL(323)
+ else Crazy;
+
+56 :if(noun=Null)or(noun in[60,23])or(noun in Mov)then
+ case noun of
+ 23:RL(369);
+ 60,Null:RL(193);
+ 7:RL(194)
+ else RL(195);
+ end
+ else RL(196);
+
+3 :case noun of
+ 7:RL(235);
+ 2:if(en('b'))then RL(236)else RL(237);
+ 62:RL(238);
+ 65:RL(239);
+ 74:RL(240);
+ 78:RL(241);
+ 84,40,50,68,85:RL(242)
+ else Crazy;
+ end;
+
+7 :begin if(noun=Null)then noun:=30;
+ if(noun in[30,36,47,50,71,72,79])then
+ case noun of
+ 30,47,50,71:if(Prm in[5..22,44..49])then RL(247) else RL(248);
+ 36:RL(249);
+ 72:RL(250);
+ 79:RL(251);
+ end
+ else Crazy;
+ end;
+
+
+ end {of CASE.}
+end; {of DefaultAnswers4}
+{-------------------}
+ procedure DefaultAnswers5;
+var o: integer;
+begin
+
+CASE VERB OF
+
+9 :if noun<>1 then
+ if(noun in Inven)then
+ if(noun=74)and(en('p'))then RL(170)
+ else if(noun=89)and(en('i'))then RL(335)
+ else begin
+ inven:=inven-[noun];writeln(n[noun,1],': Dropped.');
+ R[noun]:=Prm;
+ end
+ else
+ writeln('You don''t have the ',n[noun,1],'.')
+ else
+ begin
+ if(74 in inven)and(en('p'))then RL(170)else
+ if(89 in inven)and(en('i'))then RL(335)else
+ DropAll;
+ end;
+
+26 :case noun of
+ 2:if not(en('b'))then
+ begin
+ Ev:=Ev+['b'];
+ RL(3);end
+ else Say(noun,'peeled');
+ 7:RL(162);
+ 57:if(ropecon<>Null)then
+ begin
+ ropecon:=Null;
+ RL(117);end
+ else Say(noun,'untied');
+ 62:RL(238)
+ else Crazy;
+ end; {end of OPEN }
+
+ end {of case}
+end; {of DefaultAnswers5}
+{-------------------}
+ procedure DefaultAnswers6;
+var o : integer;
+begin
+
+CASE VERB OF
+
+28,27 :case noun of
+ 23:RL(369);
+ 29:if not(en('a'))then
+ begin Ev:=Ev+['a'];
+ RL(120);end
+ else begin Ev:=Ev-['a'];
+ RL(121);end;
+ 57:if(ropecon<>Null)and not(ropecon in inven)
+ and(r[ropecon]<>Prm)then
+ if(ropecon in mov)then begin
+ RL(57);writeln('...it''s a ',n[ropecon,1],'!');
+ r[ropecon]:=Prm;Ev:=Ev-['u'];
+ if(ropecon=29)and not(flasoff)then DescribeRm;end
+ else RL(56)
+ else RL(122);
+ 8:begin RL(243);RL(244);play(9999,3500,0);play(3499,2000,1);
+ play(1999,1000,2);play(999,200,5);play(199,8,16);Ev:=Ev+['e'];
+ n[36,5]:=Q;n[78,5]:='glass';n[68,1]:='slot';n[66,4]:=Q;
+ Ev:=Ev-['j'];
+ moveto(30);
+ if(MnRm=Prm)then RS(73);
+ end;
+ 81:if not(en('j'))then
+ if KeyHole then
+ begin Ev:=Ev+['j'];RL(326);play(2000,2001,200);end
+ else RL(123)
+ else
+ begin Ev:=Ev-['j'];
+ if Keyhole then begin RL(326);play(2001,2000,200)end
+ else RL(123);
+ if(Prm in[59..68])then begin nosound;RS(62);DEAD;end;
+ end;
+ 36:begin
+ if(Prm > 57)then if(Prm = 58)then RL(123)else
+ begin RS(63);DEAD;end;
+ end
+ else RL(122);
+ end; {of case}
+
+62 :begin write('You have ',Sc,' of 1000 points',
+ ', giving you the rank of ');Tic:=Tic-1;
+ case Sc of
+ 0..99:writeln('beginner.');
+ 100..249:writeln('novice adventurer.');
+ 250..399:writeln('adventurer third class.');
+ 400..549:writeln('adventurer second class.');
+ 550..699:writeln('adventurer first class.');
+ 700..849:writeln('expert adventurer.');
+ 850..999:writeln('master adventurer.')
+ else writeln('dead adventurer!')
+ end;
+ Attack:=False;
+ if(MnRm=Prm)then RL(370)
+ end;
+
+ end {of case}
+end; {of DefaultAnswers6}
+{-------------------}
+ procedure DefaultAnswers7;
+var o : integer;
+begin
+
+CASE VERB OF
+
+14 :if(noun<>1)then
+ if(noun in Mov)then
+ if not(noun in inven)then
+ begin
+ Stuff:=0;
+ for o:=0 to NMax do if(o in inven)then Stuff:=Stuff+1;
+ if(Stuff < 6)then
+ if(en('r'))and(inven<>[])then RL(87)
+ else begin
+ Vanish(Noun);inven:=inven+[noun];
+ writeln(n[noun,1],': Taken.');
+ if(noun=70)then Ev:=Ev-['d'];
+ end
+ else RL(234)
+ end
+ else writeln('You already have the ',n[noun,1],'.')
+ else Crazy
+ else if(en('r'))then RL(88) else
+ begin flag:='0';Stuff:=0;
+ for o:=0 to NMax do if(o in inven)then Stuff:=Stuff+1;
+ if(Stuff < 7)then
+ for o:=0 to NMax do
+ begin
+ if r[o]=Prm then
+ if(Stuff+1 < 7)then
+ begin
+ vanish(o);inven:=inven+[o];Stuff:=Stuff+1;
+ writeln(n[o,1],': Taken.');flag:='1';
+ if(o=70)then Ev:=Ev-['d'];
+ end
+ else
+ begin flag:='1';
+ writeln(n[o,1],': You have too many objects already!');end
+ end
+ else RL(234);
+ if(flag='0')then RL(49)
+ end; {of 14}
+
+4,5 :RL(420);
+
+64 :SAVE;
+
+ end {of case}
+end; {of DefaultAnswers7}
+{-------------------}
+ procedure DefaultAnswers8;
+var o : integer;
+begin
+
+CASE VERB OF
+
+10 :if(noun in [2,52])then
+ if(noun=2)then
+ if(en('b'))then begin
+ RL(45); Ev:=Ev+['c'];inven:=inven+[51];
+ Vanish(2);Sc:=Sc+10;end
+ else RL(46)
+ else begin RL(47);Ev:=Ev+['n'];Sc:=Sc+15;Vanish(52);end
+ else writeln('I don''t think the ',n[noun,1],
+ ' would do much for your digestive system!');
+
+42 :case noun of
+ 74:if not(en('p'))then
+ if not(en('i'))then
+ begin RL(20);inven:=inven+[74];r[74]:=Null;Ev:=Ev+['p'];end
+ else RL(320)
+ else Say(74,'on');
+ 89:if not(en('i'))then
+ if not(en('p'))then
+ begin RL(319);vanish(89);inven:=inven+[89];Ev:=Ev+['i'];end
+ else RL(318)
+ else Say(89,'on your head')
+ else RL(128);
+ end;
+
+17,0 :if(noun2=Noun)then Crazy else
+ if(noun2 in Mov)or(Noun2=Null)then
+ case Noun of
+ 2:begin RL(21);Vanish(2);Sc:=Sc+25;r[51]:=Prm;end;
+ 60:begin RL(22);DEAD;end;
+ 52:begin RL(34);Vanish(52);end;
+ 23:if(noun2=null)then RL(369)
+ else begin Vanish(noun2);Attack:=False;
+ writeln('The monster grabs the ',n[noun2,1],' and eats it!');
+ end;
+ 7:begin RL(35);Vanish(7);r[52]:=Prm;Ev:=Ev+['I'];end
+ else if(verb=0)then writeln('At the last moment you decide to',
+ ' spare the ',n[noun,1],'''s life!')
+ else RL(216);
+ end{of case}
+ else Crazy;
+
+39 :if((SepWord='to')or(SepWord='off'))and(Noun2=Null)then
+ case Noun of
+ 29:if(SepWord='to')then begin Ev:=Ev+['a'];RL(120);end
+ else begin Ev:=Ev-['a'];RL(121);end;
+ 13:RL(148);
+ 20:RL(149);
+ 65:RL(150)
+ else Crazy end
+ else RL(80);
+
+ end {of case}
+end; {of DefaultAnswers8}
+{-------------------}
+ procedure DefaultAnswers9;
+var o : integer;
+begin
+
+CASE VERB OF
+
+32 :if(34 in inven)then
+ if(shots>0)then
+ begin
+ Shots:=Shots-1;
+ for x:=1 to (26-(4*(6-Shots))) do
+ begin play(300,350,11-Shots*2);play(320,370,11-Shots*2);end;
+ if(noun=34)and(noun2<>34)and(noun2<>Null)and(SepWord='at')then
+ begin noun:=noun2; noun2:=34; SepWord:='with';end;
+ if((noun2=34)and(noun<>34)and(SepWord='with'))or
+ ((noun<>34)and(SepWord='s'))then
+ case noun of
+ 1:begin;Crazy;Shots:=Shots+1;end;
+ 2,7,8,13,27,29,32,40,51,52,63,74,77,89:begin vanish(noun);
+ writeln('The ',n[noun,1],' vanishes in an explosion of light!');
+ if(noun=74)and(en('p'))then begin RL(232);DEAD;end;
+ end;
+ 48:begin RL(222);RL(223);Ev:=Ev+['g'];p[40]:=p[40]-[48];
+ if not(en('P'))then begin Ev:=Ev+['P'];Sc:=Sc+25;end;end;
+ 12,26:RL(224);
+ 23:begin case random(4)of 0:RL(375);1:RL(376);2:RL(377);3:RL(378)end;
+ Attack:=False;
+ end;
+ 45:RL(315);
+ 60,56,44:begin RL(233);DEAD;end
+ else writeln('A blinding ray strikes the ',n[noun,1],', but it is',
+ ' only slightly blackened.');
+ end {of shoot case}
+ else if(noun=34)and(noun2=Null)then RL(213)
+ else begin;Crazy;Shots:=Shots+1;end;
+ end
+ else begin writeln('...click!');play(25,32,9);end
+ else RL(208);
+
+ end {of case}
+end; {of DefaultAnswers9}
+{-------------------}
+ procedure DefaultAnswers10;
+var o : integer;
+begin
+
+CASE VERB OF
+
+36 :if(noun in mov)then
+ if(noun in inven)then
+ if((noun in[2,7,52,29])or
+ (noun2 in[2,7,23,29,47,52,53,73,88]))and(noun<>noun2)then
+ begin
+ if(noun=2)or(noun2=2)then begin RL(95);vanish(2);
+ r[51]:=Prm;end;
+ if(noun=7)or(noun2=7)then begin RL(35);vanish(7);
+ Ev:=Ev+['I'];r[52]:=Prm;end;
+ if(noun=29)or(noun2=29)then begin RL(96);vanish(29);end;
+ if(noun=52)or(noun2=52)then begin RL(34);vanish(52);end;
+ if(noun2=88)then begin RL(293);vanish(noun);
+ if(noun=2)then noun:=51;if(noun=7)then noun:=52;
+ r[noun]:=random(4)+51;end;
+ if(Prm in[0..6,9,10,13,41..43])and(noun2 in[73,53,47])then
+ begin RL(306);vanish(noun);end;
+ if(noun2=23)then begin Attack:=False;Vanish(noun);RL(379);
+ writeln(n[noun,1],' out of mid-flight and eats it',
+ ' in one giant gulp!')end;
+ end
+ else begin writeln('The ',n[noun,1],' collides with the ',
+ n[noun2,1],' but nothing interesting happens.');
+ Vanish(noun);r[noun]:=Prm;end
+ else writeln('First you must have the ',n[noun,1],'.')
+ else Crazy;
+
+37 :if(noun=57)then
+ if(sepword='to')then
+ if not(noun2 in[1,15,17,22,30,46,47,50,52,72,73,79,80,83])then
+ if(ropecon=Null)then begin
+ ropecon:=noun2;
+ writeln('The rope is firmly tied to the ',n[noun2,1],'.');
+ if(noun2=57)then RL(48);end
+ else writeln('It is already tied to the ',n[ropecon,1],'.')
+ else RL(50)
+ else Crazy
+ else Crazy;
+
+61 :begin RL(245);flag:=ReadKey;
+ if(upcase(flag)<>'N')then
+ begin RL(380);delay(999);window(1,1,80,25);clrscr;close(rooms1);
+ close(rooms2);close(special1);close(special2);close(line1);
+ assign(rooms1,'BEYOND.com');
+ {execute(rooms1)}
+ end
+ else RL(264)
+ end;
+
+65 :RESTORE;
+
+ end {of case}
+end; {of DefaultAnswers10}
+{===================}
+ procedure SpecialAnswers1;
+
+begin
+FlagSA:='r';
+if Present then
+CASE Prm OF
+
+3 :case verb of
+ 44,58 :moveto(1);
+ 20,52 :if(noun=6)then RL(40);
+ 14 :if(noun=57)and not(en('o'))then RL(419);
+ 6 :if(noun=57)and(here(40))and((noun2=Null)or(noun2=40))then
+ begin
+ RS(4); tic:=15; moveto(4); Ev:=Ev+['A']; Sc:=Sc+25;
+ if(en('o'))then
+ for o:= 0 to 57 do begin
+ if(o in kitset)then r[o]:=Prm;
+ if(r[o]=3)then r[o]:=Prm;end
+ end;
+ 26 :if(noun=39)then
+ if not(en('o'))then
+ begin Ev:=Ev+['o'];RL(328); for o:=2 to 57 do
+ if(o in kitset)then r[o]:=Prm;end
+ else Say(noun,'opened');
+ 3 :if(noun=39)then
+ if(en('o'))then
+ begin Ev:=Ev-['o'];RL(186); for o:=2 to 57 do
+ if(o in kitset)then r[o]:=Null;end
+ else Say(noun,'shut');
+ 17,28,27 :if(noun in [6,57,39,59])then RL(29);
+ 24,11 :case noun of
+ 39 :if(en('o'))then
+ if kitset=[] then begin RL(329);end
+ else begin RL(330);for o:= 0 to 57 do
+ if(o in kitset)then writeln(' a ',n[o,1]);end
+ else RL(331);
+ 57 :RL(10);
+ 73 :RL(19);
+ 6 :DescribeRm;
+ end;
+ end; {of 3}
+
+4 :case verb of
+ 43..52,20:RL(7);
+ 55 :if(noun=35)then begin RL(332);Ev:=Ev-['B'];end;
+ 42,3:if noun=35 then begin RL(8); Ev:=Ev+['B'];end
+ else if(noun=39)then
+ if(en('o'))then
+ begin Ev:=Ev-['o'];RL(186); for o:=0 to 57 do
+ if(o in kitset)then r[o]:=Null;end
+ else Say(noun,'shut');
+ 29,37 :if(noun=35)and(noun2=60)then begin
+ RL(8);Ev:=Ev+['B'];end;
+ 26 :if(noun=35)and(en('B'))then begin RL(332);Ev:=Ev-['B'];end
+ else if(noun=39)then
+ if not(en('o'))then
+ begin Ev:=Ev+['o'];RL(328); for o:=0 to 57 do
+ if(o in kitset)then r[o]:=Prm;end
+ else Say(noun,'opened');
+ 19,2:if(noun in[6,64])or(noun=Null)then
+ if(en('B'))then RL(9)
+ else begin RL(0);DEAD;end;
+ 24,11:case noun of
+ 39 :if(en('o'))then
+ if kitset=[] then begin RL(329);end
+ else begin RL(330);for o:= 0 to 57 do
+ if(o in kitset)then writeln(' a ',n[o,1]);end
+ else RL(331);
+ 35 :RL(12);
+ 73 :RL(19);
+ 6 :DescribeRm;
+ end; {of case}
+ end; {of 4}
+
+end {of case}
+else SA
+end; {of SP1}
+{-------------------}
+ procedure SpecialAnswers2;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+5 :case verb of
+ 45 :moveto(6);
+ 2 :if(noun=79)then RL(263);
+ end;
+
+6 :case verb of
+ 46 :moveto(5);
+ 43,44,45,47..52:if FlasOff then RL(14)
+ else case verb of
+ 43:begin Ox:=0;RL(286);moveto(7);end;
+ 45:moveto(9); 49:moveto(8);
+ end;
+ end; {of 6}
+
+7 :case verb of
+ 23..25,11:if(noun in[6,36,73,0,15,64,67])then RS(9);
+ 43..50 :if FlasOff then RL(14)
+ else
+ begin
+ If(Verb in[43,47,48])then Ox:=Ox+1;
+ If(Verb in[44,49,50])then Ox:=Ox-1;
+ if(Ox<1)then begin RL(286);moveto(6)end
+ else
+ begin
+ RL(333);
+ if(random(20)=2)then begin writeln;RS(9);
+ if not(en('K'))then begin Ev:=Ev+['K'];Sc:=Sc+15;end;end;
+ end;
+ end;
+ 28,17,6:if(noun=36)or(noun=15)then begin RS(10);DEAD;end;
+ 31 :if(input='help')then begin RL(334);moveto(6)end;
+ end; {of 7}
+
+8 :case verb of
+ 48,58:if FlasOff then RL(14) else moveto(6);
+ 43..47,49..52:if FlasOff then RL(14);
+ 11:if(noun in [46,79])then RS(12)
+ else if(noun in [15,30])then RL(28);
+ 38 :if(noun=46)then begin SA;writeln('It feels jagged.');end;
+ end; {of 8}
+
+9 :case verb of
+ 43..52 :if FlasOff then RL(14)
+ else case verb of
+ 46:moveto(6);47:moveto(10);49:moveto(11);
+ end;
+ end; {of 9}
+
+10 :case verb of
+ 50,58 :if FlasOff then RL(14)
+ else moveto(9);
+ 43..49,51..52:if FlasOff then RL(14);
+ 19,2:if(noun in[17,80])then begin RL(0);DEAD;end;
+ end; {of 10}
+
+end {of case}
+else SA
+end; {of SP2}
+{-------------------}
+ procedure SpecialAnswers3;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+14 :case verb of
+ 46,48 :if FlasOff then RL(14)
+ else if(verb=46)then moveto(11) else moveto(15);
+ 43..45,47,49..52 :if FlasOff then RL(14);
+ end; {of 14}
+
+15 :case Verb of
+ 52,2 :if(en('d'))and(en('t'))then
+ begin RL(63);moveto(16);end else RL(64);
+ 19 :RL(64);
+ 7 :RL(65);
+ 14 :if(noun in[57,70])then begin inven:=inven+[noun];r[noun]:=Null;
+ if(noun=70)then Ev:=Ev-['d']
+ else Ev:=Ev-['t'];SA;writeln(n[noun,1],': Taken.');end;
+ 45,49 :if(flasoff)then RL(14) else moveto(14);
+ 44 :RL(73);
+ 24,11:if(noun=17)and not(en('u'))then RL(74)
+ else if(noun=17)and(en('a'))then RL(75);
+ 17,36,29,9:case noun of
+ 70:if((noun2 in[30,42])or(noun2=Null))and(verb<>9)then
+ if not(en('d'))then
+ begin RL(69);Ev:=Ev+['d'];r[70]:=Prm;inven:=inven-[70];end
+ else RL(67)
+ else if(verb=9)then begin end else RL(66);
+ 57:if(noun2=17)and(verb<>17)then begin
+ if(here(ropecon))and(ropecon<>57)then begin
+ RL(71);inven:=inven-[57];r[57]:=Prm;
+ if(ropecon=70)then Ev:=Ev+['t'];end
+ else begin RL(70);vanish(57); end;
+ end else begin end
+ else if(verb in[9,29,36])and(noun2=17)and(noun in mov)then
+ if(here(ropecon))and(noun=ropecon)then begin RL(76);
+ inven:=inven-[noun];r[noun]:=Null;
+ if(ropecon=29)then Ev:=Ev+['u'];end
+ else begin RL(72);inven:=inven-[noun];r[noun]:=17;end
+ end;{of noun case}
+ end;{of 15}
+
+16 :case verb of
+ 51,2 :moveto(15);
+ 52 :RL(85);
+ 0,3..18,20..21,26..40,42,53,55,56,60:RL(86);
+ 19,61:begin RS(18);Ev:=Ev-['a'];Ev:=Ev+['r'];Sc:=Sc+60;
+ moveto(17);dropall;if(here(2))then begin r[2]:=Null;
+ r[51]:=Prm;end;r[57]:=Null;end;
+ end;{of 57}
+
+end {of Case}
+else SA
+end; {of SP3}
+{-------------------}
+ procedure SpecialAnswers4;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+19 :case verb of
+ 48,51,58:if(flasoff)then RL(14)else begin RL(311);moveto(18);end;
+ 47,52,57:if(flasoff)then RL(14)else begin RL(309);moveto(20);end;
+ end;{of stairs}
+
+20 :case verb of
+ 50,51,58:if(flasoff)then RL(14)else begin RL(310);moveto(19);end;
+ 11,24,25,23:if(noun=67)then RL(90)
+ else if(noun in[12,43])and not(en('E'))then begin RL(92);
+ r[32]:=20;Sc:=Sc+15;Ev:=Ev+['E'];end;
+ 14,38:if(noun in[67,12])then RL(91);
+ 43..49,57:if(noun=Null)or(noun in[12,43])then RL(215);
+ end;{of 20}
+
+21 :case verb of
+ 50 :if(flasoff)then RL(14)else moveto(18);
+ 47 :if(flasoff)then RL(14)else moveto(22);
+ 2,51:if(flasoff)then RL(14)else
+ if(noun=64)or(noun=Null)then moveto(23);
+ 45 :RL(97);
+ 49,44,43:RL(258);
+ 11 :if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;
+ end;
+
+22 :case verb of
+ 50 :if(flasoff)then RL(14)else moveto(21);
+ 2,51 :if(flasoff)then RL(14)else
+ if(noun=64)or(noun=Null)then moveto(23);
+ 44 :RL(97);
+ 47,45,49:RL(258);
+ 11 :if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;
+ end; {of 22}
+
+23 :case verb of
+ 46,50 :if(flasoff)then RL(14)else moveto(21);
+ 43,48 :if(flasoff)then RL(14)else moveto(22);
+ 44,45,47,49:RL(258);
+ 26,27 :if(noun=26)then
+ if(en('l'))then Say(26,'open')
+ else begin RL(98);Ev:=Ev+['l'];p[23]:=p[23]+[69];end;
+ 3 :if(noun=26)then
+ if(en('l'))then begin RL(171);Ev:=Ev-['l'];p[23]:=p[23]-[69];end
+ else Say(26,'closed');
+ 2,52,57:if(en('l'))and((noun=69)or(noun=Null))then moveto(24)else RL(99);
+ 24,25 :if(noun=26)then RL(151);
+ 11 :if(noun=26)then if(en('l'))then RL(217)else RL(218)
+ else if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;
+ end; {of 23}
+
+24 :case verb of
+ 51,58:if(en('l'))then moveto(23) else RL(99);
+ 52,57:moveto(25);
+ 24,25 :if(noun=26)then RL(151);
+ 3 :if(noun=26)then begin RL(171);Ev:=Ev-['l'];end else
+ if(noun=55)then RL(411);
+ 2 :if(noun=69)then Moveto(25);
+ 26 :if(noun=26)then begin RL(98);Ev:=Ev+['l'];end else
+ if(noun=55)then RL(412);
+ 11 :if(noun=26)then if(en('l'))then RL(217)else RL(218)else
+ if(noun=55)then RL(410);
+ 27,28:If(noun=55)then RL(411);
+ end;
+
+end {of case}
+else SA
+end; {of SP4}
+{-------------------}
+ procedure SpecialAnswers5;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+25 :case verb of
+ 43:begin writeln('The door slides open...');play(55,70,40);moveto(27);
+ writeln('The door slides shut behind you.');play(70,55,40);
+ if not(en('Y'))then begin Ev:=Ev+['Y'];Sc:=Sc+30 end end;
+ 44:moveto(32); 45:moveto(30);
+ 46:moveto(34); 47:moveto(28); 49:moveto(31);
+ 48:if(en('v')and not(en('p')))then begin Verbose:=False;moveto(35);
+ RS(25);DEAD; end else moveto(35);
+ 50:moveto(33); 51,58:moveto(24);
+ 52,2:if(noun=69)or(noun=Null)then moveto(26);
+ 17,27,28,38:if(noun=26)then
+ begin RL(413);play(55,70,45);play(69,54,45)end;
+ 26,40:if(noun=26)then RL(414);
+ end;
+
+27 :case verb of
+ 44,58:begin writeln('The door slides open...');play(55,70,40);moveto(25);
+ writeln('The door slides shut behind you.');delay(999);play(70,55,40)
+ end;
+ 17,27,28,38:if(noun=26)then
+ begin RL(413);play(30,40,25);play(40,30,25)end;
+ 26,40:if(noun=26)then RL(414);
+ 11 :if(noun in[20,21])then RL(103)
+ else if(noun=58)then case compcon of
+ Null:RL(155); 1:RS(21); 2:RS(22); 3:RS(23);
+ 4:begin RS(24);compcon:=Null;gotoxy(1,wherey-1);
+ writeln('. tim. chamb.r c.de: ',Code,'.. ..tel.port... . .',
+ '... . .. ime . p.n.l ....... ...');
+ RL(105);play(29,29,40);end;end;{of case}
+ 53 :begin
+ if(input='1')or(input='one')then begin RL(104);compcon:=1;end;
+ if(input='2')or(input='two')then begin RL(104);compcon:=2;end;
+ if(input='3')or(input='three')then begin RL(104);compcon:=3;end;
+ if(input='4')or(input='four')then begin RL(104);compcon:=4;end;
+ for y:=1 to random(40)+9 do
+ begin x:=random(6000)+99;play(x,x,50);delay(9)end
+ end;
+ 31 :if(compcon=null)then begin
+ play(9,999,0);sound(999);RS(20);play(999,9,0);if not(en('J'))then
+ begin Ev:=Ev+['J'];Sc:=Sc+40;end;end;
+ end;
+
+28 :case verb of
+ 50,58:moveto(25);
+ 45,57:moveto(29);
+ 28 :if(noun in[33,10])then begin RL(137);play(31,31,450);end;
+ end;
+
+29 :case verb of
+ 46,58:moveto(28);
+ 36 :if(noun2 in[33,10])and(noun in Mov)then
+ if(en('M'))then
+ begin RS(27);Ev:=Ev-['M','r'];Vanish(noun);r[noun]:=28;
+ if not(en('N'))then begin Ev:=Ev+['N'];Sc:=Sc+55;end;
+ play(28,34,600)end
+ else begin Vanish(noun);r[noun]:=28;RL(179);
+ if(noun in[7,8,29,34,40,51])then Ev:=Ev+['M'];end;
+ end;
+
+33 :case verb of
+ 47,58:moveto(25);
+ 34 :RL(272);
+ 28,38:if(noun=10)then begin RL(421);x:=random(9999);case random(3) of
+ 0:play(x,random(9999),random(3));
+ 1:for y:=1 to random(300)+60 do
+ begin x:=random(9999);play(x,x,2);delay(7)end;
+ 2:begin y:=9999;o:=0;
+ repeat x:=random(9999);play(x,y,0);
+ y:=random(9999);play(y,x,0);o:=o+1;
+ until o>7 end end end
+ end;
+
+end {of case}
+else SA
+end; {of SP5}
+{-------------------}
+ procedure SpecialAnswers6;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+30 :case verb of
+ 46,58:if(en('e'))then RL(212) else moveto(25);
+ 26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'open') else RL(159)
+ else
+ if(noun in[10,76])and(verb=28)then
+ begin
+ if(MnRm=30)then begin RS(76);DEAD;end;
+ if(en('e'))then
+ begin RS(29);writeln;
+ play(1,700,7);play(701,8000,1);Ev:=Ev-['e'];
+ case YearDial of
+ 1933:begin Loc:='Civilization!';Sc:=Sc+80;RS(78);HOME;END;
+ 2111..2679:begin
+ Verbose:=False;moveto(41);RS(30);Verbose:=True;
+ if not(en('O'))then begin Sc:=Sc+55;Ev:=Ev+['O'];end;
+ n[78,5]:=Q;n[37,5]:='glass';n[72,1]:='fence';
+ n[70,1]:='hooded figure';n[70,2]:='hooded';n[70,3]:='figure';
+ n[70,4]:='mutant';n[70,5]:=Q;n[3,1]:='footprints';
+ n[3,2]:='footpri';n[57,1]:='parachute';n[57,2]:='parachu';
+ n[35,1]:='boulder';n[35,2]:='rock';n[35,3]:='rocks';
+ n[66,4]:='red';
+ end;
+ 0..1111 :begin writeln;RS(31);DEAD;end;
+ 1112..1932,1934..2110:begin writeln;RS(32);DEAD;end;
+ 2680..3789:begin writeln;RS(33);DEAD;end
+ else begin writeln;RS(34);DEAD;end;
+ end; {of YearDial case}
+ end
+ else begin RL(209);play(1,9999,0)end;
+ end;
+ 33 :if(noun in[16,59])or(noun=Null)then begin Ev:=Ev+['e'];RL(210);end;
+ 35 :if(en('e'))then begin Ev:=Ev-['e'];RL(211);Attack:=False end;
+ 17,0,6:if(noun=49)then RL(160);
+ 53 :if(input=Code)then
+ If(en('h'))then Say(49,'open')
+ else
+ begin Ev:=Ev+['h'];RL(173);play(23,24,250);Sc:=Sc+30;
+ if(PanelCon<>Null)then begin r[PanelCon]:=30;Code:='R';
+ writeln('Sitting inside the panel compartment is a ',
+ n[PanelCon,1],'.');end
+ else RL(183);
+ end
+ else RL(172);
+ 3 :If(noun=49)then RL(159);
+ 39 :if(noun=25)then RL(115) else
+ case noun of
+ 24:if(DialNum>0)and(DialNum<377)then begin RL(176);DayDial:=DialNum;end
+ else RL(178);
+ 82:if(DialNum>-1)and(DialNum<5000)then begin RL(177);
+ YearDial:=DialNum;end else RL(178);
+ end;
+ 11,24:case noun of
+ 49:begin SA;if(en('h'))then if(PanelCon=Null)then RL(183)
+ else writeln('Inside the compartment is a ',n[PanelCon,1],'.')
+ else RL(184);end;
+ 82:begin SA;writeln('The year dial is set to ',YearDial,'.');end;
+ 24:begin SA;writeln('The day dial is set to ',DayDial,'.');end;
+ 16:begin RL(203);RL(204)end;
+ 25:RL(115);
+ 38:RL(161);
+ end;
+ end; {of 30}
+
+end {of case}
+else SA
+end; {of SP6}
+{-------------------}
+ procedure SpecialAnswers7;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+26 :case verb of
+ 51,58,2:if(noun=69)or(noun=Null)then moveto(25);
+ 43,48 :moveto(36); 44,49 :moveto(38); 45,47 :moveto(39); 46,50 :moveto(37);
+ end;
+
+35 :case verb of
+ 49,58:moveto(25);
+ 11:case noun of
+ 54:RL(100);
+ 62:if(en('v'))then RL(205)else RL(206);
+ end;
+ 28 :if(noun in[55,10])then
+ if(en('v'))then begin RL(101);Ev:=Ev-['v'];play(40,65,80)end
+ else
+ begin RL(102); Ev:=Ev+['v'];play(65,40,80);
+ if not(en('p'))then begin RS(28);DEAD;end
+ else if(MnRm=35)then
+ begin n[23,1]:='melted monster';n[23,4]:='melted';MnRm:=Null;
+ RS(74);p[35]:=p[35]+[77];
+ if not(en('W'))then begin Sc:=Sc+65;Ev:=Ev+['W'] end
+ end
+ end;
+ 14 :if(noun in[1,77])and(77 in p[35])then begin Sc:=Sc+10;noun:=77;end;
+ 55 :if(noun=74)then
+ if(en('v'))then begin RS(26);DEAD end;
+ 38 :RL(30);
+ end;
+
+36 :case verb of
+ 44,49,58:moveto(26);
+ 45 :moveto(39);
+ 46 :moveto(37);
+ 57 :if(noun=12)then RL(215);
+ end;
+
+37 :case verb of
+ 45,47,58:moveto(26);
+ 43 :moveto(36);
+ 44 :moveto(38);
+ 57 :if(noun=12)then RL(215);
+ end;
+
+38 :case verb of
+ 43,48,58:moveto(26);
+ 45 :moveto(39);
+ 46 :moveto(37);
+ 57 :if(noun=12)then RL(215);
+ 0..42,44,47,49,50-56,59..99:if(noun=28)or(noun2=28)then
+ begin RS(35);RL(220);p[40]:=p[40]+[48];moveto(40);Ev:=Ev-['g'];
+ if(MnRm=Prm)then begin RS(79);DEAD end
+ end;
+ end;{of 38}
+
+39 :case verb of
+ 46,50,58:moveto(26);
+ 45 :if(en('g'))then moveto(40);
+ 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
+ 43 :moveto(36);
+ 44 :moveto(38);
+ 57 :if(noun=12)then RL(215);
+ end;
+
+40 :case verb of
+ 46,58 :if(en('g'))then moveto(39) else RL(221);
+ 26 :if(noun=26)then if(en('g'))then Say(26,'open') else RL(221);
+ 3 :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
+ 11,14 :if(noun in[12,43,83])then RL(261);
+ end;
+
+end {of case}
+else SA
+end; {of SP7}
+{-------------------}
+ procedure SpecialAnswers8;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+41 :case verb of
+ 43 :moveto(42);
+ 44 :moveto(43);
+ 2,19 :if(noun in[53,73,87])then
+ begin RS(39);RL(287);moveto(46);Rx:=4;end;
+ end;
+
+42 :case verb of
+ 44 :moveto(41);
+ 43 :RL(296);
+ 14 :if(noun in[13,1])and(13 in p[42])then
+ begin Sc:=Sc+10;noun:=13;end;
+ 2,19 :if(noun in[53,73,87])then
+ begin RS(39);RL(287);moveto(46);Rx:=4;end;
+ end;
+
+43 :case verb of
+ 43 :moveto(41);
+ 44 :moveto(44);
+ 2,19 :if(noun in[53,73,87])then
+ begin RS(39);RL(287);moveto(46);Rx:=4;end;
+ end;
+
+44 :case verb of
+ 43 :moveto(43);
+ 46 :moveto(47);
+ 45 :begin RL(274);Rx:=0;moveto(46);end;
+ 44,47..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);
+ end;
+
+45 :case verb of
+ 44 :moveto(49);
+ 46 :begin RL(274);Rx:=8;moveto(46);end;
+ 45 :begin Rx:=9;RL(274);moveto(46);end;
+ 43,47..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);
+ end;
+
+46 :case verb of
+ 45 :begin Rx:=Rx+1;RL(274);
+ if(Rx=9)then begin
+ if not(en('T'))then begin Ev:=Ev+['T'];Sc:=Sc+30;end;
+ moveto(45)end;
+ if(Rx>86)then begin RL(340);moveto(47)end
+ end;
+ 46 :begin Rx:=Rx-1;RL(274);
+ if(Rx=8)then moveto(45);
+ if(Rx<1)then moveto(44);
+ end;
+ 43,44,47..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);
+ end;
+
+47 :case verb of
+ 46,52,2,19:begin if(random(2)=1)then begin RS(37);DropAll;moveto(48)end
+ else begin RL(277);moveto(48)end;end;
+ 45 :moveto(44);
+ 43,44,47..50:RL(278);
+ end;
+
+48 :case verb of
+ 45,51,2:if(random(3)=2)and(noun<>35)then begin RS(38);moveto(47)end
+ else if(noun<>35)then RL(279);
+ 43,44,46..50:RL(279);
+ 14 :if(noun in[27,1])and(27 in p[48])then
+ begin Sc:=Sc+20;noun:=27;end;
+ 11 :if(noun=35)then RL(289)
+ end;
+
+end {of case}
+else SA
+end; {of SP8}
+{-------------------}
+ procedure SpecialAnswers9;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+50 :case verb of
+ 43,58 :begin RL(290);moveto(49);end;
+ 44,57 :if(noun=Null)or(noun in[88,26,50])then
+ begin RS(41);if not(en('L'))then
+ begin Ev:=Ev+['L'];Sc:=Sc+25;end;moveto(51);end;
+ 11 :case noun of
+ 35,50:RL(292);
+ 88,68:RS(42);
+ 46,66:RS(43);
+ end;
+ 30,28,38,17,14:if(noun=88)then RL(294);
+ end;
+
+51 :case verb of
+ 44 :moveto(52);
+ 46 :moveto(52);
+ 48 :moveto(53);
+ end;
+
+52 :case verb of
+ 43 :moveto(51);
+ 47 :moveto(53);
+ 46 :moveto(51);
+ end;
+
+53 :case verb of
+ 52,2,57:if(noun=Null)or(noun=69)then begin if not(en('Q'))then
+ begin Ev:=Ev+['Q'];Sc:=Sc+30;end;moveto(55);end;
+ 47 :moveto(52);
+ 45 :moveto(53);
+ 49 :moveto(54);
+ end;
+
+54 :case verb of
+ 43 :moveto(52);
+ 49 :moveto(53);
+ 44 :moveto(51);
+ 50 :begin if not(en('R'))then
+ begin Ev:=Ev+['R'];Sc:=Sc+20;end;moveto(56);end;
+ end; {verb case}
+
+55 :case verb of
+ 51,2,58,44:if(noun=Null)or(noun=69)then moveto(53);
+ 11 :if(noun in[11,45])then
+ begin RL(297);if(en('k'))then RL(298) else RL(299)end;
+ 26,40:if(noun in[45,26,11,68])and(noun2=27)and(SepWord='with')then
+ if not(en('k'))then
+ begin Ev:=Ev+['k'];RS(45);for o:=2 to NMax do
+ if(o in cabiset)then r[o]:=55;
+ if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;
+ end
+ else Say(11,'open')
+ else if(SepWord='s')then RL(317);
+ 29 :if(noun=27)and(noun2 in[45,26,11,68])and(SepWord='in')then
+ if not(en('k'))then
+ begin Ev:=Ev+['k'];RS(45);for o:=2 to NMax do
+ if(o in cabiset)then r[o]:=55;
+ if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;
+ end
+ else RL(216);
+ 3 :if(noun in[45,26,11])then
+ if(en('k'))then
+ begin RL(314);play(30,32,30);Ev:=Ev-['k'];
+ for o:= 2 to NMax do if(o in cabiset)then r[o]:=Null;
+ end
+ else Say(11,'shut & locked');
+ 24,30 :if(noun in[26,11])then
+ if(en('k'))then
+ begin RL(324);
+ if(cabiset=[])then RL(339)else
+ for o:=0 to NMax do if(o in Cabiset)then writeln('a ',n[o,1])
+ end
+ else RL(299);
+ end; {of 55}
+
+
+end {of case}
+else SA
+end; {of SP9}
+{-------------------}
+ procedure SpecialAnswers10;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+56 :case verb of
+ 47 :moveto(54);
+ 2,51,58:if(noun=Null)or(noun=69)then moveto(57);
+ end;
+
+57 :case verb of
+ 46,57,2,33:if(noun=Null)or(noun=65)then
+ begin n[68,1]:='keyhole';n[68,4]:='slot';moveto(58)end;
+ 52 :moveto(56);
+ end;
+
+58 :case verb of
+ 45,58:moveto(57);
+ 43,44,46..51,20:if(en('i'))and(en('j'))and KeyHole then
+ begin sound(38);RS(61);ShRm:=2;moveto(59);sound(20);
+ for o:=0 to NMax do if(r[o]=58)then r[o]:=59;
+ if not(en('S'))then begin Ev:=Ev+['S'];Sc:=Sc+60 end end else RL(325);
+ 28 :if(noun=10)then noun:=81;
+ 11 :if(noun=68)then if KeyHole then RL(336)else RL(404);
+ end;
+
+65 :case verb of
+ 43,47:moveto(66);
+ 44,49:moveto(68);
+ 45,57:begin if not(en('w'))then begin Ev:=Ev+['w'];RL(346);end
+ else begin RL(347);DEAD end end;
+ 46,48,50:moveto(63);
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(38);RL(344);delay(999);sound(20)end;
+ 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end;
+
+66 :case verb of
+ 43 :RL(343);
+ 46,50 :moveto(65);
+ 45,49 :moveto(67);
+ 47 :moveto(64);
+ 48 :moveto(63);
+ 57,44 :begin sound(25);if not(en('V'))then begin Ev:=Ev+['V'];Sc:=Sc+30;end;
+ RS(67);writeln;moveto(69);nosound;
+ end;
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(38);RL(344);delay(999);sound(20)end;
+ 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end; {of 66}
+
+67 :case verb of
+ 46 :begin RL(347);DEAD;end;
+ 43,48 :moveto(66);
+ 44,50 :moveto(68);
+ 47,49:moveto(64);
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(38);RL(344);delay(999);sound(20)end;
+ 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end; {of 67}
+
+end {of case}
+else SA
+end; {of SP10}
+{-------------------}
+ procedure SpecialAnswers11;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+63 :case verb of
+ 45 :moveto(65);
+ 47 :moveto(66);
+ 49 :moveto(68);
+ 43,44,46,48,50:RL(343);
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(38);RL(344);delay(999);sound(20)end;
+ 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end;
+
+64 :case verb of
+ 46 :moveto(67);
+ 48 :moveto(66);
+ 50 :moveto(68);
+ 43,44,45,47,49:RL(343);
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(38);RL(344);delay(999);sound(20)end;
+ 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end;
+
+68 :case verb of
+ 43 :begin RL(347);DEAD;end;
+ 44 :RL(343);
+ 50 :moveto(63);
+ 49 :moveto(64);
+ 46,48 :moveto(65);
+ 45,47 :moveto(67);
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(38);RL(344);delay(999);sound(20)end;
+ 52 :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end;
+
+69 :case verb of
+ 28,27 :if(noun in[10,21,81,36])then RL(351);
+ 11 :if(noun in[10,21,81,36,20,25])then RL(352)else
+ if(noun=65)then RL(353);
+ 43,58 :moveto(70);
+ end;
+
+70 :case verb of
+ 44,57,2,33:if(noun=Null)or(noun=65)then moveto(69)else
+ if(noun in[69,50])then moveto(71);
+ 43,47,48:RL(354);
+ 49,52 :moveto(71);
+ 11 :if(noun=65)then RL(353)
+ else if(noun=68)then if KeyHole then RL(336)else RL(404);
+ end;
+
+71 :case verb of
+ 48,51,58:moveto(70);
+ 45 :moveto(72);
+ 11 :if(noun=58)then RL(386)else
+ if(noun=25)then RL(418);
+ 28,27:if(noun in[10,36])then begin RL(387);
+ for o:=1 to random(12)+4 do play(random(250),random(250),random(30))
+ end;
+ 39 :if(noun=25)then begin RL(387);
+ for o:=1 to random(99)+75 do
+ begin x:=random(9999);play(x,x,random(19)+10);delay(5)end
+ end
+ end;{ of 71}
+
+end {of case}
+else SA
+end; {of SP11}
+{-------------------}
+ procedure SpecialAnswers12;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+11 :case verb of
+ 5,45,47,48,50:if FlasOff then RL(14)
+ else case verb of
+ 48:moveto(9);47:moveto(13);
+ 5:if(29 in inven)or(40 in inven)or(2 in inven)then
+ RL(58)
+ else begin RL(18); moveto(12);end;
+ 50:RL(17);
+ 45:if(en('C'))then moveto(14) else RL(144);
+ end;
+ 31 :if(input='nepo egassap')and not(en('C'))then
+ begin Ev:=Ev+['C']; RS(11);Sc:=Sc+35;end;
+ 11 :if(noun in [79,72])then if(en('C'))then RL(270)else RS(13);
+ 27,28:if(noun in [79,72])then RL(26);
+ 17,0,6:if(noun in [79,72])then RL(27);
+ 38 :if(noun in [79,72])then RL(30);
+ end; {of 11}
+
+12 :case verb of
+ 4,47 :if FlasOff then RL(14)
+ else case verb of
+ 4:begin RL(18); moveto(11);end;
+ 47 :RL(17);
+ end;
+ 43..46,48..52 :if FlasOff then RL(14);
+ 14 :if(noun in[70,1])and not(en('G'))then
+ begin noun:=70;Ev:=Ev+['G'];Sc:=Sc+40;end;
+ 7 :if not(en('G'))then begin Ev:=Ev+['G'];RL(157);
+ FlagSA:='r';verb:=14;noun:=70;Sc:=Sc+40;end;
+ end; {of 12}
+
+13 :case verb of
+ 50 :if flasoff then RL(14)
+ else begin moveto(11); Ev:=Ev-['q'];end;
+ 43 :if(en('q'))then begin RL(24); DEAD;end
+ else begin RL(23); Ev:=Ev+['q'];end;
+ 52,19,33:RL(42);
+ 14 :if(noun=47)then RL(25);
+ 9 :begin RL(68);vanish(noun);end;
+ end;{of 13}
+
+17 :case verb of
+ 51,19,2:RL(15);
+ 45 :if(flasoff)then RL(14)else moveto(18);
+ end;
+
+18 :case verb of
+ 46 :if(flasoff)then RL(14)else moveto(17);
+ 49,52 :if(flasoff)then RL(14)else begin RL(308);moveto(19);end;
+ 47 :if(flasoff)then RL(14)else
+ if not(en('F'))then begin RS(19);writeln;moveto(21);
+ Ev:=Ev+['F'];Sc:=Sc+10;end
+ else moveto(21);
+ 11 :if(noun in[79,50])then RL(254);
+ end;{of 18}
+
+end {of case}
+else SA
+end; {of SP12}
+{-------------------}
+ procedure SpecialAnswers13;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+2 :case verb of
+ 46 :moveto(1);
+ 45, 44 :RL(1);
+ 19,2 :if(noun in[53,6,64,73])then begin RL(0);DEAD;end;
+ 14,27 :if noun=14 then RL(2)else
+ if(noun in[1,40])and(40 in p[2])then
+ begin noun:=40;Sc:=Sc+10;Verb:=14;RL(417);FlagSA:='r' end;
+ 11 :if(noun in[66,46])then RL(11);
+ 26 :if noun=14then RL(13);
+ end;
+
+31 :case verb of
+ 48,58:moveto(25);
+ 14 :if not(en('I'))and(noun in[7,1])then
+ begin Ev:=Ev+['I'];noun:=7;Sc:=Sc+5 end;
+ 23,24,11:if(noun=84)then RL(152)else
+ if(noun=22)then RL(415);
+ end;
+
+32 :case verb of
+ 43,58:moveto(25);
+ 11,23 :case Noun of
+ 61:if(en('H'))then RL(153) else begin Ev:=Ev+['H'];r[34]:=32;
+ RL(154);Sc:=Sc+15;end;
+ end;{of Noun case}
+ end;
+
+34 :case verb of
+ 45,58:moveto(25);
+ 14 :if(noun=74)and(74 in P[34])then begin P[34]:=P[34]-[74];
+ inven:=inven+[74];RL(138);Sc:=Sc+25;end;
+ 42 :if(noun=74)and(74 in P[34])then RL(175);
+ 28,27:if(noun in[10,36])then begin RL(387);
+ for o:=1 to random(12)+4 do play(random(250),random(250),random(30))
+ end;
+ 39 :if(noun=25)then begin RL(387);
+ for o:=1 to random(99)+75 do
+ begin x:=random(9999);play(x,x,random(19)+10);delay(5)end
+ end;
+ 11 :case noun of
+ 0:RL(139);
+ 25:RL(418);
+ 21:begin;RL(140);RL(141);end;
+ 68:if(SlotCon=Null)then RL(143) else
+ begin SA;writeln('The slot contains a ',n[SlotCon,1],'.')end;
+ 58:if(SlotCon=77)and not(en('x'))then
+ begin Ev:=Ev+['x'];Sc:=Sc+5;RS(75)end
+ else if(SlotCon=77)then RS(77)else RL(385)
+ end
+ end;
+
+0 :case verb of
+ 45 :MoveTo(1);
+ 44 :begin TextColor(m8);writeln('Casino Hall');TextColor(m2);RS(0)end;
+ 19,2 :if(noun in[53,6,64,73])then begin RL(0);DEAD;end;
+ 11 :if(noun=73)then RL(19);
+ end;
+
+1 :case verb of
+ 46 :moveto(0);
+ 45 :moveto(2);
+ 43,57 :moveto(3);
+ 6,17 :if(noun=57)and(here(40))and((noun2=40)or(noun2=Null))then
+ begin RS(16);Sc:=-500;
+ Loc:='Locked Cabin';Verbose:=True;inven:=[];KitSet:=KitSet-[57];
+ n[57,1]:='plastic card';n[57,2]:='card';n[57,3]:='plastic';
+ n[57,4]:='elevato card';n[57,5]:='elevato';r[57]:=76;moveto(76)
+ end;
+ 33,19,2 :if(noun in[6,53,64])then moveto(3)
+ end;
+
+end {of case}
+else SA
+end; {of SP13}
+{-------------------}
+ procedure SpecialAnswers14;
+
+begin
+FlagSA:='r';
+if Present then
+Case Prm of
+
+49 :case verb of
+ 43 :moveto(45);
+ 44,57 :begin RL(290);moveto(50);n[36,1]:='lever';n[36,2]:='handle';end;
+ 45..50:RL(291);
+ 11 :if(noun in[26,50])then RL(292);
+ 2 :if(noun=72)then RL(312);
+ 12 :if(noun=72)then RL(313);
+ end;
+
+59 :case verb of
+ 43..50:begin o:=random(8)+3;writeln('You travel about ',o,' miles...');
+ if(random(4)=2)then ShRm:=13 else ShRm:=Random(15);moveto(59)end;
+ 52,57:RL(341);
+ 58 :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
+ 51 :begin sound(30);
+ if not(en('U'))then begin RS(64);writeln;Ev:=Ev+['U'];Sc:=Sc+45;end
+ else RL(349);moveto(63);sound(20)end;
+ 14 :if(noun=63)then begin RS(65);DEAD;end;
+ 28 :if(noun=10)then noun:=81;
+ end; {of case 59}
+
+72 :case verb of
+ 46 :moveto(71);
+ 43,44,58:moveto(73);
+ 45 :moveto(74);
+ end;
+
+73 :case verb of
+ 43,45,58:moveto(72);
+ 46 :moveto(73);
+ 44 :begin moveto(74);if(MnRm=Null)then RL(356);end;
+ end;
+
+74 :case verb of
+ 43,45 :moveto(73);
+ 46,58 :moveto(74);
+ 44 :if(MnRm=Null)then begin Verbose:=False;Moveto(75);Verbose:=True;
+ RS(69);MnRm:=75;Attack:=False end else moveto(75);
+ end;
+
+75 :case verb of
+ 43,58 :moveto(74);
+ 11 :if(noun in[14,61])then RL(364);
+ end;
+
+76 :case verb of
+ 43 :RL(114);
+ 11 :if(noun=26)then RL(271)else
+ if(noun=57)then RL(408);
+ end;
+
+end {of case}
+else SA
+end; {of SP14}
+{===================}
+procedure ScreenDraw_PlayerInput;
+ begin
+ gotoxy(1,23);
+ writeln;
+ TextColor(m5);
+ write(chr(175),' ');
+
+ {Window(1,1,80,25);}
+
+ gotoxy(1,1);
+ textcolor(m4);
+ TextBackGround(m6);
+
+ gotoxy(10,1);
+ writeln(Tic,' ');
+
+ gotoxy(20,1);
+ writeln(Sc,' ');
+
+ gotoxy(35-(length(Loc)div 2),1);
+ writeln(' ',Loc,' ');
+
+
+ gotoxy(2,24);
+ TextBackGround(0);
+ Window(1,2,80,25);
+ textcolor(m1);
+
+ {BufLen:=77;}
+ if(Loc<>'Civilization!')then
+ READLN(LINE)
+ else repeat;
+ until false;
+ if(Line='r') or (Line='repeat') then Line:=Again
+ else Again:=Line;
+
+
+
+ TextColor(m3);
+ writeln(chr(175));
+ TextColor(m2);
+
+
+ end;
+{-------------------}
+
+
+BEGIN
+clrscr;
+assign0;
+assign1;
+assign2;
+assign3;
+assign4;
+assign5;
+assign6;
+assign7;
+assign8;
+Initialize;
+
+ {*****} repeat {*****}
+
+if Skip then Time;
+{writeln;}
+
+if(length(Line)=0)then begin
+ ScreenDraw_PlayerInput;
+ while pos(' then ',Line)>0 do
+ begin
+ x:=pos('then ',Line);
+ delete(Line,x,4);
+ insert('.',Line,x)
+ end;
+ LowerCase(Line);
+ Format(Line);
+ Chop(Line);
+end;
+if(pos('.',Line)>0)then begin
+ Input:=copy(Line,1,pos('.',Line));
+ delete(Line,1,pos('.',Line));
+ delete(Input,pos('.',Input),1);
+end else
+ begin
+ Input:=Line;
+ Line:=''
+ end;
+Input:=Input+' ';
+while pos(' it ',Input)>0 do
+ begin
+ x:=pos(' it ',Input)+1;
+ delete(Input,x,2);
+ insert(LastNoun,Input,x);
+ Format(Input);Chop(Input);
+ end;
+if(Input[length(Input)]=' ')then delete(Input,length(Input),1);
+
+
+
+Check(SepWord);
+
+if Flag = 'g' then
+ begin
+ case Prm of
+ 3..4 :SpecialAnswers1;
+ 5..10 :SpecialAnswers2;
+ 14..16 :SpecialAnswers3;
+ 19..24 :SpecialAnswers4;
+ 25,27..29,33 :SpecialAnswers5;
+ 30 :SpecialAnswers6;
+ 26,35..40 :SpecialAnswers7;
+ 41..48 :SpecialAnswers8;
+ 50..55 :SpecialAnswers9;
+ 56..58,60..62,65..67:SpecialAnswers10;
+ 63,64,68..71 :SpecialAnswers11;
+ 11..13,17,18 :SpecialAnswers12;
+ 0..2,31,32,34 :SpecialAnswers13;
+ 49,59,72..76 :SpecialAnswers14
+ end;
+
+ if FlagSA <> 's' then
+ case Verb of
+ 11,18,22,41,43..52,57,58 :DefaultAnswers1;
+ 29 :DefaultAnswers2;
+ 1,2,8,12,13,15,16,19,21,
+ 23..25,31,33,34,38,40,60,63:DefaultAnswers3;
+ 3,6,7,20,30,35,53..56,59 :DefaultAnswers4;
+ 9,26 :DefaultAnswers5;
+ 27,28,62 :DefaultAnswers6;
+ 14,64,4,5 :DefaultAnswers7;
+ 0,10,17,42,39 :DefaultAnswers8;
+ 32 :DefaultAnswers9;
+ 36,37,61,65 :DefaultAnswers10;
+ end;
+ end;
+
+ {*****} until False {*****}
+
+END. {of program}
-{//-------------------------------------------------------------------------}\r
-{/* }\r
-{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }\r
-{ }\r
-{This file is part of Supernova. Supernova is free software; you can }\r
-{redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 2 }\r
-{of the License, or (at your option) any later version. }\r
-{ }\r
-{This program is distributed in the hope that it will be useful, }\r
-{but WITHOUT ANY WARRANTY; without even the implied warranty of }\r
-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }\r
-{ }\r
-{See the GNU General Public License for more details. }\r
-{ }\r
-{You should have received a copy of the GNU General Public License }\r
-{along with this program; if not, write to the Free Software }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}\r
-{ }\r
-{Original Source: 1990 Scott Miller }\r
-{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
-{*/ }\r
-{//-------------------------------------------------------------------------}\r
-{****************************************************************************}\r
-{* COMMANDS *}\r
-{* by Scott Miller *}\r
-{* These are misc procedures and functions used with the main file: AdGame *}\r
-{* Copyright 1984 Pending *}\r
-{****************************************************************************}\r
-\r
-procedure SA;\r
- begin FlagSA:='s' end;\r
-\r
-function En(c : char) : boolean;\r
- begin\r
- if(c in Ev)then En:=True else En:=False\r
- end;\r
-\r
-function Here(noun : integer): Boolean;\r
- begin\r
- if(noun in Inven)or(r[noun]=Prm)or(noun in p[Prm])then Here:=True\r
- else Here:=False\r
- end;\r
-\r
-overlay procedure Crazy;\r
- begin SA;\r
- if(random(2)=1)then RL(107+random(7))else RL(300+random(6));\r
- end;\r
-\r
-overlay procedure DEAD;\r
- var b,c:byte;\r
- FileName : file;\r
- begin SA; NoSound;\r
- gotoxy(1,25);for x:=1 to 7 do writeln;\r
- Textcolor(1);Textbackground(m9);\r
- gotoxy(1,18);\r
- write('*********************************************************',\r
- '***********************');writeln;\r
- gotoxy(1,19); for x:=1 to 3 do\r
- write('* ',\r
- ' *');writeln;\r
- gotoxy(1,22);\r
- write('*********************************************************',\r
- '***********************');writeln;\r
- TextColor(m0);gotoxy(32,20);writeln('YOU HAVE DIED!!!');\r
- Textcolor(m2);Textbackground(0);\r
- for c:=700 downto 20 do for b:=70 downto 1 do sound(b*c);nosound;\r
- close(Rooms1);close(rooms2);close(special1);close(special2);close(line1);\r
- gotoxy(1,23);DelLine;DelLine;writeln;write('Do you wish to play again? ');\r
- read(kbd,flag);\r
- if(upcase(flag)<>'N')then\r
- begin\r
- writeln('Restarting...');window(1,1,80,25);\r
- assign(rooms1,'BEYOND.com');execute(rooms1)end\r
- else\r
- begin\r
- textcolor(7);\r
- textbackground(0);\r
- window(1,1,80,25);\r
- clrscr;\r
- writeln(' Beyond the Titanic');\r
- writeln('A Scott Miller Production');\r
- writeln(' Have a nice day...');\r
- delay(2000);\r
- assign(FileName,'MENU.COM');\r
- {$I-}\r
- execute(FileName);\r
- {$I+}\r
- if IOResult <> 0 then HALT;\r
- end\r
- end;\r
-\r
-overlay procedure Home;\r
- var b,c:byte;\r
- begin SA;\r
- gotoxy(1,25);for x:=1 to 7 do writeln;\r
- Textcolor(25);Textbackground(m7);\r
- gotoxy(1,18);\r
- write('#########################################################',\r
- '#######################');writeln;\r
- gotoxy(1,19); for x:=1 to 3 do\r
- write('# ',\r
- ' #');writeln;\r
- gotoxy(1,22);\r
- write('#########################################################',\r
- '#######################');writeln;\r
- TextColor(31);gotoxy(25,20);writeln('Y O U H A V E W O N ! ! !');\r
- Textcolor(m2);Textbackground(0);\r
- gotoxy(1,23);DelLine;DelLine;writeln;\r
- for x:=150 downto 1 do begin sound(x*55);delay(8);nosound;delay(20)end;\r
- if(Sc>1000)then Sc:=1000;\r
- write('You finished with a score of ',Sc,', which makes you a ');\r
- if(Sc=1000)then\r
- begin writeln('Perfect Adventurer!!!');\r
- for y:=1 to 7 do\r
- for o:=0 to 20 do\r
- for x:= 99+(o*430)to 998+(o*430)do begin sound(25);sound(x)end\r
- end\r
- else writeln('Master Adventurer!');\r
- for c:=1 to 999 do for b:=1 to 61 do sound(b*c);nosound;\r
- writeln;nosound;\r
- writeln('Reboot your computer to regain control...')\r
- end;\r
-\r
-overlay procedure Say(o : integer; p : str14);\r
- begin\r
- writeln('The ',n[o,1],' is already ',p,'.'); SA\r
- end;\r
-\r
-overlay procedure Diagnose;\r
- begin\r
- RL(191);\r
- if((tic>42)and not(en('c')))or((tic>146)and not(en('n')))or(en('r'))then\r
- begin\r
- if(tic>42)and (not(en('c')))then RL(192)\r
- else if(tic>146)and not(en('n'))then RL(192);\r
- if(en('r'))then RL(51)\r
- end\r
- else RL(207)\r
- end;\r
-\r
-overlay procedure Monster(var NewRm : integer);\r
- begin\r
- if(NewRm=MnRm)and(MnRm=25)then begin Attack:=False;RL(384)end else\r
- if(NewRm<>35)or not(en('v'))then\r
- begin\r
- p[Prm]:=p[Prm]-[23];p[NewRm]:=p[NewRm]+[23];MnRm:=NewRm;Attack:=False;\r
- if not((NewRm=30)and(Verb in[27,28]))then\r
- case random(7) of\r
- 0:RS(71);1:RS(72);2:RL(359);3:RL(360);4:RL(361);5:RL(362);6:RL(363)\r
- end\r
- end\r
- else begin RL(383);Attack:=False end\r
- end;\r
-\r
-overlay procedure DescribeRm;\r
- var o : integer;\r
- procedure s(r : str14);\r
- begin TextColor(m8);writeln(r);TextColor(m2);loc:=r;end;\r
- begin SA;\r
-if((en('a'))and(here(29)))or not(Prm in [6..24])then begin\r
- case Prm of\r
-0:s('Ship''s Fore');1:s('Ship Mid-Deck');2:s('Rear of Ship');\r
-3:s('Life Boat');4:s('Ocean Surface');5:s('Huge Cavern');\r
-6:s('Cave of Pins');7:s('Ocean Bottom');8:s('Squeaky Cave');\r
-9:s('Stream Bend');10:s('Waterfall');13:s('Sloppy Cave');\r
-11:s('Hex Cave');12:s('Shallow Cleft');20:s('Zoo');\r
-14:s('Winding Tunnel');15:s('Chasm');17:s('Chasm Bottom');\r
-18:s('Tiny Opening');19:s('Etched Stairs');\r
-21:s('Edge of Saucer');22:s('Side of Saucer');\r
-23:s('Top of Saucer');24:s('Airlock');16:s('End of Rope');\r
-76:s('Locked Cabin');25:s('Central Entry');\r
-26:s('Lower Entry');27:s('Ship''s Systems');\r
-30:s('Time Chamber');28:s('Ship''s Lab');34:s('Bridge');\r
-29:s('Inside Tube');31:s('Life Support');58,69:s('Inside Shuttle');\r
-32:s('Supply Chamber');33:s('Sleep Chamber');\r
-35:s('Engine Room');36:s('Cargo Deck #1');37:s('Cargo Deck #2');\r
-38:s('Cargo Deck #3');39:s('Cargo Deck #4');40:s('Large Cage');\r
-41:s('Wooden Bridge');42:s('Broken End');43:s('South End');\r
-44..46:s('Deserted Road');47:s('Crater Edge');48:s('Crater Floor');\r
-49:s('Building Front');50:s('Lobby');51..54:s('Office Room');\r
-55:s('Basement');56:s('Ladder Room');57:s('Building Roof');\r
-59:case ShRm of 0:s('Above Mud Lake');\r
-1:s('Above Rubble');2:s('Above Desert');3:s('Above Pits');\r
-4:s('Above River');5:s('Above Stream');6:s('Above Town');\r
-7:s('Above Mountain');8:s('Above Crator');9:s('Above Hills');\r
-10:s('Above Canyon');11:s('Above Flatland');12:s('Above Dry Lake');\r
-13:s('Above Desert');14:s('Above Bridge')end;{of Above Rooms}\r
-63,64:s('Above Clouds');65..68:s('Outside City');70:s('Landing Bay');\r
-71:s('Power Plant');72..74:s('Dark Corridor');75:s('Food Supply')\r
- end; {of case}\r
-\r
- if Verbose then begin FlagSA:='r';\r
- case Prm of\r
- 2 :if(40 in p[2])then begin RR(2);RL(416)end;\r
- 4 :if(en('B'))then RR(4)else begin RR(4);\r
- writeln('There is a safety harness here.')end;\r
- 11:if(en('C'))then RS(15);\r
- 40:if(en('g'))then RS(17);\r
- 12:if not(en('G'))then begin RR(12);RL(146)end;\r
- 31:if not(en('I'))then begin RR(31);RL(156)end;\r
- 34:if(74 in p[34])then begin RR(34);RL(273)end;\r
- 35:if(77 in p[35])then begin RR(35);RL(381);RL(382)end else\r
- if(en('W'))then begin RR(35);RL(381)end;\r
- 42:if(13 in p[42])then begin RR(42);RL(214)end;\r
- 48:if(27 in p[48])then begin RR(48);RL(276)end;\r
- 59..69:begin SA;\r
- if(Prm=59)and not(ShRm in RmSh)then\r
- begin RmSh:=RmSh+[ShRm];RS(ShRm+46)end\r
- else if(Prm<>59)then RR(Prm);\r
- if KeyHole and here(63)then\r
- writeln('The shiny key is in the keyhole.')\r
- end\r
- else RR(Prm)\r
- end; {of case}\r
- if(FlagSA='r')and(Prm<>59)then RR(Prm)end;\r
-\r
- for o:= 0 to NMax do begin\r
- if(o in Mov)then\r
- if(r[o]=Prm)then\r
- if not((Prm in[59..69])and(KeyHole)and(o=63))then\r
- begin writeln('There is a ',n[o,1],' here.');\r
- if(here(ropecon))and(o=ropecon)and not(ropecon in inven)then\r
- writeln(' The rope is attatched to the ',n[o,1],'.');\r
- if(en('d'))and(o=70)and(here(70))then RL(147);\r
- if(o=SlotCon)and(here(o))then RL(388);\r
- if(o in CabiSet)and(here(o))then RL(389);\r
- if(o=PanelCon)and(here(o))then RL(390);\r
- if(o in KitSet)and(here(o))then RL(391);\r
- end\r
- end end\r
- else RL(54)\r
- end; {of DescribeRm}\r
-\r
-overlay procedure SAVE;\r
- begin SA; for x:=1 to 24 do writeln; nosound;\r
- window(1,3,80,25);\r
- gotoxy(1,4);\r
- if(Drive='A:')then\r
- writeln('Remove the GAME disk and insert your SAVE/RESTORE disk ',\r
- 'in drive A:')else\r
- writeln('Make sure your SAVE/RESTORE disk is in drive B:');\r
- writeln(' (Press any key to continue...)');read(kbd,flag);\r
- writeln;writeln;\r
- write('Save under what name? ');BufLen:=8;readln(input);\r
- while pos(' ',input)>0 do delete(input,pos(' ',input),1);\r
- while pos('.',input)>0 do delete(input,pos('.',input),1);\r
- if(input='')then input:='LastRoom';\r
- writeln;writeln;input:=Drive+input;\r
- writeln('If your SAVE/RESTORE disk is in drive ',Drive,\r
- ' then press any key to start.');\r
- read(kbd,flag);\r
- with DiskSave do\r
- begin\r
- aInven:=Inven;aKitSet:=KitSet;aCabiSet:=CabiSet;aPanelCon:=PanelCon;\r
- aSlotCon:=SlotCon;aCompCon:=CompCon;aRopeCon:=RopeCon;aTic:=Tic;\r
- aYearDial:=YearDial;aPrm:=Prm;aMnRm:=MnRm;aSc:=Sc;aShots:=Shots;\r
- aShRm:=ShRm;aRx:=Rx;aEv:=Ev;aCode:=Code;aLoc:=Loc;aKeyHole:=KeyHole;\r
- end;\r
- assign(GameSave,input+'.a');\r
- rewrite(GameSave);\r
- write(GameSave,DiskSave);\r
- close(GameSave);\r
- assign(Objects,input+'.b');\r
- rewrite(Objects);\r
- for x:=0 to RMax do write(Objects,p[x]);\r
- close(Objects);\r
- assign(WordList,input+'.c');\r
- rewrite(Wordlist);\r
- for x:= 0 to NMax do\r
- for y:= 1 to 5 do\r
- write(WordList,n[x,y]);\r
- for x:= 0 to VMax do\r
- for y:= 1 to 5 do\r
- write(WordList,v[x,y]);\r
- close(WordList);\r
- assign(Things,input+'.d');\r
- rewrite(Things);\r
- for x:= 0 to NMax do write(Things,r[x]);\r
- close(Things);\r
- writeln; delete(input,1,2);\r
- writeln('Your present game location is now',\r
- ' SAVED to disk under the name ''',input,'.''');\r
- if(Drive='A:')then begin writeln;\r
- writeln('Remove the SAVE/RESTORE disk and insert your GAME disk.')end;\r
- writeln(' (Press any key to continue...)');read(kbd,flag);\r
- writeln;writeln;\r
- if(Verb<>54)then writeln('You may now resume your game...');\r
- if(Line='')then Line:='look';Tic:=Tic-2;Back:=True;\r
- if(Prm in[59..68])then sound(20);\r
- window(1,2,80,25)\r
- end; {of Save}\r
-\r
-overlay procedure RESTORE;\r
- function Exist:Boolean;\r
- begin\r
- assign(GameSave,input+'.a');\r
- {$I-}\r
- Reset(GameSave);\r
- {$I+}\r
- Exist:=(IOresult=0)\r
- end;\r
- begin SA; for x:=1 to 24 do writeln; nosound;\r
- window(1,3,80,25);gotoxy(1,4);\r
- if(Drive='A:')then\r
- writeln('Remove the GAME disk and insert your SAVE/RESTORE disk ',\r
- 'in drive ',Drive)else\r
- writeln('Make sure your SAVE/RESTORE disk is in drive B:');\r
- writeln(' (Press any key to continue...)');read(kbd,flag);\r
- writeln;writeln;\r
- write('Which file name do you want to RESTORE? ');BufLen:=8;readln(input);\r
- while pos(' ',input)>0 do delete(input,pos(' ',input),1);\r
- while pos('.',input)>0 do delete(input,pos('.',input),1);\r
- if(input='')then input:='LastRoom';\r
- writeln;writeln;input:=Drive+input;\r
- writeln('If your SAVE/RESTORE disk is now in drive ',Drive,\r
- ' then press any key to start.');\r
- read(kbd,flag);\r
- if Exist then\r
- begin\r
- close(GameSave);\r
- assign(GameSave,input+'.a');\r
- reset(GameSave);\r
- read(GameSave,DiskSave);\r
- close(GameSave);\r
- with DiskSave do\r
- begin\r
- Inven:=aInven;KitSet:=aKitSet;CabiSet:=aCabiSet;PanelCon:=aPanelCon;\r
- SlotCon:=aSlotCon;CompCon:=aCompCon;RopeCon:=aRopeCon;Tic:=aTic;\r
- YearDial:=aYearDial;Prm:=aPrm;MnRm:=aMnRm;Sc:=aSc;Shots:=aShots;\r
- ShRm:=aShRm;Rx:=aRx;Ev:=aEv;Code:=aCode;Loc:=aLoc;KeyHole:=aKeyHole;\r
- end;\r
- assign(Objects,input+'.b');\r
- reset(Objects);\r
- for x:=0 to RMax do read(Objects,p[x]);\r
- close(Objects);\r
- assign(WordList,input+'.c');\r
- reset(Wordlist);\r
- for x:= 0 to NMax do\r
- for y:= 1 to 5 do\r
- read(WordList,n[x,y]);\r
- for x:= 0 to VMax do\r
- for y:= 1 to 5 do\r
- read(WordList,v[x,y]);\r
- close(WordList);\r
- assign(Things,input+'.d');\r
- reset(Things);\r
- for x:= 0 to NMax do read(Things,r[x]);\r
- close(Things);\r
- writeln; delete(input,1,2);\r
- writeln('Your previously SAVED game location is now',\r
- ' RESTORED from the file ''',input,'.''');\r
- if(Drive='A:')then begin writeln;\r
- writeln('Remove the SAVE/RESTORE disk and insert your GAME disk.')end;\r
- writeln(' (Press any key to continue...)');read(kbd,flag);\r
- end\r
- else\r
- begin writeln;TextColor(28);\r
- writeln(' That name does not exist on this',\r
- ' SAVE/RESTORE disk.',^g);\r
- TextColor(m2);writeln;\r
- if(Drive='A:')then\r
- writeln('Put your GAME disk back in the disk drive and press any key.')\r
- else writeln(' (Press any key to continue...)');\r
- read(kbd,flag);\r
- end;\r
- writeln;writeln;writeln('You may now resume you game...');\r
- if(Line='')then Line:='look';Tic:=Tic-2;Back:=True;\r
- if(Prm in[59..68])then sound(20);\r
- window(1,2,80,25)\r
- end; {of Restore}\r
-\r
-overlay procedure Vanish(o : integer);\r
- begin SA;\r
- inven:=inven-[o];\r
- r[o]:=Null;\r
- p[Prm]:=p[Prm]-[o];\r
- if(o=7)and not(en('I'))then Ev:=Ev+['I'];\r
- if(o=13)and(13 in p[42])then p[42]:=p[42]-[13];\r
- if(o=PanelCon)then PanelCon:=Null;\r
- if(o=SlotCon)then SlotCon:=Null;\r
- if(o in CabiSet)then CabiSet:=CabiSet-[o];\r
- if(o in kitset)then kitset:=kitset-[o];\r
- if(o=63)and KeyHole then KeyHole:=False;\r
- if(o=74)then Ev:=Ev-['p'];\r
- if(o=89)then Ev:=Ev-['i'];\r
- if(o=RopeCon)and(verb=36)then begin RopeCon:=Null;RL(402)end;\r
- if(o=RopeCon)and not(Verb in[9,14])then RopeCon:=Null\r
- end;\r
-\r
-overlay procedure Play( Start, Stop, Wait: integer);\r
- var x : integer;\r
- begin\r
- if(Start<=Stop)then\r
- for x:= Start to Stop do\r
- begin sound(x); delay(Wait); end\r
- else\r
- for x:= Start downto Stop do\r
- begin sound(x); delay(Wait); end;\r
- if(Prm in[59..68])then sound(20)else nosound\r
- end; {of Play}\r
-\r
-overlay procedure DropAll;\r
- var o : integer;\r
- begin\r
- for o:= 0 to NMax do\r
- if(o in inven)then\r
- begin\r
- r[o]:=Prm;\r
- inven:=inven-[o];writeln(n[o,1],': Dropped.');\r
- end;\r
- RL(106);\r
- end; {of DropAll}\r
-\r
-function FlasOff : Boolean;\r
- begin\r
- if not(En('a'))then FlasOff:=True\r
- else\r
- if(r[29]=Prm)or(29 in inven)then FlasOff:=False\r
- else FlasOff:=True;\r
- end;\r
-\r
-procedure MoveTo(NewRm : integer);\r
- var o : integer;\r
- begin\r
- if(57 in inven)and(ropecon<>Null)and not(ropecon in inven)\r
- and(ropecon in mov)and not(ropecon=70)then\r
- begin r[ropecon]:=Prm;RL(158);end\r
- else if(57 in inven)and(ropecon<>Null)and(not(ropecon in mov)or\r
- ((ropecon=70)and(en('d'))))then\r
- begin RL(55);inven:=inven-[57];r[57]:=Prm;end\r
- else if not(57 in inven)and((ropecon in inven)or\r
- (ropecon in[60,56,44]))then r[57]:=NewRm\r
- else if not(57 in inven)and(r[57]=Prm)and(r[ropecon]=NewRm)then\r
- begin r[57]:=NewRm;RopeOld:=Prm;end\r
- else if not(57 in inven)and(r[57]=Prm)and(NewRm=RopeOld)and\r
- (r[ropecon]=Prm)then\r
- begin r[57]:=RopeOld;RopeOld:=Null;end;\r
- if(ropecon=Null)or((NewRm<>RopeOld)and(Prm<>RopeOld))then RopeOld:=Null;\r
- if(MnRm<>Null)then Monster(NewRm);\r
- if(Prm in[63..68])and not(NewRm in[59,69])then RL(343);\r
- if(Prm in[59,63..68])then for o:=0 to NMax do if(r[o]=Prm)then r[o]:=NewRm;\r
- Prm:=NewRm;\r
- DescribeRm\r
- end; {of MoveTo}\r
-\r
-procedure Time;\r
- begin\r
- Tic:=Tic+1;\r
- case Tic of\r
- 3:RL(280);\r
- 4:RS(1);\r
- 17:if not(en('A'))then begin RS(3);DEAD end else RS(5);\r
- 19:RL(4);\r
- 20:RL(5);\r
- 21:RL(6);\r
- 23:RS(6);\r
- 24:if(en('B'))then begin RS(8);writeln;RL(16);moveto(5);Sc:=Sc+25;\r
- n[64,5]:='ship';v[26,2]:='pick' end\r
- else begin RS(7);DEAD;end;\r
- 43:if(not(en('c'))and not(en('n')))then RL(31);\r
- 73:if(not(en('c'))and not(en('n')))then RL(32);\r
- 93:if(not(en('c'))and not(en('n')))then begin RL(33); DEAD end;\r
- 99:if(Prm in[6..24])and(here(29))and not(flasoff)and(not(en('s')))then\r
- begin RL(41);Ev:=Ev+['s'] end;\r
- 147:if not(en('n'))then RL(31);\r
- 149:if(here(29))and not(flasoff)then RL(59);\r
- 153:if(Prm in[6..23])and(here(29))and not(flasoff)then\r
- begin RS(14);vanish(29) end;\r
- 170:if not(en('n'))then RL(32);\r
- 181:if not(en('n'))then begin RL(33); DEAD end;\r
- 549:RL(281);\r
- 586:RL(282);\r
- 598:RL(283);\r
- 607:begin RL(284);DEAD;end;\r
- end; {of case}\r
-\r
-case Prm of\r
- 1..3:if(tic>4)and(random(4)=1)then RL(405);\r
- 36..39:if(random(5)=2)then RL(219);\r
- 7 :if(random(8)=2)then RL(266);\r
- 8 :if(random(3)=2)then begin RL(265);play(6666,7000,0);end;\r
- 13..24:if(random(16)=2)then RL(246);\r
- 25..35:if(random(30)=2)then RL(267);\r
- 47,48:if(random(5)=2)and(inven <>[])then\r
- begin\r
- if(Prm=48)then begin writeln;RS(40)end\r
- else begin writeln;RS(44);moveto(48)end;\r
- o:=1;flag:='?';\r
- repeat o:=o+1;\r
- if(o in inven)then\r
- begin vanish(o);r[o]:=random(9)+41;flag:='g';end;\r
- until Flag = 'g';\r
- end;\r
-end;\r
-case Prm of\r
- 5,6,9,10:if(random(9)=2)then RL(268);\r
- 7..40:if(here(84))and(random(20)=2)then RL(269)\r
- else if(random(75)=2)then RS(36)\r
- else if(Prm in[5..22])and(random(33)=2)then\r
- begin RL(265);play(6500,6950,0)end;\r
- 41..49:if(random(27)=2)then RL(285);\r
- 59 :if(random(15)=1)then RL(406);\r
-end;\r
-if Attack and(MnRm=Prm)and(not Back)then\r
- begin case random(3) of 0:RS(80); 1:RS(81); 2:RS(82)end;DEAD end\r
-else if(MnRm=Prm)then Attack:=True\r
- end; {of Time}\r
-\r
-function Present : Boolean;\r
- begin\r
- if(noun<>Null)and(noun<>1)then\r
- if(here(noun))then\r
- if(noun2<>Null)then\r
- if(here(noun2))then Present:=true\r
- else begin\r
- writeln('You can''t see any ',n[noun2,1],' here.');Present:=false end\r
- else Present:=true\r
- else begin\r
- writeln('You can''t see any ',n[noun,1],' here.');Present:=false end\r
- else Present:=true\r
- end;\r
-\r
-overlay procedure Initialize;\r
- procedure Cn(S : Str80);\r
- begin\r
- gotoxy(40-(length(S)div 2),wherey);writeln(S);\r
- end;\r
- begin\r
- textcolor(15);\r
- writeln('Prepare to engage yourself in a most exciting adventure.');\r
- writeln('But first, two simple questions:');\r
- gotoxy(1,4);write('Are you using a COLOR screen (Y/N)? ');\r
- nosound; play(72,80,45);\r
- read(kbd,flag); play(2500,2490,6);\r
- m0:=20;m1:=14;m2:=11;m3:=4;m4:=15;m5:=28;m6:=1;m7:=4;m8:=10;m9:=10;\r
- if upcase(flag)='N' then\r
- begin\r
- writeln('No, I don''t have a color screen.');\r
- m0:=31;m1:=15;m2:=15;m3:=7;m4:=0;m5:=31;m6:=7;m7:=8;m8:=7;m9:=0;\r
- end else writeln('Yes, I do have a color screen.');writeln;\r
- write('How many disk drives do you have (1/2)? ');\r
- play(80,88,30);\r
- read(kbd,flag);play(2500,2490,6);\r
- Drive:='B:';\r
- if(upcase(flag)='O')or(flag='1')then\r
- begin Drive:='A:';writeln('I have ONE disk drive.')end else\r
- writeln('I have TWO disk drives.');\r
- delay(999);clrscr;textcolor(15);gotoxy(1,5);writeln;textcolor(7);\r
- cn('Beyond the Titanic');textcolor(6);cn('------------------');writeln;\r
- textcolor(7);\r
- cn('A Text & Sound Adventure Fantasy');writeln;writeln;\r
- cn('An Apogee Software Production');writeln;writeln;writeln;\r
- cn('Written and Programmed by Scott Miller');\r
- textcolor(11);\r
- gotoxy(32,24);textcolor(7);\r
- write('Press any key...');read(kbd,flag);clrscr;\r
-\r
- { *** SHAREWARE SCREEN *** }\r
-\r
- textcolor(15);\r
- writeln('Please note that Beyond the Titanic is a SHAREWARE game.');\r
- writeln;\r
- textcolor(7);\r
- writeln('This game has been placed in the public domain for your enjoyment.');\r
- writeln;\r
- writeln('If you like the game the author (Scott Miller) asks that you please');\r
- writeln('contribute $5 or $10 (your discretion) to him. This minimal payment');\r
- writeln('will help compensent the author for the year of work that went into');\r
- writeln('Beyond the Titanic. It will also encourage the author to make new and');\r
- writeln('better games, like Supernova and Kingdom of Kroz, both of which are');\r
- writeln('also shareware games recently released.');\r
- writeln;\r
- writeln('This fee also registers the payer for telephone support and clues.');\r
- writeln;writeln;\r
- writeln('Please make checks payable to Scott Miller.');\r
- writeln;\r
- textcolor(15);\r
- writeln(' Scott Miller (214) 240-0614');\r
- writeln(' 4206 Mayflower Dr.');\r
- writeln(' Garland, TX 75043');\r
- writeln;\r
- textcolor(7);\r
- writeln('Thanks, enjoy the game...');\r
- gotoxy(23,25);\r
- delay(12000);\r
- while keypressed do read(kbd,flag);\r
- write('Press any key to start the game...');\r
- read(kbd,flag);\r
- while keypressed do read(kbd,flag);\r
- clrscr;\r
- { ************************ }\r
-\r
- gotoxy(1,25);\r
- TextColor(m1);\r
-cn('APRIL 14, 1912 11:43 PM');\r
-cn('You never knew the black canvas of the night was so full'+\r
- ' of twinkling detail.');\r
-cn('Standing on deck of the White Star''s new super luxury liner, deep at sea,');\r
-cn('where the bright lights of San Francisco don''t fade the night, you');\r
-cn('can view thousands of stars you never realized existed.');\r
-cn('Looking out over the icy sea you can barely see small pieces of'+\r
- ' broken ice');\r
-cn('bobbing in the water. Rumor has it that icebergs the size of small');\r
-cn('mountains can be found in this region. You don''t feel');\r
-cn('too worried, though, the Titanic has been touted as');\r
-cn('"unsinkable," and every single passenger knows');\r
-cn('that White Star, the premier ship builder,');\r
-cn('knows their stuff...');\r
-for x:= 1 to 3 do writeln;\r
-Line :='';\r
-LastNoun :='';\r
-KitSet :=[2,29,57];\r
-CabiSet :=[89,63];\r
-CompCon :=Null;\r
-PanelCon :=8;\r
-RopeCon :=Null;\r
-SlotCon :=Null;\r
-RopeOld :=Null;\r
-RmSh :=[];\r
-Mov :=[2,7,8,13,27,29,32,34,40,52,51,57,63,70,74,77,89];\r
-OneWordCommands:=[1,4,5,7,8,16,18,19,22,31,33..35,41,43..54,56..59,61..65];\r
-Ev :=[];\r
-Inven :=[];\r
-Prm :=0;\r
-MnRm :=Null;\r
-Tic :=Prm;\r
-Sc :=0;\r
-Shots :=6;\r
-KeyHole :=false;\r
-Verbose :=true;\r
-Attack :=False;\r
-YearDial :=135;\r
-DayDial :=60;\r
-assign(rooms1,'rooms1');assign(rooms2,'rooms2');\r
-assign(special1,'special1');assign(special2,'special2');assign(line1,'line');\r
-reset(rooms1);reset(rooms2);reset(special1);reset(special2);reset(line1);\r
-Str(Random(9998)+1,Code);\r
- DescribeRm; writeln; randomize;\r
- gotoxy(1,1);TextBackGround(m6);\r
- for x:=1 to 80 do write(' ');writeln;TextColor(m4);\r
- gotoxy(4,1);writeln('Move');gotoxy(68,1);writeln('Score');TextColor(m2);\r
- TextBackGround(0); Window(1,2,80,25);\r
- end; {of Initialize}\r
-{***************************** END OF COMMANDS *****************************}\r
-\1a
\ No newline at end of file
+{//-------------------------------------------------------------------------}
+{/* }
+{Copyright (C) 2014 Jason Self <j@jxself.org> }
+{ }
+{This file is free software: you may copy, redistribute and/or modify it }
+{under the terms of the GNU Affero General Public License as published by }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version. }
+{ }
+{This file is distributed in the hope that it will be useful, but WITHOUT }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details. }
+{ }
+{You should have received a copy of the GNU Affero General Public License }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{This file incorporates work covered by the following copyright and }
+{permission notice: }
+{ }
+{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
+{ }
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }
+{software; you can redistribute it and/or modify it under the terms of the }
+{GNU General Public License as published by the Free Software Foundation; }
+{either version 3 of the License, or (at your option) any later version. }
+{ }
+{This program is distributed in the hope that it will be useful, but WITHOUT}
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. }
+{ }
+{See the GNU General Public License for more details. }
+{ }
+{You should have received a copy of the GNU General Public License }
+{along with this program; if not, write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{Original Source: 1990 Scott Miller }
+{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
+{*/ }
+{//-------------------------------------------------------------------------}
+{****************************************************************************}
+{* COMMANDS *}
+{* by Scott Miller *}
+{* These are misc procedures and functions used with the main file: AdGame *}
+{* Copyright 1984 Pending *}
+{****************************************************************************}
+
+
+
+procedure SA;
+ begin FlagSA:='s' end;
+
+function En(c : char) : boolean;
+ begin
+ if(c in Ev)then En:=True else En:=False
+ end;
+
+function Here(noun : integer): Boolean;
+ begin
+ if(noun in Inven)or(r[noun]=Prm)or(noun in p[Prm])then Here:=True
+ else Here:=False
+ end;
+
+procedure Crazy;
+ begin SA;
+ if(random(2)=1)then RL(107+random(7))else RL(300+random(6));
+ end;
+
+procedure DEAD;
+ var FileName : file;
+ var x,b,c:Integer;
+ begin SA; NoSound;
+ gotoxy(1,25);for x:=1 to 7 do writeln;
+ Textcolor(1);TextBackground(m9);
+ gotoxy(1,18);
+ write('*********************************************************',
+ '***********************');writeln;
+ gotoxy(1,19); for x:=1 to 3 do
+ write('* ',
+ ' *');writeln;
+ gotoxy(1,22);
+ write('*********************************************************',
+ '***********************');writeln;
+ TextColor(m0);gotoxy(32,20);writeln('YOU HAVE DIED!!!');
+ Textcolor(m2);Textbackground(0);
+ for c:=700 downto 20 do
+ for b:=70 downto 1 do sound(b*c);nosound;
+ close(Rooms1);close(rooms2);close(special1);close(special2);close(line1);
+ gotoxy(1,23);DelLine;DelLine;writeln;write('Do you wish to play again? ');
+ flag:=ReadKey;
+ if(upcase(flag)<>'N')then
+ begin
+ writeln('Restarting...');window(1,1,80,25);
+ assign(rooms1,'BEYOND.com');
+ { execute(rooms1); }
+ end
+ else
+ begin
+ textcolor(7);
+ textbackground(0);
+ window(1,1,80,25);
+ clrscr;
+ writeln(' Beyond the Titanic');
+ writeln('A Scott Miller Production');
+ writeln(' Have a nice day...');
+ delay(2000);
+ assign(FileName,'MENU.COM');
+ {$I-}
+ {execute(FileName);}
+ {$I+}
+ if IOResult <> 0 then HALT;
+ end
+ end;
+
+procedure Home;
+ var b,c,x,y,o:Integer;
+ begin SA;
+ gotoxy(1,25);for x:=1 to 7 do writeln;
+ Textcolor(25);Textbackground(m7);
+ gotoxy(1,18);
+ write('#########################################################',
+ '#######################');writeln;
+ gotoxy(1,19); for x:=1 to 3 do
+ write('# ',
+ ' #');writeln;
+ gotoxy(1,22);
+ write('#########################################################',
+ '#######################');writeln;
+ TextColor(31);gotoxy(25,20);writeln('Y O U H A V E W O N ! ! !');
+ Textcolor(m2);Textbackground(0);
+ gotoxy(1,23);DelLine;DelLine;writeln;
+ for x:=150 downto 1 do begin sound(x*55);delay(8);nosound;delay(20)end;
+ if(Sc>1000)then Sc:=1000;
+ write('You finished with a score of ',Sc,', which makes you a ');
+ if(Sc=1000)then
+ begin writeln('Perfect Adventurer!!!');
+ for y:=1 to 7 do
+ for o:=0 to 20 do
+ for x:= 99+(o*430)to 998+(o*430)do begin sound(25);sound(x)end
+ end
+ else writeln('Master Adventurer!');
+ for c:=1 to 999 do for b:=1 to 61 do sound(b*c);nosound;
+ writeln;nosound;
+ writeln('Reboot your computer to regain control...')
+ end;
+
+procedure Say(o : integer; p : str14);
+ begin
+ writeln('The ',n[o,1],' is already ',p,'.'); SA
+ end;
+
+procedure Diagnose;
+ begin
+ RL(191);
+ if((tic>42)and not(en('c')))or((tic>146)and not(en('n')))or(en('r'))then
+ begin
+ if(tic>42)and (not(en('c')))then RL(192)
+ else if(tic>146)and not(en('n'))then RL(192);
+ if(en('r'))then RL(51)
+ end
+ else RL(207)
+ end;
+
+procedure Monster(var NewRm : integer);
+ begin
+ if(NewRm=MnRm)and(MnRm=25)then begin Attack:=False;RL(384)end else
+ if(NewRm<>35)or not(en('v'))then
+ begin
+ p[Prm]:=p[Prm]-[23];p[NewRm]:=p[NewRm]+[23];MnRm:=NewRm;Attack:=False;
+ if not((NewRm=30)and(Verb in[27,28]))then
+ case random(7) of
+ 0:RS(71);1:RS(72);2:RL(359);3:RL(360);4:RL(361);5:RL(362);6:RL(363)
+ end
+ end
+ else begin RL(383);Attack:=False end
+ end;
+
+procedure DescribeRm;
+ var o : integer;
+ procedure s(r : str14);
+ begin TextColor(m8);writeln(r);TextColor(m2);loc:=r;end;
+ begin SA;
+if((en('a'))and(here(29)))or not(Prm in [6..24])then begin
+ case Prm of
+0:s('Ship''s Fore');1:s('Ship Mid-Deck');2:s('Rear of Ship');
+3:s('Life Boat');4:s('Ocean Surface');5:s('Huge Cavern');
+6:s('Cave of Pins');7:s('Ocean Bottom');8:s('Squeaky Cave');
+9:s('Stream Bend');10:s('Waterfall');13:s('Sloppy Cave');
+11:s('Hex Cave');12:s('Shallow Cleft');20:s('Zoo');
+14:s('Winding Tunnel');15:s('Chasm');17:s('Chasm Bottom');
+18:s('Tiny Opening');19:s('Etched Stairs');
+21:s('Edge of Saucer');22:s('Side of Saucer');
+23:s('Top of Saucer');24:s('Airlock');16:s('End of Rope');
+76:s('Locked Cabin');25:s('Central Entry');
+26:s('Lower Entry');27:s('Ship''s Systems');
+30:s('Time Chamber');28:s('Ship''s Lab');34:s('Bridge');
+29:s('Inside Tube');31:s('Life Support');58,69:s('Inside Shuttle');
+32:s('Supply Chamber');33:s('Sleep Chamber');
+35:s('Engine Room');36:s('Cargo Deck #1');37:s('Cargo Deck #2');
+38:s('Cargo Deck #3');39:s('Cargo Deck #4');40:s('Large Cage');
+41:s('Wooden Bridge');42:s('Broken End');43:s('South End');
+44..46:s('Deserted Road');47:s('Crater Edge');48:s('Crater Floor');
+49:s('Building Front');50:s('Lobby');51..54:s('Office Room');
+55:s('Basement');56:s('Ladder Room');57:s('Building Roof');
+59:case ShRm of 0:s('Above Mud Lake');
+1:s('Above Rubble');2:s('Above Desert');3:s('Above Pits');
+4:s('Above River');5:s('Above Stream');6:s('Above Town');
+7:s('Above Mountain');8:s('Above Crator');9:s('Above Hills');
+10:s('Above Canyon');11:s('Above Flatland');12:s('Above Dry Lake');
+13:s('Above Desert');14:s('Above Bridge')end;{of Above Rooms}
+63,64:s('Above Clouds');65..68:s('Outside City');70:s('Landing Bay');
+71:s('Power Plant');72..74:s('Dark Corridor');75:s('Food Supply')
+ end; {of case}
+
+ if Verbose then begin FlagSA:='r';
+ case Prm of
+ 2 :if(40 in p[2])then begin RR(2);RL(416)end;
+ 4 :if(en('B'))then RR(4)else begin RR(4);
+ writeln('There is a safety harness here.')end;
+ 11:if(en('C'))then RS(15);
+ 40:if(en('g'))then RS(17);
+ 12:if not(en('G'))then begin RR(12);RL(146)end;
+ 31:if not(en('I'))then begin RR(31);RL(156)end;
+ 34:if(74 in p[34])then begin RR(34);RL(273)end;
+ 35:if(77 in p[35])then begin RR(35);RL(381);RL(382)end else
+ if(en('W'))then begin RR(35);RL(381)end;
+ 42:if(13 in p[42])then begin RR(42);RL(214)end;
+ 48:if(27 in p[48])then begin RR(48);RL(276)end;
+ 59..69:begin SA;
+ if(Prm=59)and not(ShRm in RmSh)then
+ begin RmSh:=RmSh+[ShRm];RS(ShRm+46)end
+ else if(Prm<>59)then RR(Prm);
+ if KeyHole and here(63)then
+ writeln('The shiny key is in the keyhole.')
+ end
+ else RR(Prm)
+ end; {of case}
+ if(FlagSA='r')and(Prm<>59)then RR(Prm)end;
+
+ for o:= 0 to NMax do begin
+ if(o in Mov)then
+ if(r[o]=Prm)then
+ if not((Prm in[59..69])and(KeyHole)and(o=63))then
+ begin writeln('There is a ',n[o,1],' here.');
+ if(here(ropecon))and(o=ropecon)and not(ropecon in inven)then
+ writeln(' The rope is attatched to the ',n[o,1],'.');
+ if(en('d'))and(o=70)and(here(70))then RL(147);
+ if(o=SlotCon)and(here(o))then RL(388);
+ if(o in CabiSet)and(here(o))then RL(389);
+ if(o=PanelCon)and(here(o))then RL(390);
+ if(o in KitSet)and(here(o))then RL(391);
+ end
+ end end
+ else RL(54)
+ end; {of DescribeRm}
+
+procedure SAVE;
+ begin SA; for x:=1 to 24 do writeln; nosound;
+ window(1,3,80,25);
+ gotoxy(1,4);
+ if(Drive='A:')then
+ writeln('Remove the GAME disk and insert your SAVE/RESTORE disk ',
+ 'in drive A:')else
+ writeln('Make sure your SAVE/RESTORE disk is in drive B:');
+ writeln(' (Press any key to continue...)');flag:=ReadKey;
+ writeln;writeln;
+ write('Save under what name? ');
+ {BufLen:=8;}
+ readln(input);
+ while pos(' ',input)>0 do delete(input,pos(' ',input),1);
+ while pos('.',input)>0 do delete(input,pos('.',input),1);
+ if(input='')then input:='LastRoom';
+ writeln;writeln;input:=Drive+input;
+ writeln('If your SAVE/RESTORE disk is in drive ',Drive,
+ ' then press any key to start.');
+ flag:=ReadKey;
+ with DiskSave do
+ begin
+ aInven:=Inven;aKitSet:=KitSet;aCabiSet:=CabiSet;aPanelCon:=PanelCon;
+ aSlotCon:=SlotCon;aCompCon:=CompCon;aRopeCon:=RopeCon;aTic:=Tic;
+ aYearDial:=YearDial;aPrm:=Prm;aMnRm:=MnRm;aSc:=Sc;aShots:=Shots;
+ aShRm:=ShRm;aRx:=Rx;aEv:=Ev;aCode:=Code;aLoc:=Loc;aKeyHole:=KeyHole;
+ end;
+ assign(GameSave,input+'.a');
+ rewrite(GameSave);
+ write(GameSave,DiskSave);
+ close(GameSave);
+ assign(Objects,input+'.b');
+ rewrite(Objects);
+ for x:=0 to RMax do write(Objects,p[x]);
+ close(Objects);
+ assign(WordList,input+'.c');
+ rewrite(Wordlist);
+ for x:= 0 to NMax do
+ for y:= 1 to 5 do
+ write(WordList,n[x,y]);
+ for x:= 0 to VMax do
+ for y:= 1 to 5 do
+ write(WordList,v[x,y]);
+ close(WordList);
+ assign(Things,input+'.d');
+ rewrite(Things);
+ for x:= 0 to NMax do write(Things,r[x]);
+ close(Things);
+ writeln; delete(input,1,2);
+ writeln('Your present game location is now',
+ ' SAVED to disk under the name ''',input,'.''');
+ if(Drive='A:')then begin writeln;
+ writeln('Remove the SAVE/RESTORE disk and insert your GAME disk.')end;
+ writeln(' (Press any key to continue...)');flag:=ReadKey;
+ writeln;writeln;
+ if(Verb<>54)then writeln('You may now resume your game...');
+ if(Line='')then Line:='look';Tic:=Tic-2;Back:=True;
+ if(Prm in[59..68])then sound(20);
+ window(1,2,80,25)
+ end; {of Save}
+
+procedure RESTORE;
+ function Exist:Boolean;
+ begin
+ assign(GameSave,input+'.a');
+ {$I-}
+ Reset(GameSave);
+ {$I+}
+ Exist:=(IOresult=0)
+ end;
+ begin SA; for x:=1 to 24 do writeln; nosound;
+ window(1,3,80,25);gotoxy(1,4);
+ if(Drive='A:')then
+ writeln('Remove the GAME disk and insert your SAVE/RESTORE disk ',
+ 'in drive ',Drive)else
+ writeln('Make sure your SAVE/RESTORE disk is in drive B:');
+ writeln(' (Press any key to continue...)');flag:=ReadKey;
+ writeln;writeln;
+ write('Which file name do you want to RESTORE? ');
+ {BufLen:=8;}
+ readln(input);
+ while pos(' ',input)>0 do delete(input,pos(' ',input),1);
+ while pos('.',input)>0 do delete(input,pos('.',input),1);
+ if(input='')then input:='LastRoom';
+ writeln;writeln;input:=Drive+input;
+ writeln('If your SAVE/RESTORE disk is now in drive ',Drive,
+ ' then press any key to start.');
+ flag:=ReadKey;
+ if Exist then
+ begin
+ close(GameSave);
+ assign(GameSave,input+'.a');
+ reset(GameSave);
+ read(GameSave,DiskSave);
+ close(GameSave);
+ with DiskSave do
+ begin
+ Inven:=aInven;KitSet:=aKitSet;CabiSet:=aCabiSet;PanelCon:=aPanelCon;
+ SlotCon:=aSlotCon;CompCon:=aCompCon;RopeCon:=aRopeCon;Tic:=aTic;
+ YearDial:=aYearDial;Prm:=aPrm;MnRm:=aMnRm;Sc:=aSc;Shots:=aShots;
+ ShRm:=aShRm;Rx:=aRx;Ev:=aEv;Code:=aCode;Loc:=aLoc;KeyHole:=aKeyHole;
+ end;
+ assign(Objects,input+'.b');
+ reset(Objects);
+ for x:=0 to RMax do read(Objects,p[x]);
+ close(Objects);
+ assign(WordList,input+'.c');
+ reset(Wordlist);
+ for x:= 0 to NMax do
+ for y:= 1 to 5 do
+ read(WordList,n[x,y]);
+ for x:= 0 to VMax do
+ for y:= 1 to 5 do
+ read(WordList,v[x,y]);
+ close(WordList);
+ assign(Things,input+'.d');
+ reset(Things);
+ for x:= 0 to NMax do read(Things,r[x]);
+ close(Things);
+ writeln; delete(input,1,2);
+ writeln('Your previously SAVED game location is now',
+ ' RESTORED from the file ''',input,'.''');
+ if(Drive='A:')then begin writeln;
+ writeln('Remove the SAVE/RESTORE disk and insert your GAME disk.')end;
+ writeln(' (Press any key to continue...)');flag:=ReadKey;
+ end
+ else
+ begin writeln;TextColor(28);
+ writeln(' That name does not exist on this',
+ ' SAVE/RESTORE disk.',^g);
+ TextColor(m2);writeln;
+ if(Drive='A:')then
+ writeln('Put your GAME disk back in the disk drive and press any key.')
+ else writeln(' (Press any key to continue...)');
+ flag:=ReadKey;
+ end;
+ writeln;writeln;writeln('You may now resume you game...');
+ if(Line='')then Line:='look';Tic:=Tic-2;Back:=True;
+ if(Prm in[59..68])then sound(20);
+ window(1,2,80,25)
+ end; {of Restore}
+
+procedure Vanish(o : integer);
+ begin SA;
+ inven:=inven-[o];
+ r[o]:=Null;
+ p[Prm]:=p[Prm]-[o];
+ if(o=7)and not(en('I'))then Ev:=Ev+['I'];
+ if(o=13)and(13 in p[42])then p[42]:=p[42]-[13];
+ if(o=PanelCon)then PanelCon:=Null;
+ if(o=SlotCon)then SlotCon:=Null;
+ if(o in CabiSet)then CabiSet:=CabiSet-[o];
+ if(o in kitset)then kitset:=kitset-[o];
+ if(o=63)and KeyHole then KeyHole:=False;
+ if(o=74)then Ev:=Ev-['p'];
+ if(o=89)then Ev:=Ev-['i'];
+ if(o=RopeCon)and(verb=36)then begin RopeCon:=Null;RL(402)end;
+ if(o=RopeCon)and not(Verb in[9,14])then RopeCon:=Null
+ end;
+
+procedure Play( Start, Stop, Wait: integer);
+ var x : integer;
+ begin
+ if(Start<=Stop)then
+ for x:= Start to Stop do
+ begin sound(x); delay(Wait); end
+ else
+ for x:= Start downto Stop do
+ begin sound(x); delay(Wait); end;
+ if(Prm in[59..68])then sound(20)else nosound
+ end; {of Play}
+
+procedure DropAll;
+ var o : integer;
+ begin
+ for o:= 0 to NMax do
+ if(o in inven)then
+ begin
+ r[o]:=Prm;
+ inven:=inven-[o];writeln(n[o,1],': Dropped.');
+ end;
+ RL(106);
+ end; {of DropAll}
+
+function FlasOff : Boolean;
+ begin
+ if not(En('a'))then FlasOff:=True
+ else
+ if(r[29]=Prm)or(29 in inven)then FlasOff:=False
+ else FlasOff:=True;
+ end;
+
+procedure MoveTo(NewRm : integer);
+ var o : integer;
+ begin
+ if(57 in inven)and(ropecon<>Null)and not(ropecon in inven)
+ and(ropecon in mov)and not(ropecon=70)then
+ begin r[ropecon]:=Prm;RL(158);end
+ else if(57 in inven)and(ropecon<>Null)and(not(ropecon in mov)or
+ ((ropecon=70)and(en('d'))))then
+ begin RL(55);inven:=inven-[57];r[57]:=Prm;end
+ else if not(57 in inven)and((ropecon in inven)or
+ (ropecon in[60,56,44]))then r[57]:=NewRm
+ else if not(57 in inven)and(r[57]=Prm)and(r[ropecon]=NewRm)then
+ begin r[57]:=NewRm;RopeOld:=Prm;end
+ else if not(57 in inven)and(r[57]=Prm)and(NewRm=RopeOld)and
+ (r[ropecon]=Prm)then
+ begin r[57]:=RopeOld;RopeOld:=Null;end;
+ if(ropecon=Null)or((NewRm<>RopeOld)and(Prm<>RopeOld))then RopeOld:=Null;
+ if(MnRm<>Null)then Monster(NewRm);
+ if(Prm in[63..68])and not(NewRm in[59,69])then RL(343);
+ if(Prm in[59,63..68])then for o:=0 to NMax do if(r[o]=Prm)then r[o]:=NewRm;
+ Prm:=NewRm;
+ DescribeRm
+ end; {of MoveTo}
+
+procedure Time;
+ begin
+ Tic:=Tic+1;
+ case Tic of
+ 3:RL(280);
+ 4:RS(1);
+ 17:if not(en('A'))then begin RS(3);DEAD end else RS(5);
+ 19:RL(4);
+ 20:RL(5);
+ 21:RL(6);
+ 23:RS(6);
+ 24:if(en('B'))then begin RS(8);writeln;RL(16);moveto(5);Sc:=Sc+25;
+ n[64,5]:='ship';v[26,2]:='pick' end
+ else begin RS(7);DEAD;end;
+ 43:if(not(en('c'))and not(en('n')))then RL(31);
+ 73:if(not(en('c'))and not(en('n')))then RL(32);
+ 93:if(not(en('c'))and not(en('n')))then begin RL(33); DEAD end;
+ 99:if(Prm in[6..24])and(here(29))and not(flasoff)and(not(en('s')))then
+ begin RL(41);Ev:=Ev+['s'] end;
+ 147:if not(en('n'))then RL(31);
+ 149:if(here(29))and not(flasoff)then RL(59);
+ 153:if(Prm in[6..23])and(here(29))and not(flasoff)then
+ begin RS(14);vanish(29) end;
+ 170:if not(en('n'))then RL(32);
+ 181:if not(en('n'))then begin RL(33); DEAD end;
+ 549:RL(281);
+ 586:RL(282);
+ 598:RL(283);
+ 607:begin RL(284);DEAD;end;
+ end; {of case}
+
+case Prm of
+ 1..3:if(tic>4)and(random(4)=1)then RL(405);
+ 36..39:if(random(5)=2)then RL(219);
+ 7 :if(random(8)=2)then RL(266);
+ 8 :if(random(3)=2)then begin RL(265);play(6666,7000,0);end;
+ 13..24:if(random(16)=2)then RL(246);
+ 25..35:if(random(30)=2)then RL(267);
+ 47,48:if(random(5)=2)and(inven <>[])then
+ begin
+ if(Prm=48)then begin writeln;RS(40)end
+ else begin writeln;RS(44);moveto(48)end;
+ o:=1;flag:='?';
+ repeat o:=o+1;
+ if(o in inven)then
+ begin vanish(o);r[o]:=random(9)+41;flag:='g';end;
+ until Flag = 'g';
+ end;
+end;
+case Prm of
+ 5,6,9,10:if(random(9)=2)then RL(268);
+ 7,8,11..40:if(here(84))and(random(20)=2)then RL(269)
+ else if(random(75)=2)then RS(36)
+ else if(Prm in[5..22])and(random(33)=2)then
+ begin RL(265);play(6500,6950,0)end;
+ 41..49:if(random(27)=2)then RL(285);
+ 59 :if(random(15)=1)then RL(406);
+end;
+if Attack and(MnRm=Prm)and(not Back)then
+ begin case random(3) of 0:RS(80); 1:RS(81); 2:RS(82)end;DEAD end
+else if(MnRm=Prm)then Attack:=True
+ end; {of Time}
+
+function Present : Boolean;
+ begin
+ if(noun<>Null)and(noun<>1)then
+ if(here(noun))then
+ if(noun2<>Null)then
+ if(here(noun2))then Present:=true
+ else begin
+ writeln('You can''t see any ',n[noun2,1],' here.');Present:=false end
+ else Present:=true
+ else begin
+ writeln('You can''t see any ',n[noun,1],' here.');Present:=false end
+ else Present:=true
+ end;
+
+procedure Initialize;
+ var S: string;
+
+ procedure Cn(S : Str80);
+ begin
+ gotoxy(40-(length(S)div 2),wherey);
+ writeln(S);
+ end;
+ begin
+ textcolor(15);
+ writeln('Prepare to engage yourself in a most exciting adventure.');
+ writeln('But first, two simple questions:');
+ gotoxy(1,4);write('Are you using a COLOR screen (Y/N)? ');
+ nosound; play(72,80,45);
+ flag:='Y'; play(2500,2490,6);
+ m0:=20;m1:=14;m2:=11;m3:=4;m4:=15;m5:=28;m6:=1;m7:=4;m8:=10;m9:=10;
+ if upcase(flag)='N' then
+ begin
+ writeln('No, I don''t have a color screen.');
+ m0:=31;m1:=15;m2:=15;m3:=7;m4:=0;m5:=31;m6:=7;m7:=8;m8:=7;m9:=0;
+ end else writeln('Yes, I do have a color screen.');writeln;
+ write('How many disk drives do you have (1/2)? ');
+ play(80,88,30);
+ flag:='2';play(2500,2490,6);
+ Drive:='B:';
+ if(upcase(flag)='O')or(flag='1')then
+ begin Drive:='A:';writeln('I have ONE disk drive.')end else
+ writeln('I have TWO disk drives.');
+ delay(999);clrscr;textcolor(15);gotoxy(1,5);writeln;textcolor(7);
+ cn('Beyond the Titanic');textcolor(6);cn('------------------');writeln;
+ textcolor(7);
+ cn('A Text & Sound Adventure Fantasy');writeln;writeln;
+ cn('An Apogee Software Production');writeln;writeln;writeln;
+ cn('Written and Programmed by Scott Miller');
+ textcolor(11);
+ gotoxy(32,24);textcolor(7);
+ write('Press any key...');{flag:=ReadKey;}clrscr;
+
+ { *** SHAREWARE SCREEN *** }
+
+ textcolor(15);
+ writeln('Please note that Beyond the Titanic is a SHAREWARE game.');
+ writeln;
+ textcolor(7);
+ writeln('This game has been placed in the public domain for your enjoyment.');
+ writeln;
+ writeln('If you like the game the author (Scott Miller) asks that you please');
+ writeln('contribute $5 or $10 (your discretion) to him. This minimal payment');
+ writeln('will help compensent the author for the year of work that went into');
+ writeln('Beyond the Titanic. It will also encourage the author to make new and');
+ writeln('better games, like Supernova and Kingdom of Kroz, both of which are');
+ writeln('also shareware games recently released.');
+ writeln;
+ writeln('This fee also registers the payer for telephone support and clues.');
+ writeln;writeln;
+ writeln('Please make checks payable to Scott Miller.');
+ writeln;
+ textcolor(15);
+ writeln(' Scott Miller (214) 240-0614');
+ writeln(' 4206 Mayflower Dr.');
+ writeln(' Garland, TX 75043');
+ writeln;
+ textcolor(7);
+ writeln('Thanks, enjoy the game...');
+ gotoxy(23,25);
+ {delay(12000);}
+ while keypressed do flag:=ReadKey;
+ write('Press any key to start the game...');
+ {flag:=ReadKey;}
+ while keypressed do flag:=ReadKey;
+ clrscr;
+ { ************************ }
+ window(1,2,80,25);
+ gotoxy(1,1);
+ TextColor(m1);
+cn('APRIL 14, 1912 11:43 PM');
+cn('You never knew the black canvas of the night was so full'+
+ ' of twinkling detail.');
+cn('Standing on deck of the White Star''s new super luxury liner, deep at sea,');
+cn('where the bright lights of San Francisco don''t fade the night, you');
+cn('can view thousands of stars you never realized existed.');
+cn('Looking out over the icy sea you can barely see small pieces of'+
+ ' broken ice');
+cn('bobbing in the water. Rumor has it that icebergs the size of small');
+cn('mountains can be found in this region. You don''t feel');
+cn('too worried, though, the Titanic has been touted as');
+cn('"unsinkable," and every single passenger knows');
+cn('that White Star, the premier ship builder,');
+cn('knows their stuff...');
+for x:= 1 to 3 do writeln;
+Line :='';
+LastNoun :='';
+KitSet :=[2,29,57];
+CabiSet :=[89,63];
+CompCon :=Null;
+PanelCon :=8;
+RopeCon :=Null;
+SlotCon :=Null;
+RopeOld :=Null;
+RmSh :=[];
+Mov :=[2,7,8,13,27,29,32,34,40,52,51,57,63,70,74,77,89];
+OneWordCommands:=[1,4,5,7,8,16,18,19,22,31,33..35,41,43..54,56..59,61..65];
+Ev :=[];
+Inven :=[];
+Prm :=0;
+MnRm :=Null;
+Tic :=Prm;
+Sc :=0;
+Shots :=6;
+KeyHole :=false;
+Verbose :=true;
+Attack :=False;
+YearDial :=135;
+DayDial :=60;
+assignfile(rooms1,'ROOMS1');
+assignfile(rooms2,'ROOMS2');
+assignfile(special1,'SPECIAL1');
+assignfile(special2,'SPECIAL2');
+assignfile(line1,'LINE');
+
+getdir(0,S);
+chdir(S);
+{Writeln ('Current directory is : ',S);}
+
+
+{$I+}
+
+{filemode:=1;}
+reset(rooms1);
+
+reset(rooms2);
+reset(special1);
+reset(special2);
+reset(line1);
+
+
+Str(Random(9998)+1,Code);
+
+ DescribeRm;
+ writeln;
+ randomize;
+ gotoxy(1,1);
+ TextBackGround(m6);
+ for x:=1 to 80 do write(' ');
+ writeln;
+ TextColor(m4);
+
+ gotoxy(4,1);
+ writeln('Move');
+
+ gotoxy(68,1);
+ writeln('Score');
+ TextColor(m2);
+ TextBackGround(0);
+ Window(1,2,80,25);
+
+ end; {of Initialize}
+{***************************** END OF COMMANDS *****************************}
-{//-------------------------------------------------------------------------}\r
-{/* }\r
-{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }\r
-{ }\r
-{This file is part of Supernova. Supernova is free software; you can }\r
-{redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 3 }\r
-{of the License, or (at your option) any later version. }\r
-{ }\r
-{This program is distributed in the hope that it will be useful, }\r
-{but WITHOUT ANY WARRANTY; without even the implied warranty of }\r
-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }\r
-{ }\r
-{See the GNU General Public License for more details. }\r
-{ }\r
-{You should have received a copy of the GNU General Public License }\r
-{along with this program; if not, write to the Free Software }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}\r
-{ }\r
-{Original Source: 1990 Scott Miller }\r
-{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
-{*/ }\r
-{//-------------------------------------------------------------------------}\r
-{*****************************************************************************}\r
-{* OBJECTS *}\r
-{* by Scott Miller *}\r
-{* This include file to AdGame initializes all of the immoveable objects. *}\r
-{* Copyright 1984 Pending *}\r
-{*****************************************************************************}\r
-overlay procedure Assign0;\r
-begin\r
- {INITIALIZE OBJECT'S ROOMS}\r
-for o:=0 to NMax do r[o]:=Null;\r
-p[0]:=[53,73,80,6,26,64,36];\r
-p[1]:=[53,6,57,73,80,64,36];\r
-p[2]:=[40,53,14,6,66,46,73,80,57,64,36];\r
-p[3]:=[6,73,80,39,59,57,64,36];\r
-p[4]:=[6,73,80,39,35,59,64,36];\r
-p[5]:=[73,80,71];\r
-p[6]:=[73,80,71];\r
-p[7]:=[36,73,80,6];\r
-p[8]:=[47,46];\r
-p[9]:=[73,80];\r
-p[10]:=[80,73,17];\r
-p[11]:=[72];\r
-p[12]:=[70];\r
-p[13]:=[17,47,73,80];\r
-p[14]:=[];\r
-p[15]:=[17,73,80];\r
-p[16]:=[17,57];\r
-p[17]:=[17];\r
-p[18]:=[];\r
-p[19]:=[69];\r
-p[20]:=[12,69,67,43];\r
-p[21]:=[64,71,37];\r
-p[22]:=[64,71,37];\r
-p[23]:=[64,26,71,37];\r
-p[24]:=[64,69,41,26,55];\r
-p[25]:=[64,69,41,26,84];\r
-p[26]:=[41,12,69,84];\r
-p[27]:=[20,21,26,10,58,38,86];\r
-p[28]:=[21,10,78,33,49,85];\r
-p[29]:=[78,10,21,33,49,85];\r
-p[30]:=[21,10,24,25,82,16,59,49,76,38,86];\r
-p[31]:=[75,21,10,84,7,22];\r
-p[32]:=[61,75,21,14];\r
-p[33]:=[61,75,4,21,10,59,84];\r
-p[34]:=[16,5,21,68,58,10,0,20,74,25,86];\r
-p[35]:=[62,21,10,54,55];\r
-p[36]:=[85,83,21,14,12,64,43];\r
-p[37]:=p[36];\r
-p[38]:=p[36]+[28];\r
-p[39]:=p[36];\r
-p[40]:=p[36]+[26,67];\r
-p[41]:=[87,73,19,47,53,37];\r
-p[42]:=p[41]+[13];\r
-p[43]:=p[41];\r
-p[44]:=[41,19,87];\r
-p[45]:=[41,19];\r
-p[46]:=[41,19];\r
-p[47]:=[3,41,19,17,22];\r
-p[48]:=[3,19,17,22,27,35];\r
-p[49]:=[9,26,37,72];\r
-p[50]:=[9,26,88,46,66,37,88,68];\r
-p[51]:=[9,37];\r
-p[52]:=[9,37];\r
-p[53]:=[9,69,37];\r
-p[54]:=[9,37];\r
-p[55]:=[9,69,11,45,26,61,37,68];\r
-p[56]:=[9,69,37];\r
-p[57]:=[9,19,37,41,65,22,31,73,87];\r
-p[58]:=[9,10,16,19,20,21,25,36,41,46,58,59,65,66,68,81,86];\r
-p[59]:=p[58]+[17,18,22,31,71,73,87];\r
-p[63]:=[9,10,16,18,19,20,21,25,36,41,46,58,59,65,66,68,81,86,88];\r
-p[64]:=p[63];\r
-p[65]:=p[63];\r
-p[66]:=p[63];\r
-p[67]:=p[63];\r
-p[68]:=p[63];\r
-p[69]:=p[63]+[9,14,37,53];\r
-p[70]:=p[69]+[69]-[10,16,20,36,46,58,59,66,68,81,86];\r
-p[71]:=[10,20,21,25,36,38,41,54,58,69];\r
-p[72]:=[85];\r
-p[73]:=p[72];\r
-p[74]:=p[72];\r
-p[75]:=[23,14,61];\r
-p[76]:=[26,45];\r
-for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]\r
-end;\r
-{****************************** END OF OBJECTS *******************************}\r
-\1a\r
+{//-------------------------------------------------------------------------}
+{/* }
+{Copyright (C) 2014 Jason Self <j@jxself.org> }
+{ }
+{This file is free software: you may copy, redistribute and/or modify it }
+{under the terms of the GNU Affero General Public License as published by }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version. }
+{ }
+{This file is distributed in the hope that it will be useful, but WITHOUT }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details. }
+{ }
+{You should have received a copy of the GNU Affero General Public License }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{This file incorporates work covered by the following copyright and }
+{permission notice: }
+{ }
+{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
+{ }
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }
+{software; you can redistribute it and/or modify it under the terms of the }
+{GNU General Public License as published by the Free Software Foundation; }
+{either version 3 of the License, or (at your option) any later version. }
+{ }
+{This program is distributed in the hope that it will be useful, but WITHOUT}
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. }
+{ }
+{See the GNU General Public License for more details. }
+{ }
+{You should have received a copy of the GNU General Public License }
+{along with this program; if not, write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{Original Source: 1990 Scott Miller }
+{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
+{*/ }
+{//-------------------------------------------------------------------------}
+{*****************************************************************************}
+{* OBJECTS *}
+{* by Scott Miller *}
+{* This include file to AdGame initializes all of the immoveable objects. *}
+{* Copyright 1984 Pending *}
+{*****************************************************************************}
+procedure Assign0;
+begin
+ {INITIALIZE OBJECT'S ROOMS}
+for o:=0 to NMax do r[o]:=Null;
+p[0]:=[53,73,80,6,26,64,36];
+p[1]:=[53,6,57,73,80,64,36];
+p[2]:=[40,53,14,6,66,46,73,80,57,64,36];
+p[3]:=[6,73,80,39,59,57,64,36];
+p[4]:=[6,73,80,39,35,59,64,36];
+p[5]:=[73,80,71];
+p[6]:=[73,80,71];
+p[7]:=[36,73,80,6];
+p[8]:=[47,46];
+p[9]:=[73,80];
+p[10]:=[80,73,17];
+p[11]:=[72];
+p[12]:=[70];
+p[13]:=[17,47,73,80];
+p[14]:=[];
+p[15]:=[17,73,80];
+p[16]:=[17,57];
+p[17]:=[17];
+p[18]:=[];
+p[19]:=[69];
+p[20]:=[12,69,67,43];
+p[21]:=[64,71,37];
+p[22]:=[64,71,37];
+p[23]:=[64,26,71,37];
+p[24]:=[64,69,41,26,55];
+p[25]:=[64,69,41,26,84];
+p[26]:=[41,12,69,84];
+p[27]:=[20,21,26,10,58,38,86];
+p[28]:=[21,10,78,33,49,85];
+p[29]:=[78,10,21,33,49,85];
+p[30]:=[21,10,24,25,82,16,59,49,76,38,86];
+p[31]:=[75,21,10,84,7,22];
+p[32]:=[61,75,21,14];
+p[33]:=[61,75,4,21,10,59,84];
+p[34]:=[16,5,21,68,58,10,0,20,74,25,86];
+p[35]:=[62,21,10,54,55];
+p[36]:=[85,83,21,14,12,64,43];
+p[37]:=p[36];
+p[38]:=p[36]+[28];
+p[39]:=p[36];
+p[40]:=p[36]+[26,67];
+p[41]:=[87,73,19,47,53,37];
+p[42]:=p[41]+[13];
+p[43]:=p[41];
+p[44]:=[41,19,87];
+p[45]:=[41,19];
+p[46]:=[41,19];
+p[47]:=[3,41,19,17,22];
+p[48]:=[3,19,17,22,27,35];
+p[49]:=[9,26,37,72];
+p[50]:=[9,26,88,46,66,37,68];
+p[51]:=[9,37];
+p[52]:=[9,37];
+p[53]:=[9,69,37];
+p[54]:=[9,37];
+p[55]:=[9,69,11,45,26,61,37,68];
+p[56]:=[9,69,37];
+p[57]:=[9,19,37,41,65,22,31,73,87];
+p[58]:=[9,10,16,19,20,21,25,36,41,46,58,59,65,66,68,81,86];
+p[59]:=p[58]+[17,18,22,31,71,73,87];
+p[63]:=[9,10,16,18,19,20,21,25,36,41,46,58,59,65,66,68,81,86,88];
+p[64]:=p[63];
+p[65]:=p[63];
+p[66]:=p[63];
+p[67]:=p[63];
+p[68]:=p[63];
+p[69]:=p[63]+[9,14,37,53];
+p[70]:=p[69]+[69]-[10,16,20,36,46,58,59,66,68,81,86];
+p[71]:=[10,20,21,25,36,38,41,54,58,69];
+p[72]:=[85];
+p[73]:=p[72];
+p[74]:=p[72];
+p[75]:=[23,14,61];
+p[76]:=[26,45];
+for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]
+end;
+{****************************** END OF OBJECTS *******************************}
-{//-------------------------------------------------------------------------}\r
-{/* }\r
-{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }\r
-{ }\r
-{This file is part of Supernova. Supernova is free software; you can }\r
-{redistribute it and/or modify it under the terms of the GNU General Public }\r
-{License as published by the Free Software Foundation; either version 3 }\r
-{of the License, or (at your option) any later version. }\r
-{ }\r
-{This program is distributed in the hope that it will be useful, }\r
-{but WITHOUT ANY WARRANTY; without even the implied warranty of }\r
-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }\r
-{ }\r
-{See the GNU General Public License for more details. }\r
-{ }\r
-{You should have received a copy of the GNU General Public License }\r
-{along with this program; if not, write to the Free Software }\r
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}\r
-{ }\r
-{Original Source: 1990 Scott Miller }\r
-{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
-{*/ }\r
-{//-------------------------------------------------------------------------}\r
-{*****************************************************************************}\r
-{* WORDLIST *}\r
-{* by Scott Miller *}\r
-{* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*}\r
-{* Copyright 1984 Pending *}\r
-{*****************************************************************************}\r
-\r
-{====================================START====================================}\r
-\r
- {VERB LIST: GROUPS ALL SYNONYMS}\r
-overlay procedure Assign1;\r
-begin\r
-for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;\r
-v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';\r
-v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';\r
-v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';\r
- v[2,5]:='climb over';\r
-v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect';\r
- v[3,5]:='hook';\r
-v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';\r
- v[4,4]:='climb ne';\r
-v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';\r
- v[5,4]:='climb sw';\r
-v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw';\r
- v[6,5]:='chop';\r
-v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';\r
-v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some';\r
- v[8,4]:='drink lot';\r
-v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down';\r
-v[10,1]:='eat';v[10,2]:='swallow';\r
-v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';\r
- v[11,4]:='read';v[11,5]:='look at';\r
-v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';\r
- v[12,5]:='chech for';\r
-v[13,1]:='repair';v[13,2]:='fix';\r
-v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';\r
- v[14,5]:='pick up';\r
-v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';\r
- v[15,5]:='give away';\r
-end;\r
-overlay procedure Assign2;\r
-begin\r
-v[16,1]:='help';v[16,2]:='pray';\r
-v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break';\r
- v[17,5]:='destroy';\r
-v[18,1]:='invento';v[18,2]:='i';\r
-v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';\r
- v[19,5]:='jump in';\r
-v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';\r
-v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';\r
-v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on';\r
- v[23,4]:='ex top';v[23,5]:='ex above';\r
-v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';\r
- v[24,5]:='search in ';\r
-v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under';\r
- v[25,4]:='look underne';v[25,5]:='ex below';\r
-v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light';\r
-v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch';\r
- v[26,5]:='untie';\r
-v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip';\r
- v[27,5]:='flip on';\r
-v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on';\r
- v[28,5]:='turn off';\r
-v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill';\r
- v[29,5]:='insert';\r
-v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in';\r
-v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute';\r
- v[31,5]:='think';\r
-end;\r
-overlay procedure Assign3;\r
-begin\r
-v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire';\r
- v[32,5]:='shoot at';\r
-v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down';\r
- v[33,5]:='sit on';\r
-v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in';\r
-v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in';\r
-v[36,1]:='throw';v[36,2]:='toss';\r
-v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap';\r
-v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub';\r
-v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set';\r
-v[40,1]:='unlock';\r
-v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';\r
-v[42,1]:='wear';v[42,2]:='put on';\r
-v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';\r
-v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';\r
-v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';\r
-v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';\r
-v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';\r
-v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';\r
-v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';\r
-v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';\r
-v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';\r
-v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';\r
- v[52,5]:='lower';\r
-v[53,1]:='type';v[53,2]:='type in';\r
-v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';\r
-v[55,1]:='take off';v[55,2]:='remove';\r
-v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance';\r
-end;\r
-overlay procedure Assign4;\r
-begin\r
-v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on';\r
- v[57,5]:='land';\r
-v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat';\r
- v[58,5]:='escape';\r
-v[59,1]:='diagnos';\r
-v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind';\r
- v[60,4]:='ex beside';v[60,5]:='look beside';\r
-v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from';\r
- v[61,5]:='fall';\r
-v[62,1]:='score';v[62,2]:='rank';\r
-v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster';\r
- v[63,4]:='alien creatur';\r
-v[64,1]:='save';\r
-v[65,1]:='restore';v[65,2]:='resume';\r
-\r
- {NOUN LIST: GROUPS ALL OBJECTS}\r
-\r
-for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q;\r
-n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body';\r
-n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';\r
-n[2,1]:='banana';n[2,2]:='food';\r
-n[3,1]:='bat';n[3,2]:='bats';\r
-n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks';\r
-n[5,1]:='blue button';n[5,2]:='blue';\r
-n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';\r
- n[6,5]:='ship';\r
-end;\r
-overlay procedure Assign5;\r
-begin\r
-n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown';\r
-n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';\r
- n[8,5]:='box switch';\r
-n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';\r
-n[10,1]:='button';n[10,2]:='buttons';\r
-n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet';\r
-n[12,1]:='cages';n[12,2]:='bars';\r
-n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money';\r
-n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo';\r
- n[14,5]:='contain';\r
-n[15,1]:='ceiling';n[15,2]:='roof';\r
-n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat';\r
- n[16,5]:='metal chair';\r
-n[17,1]:='chasm';n[17,2]:='canyon';\r
-n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town';\r
-n[19,1]:='clouds';n[19,2]:='cloud';\r
-n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri';\r
-n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices';\r
- n[21,5]:='control';\r
-n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove';\r
-n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster';\r
- n[23,4]:='alien creatur';n[23,5]:='it';\r
-n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver';\r
-n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs';\r
-n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';\r
- n[26,5]:='sliding';\r
-n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';\r
- n[27,4]:='mangled';n[27,5]:='piece wire';\r
-n[28,1]:='egg';n[28,2]:='eggs';\r
-n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook';\r
- n[29,5]:='ring';\r
-end;\r
-overlay procedure Assign6;\r
-begin\r
-n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';\r
- n[30,5]:='bay';\r
-n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';\r
-n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece';\r
- n[32,5]:='blue fur';\r
-n[33,1]:='green button';n[33,2]:='green';\r
-n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange';\r
- n[34,5]:='laser gun';\r
-n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt';\r
- n[35,4]:='harness';n[35,5]:='strap';\r
-n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';\r
-n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';\r
-n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';\r
- n[38,4]:='numbers';\r
-n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit';\r
- n[39,5]:='surviva kit';\r
-n[40,1]:='knife';n[40,2]:='blade';\r
-n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';\r
- n[41,5]:='landing pad';\r
-n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';\r
- n[42,5]:='landing bay';\r
-n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';\r
-n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';\r
-n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';\r
-n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking';\r
- n[46,5]:='chisele marking';\r
-n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';\r
-n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain';\r
-n[49,1]:='panel';n[49,2]:='compart';\r
-n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';\r
- n[50,5]:='tubes';\r
-n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin';\r
-n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing';\r
-n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';\r
-n[54,1]:='reactor';n[54,2]:='core';\r
-n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';\r
- n[55,5]:='mangled door';\r
-n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';\r
-end;\r
-overlay procedure Assign7;\r
-begin\r
-n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope';\r
-n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';\r
-n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';\r
- n[59,5]:='metalli';\r
-n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me';\r
- n[60,5]:='myself';\r
-n[61,1]:='shelf';n[61,2]:='shelves';\r
-n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield';\r
- n[62,4]:='plate';n[62,5]:='radiati shield';\r
-n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key';\r
-n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull';\r
- n[64,4]:='saucer';\r
-n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine';\r
-n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign';\r
-n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals';\r
- n[67,5]:='remains';\r
-n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';\r
- n[68,5]:='keyhole';\r
-n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';\r
- n[69,5]:='step';\r
-n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole';\r
- n[70,5]:='rod';\r
-n[71,1]:='rock feature';n[71,2]:='stalagt';\r
-n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';\r
- n[72,4]:='shapes';\r
-end;\r
-overlay procedure Assign8;\r
-begin\r
-n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';\r
- n[73,5]:='lake';\r
-n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit';\r
- n[74,4]:='uniform';\r
-n[75,1]:='table';n[75,2]:='tables';\r
-n[76,1]:='tan button';n[76,2]:='tan';\r
-n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';\r
-n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing';\r
- n[78,4]:='glass tube';n[78,5]:='glass';\r
-n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';\r
- n[79,4]:='east wall';n[79,5]:='west wall';\r
-n[80,1]:='waterfall';n[80,2]:='waterfa';\r
-n[81,1]:='white button';n[81,2]:='white';\r
-n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial';\r
-n[83,1]:='slime';n[83,2]:='jelly';\r
-n[84,1]:='vent';n[84,2]:='vents';\r
-n[85,1]:='lamp';\r
-n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph';\r
-n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden';\r
-n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam';\r
- n[88,4]:='electri';n[88,5]:='orange';\r
-n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat';\r
-end;\r
-{====================================END======================================}\r
-\1a\r
+{//-------------------------------------------------------------------------}
+{/* }
+{Copyright (C) 2014 Jason Self <j@jxself.org> }
+{ }
+{This file is free software: you may copy, redistribute and/or modify it }
+{under the terms of the GNU Affero General Public License as published by }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version. }
+{ }
+{This file is distributed in the hope that it will be useful, but WITHOUT }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details. }
+{ }
+{You should have received a copy of the GNU Affero General Public License }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{This file incorporates work covered by the following copyright and }
+{permission notice: }
+{ }
+{Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
+{ }
+{This file is part of Beyond The Titanic. Beyond The Titanic is free }
+{software; you can redistribute it and/or modify it under the terms of the }
+{GNU General Public License as published by the Free Software Foundation; }
+{either version 3 of the License, or (at your option) any later version. }
+{ }
+{This program is distributed in the hope that it will be useful, but WITHOUT}
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
+{FITNESS FOR A PARTICULAR PURPOSE. }
+{ }
+{See the GNU General Public License for more details. }
+{ }
+{You should have received a copy of the GNU General Public License }
+{along with this program; if not, write to: }
+{ Free Software Foundation, Inc. }
+{ 51 Franklin Street, Fifth Floor }
+{ Boston, MA 02110-1301 }
+{ USA }
+{ }
+{Original Source: 1990 Scott Miller }
+{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
+{*/ }
+{//-------------------------------------------------------------------------}
+{*****************************************************************************}
+{* WORDLIST *}
+{* by Scott Miller *}
+{* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*}
+{* Copyright 1984 Pending *}
+{*****************************************************************************}
+
+{====================================START====================================}
+
+ {VERB LIST: GROUPS ALL SYNONYMS}
+procedure Assign1;
+begin
+for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;
+v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';
+v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
+v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';
+ v[2,5]:='climb over';
+v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect';
+ v[3,5]:='hook';
+v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';
+ v[4,4]:='climb ne';
+v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';
+ v[5,4]:='climb sw';
+v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw';
+ v[6,5]:='chop';
+v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';
+v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some';
+ v[8,4]:='drink lot';
+v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down';
+v[10,1]:='eat';v[10,2]:='swallow';
+v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';
+ v[11,4]:='read';v[11,5]:='look at';
+v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';
+ v[12,5]:='chech for';
+v[13,1]:='repair';v[13,2]:='fix';
+v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';
+ v[14,5]:='pick up';
+v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';
+ v[15,5]:='give away';
+end;
+procedure Assign2;
+begin
+v[16,1]:='help';v[16,2]:='pray';
+v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break';
+ v[17,5]:='destroy';
+v[18,1]:='invento';v[18,2]:='i';
+v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';
+ v[19,5]:='jump in';
+v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';
+v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';
+v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on';
+ v[23,4]:='ex top';v[23,5]:='ex above';
+v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';
+ v[24,5]:='search in ';
+v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under';
+ v[25,4]:='look underne';v[25,5]:='ex below';
+v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light';
+v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch';
+ v[26,5]:='untie';
+v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip';
+ v[27,5]:='flip on';
+v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on';
+ v[28,5]:='turn off';
+v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill';
+ v[29,5]:='insert';
+v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in';
+v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute';
+ v[31,5]:='think';
+end;
+ procedure Assign3;
+begin
+v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire';
+ v[32,5]:='shoot at';
+v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down';
+ v[33,5]:='sit on';
+v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in';
+v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in';
+v[36,1]:='throw';v[36,2]:='toss';
+v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap';
+v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub';
+v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set';
+v[40,1]:='unlock';
+v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';
+v[42,1]:='wear';v[42,2]:='put on';
+v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';
+v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';
+v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';
+v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';
+v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';
+v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';
+v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';
+v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';
+v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';
+v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';
+ v[52,5]:='lower';
+v[53,1]:='type';v[53,2]:='type in';
+v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';
+v[55,1]:='take off';v[55,2]:='remove';
+v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance';
+end;
+ procedure Assign4;
+begin
+v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on';
+ v[57,5]:='land';
+v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat';
+ v[58,5]:='escape';
+v[59,1]:='diagnos';
+v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind';
+ v[60,4]:='ex beside';v[60,5]:='look beside';
+v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from';
+ v[61,5]:='fall';
+v[62,1]:='score';v[62,2]:='rank';
+v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster';
+ v[63,4]:='alien creatur';
+v[64,1]:='save';
+v[65,1]:='restore';v[65,2]:='resume';
+
+ {NOUN LIST: GROUPS ALL OBJECTS}
+
+for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q;
+n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body';
+n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';
+n[2,1]:='banana';n[2,2]:='food';
+n[3,1]:='bat';n[3,2]:='bats';
+n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks';
+n[5,1]:='blue button';n[5,2]:='blue';
+n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';
+ n[6,5]:='ship';
+end;
+ procedure Assign5;
+begin
+n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown';
+n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';
+ n[8,5]:='box switch';
+n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';
+n[10,1]:='button';n[10,2]:='buttons';
+n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet';
+n[12,1]:='cages';n[12,2]:='bars';
+n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money';
+n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo';
+ n[14,5]:='contain';
+n[15,1]:='ceiling';n[15,2]:='roof';
+n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat';
+ n[16,5]:='metal chair';
+n[17,1]:='chasm';n[17,2]:='canyon';
+n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town';
+n[19,1]:='clouds';n[19,2]:='cloud';
+n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri';
+n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices';
+ n[21,5]:='control';
+n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove';
+n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster';
+ n[23,4]:='alien creatur';n[23,5]:='it';
+n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver';
+n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs';
+n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';
+ n[26,5]:='sliding';
+n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';
+ n[27,4]:='mangled';n[27,5]:='piece wire';
+n[28,1]:='egg';n[28,2]:='eggs';
+n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook';
+ n[29,5]:='ring';
+end;
+ procedure Assign6;
+begin
+n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';
+ n[30,5]:='bay';
+n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';
+n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece';
+ n[32,5]:='blue fur';
+n[33,1]:='green button';n[33,2]:='green';
+n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange';
+ n[34,5]:='laser gun';
+n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt';
+ n[35,4]:='harness';n[35,5]:='strap';
+n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';
+n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';
+n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';
+ n[38,4]:='numbers';
+n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit';
+ n[39,5]:='surviva kit';
+n[40,1]:='knife';n[40,2]:='blade';
+n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';
+ n[41,5]:='landing pad';
+n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';
+ n[42,5]:='landing bay';
+n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';
+n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';
+n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';
+n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking';
+ n[46,5]:='chisele marking';
+n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';
+n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain';
+n[49,1]:='panel';n[49,2]:='compart';
+n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';
+ n[50,5]:='tubes';
+n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin';
+n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing';
+n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';
+n[54,1]:='reactor';n[54,2]:='core';
+n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';
+ n[55,5]:='mangled door';
+n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';
+end;
+ procedure Assign7;
+begin
+n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope';
+n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';
+n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';
+ n[59,5]:='metalli';
+n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me';
+ n[60,5]:='myself';
+n[61,1]:='shelf';n[61,2]:='shelves';
+n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield';
+ n[62,4]:='plate';n[62,5]:='radiati shield';
+n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key';
+n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull';
+ n[64,4]:='saucer';
+n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine';
+n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign';
+n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals';
+ n[67,5]:='remains';
+n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';
+ n[68,5]:='keyhole';
+n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';
+ n[69,5]:='step';
+n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole';
+ n[70,5]:='rod';
+n[71,1]:='rock feature';n[71,2]:='stalagt';
+n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';
+ n[72,4]:='shapes';
+end;
+ procedure Assign8;
+begin
+n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';
+ n[73,5]:='lake';
+n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit';
+ n[74,4]:='uniform';
+n[75,1]:='table';n[75,2]:='tables';
+n[76,1]:='tan button';n[76,2]:='tan';
+n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';
+n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing';
+ n[78,4]:='glass tube';n[78,5]:='glass';
+n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';
+ n[79,4]:='east wall';n[79,5]:='west wall';
+n[80,1]:='waterfall';n[80,2]:='waterfa';
+n[81,1]:='white button';n[81,2]:='white';
+n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial';
+n[83,1]:='slime';n[83,2]:='jelly';
+n[84,1]:='vent';n[84,2]:='vents';
+n[85,1]:='lamp';
+n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph';
+n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden';
+n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam';
+ n[88,4]:='electri';n[88,5]:='orange';
+n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat';
+end;
+{====================================END======================================}
projects / beyond-the-titanic.git / commitdiff