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

diff --git a/src/VOCAB.PAS b/src/VOCAB.PAS
index 11ae2ab..5d14941 100644
--- a/src/VOCAB.PAS
+++ b/src/VOCAB.PAS
@@ -1,10 +1,32 @@
 {//-------------------------------------------------------------------------}
 {/*                                                                         }
+{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       }
 {redistribute it and/or modify it under the terms of the GNU General Public }
-{License as published by the Free Software Foundation; either version 2     }
+{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,            }
@@ -14,8 +36,11 @@
 {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 the Free Software                }
-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.}
+{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                                                                      }
 {                                                                           }
 {Original Source: 1990 Scott Miller                                         }
 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
@@ -30,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\';
@@ -78,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\';
@@ -133,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\';
@@ -183,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}
@@ -232,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\';
@@ -300,7 +325,7 @@ end; { Assign5 }
 
                                {ROOM  NAMES}
 
-overlay procedure Names1;
+procedure Names1;
 begin
 rn[1]:='Bridge';
 rn[2]:='Forward Corridor';
@@ -343,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';
@@ -386,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];
@@ -421,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];
@@ -474,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];
@@ -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];
  end;
                            {<<<*** END ***>>>}
-
\ No newline at end of file
+