1 {//-------------------------------------------------------------------------}
3 {Copyright (C) 2014 Jason Self <j@jxself.org> }
5 {This file is free software: you may copy, redistribute and/or modify it }
6 {under the terms of the GNU Affero General Public License as published by }
7 {the Free Software Foundation, either version 3 of the License, or (at your }
8 {option) any later version. }
10 {This file is distributed in the hope that it will be useful, but WITHOUT }
11 {ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
12 {FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
15 {You should have received a copy of the GNU Affero General Public License }
16 {along with this program; if not, see https://gnu.org/licenses or write to: }
17 { Free Software Foundation, Inc. }
18 { 51 Franklin Street, Fifth Floor }
19 { Boston, MA 02110-1301 }
22 {This file incorporates work covered by the following copyright and }
25 {Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
27 {This file is part of Beyond The Titanic. Beyond The Titanic is free }
28 {software; you can redistribute it and/or modify it under the terms of the }
29 {GNU General Public License as published by the Free Software Foundation; }
30 {either version 3 of the License, or (at your option) any later version. }
32 {This program is distributed in the hope that it will be useful, but WITHOUT}
33 {ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
34 {FITNESS FOR A PARTICULAR PURPOSE. }
36 {See the GNU General Public License for more details. }
38 {You should have received a copy of the GNU General Public License }
39 {along with this program; if not, write to: }
40 { Free Software Foundation, Inc. }
41 { 51 Franklin Street, Fifth Floor }
42 { Boston, MA 02110-1301 }
45 {Original Source: 1990 Scott Miller }
46 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
48 {//-------------------------------------------------------------------------}
49 {*****************************************************************************}
52 {* This include file to AdGame initializes all of the immoveable objects. *}
53 {* Copyright 1984 Pending *}
54 {*****************************************************************************}
57 {INITIALIZE OBJECT'S ROOMS}
58 for o:=0 to NMax do r[o]:=Null;
59 p[0]:=[53,73,80,6,26,64,36];
60 p[1]:=[53,6,57,73,80,64,36];
61 p[2]:=[40,53,14,6,66,46,73,80,57,64,36];
62 p[3]:=[6,73,80,39,59,57,64,36];
63 p[4]:=[6,73,80,39,35,59,64,36];
83 p[24]:=[64,69,41,26,55];
84 p[25]:=[64,69,41,26,84];
86 p[27]:=[20,21,26,10,58,38,86];
87 p[28]:=[21,10,78,33,49,85];
88 p[29]:=[78,10,21,33,49,85];
89 p[30]:=[21,10,24,25,82,16,59,49,76,38,86];
90 p[31]:=[75,21,10,84,7,22];
92 p[33]:=[61,75,4,21,10,59,84];
93 p[34]:=[16,5,21,68,58,10,0,20,74,25,86];
94 p[35]:=[62,21,10,54,55];
95 p[36]:=[85,83,21,14,12,64,43];
100 p[41]:=[87,73,19,47,53,37];
106 p[47]:=[3,41,19,17,22];
107 p[48]:=[3,19,17,22,27,35];
109 p[50]:=[9,26,88,46,66,37,68];
114 p[55]:=[9,69,11,45,26,61,37,68];
116 p[57]:=[9,19,37,41,65,22,31,73,87];
117 p[58]:=[9,10,16,19,20,21,25,36,41,46,58,59,65,66,68,81,86];
118 p[59]:=p[58]+[17,18,22,31,71,73,87];
119 p[63]:=[9,10,16,18,19,20,21,25,36,41,46,58,59,65,66,68,81,86,88];
125 p[69]:=p[63]+[9,14,37,53];
126 p[70]:=p[69]+[69]-[10,16,20,36,46,58,59,66,68,81,86];
127 p[71]:=[10,20,21,25,36,38,41,54,58,69];
133 for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]
135 {****************************** END OF OBJECTS *******************************}