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 9cdf015fa3a5a62cc0044ffcc699ac0d98b362d9..5d14941278ff4b1465acfa826f285dd8f426a70e 100644 (file)
--- a/src/VOCAB.PAS
+++ b/src/VOCAB.PAS
@@ -1,5 +1,27 @@
 {//-------------------------------------------------------------------------}\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
@@ -33,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
@@ -81,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
@@ -136,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
@@ -186,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
@@ -235,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
@@ -303,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
@@ -346,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
@@ -389,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
@@ -424,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
@@ -477,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