Modifying software to compile with the Free Pascal compiler and run on modern systems...

[supernova.git] / src / VOCAB.PAS

diff --git a/src/VOCAB.PAS b/src/VOCAB.PAS
index 11ae2ab5eeba72b93ba6a5cdce25c292122c5ac5..5d14941278ff4b1465acfa826f285dd8f426a70e 100644 (file)
--- a/src/VOCAB.PAS
+++ b/src/VOCAB.PAS
@@ -1,10 +1,32 @@
 {//-------------------------------------------------------------------------}\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 2     }\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
@@ -14,8 +36,11 @@
 {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, 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
 {Original Source: 1990 Scott Miller                                         }\r
 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
@@ -30,7 +55,7 @@
 (*****************************************************************************)\r
 \r
                        {VERB LIST:  GROUPS ALL SYNONYMS}\r
-overlay procedure Assign1;\r
+procedure Assign1;\r
 begin\r
 v[1]:='north\n\fore\f\';\r
 v[2]:='south\s\aft\a\';\r
@@ -78,7 +103,7 @@ v[43]:='flip\turn off\deactiv\';
 v[44]:='push\move\press\turn on\';        {cont}\r
 v[45]:='activat\flip on\push on\';\r
 end; { Assign1 }\r
-overlay procedure Assign2;\r
+procedure Assign2;\r
 begin\r
 v[46]:='drink some\drink from\drink\';\r
 v[47]:='eat\swallow\digest\consume\';\r
@@ -133,7 +158,7 @@ v[95]:='command\verbs\verb\words\';
 end; { Assign2 }\r
 \r
                      {NOUN LIST:  GROUPS ALL OBJECTS}\r
-overlay procedure Assign3;\r
+procedure Assign3;\r
 begin\r
 n[1]:='clear crystal\clear\crystal\';\r
 n[2]:='device\';\r
@@ -183,7 +208,7 @@ n[45]:='buttons\';
 n[46]:='robot\defense robot\defense\';    {cont at #133}\r
 n[47]:='vines\vine\branche\branch\';\r
 end; { Assign3 }\r
-overlay procedure Assign4;\r
+procedure Assign4;\r
 begin\r
 n[48]:='dial\knob\dials\knobs\tap\';\r
 n[49]:='ground\floor\earth\deck\bay\';    {cont}\r
@@ -232,7 +257,7 @@ n[91]:='serum dispens\';
 n[92]:='serum\medicin\cure\liquid\';\r
 n[93]:='platform\platfor\';\r
 end; { Assign4 }\r
-overlay procedure Assign5;\r
+procedure Assign5;\r
 begin\r
 n[94]:='booth\transpo\';\r
 n[95]:='wristband\wristba\transla\';\r
@@ -300,7 +325,7 @@ end; { Assign5 }
 \r
                                {ROOM  NAMES}\r
 \r
-overlay procedure Names1;\r
+procedure Names1;\r
 begin\r
 rn[1]:='Bridge';\r
 rn[2]:='Forward Corridor';\r
@@ -343,7 +368,7 @@ rn[38]:='Departure Room';
 rn[39]:='Holey Hall';\r
 rn[40]:='Pyramid Lobby';\r
   end; { Names1 }\r
-overlay procedure Names2;\r
+procedure Names2;\r
 begin\r
 rn[41]:='Treasure''s Keeper';\r
 rn[42]:='Ladder Room';\r
@@ -386,7 +411,7 @@ rn[78]:='Icy Platform';
 rn[79]:='Confirmation Port';\r
 rn[80]:='Inspection Lobby';\r
   end; { Names2 }\r
-overlay procedure Names3;\r
+procedure Names3;\r
 begin\r
 rn[81]:='Circular Corridor';\r
 rn[82]:=rn[81];\r
@@ -421,7 +446,7 @@ rn[109]:='Medical Quarters #6';
 \r
 \r
                                {ROOM  NAMES}\r
-overlay procedure Place1;\r
+procedure Place1;\r
  begin\r
 for x:=1 to RMax do L[x]:=[];\r
 L[1]:=[16,35..41,43,44,52,55,56,59,62,112,120,125];\r
@@ -474,7 +499,7 @@ L[53]:=[];
 L[54]:=[];\r
 L[55]:=[11];\r
  end; { Place1 }\r
-overlay procedure Place2;\r
+procedure Place2;\r
  begin\r
 L[56]:=[66,68,110];\r
 L[57]:=[56,72,82,103,109];\r
@@ -531,4 +556,4 @@ L[108]:=[55,56,128];
 for x:=1 to RMax do L[x]:=L[x]+[30,34,49,60,103,113,116,122,131];\r
  end;\r
                            {<<<*** END ***>>>}\r
-\1a
\ No newline at end of file
+\1a\r