{//-------------------------------------------------------------------------}\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
{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
(*****************************************************************************)\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
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
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
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
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
\r
{ROOM NAMES}\r
\r
-overlay procedure Names1;\r
+procedure Names1;\r
begin\r
rn[1]:='Bridge';\r
rn[2]:='Forward Corridor';\r
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
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
\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
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