X-Git-Url: https://jxself.org/git/?p=beyond-the-titanic.git;a=blobdiff_plain;f=src%2FWORDLIST.PAS;fp=src%2FWORDLIST.PAS;h=6b547147d6f20e2411d749311c778f998c24dd1a;hp=5beddce30f8705555f4c65c4eab679f1afd900be;hb=6049ee038df78ae252d99c62f8c31f51ddefea5e;hpb=aff7d6da864fbe18a64f4e8a40733c539f2fb115 diff --git a/src/WORDLIST.PAS b/src/WORDLIST.PAS index 5beddce..6b54714 100644 --- a/src/WORDLIST.PAS +++ b/src/WORDLIST.PAS @@ -1,282 +1,306 @@ -{//-------------------------------------------------------------------------} -{/* } -{Copyright (C) 1990, 2009 - Apogee Software, Ltd. } -{ } -{This file is part of Supernova. Supernova is free software; you can } -{redistribute it and/or modify it under the terms of the GNU General Public } -{License as published by the Free Software Foundation; either version 3 } -{of the License, or (at your option) any later version. } -{ } -{This program is distributed in the hope that it will be useful, } -{but WITHOUT ANY WARRANTY; without even the implied warranty of } -{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. } -{ } -{See the GNU General Public License for more details. } -{ } -{You should have received a copy of the GNU General Public License } -{along with this program; if not, write to the Free Software } -{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.} -{ } -{Original Source: 1990 Scott Miller } -{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. } -{*/ } -{//-------------------------------------------------------------------------} -{*****************************************************************************} -{* WORDLIST *} -{* by Scott Miller *} -{* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*} -{* Copyright 1984 Pending *} -{*****************************************************************************} - -{====================================START====================================} - - {VERB LIST: GROUPS ALL SYNONYMS} -overlay procedure Assign1; -begin -for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q; -v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up'; -v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d'; -v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in'; - v[2,5]:='climb over'; -v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect'; - v[3,5]:='hook'; -v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea'; - v[4,4]:='climb ne'; -v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe'; - v[5,4]:='climb sw'; -v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw'; - v[6,5]:='chop'; -v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel'; -v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some'; - v[8,4]:='drink lot'; -v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down'; -v[10,1]:='eat';v[10,2]:='swallow'; -v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search'; - v[11,4]:='read';v[11,5]:='look at'; -v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check'; - v[12,5]:='chech for'; -v[13,1]:='repair';v[13,2]:='fix'; -v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal'; - v[14,5]:='pick up'; -v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay'; - v[15,5]:='give away'; -end; -overlay procedure Assign2; -begin -v[16,1]:='help';v[16,2]:='pray'; -v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break'; - v[17,5]:='destroy'; -v[18,1]:='invento';v[18,2]:='i'; -v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off'; - v[19,5]:='jump in'; -v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row'; -v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area'; -v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on'; - v[23,4]:='ex top';v[23,5]:='ex above'; -v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up'; - v[24,5]:='search in '; -v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under'; - v[25,4]:='look underne';v[25,5]:='ex below'; -v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light'; -v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch'; - v[26,5]:='untie'; -v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip'; - v[27,5]:='flip on'; -v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on'; - v[28,5]:='turn off'; -v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill'; - v[29,5]:='insert'; -v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in'; -v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute'; - v[31,5]:='think'; -end; -overlay procedure Assign3; -begin -v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire'; - v[32,5]:='shoot at'; -v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down'; - v[33,5]:='sit on'; -v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in'; -v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in'; -v[36,1]:='throw';v[36,2]:='toss'; -v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap'; -v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub'; -v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set'; -v[40,1]:='unlock'; -v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest'; -v[42,1]:='wear';v[42,2]:='put on'; -v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across'; -v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a'; -v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st'; -v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p'; -v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea'; -v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe'; -v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea'; -v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe'; -v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u'; -v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d'; - v[52,5]:='lower'; -v[53,1]:='type';v[53,2]:='type in'; -v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit'; -v[55,1]:='take off';v[55,2]:='remove'; -v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance'; -end; -overlay procedure Assign4; -begin -v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on'; - v[57,5]:='land'; -v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat'; - v[58,5]:='escape'; -v[59,1]:='diagnos'; -v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind'; - v[60,4]:='ex beside';v[60,5]:='look beside'; -v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from'; - v[61,5]:='fall'; -v[62,1]:='score';v[62,2]:='rank'; -v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster'; - v[63,4]:='alien creatur'; -v[64,1]:='save'; -v[65,1]:='restore';v[65,2]:='resume'; - - {NOUN LIST: GROUPS ALL OBJECTS} - -for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q; -n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body'; -n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects'; -n[2,1]:='banana';n[2,2]:='food'; -n[3,1]:='bat';n[3,2]:='bats'; -n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks'; -n[5,1]:='blue button';n[5,2]:='blue'; -n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa'; - n[6,5]:='ship'; -end; -overlay procedure Assign5; -begin -n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown'; -n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch'; - n[8,5]:='box switch'; -n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers'; -n[10,1]:='button';n[10,2]:='buttons'; -n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet'; -n[12,1]:='cages';n[12,2]:='bars'; -n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money'; -n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo'; - n[14,5]:='contain'; -n[15,1]:='ceiling';n[15,2]:='roof'; -n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat'; - n[16,5]:='metal chair'; -n[17,1]:='chasm';n[17,2]:='canyon'; -n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town'; -n[19,1]:='clouds';n[19,2]:='cloud'; -n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri'; -n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices'; - n[21,5]:='control'; -n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove'; -n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster'; - n[23,4]:='alien creatur';n[23,5]:='it'; -n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver'; -n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs'; -n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door'; - n[26,5]:='sliding'; -n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire'; - n[27,4]:='mangled';n[27,5]:='piece wire'; -n[28,1]:='egg';n[28,2]:='eggs'; -n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook'; - n[29,5]:='ring'; -end; -overlay procedure Assign6; -begin -n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck'; - n[30,5]:='bay'; -n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest'; -n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece'; - n[32,5]:='blue fur'; -n[33,1]:='green button';n[33,2]:='green'; -n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange'; - n[34,5]:='laser gun'; -n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt'; - n[35,4]:='harness';n[35,5]:='strap'; -n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean'; -n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood'; -n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric'; - n[38,4]:='numbers'; -n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit'; - n[39,5]:='surviva kit'; -n[40,1]:='knife';n[40,2]:='blade'; -n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad'; - n[41,5]:='landing pad'; -n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand'; - n[42,5]:='landing bay'; -n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage'; -n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand'; -n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty'; -n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking'; - n[46,5]:='chisele marking'; -n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop'; -n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain'; -n[49,1]:='panel';n[49,2]:='compart'; -n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road'; - n[50,5]:='tubes'; -n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin'; -n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing'; -n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail'; -n[54,1]:='reactor';n[54,2]:='core'; -n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled'; - n[55,5]:='mangled door'; -n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms'; -end; -overlay procedure Assign7; -begin -n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope'; -n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens'; -n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches'; - n[59,5]:='metalli'; -n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me'; - n[60,5]:='myself'; -n[61,1]:='shelf';n[61,2]:='shelves'; -n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield'; - n[62,4]:='plate';n[62,5]:='radiati shield'; -n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key'; -n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull'; - n[64,4]:='saucer'; -n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine'; -n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign'; -n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals'; - n[67,5]:='remains'; -n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole'; - n[68,5]:='keyhole'; -n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder'; - n[69,5]:='step'; -n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole'; - n[70,5]:='rod'; -n[71,1]:='rock feature';n[71,2]:='stalagt'; -n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon'; - n[72,4]:='shapes'; -end; -overlay procedure Assign8; -begin -n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher'; - n[73,5]:='lake'; -n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit'; - n[74,4]:='uniform'; -n[75,1]:='table';n[75,2]:='tables'; -n[76,1]:='tan button';n[76,2]:='tan'; -n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape'; -n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing'; - n[78,4]:='glass tube';n[78,5]:='glass'; -n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall'; - n[79,4]:='east wall';n[79,5]:='west wall'; -n[80,1]:='waterfall';n[80,2]:='waterfa'; -n[81,1]:='white button';n[81,2]:='white'; -n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial'; -n[83,1]:='slime';n[83,2]:='jelly'; -n[84,1]:='vent';n[84,2]:='vents'; -n[85,1]:='lamp'; -n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph'; -n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden'; -n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam'; - n[88,4]:='electri';n[88,5]:='orange'; -n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat'; -end; -{====================================END======================================} - +{//-------------------------------------------------------------------------} +{/* } +{Copyright (C) 2014 Jason Self } +{ } +{This file is free software: you may copy, redistribute and/or modify it } +{under the terms of the GNU Affero General Public License as published by } +{the Free Software Foundation, either version 3 of the License, or (at your } +{option) any later version. } +{ } +{This file is distributed in the hope that it will be useful, but WITHOUT } +{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or } +{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License} +{for more details. } +{ } +{You should have received a copy of the GNU Affero General Public License } +{along with this program; if not, see https://gnu.org/licenses or write to: } +{ Free Software Foundation, Inc. } +{ 51 Franklin Street, Fifth Floor } +{ Boston, MA 02110-1301 } +{ USA } +{ } +{This file incorporates work covered by the following copyright and } +{permission notice: } +{ } +{Copyright (C) 1990, 2009 - Apogee Software, Ltd. } +{ } +{This file is part of Beyond The Titanic. Beyond The Titanic is free } +{software; you can redistribute it and/or modify it under the terms of the } +{GNU General Public License as published by the Free Software Foundation; } +{either version 3 of the License, or (at your option) any later version. } +{ } +{This program is distributed in the hope that it will be useful, but WITHOUT} +{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or } +{FITNESS FOR A PARTICULAR PURPOSE. } +{ } +{See the GNU General Public License for more details. } +{ } +{You should have received a copy of the GNU General Public License } +{along with this program; if not, write to: } +{ Free Software Foundation, Inc. } +{ 51 Franklin Street, Fifth Floor } +{ Boston, MA 02110-1301 } +{ USA } +{ } +{Original Source: 1990 Scott Miller } +{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. } +{*/ } +{//-------------------------------------------------------------------------} +{*****************************************************************************} +{* WORDLIST *} +{* by Scott Miller *} +{* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*} +{* Copyright 1984 Pending *} +{*****************************************************************************} + +{====================================START====================================} + + {VERB LIST: GROUPS ALL SYNONYMS} +procedure Assign1; +begin +for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q; +v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up'; +v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d'; +v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in'; + v[2,5]:='climb over'; +v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect'; + v[3,5]:='hook'; +v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea'; + v[4,4]:='climb ne'; +v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe'; + v[5,4]:='climb sw'; +v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw'; + v[6,5]:='chop'; +v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel'; +v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some'; + v[8,4]:='drink lot'; +v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down'; +v[10,1]:='eat';v[10,2]:='swallow'; +v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search'; + v[11,4]:='read';v[11,5]:='look at'; +v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check'; + v[12,5]:='chech for'; +v[13,1]:='repair';v[13,2]:='fix'; +v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal'; + v[14,5]:='pick up'; +v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay'; + v[15,5]:='give away'; +end; +procedure Assign2; +begin +v[16,1]:='help';v[16,2]:='pray'; +v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break'; + v[17,5]:='destroy'; +v[18,1]:='invento';v[18,2]:='i'; +v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off'; + v[19,5]:='jump in'; +v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row'; +v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area'; +v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on'; + v[23,4]:='ex top';v[23,5]:='ex above'; +v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up'; + v[24,5]:='search in '; +v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under'; + v[25,4]:='look underne';v[25,5]:='ex below'; +v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light'; +v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch'; + v[26,5]:='untie'; +v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip'; + v[27,5]:='flip on'; +v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on'; + v[28,5]:='turn off'; +v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill'; + v[29,5]:='insert'; +v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in'; +v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute'; + v[31,5]:='think'; +end; + procedure Assign3; +begin +v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire'; + v[32,5]:='shoot at'; +v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down'; + v[33,5]:='sit on'; +v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in'; +v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in'; +v[36,1]:='throw';v[36,2]:='toss'; +v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap'; +v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub'; +v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set'; +v[40,1]:='unlock'; +v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest'; +v[42,1]:='wear';v[42,2]:='put on'; +v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across'; +v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a'; +v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st'; +v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p'; +v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea'; +v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe'; +v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea'; +v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe'; +v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u'; +v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d'; + v[52,5]:='lower'; +v[53,1]:='type';v[53,2]:='type in'; +v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit'; +v[55,1]:='take off';v[55,2]:='remove'; +v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance'; +end; + procedure Assign4; +begin +v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on'; + v[57,5]:='land'; +v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat'; + v[58,5]:='escape'; +v[59,1]:='diagnos'; +v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind'; + v[60,4]:='ex beside';v[60,5]:='look beside'; +v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from'; + v[61,5]:='fall'; +v[62,1]:='score';v[62,2]:='rank'; +v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster'; + v[63,4]:='alien creatur'; +v[64,1]:='save'; +v[65,1]:='restore';v[65,2]:='resume'; + + {NOUN LIST: GROUPS ALL OBJECTS} + +for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q; +n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body'; +n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects'; +n[2,1]:='banana';n[2,2]:='food'; +n[3,1]:='bat';n[3,2]:='bats'; +n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks'; +n[5,1]:='blue button';n[5,2]:='blue'; +n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa'; + n[6,5]:='ship'; +end; + procedure Assign5; +begin +n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown'; +n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch'; + n[8,5]:='box switch'; +n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers'; +n[10,1]:='button';n[10,2]:='buttons'; +n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet'; +n[12,1]:='cages';n[12,2]:='bars'; +n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money'; +n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo'; + n[14,5]:='contain'; +n[15,1]:='ceiling';n[15,2]:='roof'; +n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat'; + n[16,5]:='metal chair'; +n[17,1]:='chasm';n[17,2]:='canyon'; +n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town'; +n[19,1]:='clouds';n[19,2]:='cloud'; +n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri'; +n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices'; + n[21,5]:='control'; +n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove'; +n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster'; + n[23,4]:='alien creatur';n[23,5]:='it'; +n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver'; +n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs'; +n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door'; + n[26,5]:='sliding'; +n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire'; + n[27,4]:='mangled';n[27,5]:='piece wire'; +n[28,1]:='egg';n[28,2]:='eggs'; +n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook'; + n[29,5]:='ring'; +end; + procedure Assign6; +begin +n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck'; + n[30,5]:='bay'; +n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest'; +n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece'; + n[32,5]:='blue fur'; +n[33,1]:='green button';n[33,2]:='green'; +n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange'; + n[34,5]:='laser gun'; +n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt'; + n[35,4]:='harness';n[35,5]:='strap'; +n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean'; +n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood'; +n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric'; + n[38,4]:='numbers'; +n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit'; + n[39,5]:='surviva kit'; +n[40,1]:='knife';n[40,2]:='blade'; +n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad'; + n[41,5]:='landing pad'; +n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand'; + n[42,5]:='landing bay'; +n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage'; +n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand'; +n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty'; +n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking'; + n[46,5]:='chisele marking'; +n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop'; +n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain'; +n[49,1]:='panel';n[49,2]:='compart'; +n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road'; + n[50,5]:='tubes'; +n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin'; +n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing'; +n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail'; +n[54,1]:='reactor';n[54,2]:='core'; +n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled'; + n[55,5]:='mangled door'; +n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms'; +end; + procedure Assign7; +begin +n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope'; +n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens'; +n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches'; + n[59,5]:='metalli'; +n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me'; + n[60,5]:='myself'; +n[61,1]:='shelf';n[61,2]:='shelves'; +n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield'; + n[62,4]:='plate';n[62,5]:='radiati shield'; +n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key'; +n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull'; + n[64,4]:='saucer'; +n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine'; +n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign'; +n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals'; + n[67,5]:='remains'; +n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole'; + n[68,5]:='keyhole'; +n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder'; + n[69,5]:='step'; +n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole'; + n[70,5]:='rod'; +n[71,1]:='rock feature';n[71,2]:='stalagt'; +n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon'; + n[72,4]:='shapes'; +end; + procedure Assign8; +begin +n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher'; + n[73,5]:='lake'; +n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit'; + n[74,4]:='uniform'; +n[75,1]:='table';n[75,2]:='tables'; +n[76,1]:='tan button';n[76,2]:='tan'; +n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape'; +n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing'; + n[78,4]:='glass tube';n[78,5]:='glass'; +n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall'; + n[79,4]:='east wall';n[79,5]:='west wall'; +n[80,1]:='waterfall';n[80,2]:='waterfa'; +n[81,1]:='white button';n[81,2]:='white'; +n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial'; +n[83,1]:='slime';n[83,2]:='jelly'; +n[84,1]:='vent';n[84,2]:='vents'; +n[85,1]:='lamp'; +n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph'; +n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden'; +n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam'; + n[88,4]:='electri';n[88,5]:='orange'; +n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat'; +end; +{====================================END======================================}