OBJECTS.PAS

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