X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2FVOCAB.PAS;h=5d14941278ff4b1465acfa826f285dd8f426a70e;hb=c39dca3ccc60c8967191a68325d59ef3fd293bae;hp=9cdf015fa3a5a62cc0044ffcc699ac0d98b362d9;hpb=1b966dc3e307c8e16f16c754b8015b53802e5d23;p=supernova.git

diff --git a/src/VOCAB.PAS b/src/VOCAB.PAS
index 9cdf015..5d14941 100644
--- a/src/VOCAB.PAS
+++ b/src/VOCAB.PAS
@@ -1,5 +1,27 @@
 {//-------------------------------------------------------------------------}
 {/*                                                                         }
+{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 Supernova.  Supernova is free software; you can       }
@@ -33,7 +55,7 @@
 (*****************************************************************************)
 
                        {VERB LIST:  GROUPS ALL SYNONYMS}
-overlay procedure Assign1;
+procedure Assign1;
 begin
 v[1]:='north\n\fore\f\';
 v[2]:='south\s\aft\a\';
@@ -81,7 +103,7 @@ v[43]:='flip\turn off\deactiv\';
 v[44]:='push\move\press\turn on\';        {cont}
 v[45]:='activat\flip on\push on\';
 end; { Assign1 }
-overlay procedure Assign2;
+procedure Assign2;
 begin
 v[46]:='drink some\drink from\drink\';
 v[47]:='eat\swallow\digest\consume\';
@@ -136,7 +158,7 @@ v[95]:='command\verbs\verb\words\';
 end; { Assign2 }
 
                      {NOUN LIST:  GROUPS ALL OBJECTS}
-overlay procedure Assign3;
+procedure Assign3;
 begin
 n[1]:='clear crystal\clear\crystal\';
 n[2]:='device\';
@@ -186,7 +208,7 @@ n[45]:='buttons\';
 n[46]:='robot\defense robot\defense\';    {cont at #133}
 n[47]:='vines\vine\branche\branch\';
 end; { Assign3 }
-overlay procedure Assign4;
+procedure Assign4;
 begin
 n[48]:='dial\knob\dials\knobs\tap\';
 n[49]:='ground\floor\earth\deck\bay\';    {cont}
@@ -235,7 +257,7 @@ n[91]:='serum dispens\';
 n[92]:='serum\medicin\cure\liquid\';
 n[93]:='platform\platfor\';
 end; { Assign4 }
-overlay procedure Assign5;
+procedure Assign5;
 begin
 n[94]:='booth\transpo\';
 n[95]:='wristband\wristba\transla\';
@@ -303,7 +325,7 @@ end; { Assign5 }
 
                                {ROOM  NAMES}
 
-overlay procedure Names1;
+procedure Names1;
 begin
 rn[1]:='Bridge';
 rn[2]:='Forward Corridor';
@@ -346,7 +368,7 @@ rn[38]:='Departure Room';
 rn[39]:='Holey Hall';
 rn[40]:='Pyramid Lobby';
   end; { Names1 }
-overlay procedure Names2;
+procedure Names2;
 begin
 rn[41]:='Treasure''s Keeper';
 rn[42]:='Ladder Room';
@@ -389,7 +411,7 @@ rn[78]:='Icy Platform';
 rn[79]:='Confirmation Port';
 rn[80]:='Inspection Lobby';
   end; { Names2 }
-overlay procedure Names3;
+procedure Names3;
 begin
 rn[81]:='Circular Corridor';
 rn[82]:=rn[81];
@@ -424,7 +446,7 @@ rn[109]:='Medical Quarters #6';
 
 
                                {ROOM  NAMES}
-overlay procedure Place1;
+procedure Place1;
  begin
 for x:=1 to RMax do L[x]:=[];
 L[1]:=[16,35..41,43,44,52,55,56,59,62,112,120,125];
@@ -477,7 +499,7 @@ L[53]:=[];
 L[54]:=[];
 L[55]:=[11];
  end; { Place1 }
-overlay procedure Place2;
+procedure Place2;
  begin
 L[56]:=[66,68,110];
 L[57]:=[56,72,82,103,109];