src/OBJECTS.PAS

   1 {//-------------------------------------------------------------------------}\r
   2 {/*                                                                         }\r
   3 {Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }\r
   4 {                                                                           }\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
   9 {                                                                           }\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
  13 {                                                                           }\r
  14 {See the GNU General Public License for more details.                       }\r
  15 {                                                                           }\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
  19 {                                                                           }\r
  20 {Original Source: 1990 Scott Miller                                         }\r
  21 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
  22 {*/                                                                         }\r
  23 {//-------------------------------------------------------------------------}\r
  24 {*****************************************************************************}\r
  25 {*                                 OBJECTS                                   *}\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
  31 begin\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
  39 p[5]:=[73,80,71];\r
  40 p[6]:=[73,80,71];\r
  41 p[7]:=[36,73,80,6];\r
  42 p[8]:=[47,46];\r
  43 p[9]:=[73,80];\r
  44 p[10]:=[80,73,17];\r
  45 p[11]:=[72];\r
  46 p[12]:=[70];\r
  47 p[13]:=[17,47,73,80];\r
  48 p[14]:=[];\r
  49 p[15]:=[17,73,80];\r
  50 p[16]:=[17,57];\r
  51 p[17]:=[17];\r
  52 p[18]:=[];\r
  53 p[19]:=[69];\r
  54 p[20]:=[12,69,67,43];\r
  55 p[21]:=[64,71,37];\r
  56 p[22]:=[64,71,37];\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
  71 p[37]:=p[36];\r
  72 p[38]:=p[36]+[28];\r
  73 p[39]:=p[36];\r
  74 p[40]:=p[36]+[26,67];\r
  75 p[41]:=[87,73,19,47,53,37];\r
  76 p[42]:=p[41]+[13];\r
  77 p[43]:=p[41];\r
  78 p[44]:=[41,19,87];\r
  79 p[45]:=[41,19];\r
  80 p[46]:=[41,19];\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
  85 p[51]:=[9,37];\r
  86 p[52]:=[9,37];\r
  87 p[53]:=[9,69,37];\r
  88 p[54]:=[9,37];\r
  89 p[55]:=[9,69,11,45,26,61,37,68];\r
  90 p[56]:=[9,69,37];\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
  95 p[64]:=p[63];\r
  96 p[65]:=p[63];\r
  97 p[66]:=p[63];\r
  98 p[67]:=p[63];\r
  99 p[68]:=p[63];\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
 103 p[72]:=[85];\r
 104 p[73]:=p[72];\r
 105 p[74]:=p[72];\r
 106 p[75]:=[23,14,61];\r
 107 p[76]:=[26,45];\r
 108 for x:=0 to 76 do p[x]:=p[x]+[15,30,42,44,50,56,60,79]\r
 109 end;\r
 110 {****************************** END OF OBJECTS *******************************}\r
 111 \1a