WORDLIST.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 {*                                 WORDLIST                                  *}
  26 {*                             by Scott Miller                               *}
  27 {* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*}
  28 {*                          Copyright 1984 Pending                           *}
  29 {*****************************************************************************}
  30
  31 {====================================START====================================}
  32
  33                        {VERB LIST:  GROUPS ALL SYNONYMS}
  34 procedure Assign1;
  35 begin
  36 for x:= 0 to VMax do for y:= 1 to 10 do v[x,y]:=Q;
  37 v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';
  38 v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
  39 v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';
  40    v[2,5]:='climb over';
  41 v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect';
  42    v[3,5]:='hook';
  43 v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';
  44    v[4,4]:='climb ne';
  45 v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';
  46    v[5,4]:='climb sw';
  47 v[6,1]:='\90Ø\82é';v[6,2]:='\82«\82é';
  48    v[6,3]:='cut';v[6,4]:='slice';v[6,5]:='cut out';v[6,6]:='saw';
  49    v[6,7]:='chop';
  50 v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';
  51 v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some';
  52    v[8,4]:='drink lot';
  53 v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down';
  54 v[10,1]:='eat';v[10,2]:='swallow';
  55 v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';
  56    v[11,4]:='read';v[11,5]:='look at';v[11,6]:='\93Ç\82Þ';v[11,7]:='\82æ\82Þ';v[11,8]:='\92²\82×\82é';v[11,9]:='\82µ\82ç\82×\82é';
  57 v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';
  58    v[12,5]:='chech for';
  59 v[13,1]:='repair';v[13,2]:='fix';
  60 v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';
  61    v[14,5]:='pick up';v[14,6]:='\8eæ\82é';v[14,7]:='\82Æ\82é';
  62 v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';
  63    v[15,5]:='give away';
  64 end;
  65 procedure Assign2;
  66 begin
  67 v[16,1]:='help';v[16,2]:='pray';
  68 v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break';
  69    v[17,5]:='destroy';
  70 v[18,1]:='invento';v[18,2]:='i';
  71 v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';
  72    v[19,5]:='jump in';
  73 v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';
  74 v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';
  75 v[22,5]:='\8c©\82é';v[22,6]:='\82Ý\82é';
  76 v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on';
  77    v[23,4]:='ex top';v[23,5]:='ex above';
  78 v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';
  79    v[24,5]:='search in ';
  80 v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under';
  81    v[25,4]:='look underne';v[25,5]:='ex below';
  82 v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light';
  83 v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch';
  84    v[26,5]:='untie';
  85 v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip';
  86    v[27,5]:='flip on';
  87 v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on';
  88    v[28,5]:='turn off';
  89 v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill';
  90    v[29,5]:='insert';
  91 v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in';
  92 v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute';
  93    v[31,5]:='think';
  94 end;
  95 procedure Assign3;
  96 begin
  97 v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire';
  98    v[32,5]:='shoot at';
  99 v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down';
 100    v[33,5]:='sit on';
 101 v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in';
 102 v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in';
 103 v[36,1]:='throw';v[36,2]:='toss';
 104 v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap';
 105 v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub';
 106 v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set';
 107 v[40,1]:='unlock';
 108 v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';
 109 v[42,1]:='wear';v[42,2]:='put on';
 110 v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';
 111    v[43,6]:='\96k';v[43,7]:='\82«\82½';
 112 v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';
 113    v[44,5]:='\93ì';v[44,6]:='\82Ý\82È\82Ý';
 114 v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';
 115    v[45,5]:='\93\8c';v[45,6]:='\82Ð\82ª\82µ';
 116 v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';
 117    v[46,5]:='\90¼';v[46,6]:='\82É\82µ';
 118 v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';
 119    v[47,4]:='\96k\93\8c';v[47,5]:='\82Ù\82\82Æ\82¤';
 120 v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';
 121    v[48,4]:='\96k\90¼';v[48,5]:='\82Ù\82\82¹\82¢';
 122 v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';
 123    v[49,4]:='\93ì\93\8c';v[49,5]:='\82È\82ñ\82Æ\82¤';
 124 v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';
 125    v[50,4]:='\93ì\90¼';v[50,5]:='\82È\82ñ\82¹\82¢';
 126 v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';
 127    v[51,5]:='\8fã';v[51,6]:='\82¤\82¦';
 128 v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';
 129    v[52,5]:='lower';
 130    v[52,6]:='\89º';v[52,7]:='\82µ\82½';
 131 v[53,1]:='type';v[53,2]:='type in';
 132 v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';
 133 v[55,1]:='take off';v[55,2]:='remove';
 134 v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance';
 135 end;
 136 procedure Assign4;
 137 begin
 138 v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on';
 139    v[57,5]:='land';
 140 v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat';
 141    v[58,5]:='escape';
 142 v[59,1]:='diagnos';
 143 v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind';
 144    v[60,4]:='ex beside';v[60,5]:='look beside';
 145 v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from';
 146    v[61,5]:='fall';
 147 v[62,1]:='score';v[62,2]:='rank';
 148 v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster';
 149    v[63,4]:='alien creatur';
 150 v[64,1]:='save';
 151 v[65,1]:='restore';v[65,2]:='resume';
 152
 153                      {NOUN LIST:  GROUPS ALL OBJECTS}
 154
 155 for x:= 0 to NMax do for y:= 1 to 10 do n[x,y]:=Q;
 156 n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body';
 157 n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';
 158 n[2,1]:='\83o\83i\83i';n[2,2]:='banana';n[2,3]:='food';
 159 n[3,1]:='\82±\82¤\82à\82è';n[3,2]:='\83R\83E\83\82\83\8a';n[3,3]:='å\9eå\95';
 160     n[3,4]:='bat';n[3,5]:='bats';
 161 n[4,1]:='\83x\83b\83h';
 162     n[4,2]:='bed';n[4,3]:='bunk';n[4,4]:='beds';n[4,5]:='bunks';
 163 n[5,1]:='blue button';n[5,2]:='blue';
 164 n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';
 165    n[6,5]:='ship';
 166 end;
 167 procedure Assign5;
 168 begin
 169 n[7,1]:='\83r\83\93';
 170    n[7,2]:='bottle';n[7,3]:='brown bottle';n[7,4]:='brown';
 171 n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';
 172    n[8,5]:='box switch';
 173 n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';
 174 n[10,1]:='button';n[10,2]:='buttons';
 175 n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet';
 176 n[12,1]:='cages';n[12,2]:='bars';
 177 n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money';
 178 n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo';
 179    n[14,5]:='contain';
 180 n[15,1]:='ceiling';n[15,2]:='roof';
 181 n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat';
 182    n[16,5]:='metal chair';
 183 n[17,1]:='chasm';n[17,2]:='canyon';
 184 n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town';
 185 n[19,1]:='clouds';n[19,2]:='cloud';
 186 n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri';
 187 n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices';
 188    n[21,5]:='control';
 189 n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove';
 190 n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster';
 191    n[23,4]:='alien creatur';n[23,5]:='it';
 192 n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver';
 193 n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs';
 194 n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';
 195    n[26,5]:='sliding';
 196 n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';
 197    n[27,4]:='mangled';n[27,5]:='piece wire';
 198 n[28,1]:='egg';n[28,2]:='eggs';
 199 n[29,1]:='\89ù\92\86\93d\93\94';n[29,2]:='\82©\82¢\82¿\82ã\82¤\82Å\82ñ\82Æ\82¤';n[29,3]:='flashlight';
 200    n[29,4]:='light';n[29,5]:='flashli';n[29,6]:='hook';n[29,7]:='ring';
 201 end;
 202 procedure Assign6;
 203 begin
 204 n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';
 205    n[30,5]:='bay';
 206 n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';
 207 n[32,1]:='\96Ñ\94ç\82Ì\90Ø\82ê\92['; n[32,2]:='\96Ñ\94ç';
 208    n[32,3]:='piece of fur';n[32,4]:='fur';n[32,5]:='piece fur';n[32,6]:='piece'; n[32,7]:='blue fur';
 209 n[33,1]:='green button';n[33,2]:='green';
 210 n[34,1]:='\8fe';
 211    n[34,2]:='gun';n[34,3]:='ray gun';n[34,4]:='gauge';n[34,5]:='orange'; n[34,6]:='laser gun';
 212 n[35,1]:='\88À\91S\83x\83\8b\83g';n[35,2]:='\83x\83\8b\83g';n[35,3]:='\82×\82é\82Æ';
 213 n[35,4]:='safety harness';n[35,5]:='safety';n[35,6]:='belt';
 214    n[35,7]:='harness';n[35,8]:='strap';
 215 n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';
 216 n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';
 217 n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';
 218    n[38,4]:='numbers';
 219 n[39,1]:='\94 ';n[39,7]:='\82Í\82±';n[39,2]:='survival kit';n[39,3]:='kit';
 220    n[39,4]:='surviva';n[39,5]:='red kit';n[39,6]:='surviva kit';
 221 n[40,1]:='\83i\83C\83t';n[40,2]:='knife';n[40,3]:='blade';
 222 n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';
 223    n[41,5]:='landing pad';
 224 n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';
 225    n[42,5]:='landing bay';
 226 n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';
 227 n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';
 228 n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';
 229 n[46,1]:='\95¶\8e\9a';n[46,2]:='\82à\82¶';n[46,3]:='message';n[46,4]:='chisele';
 230    n[46,5]:='writing';n[46,6]:='marking';n[46,7]:='chisele marking';
 231 n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';
 232 n[48,1]:='\8d½';
 233    n[48,2]:='chain';n[48,3]:='thick chain';n[48,4]:='metal chain';
 234 n[49,1]:='panel';n[49,2]:='compart';
 235 n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';
 236    n[50,5]:='tubes';
 237 n[51,1]:='\83o\83i\83i\82Ì\94ç';n[51,2]:='\94ç';n[51,3]:='\82©\82í';
 238    n[51,4]:='banana peel';n[51,5]:='peel';n[51,6]:='skin';
 239 n[52,1]:='\8cõ\82é\96ò'; n[52,2]:='\96ò';
 240    n[52,3]:='glowing pill';n[52,4]:='pill';n[52,5]:='glowing';
 241 n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';
 242 n[54,1]:='reactor';n[54,2]:='core';
 243 n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';
 244    n[55,5]:='mangled door';
 245 n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';
 246 end;
 247 procedure Assign7;
 248 begin
 249 n[57,1]:='\83\8d\81[\83v';n[57,2]:='rope';n[57,3]:='thick';n[57,4]:='thick rope';
 250 n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';
 251 n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';
 252    n[59,5]:='metalli';
 253 n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me';
 254    n[60,5]:='myself';
 255 n[61,1]:='shelf';n[61,2]:='shelves';
 256 n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield';
 257    n[62,4]:='plate';n[62,5]:='radiati shield';
 258 n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key';
 259 n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull';
 260    n[64,4]:='saucer';
 261 n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine';
 262 n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign';
 263 n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals';
 264    n[67,5]:='remains';
 265 n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';
 266    n[68,5]:='keyhole';
 267 n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';
 268    n[69,5]:='step';
 269 n[70,1]:='\96_';n[70,2]:='metal stake';n[70,3]:='stake';n[70,4]:='metal';
 270    n[70,5]:='pole';n[70,6]:='rod';
 271 n[71,1]:='rock feature';n[71,2]:='stalagt';
 272 n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';
 273    n[72,4]:='shapes';
 274 end;
 275 procedure Assign8;
 276 begin
 277 n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';
 278    n[73,5]:='lake';
 279 n[74,1]:='\83G\83C\83\8a\83A\83\93\82Ì\83X\81[\83c'; n[74,2]:='\83X\81[\83c';
 280    n[74,3]:='alien suit';n[74,4]:='suit';n[74,5]:='space suit'; n[74,6]:='uniform';
 281 n[75,1]:='table';n[75,2]:='tables';
 282 n[76,1]:='tan button';n[76,2]:='tan';
 283 n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';
 284 n[78,1]:='\83`\83\85\81[\83u';
 285    n[78,2]:='healing tube';n[78,3]:='tube';n[78,4]:='healing'; n[78,5]:='glass tube';n[78,6]:='glass';
 286 n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';
 287    n[79,4]:='east wall';n[79,5]:='west wall';
 288 n[80,1]:='waterfall';n[80,2]:='waterfa';
 289 n[81,1]:='white button';n[81,2]:='white';
 290 n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial';
 291 n[83,1]:='slime';n[83,2]:='jelly';
 292 n[84,1]:='vent';n[84,2]:='vents';
 293 n[85,1]:='lamp';
 294 n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph';
 295 n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden';
 296 n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam';
 297    n[88,4]:='electri';n[88,5]:='orange';
 298 n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat';
 299 end;
 300 {====================================END======================================}
 301 \1a