1 {//-------------------------------------------------------------------------}
\r
3 {Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
\r
5 {This file is part of Supernova. Supernova is free software; you can }
\r
6 {redistribute it and/or modify it under the terms of the GNU General Public }
\r
7 {License as published by the Free Software Foundation; either version 2 }
\r
8 {of the License, or (at your option) any later version. }
\r
10 {This program is distributed in the hope that it will be useful, }
\r
11 {but WITHOUT ANY WARRANTY; without even the implied warranty of }
\r
12 {MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }
\r
14 {See the GNU General Public License for more details. }
\r
16 {You should have received a copy of the GNU General Public License }
\r
17 {along with this program; if not, write to the Free Software }
\r
18 {Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.}
\r
20 {Original Source: 1990 Scott Miller }
\r
21 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
\r
23 {//-------------------------------------------------------------------------}
\r
24 {*****************************************************************************}
\r
26 {* by Scott Miller *}
\r
27 {* This include file to AdGame initializes all of the immoveable objects. *}
\r
28 {* Copyright 1984 Pending *}
\r
29 {*****************************************************************************}
\r
30 overlay procedure Assign0;
\r
32 {INITIALIZE OBJECT'S ROOMS}
\r
33 for o:=0 to NMax do r[o]:=Null;
\r
34 p[0]:=[53,73,80,6,26,64,36];
\r
35 p[1]:=[53,6,57,73,80,64,36];
\r
36 p[2]:=[40,53,14,6,66,46,73,80,57,64,36];
\r
37 p[3]:=[6,73,80,39,59,57,64,36];
\r
38 p[4]:=[6,73,80,39,35,59,64,36];
\r
47 p[13]:=[17,47,73,80];
\r
54 p[20]:=[12,69,67,43];
\r
57 p[23]:=[64,26,71,37];
\r
58 p[24]:=[64,69,41,26,55];
\r
59 p[25]:=[64,69,41,26,84];
\r
60 p[26]:=[41,12,69,84];
\r
61 p[27]:=[20,21,26,10,58,38,86];
\r
62 p[28]:=[21,10,78,33,49,85];
\r
63 p[29]:=[78,10,21,33,49,85];
\r
64 p[30]:=[21,10,24,25,82,16,59,49,76,38,86];
\r
65 p[31]:=[75,21,10,84,7,22];
\r
66 p[32]:=[61,75,21,14];
\r
67 p[33]:=[61,75,4,21,10,59,84];
\r
68 p[34]:=[16,5,21,68,58,10,0,20,74,25,86];
\r
69 p[35]:=[62,21,10,54,55];
\r
70 p[36]:=[85,83,21,14,12,64,43];
\r
74 p[40]:=p[36]+[26,67];
\r
75 p[41]:=[87,73,19,47,53,37];
\r
81 p[47]:=[3,41,19,17,22];
\r
82 p[48]:=[3,19,17,22,27,35];
\r
83 p[49]:=[9,26,37,72];
\r
84 p[50]:=[9,26,88,46,66,37,88,68];
\r
89 p[55]:=[9,69,11,45,26,61,37,68];
\r
91 p[57]:=[9,19,37,41,65,22,31,73,87];
\r
92 p[58]:=[9,10,16,19,20,21,25,36,41,46,58,59,65,66,68,81,86];
\r
93 p[59]:=p[58]+[17,18,22,31,71,73,87];
\r
94 p[63]:=[9,10,16,18,19,20,21,25,36,41,46,58,59,65,66,68,81,86,88];
\r
100 p[69]:=p[63]+[9,14,37,53];
\r
101 p[70]:=p[69]+[69]-[10,16,20,36,46,58,59,66,68,81,86];
\r
102 p[71]:=[10,20,21,25,36,38,41,54,58,69];
\r
108 for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]
\r
110 {****************************** END OF OBJECTS *******************************}
\r