1 {//-------------------------------------------------------------------------}
\r
3 {Copyright (C) 2014 Jason Self <j@jxself.org> }
\r
5 {This file is free software: you may copy, redistribute and/or modify it }
\r
6 {under the terms of the GNU Affero General Public License as published by }
\r
7 {the Free Software Foundation, either version 3 of the License, or (at your }
\r
8 {option) any later version. }
\r
10 {This file is distributed in the hope that it will be useful, but WITHOUT }
\r
11 {ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or }
\r
12 {FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
\r
13 {for more details. }
\r
15 {You should have received a copy of the GNU Affero General Public License }
\r
16 {along with this program; if not, see https://gnu.org/licenses or write to: }
\r
17 { Free Software Foundation, Inc. }
\r
18 { 51 Franklin Street, Fifth Floor }
\r
19 { Boston, MA 02110-1301 }
\r
22 {This file incorporates work covered by the following copyright and }
\r
23 {permission notice: }
\r
25 {Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
\r
27 {This file is part of Supernova. Supernova is free software; you can }
\r
28 {redistribute it and/or modify it under the terms of the GNU General Public }
\r
29 {License as published by the Free Software Foundation; either version 3 }
\r
30 {of the License, or (at your option) any later version. }
\r
32 {This program is distributed in the hope that it will be useful, }
\r
33 {but WITHOUT ANY WARRANTY; without even the implied warranty of }
\r
34 {MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. }
\r
36 {See the GNU General Public License for more details. }
\r
38 {You should have received a copy of the GNU General Public License }
\r
39 {along with this program; if not, see https://gnu.org/licenses or write to: }
\r
40 { Free Software Foundation, Inc. }
\r
41 { 51 Franklin Street, Fifth Floor }
\r
42 { Boston, MA 02110-1301 }
\r
45 {Original Source: 1990 Scott Miller }
\r
46 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
\r
48 {//-------------------------------------------------------------------------}
\r
49 (*****************************************************************************)
\r
51 (* >> Contains the word list for Supernova << *)
\r
52 (* Programmer: Scott Miller *)
\r
53 (* << Began February 2, 1985 >> *)
\r
54 (* Copyright 1985 Scott Miller *)
\r
55 (*****************************************************************************)
\r
57 {VERB LIST: GROUPS ALL SYNONYMS}
\r
60 v[1]:='north\n\fore\f\';
\r
61 v[2]:='south\s\aft\a\';
\r
62 v[3]:='east\e\starboa\st\';
\r
63 v[4]:='west\w\port\p\';
\r
64 v[5]:='ne\northea\';
\r
65 v[6]:='nw\northwe\';
\r
66 v[7]:='se\southea\';
\r
67 v[8]:='sw\southwe\';
\r
68 v[9]:='up\u\climb up\climb u\';
\r
69 v[10]:='down\d\climb down\climb d\';
\r
70 v[11]:='enter\in\land in\land on\'; {cont}
\r
71 v[12]:='land\cross\across\';
\r
72 v[13]:='exit\out\leave\retreat\'; {cont}
\r
74 v[15]:='wait\z\rest\relax\';
\r
75 v[16]:='invento\i\ex invento\inv\';
\r
76 v[17]:='drop all but\drop all except\';
\r
77 v[18]:='drop\get rid\put down\let go\';
\r
78 v[19]:='take off\remove\';
\r
79 v[20]:='l behind\ex behind\l beside\';
\r
80 v[21]:='talk to\talk\speak to\greet\';
\r
81 v[22]:='l above\ex on\l on top\'; {cont}
\r
82 v[23]:='ex above\ex top\l on\';
\r
83 v[24]:='l in\ex in\l through\l out\';
\r
84 v[25]:='say\speak\';
\r
85 v[26]:='l under\ex underne\ex under\'; {cont}
\r
86 v[27]:='l underne\ex below\';
\r
87 v[28]:='ex\search\l at\describ\'; {cont}
\r
88 v[29]:='study\check\inspect\';
\r
89 v[30]:='l around\l\';
\r
91 v[32]:='stand up\get up\stand\';
\r
92 v[33]:='put\pour\lay\fill\insert\'; {cont}
\r
93 v[34]:='place\slide\stick\';
\r
94 v[35]:='sit on\sit in\sit down at\'; {cont}
\r
95 v[36]:='get in\sit at\sit\sit down\';
\r
96 v[37]:='get all but\get all except\'; {cont}
\r
97 v[38]:='take all but\get everyth but\';
\r
98 v[39]:='get\take\grab\steal\pick up\'; {cont}
\r
99 v[40]:='catch\grasp\snatch\';
\r
100 v[41]:='open\unfaste\';
\r
101 v[42]:='pull on\flick\pull\flip off\'; {cont}
\r
102 v[43]:='flip\turn off\deactiv\';
\r
103 v[44]:='push\move\press\turn on\'; {cont}
\r
104 v[45]:='activat\flip on\push on\';
\r
108 v[46]:='drink some\drink from\drink\';
\r
109 v[47]:='eat\swallow\digest\consume\';
\r
110 v[48]:='throw\toss\';
\r
111 v[49]:='give\offer\show\hand\';
\r
112 v[50]:='turn\rotate\set\spin\';
\r
113 v[51]:='climb in\climb over\'; {cont}
\r
114 v[52]:='climb on\climb\';
\r
115 v[53]:='close\shut\fasten\connect\';
\r
116 v[54]:='destroy\punch\knock on\break\'; {cont}
\r
117 v[55]:='hit\knock\smash\strike\';
\r
118 v[56]:='type in coordin\type coordin\'; {cont}
\r
119 v[57]:='type in keyboar\type in\'; {cont}
\r
120 v[58]:='type on\type on keyboar\type\';
\r
121 v[59]:='jump in\jump over\jump on\'; {cont}
\r
122 v[60]:='jump off\leap over\hop\'; {cont}
\r
123 v[61]:='jump across\jump\leap\hop\';
\r
124 v[62]:='sleep in\lie down\sleep on\'; {cont}
\r
126 v[64]:='buy\purchas\pay for\order\';
\r
127 v[65]:='listen to\listen\hear\';
\r
128 v[66]:='bartend\waiter\'; { Characters }
\r
129 v[67]:='two aliens\alien\aliens\';
\r
130 v[68]:='scienti\man\him\';
\r
131 v[69]:='robot\droid\';
\r
132 v[70]:='help me\pray\clue\help\';
\r
134 v[72]:='wear\don\';
\r
135 v[73]:='find\where is\where\';
\r
136 v[74]:='repair\fix\';
\r
137 v[75]:='touch in\feel\touch\rub\';
\r
138 v[76]:='reach in\reach under\reach\';
\r
139 v[77]:='descrip\rd\r d\';
\r
140 v[78]:='score\rank\';
\r
141 v[79]:='quit\stop\q\';
\r
142 v[80]:='hi\hello\bye\good bye\';
\r
143 v[81]:='yes\no\maybe\';
\r
145 v[83]:='smell\sniff\';
\r
146 v[84]:='taste\lick\';
\r
147 v[85]:='wake up\awaken\wake\';
\r
149 v[87]:='restore\resume\';
\r
151 v[89]:='shoot at\shoot\blast\';
\r
152 v[90]:='tie\untie\damn\shit\hell\';
\r
153 v[91]:='follow\scott miller\scott\';
\r
154 v[92]:='dig in\dig\shovel\';
\r
155 v[93]:='attack\kill\fight\';
\r
156 v[94]:='clean\wipe off\wipe\';
\r
157 v[95]:='command\verbs\verb\words\';
\r
160 {NOUN LIST: GROUPS ALL OBJECTS}
\r
163 n[1]:='clear crystal\clear\crystal\';
\r
165 n[3]:='rusty key\rusty\';
\r
166 n[4]:='shiney key\shiney\';
\r
167 n[5]:='brown satchel\satchel\brown\';
\r
168 n[6]:='dried food\food\dried\loaf\';
\r
169 n[7]:='holster\gun strap\strap\';
\r
170 n[8]:='goolaa\coin\money\';
\r
171 n[9]:='red jewel\jewel\red\';
\r
172 n[10]:='skull\skulls\head\heads\';
\r
173 n[11]:='rod\thick rod\pole\';
\r
174 n[12]:='plastic access card\'; {cont}
\r
175 n[13]:='plastic access\card\'; {cont}
\r
176 n[14]:='access card\plastic card\'; {cont}
\r
177 n[15]:='access\plastic\';
\r
178 n[16]:='worn cushion\cushion\worn\';
\r
179 n[17]:='grey disk\disk\grey\';
\r
180 n[18]:='dusty ball\ball\dusty\'; {changes to glass ball!}
\r
181 n[19]:='paper\piece paper\piece\';
\r
182 n[20]:='set of goggles\set goggles\'; {cont}
\r
183 n[21]:='goggles\set\glasses\band\';
\r
184 n[22]:='orange crystal\orange\';
\r
185 n[23]:='green crystal\green\';
\r
186 n[24]:='yellow crystal\yellow\';
\r
187 n[25]:='blue crystal\blue\';
\r
188 n[26]:='pair of gloves\pair gloves\'; {cont}
\r
189 n[27]:='gloves\glove\pair\';
\r
190 n[28]:='security suit\suit\badge\'; {cont at #31}
\r
191 n[29]:='mug\cup\drink\';
\r
192 n[30]:='all\everyth\object\objects\';
\r
193 n[31]:='securit suit\securit\';
\r
194 n[32]:='containers\crate\crates\'; {cont}
\r
195 n[33]:='cargo\contain\storage\';
\r
196 n[34]:='ceiling\roof\up\';
\r
197 n[35]:='seat\command chair\chair\'; {cont}
\r
198 n[36]:='chairs\seats\toilet\';
\r
199 n[37]:='computer\termina\compute\';
\r
200 n[38]:='controls\machine\'; {cont}
\r
201 n[39]:='control panel\control\';
\r
202 n[40]:='cyan button\cyan\'; { changes to socket }
\r
203 n[41]:='tan button\tan\';
\r
204 n[42]:='energy flow\energy\flow\';
\r
205 n[43]:='purple button\purple\violet\';
\r
206 n[44]:='button\white button\white\'; {cont}
\r
208 n[46]:='robot\defense robot\defense\'; {cont at #133}
\r
209 n[47]:='vines\vine\branche\branch\';
\r
213 n[48]:='dial\knob\dials\knobs\tap\';
\r
214 n[49]:='ground\floor\earth\deck\bay\'; {cont}
\r
215 n[50]:='glass floor\rocks\down\';
\r
216 n[51]:='equipment\equipme\';
\r
217 n[52]:='numeric keypad\keypad\'; {cont}
\r
218 n[53]:='numeric\numbers\keyboar\';
\r
219 n[54]:='rail\railing\column\';
\r
220 n[55]:='panel\compart\';
\r
221 n[56]:='door\swingin door\doors\'; {cont}
\r
222 n[57]:='swingin doors\hatch\swingin\';
\r
223 n[58]:='key\keys\round recess\';
\r
224 n[59]:='screen\monitor\screens\data\';
\r
225 n[60]:='player\self\waist\me\myself\'; {cont}
\r
226 n[61]:='hand\hands\arm\feet\foot\';
\r
227 n[62]:='ship\my ship\shuttle\vehicle\'; {cont}
\r
228 n[63]:='space ship\space craft\craft\';
\r
229 n[64]:='slot\opening\hole\round\'; {cont}
\r
230 n[65]:='niche\holes\recess\';
\r
231 n[66]:='acid water\acid river\stream\'; {cont}
\r
232 n[67]:='acid stream\river\acid\gap\';
\r
233 n[68]:='pyramid\podium\structure\';
\r
234 n[69]:='cryo tube\cryogen tube\'; {cont}
\r
235 n[70]:='cryogen\cryo\tube\tubes\';
\r
236 n[71]:='steps\step\stairs\ladder\';
\r
237 n[72]:='picture\mural\drawing\';
\r
238 n[73]:='bones\bone\skeleto\remains\';
\r
239 n[74]:='flash\blindin flash\blindin\'; {object never here!}
\r
240 n[75]:='creature\hairy creatur\hairy\'; {cont}
\r
241 n[76]:='scaled creatur\creatur\'; {cont}
\r
243 n[78]:='wheel\handle\';
\r
245 n[80]:='bed\bunk\beds\bunks\';
\r
246 n[81]:='sign\post\menu\message\note\';
\r
247 n[82]:='solar map\map\solar\drawing\'; {changes to laser beam}
\r
248 n[83]:='western table\western\';
\r
249 n[84]:='middle table\middle\';
\r
250 n[85]:='eastern table\eastern\';
\r
251 n[86]:='table\tables\';
\r
252 n[87]:='shelf\shelves\';
\r
253 n[88]:='gun\ray gun\signpos\';
\r
254 n[89]:='statue\dog statue\dog\';
\r
255 n[90]:='serum dispenser\dispens\'; {cont}
\r
256 n[91]:='serum dispens\';
\r
257 n[92]:='serum\medicin\cure\liquid\';
\r
258 n[93]:='platform\platfor\';
\r
262 n[94]:='booth\transpo\';
\r
263 n[95]:='wristband\wristba\transla\';
\r
264 n[96]:='building\buildin\complex\'; {cont}
\r
265 n[97]:='store\station\tavern\';
\r
266 n[98]:='sink\basin\tap\faucet\spout\';
\r
267 n[99]:='glunk lite\lite\glunk\beer\';
\r
268 n[100]:='Drink\ambross\'; {cont}
\r
269 n[101]:='pink ztulctw\ztulctw\pink\'; {cont}
\r
270 n[102]:='bloody foeboz\foeboz\bloody\';
\r
271 n[103]:='red star\red\star\flare\';
\r
272 n[104]:='telescope\telesco\eyepiec\';
\r
273 n[105]:='outer planet\inner planet\'; {cont}
\r
274 n[106]:='line planet\fifth planet\'; {cont}
\r
275 n[107]:='ringed planet\ringed\'; {cont}
\r
276 n[108]:='inner\fifth\line\outer\'; {cont}
\r
277 n[109]:='planets\planet\last\';
\r
278 n[110]:='keyhole\'; { changes to speaker }
\r
279 n[111]:='bartender\bartend\waiter\';
\r
280 n[112]:='trees\tree\forest\jungle\';
\r
281 n[113]:='path\passage\tunnel\road\'; {cont}
\r
282 n[114]:='corrido\lobby\chamber\air\';
\r
283 n[115]:='antenna\dish\hollow\';
\r
284 n[116]:='wall\south wall\north wall\'; {cont}
\r
285 n[117]:='east wall\west wall\walls\';
\r
286 n[118]:='ice\snow\';
\r
287 n[119]:='writing\chart\list\';
\r
288 n[120]:='swamp\quicksa\';
\r
289 n[121]:='radio\transmi\';
\r
290 n[122]:='dirt\sand\dust\desert\rocks\';
\r
291 n[123]:='scientist\scienti\him\man\';
\r
292 n[124]:='aliens\two aliens\alien\';
\r
293 n[125]:='fence\wire fence\wire\';
\r
294 n[126]:='bar\'; { changes to hinge }
\r
295 n[127]:='window\windows\alarm\siren\';
\r
296 n[128]:='reactor\regulat\';
\r
297 n[129]:='gas\fumes\icy mist\mist\icy\';
\r
298 n[130]:='spears\spear\';
\r
299 n[131]:='light\glow\lights\catwalk\';
\r
300 n[132]:='drazil tracks\tracks\drazil\';
\r
301 n[133]:='droid\sensor\probe\';
\r
304 {SEPWORD LIST: GROUPS ALL PREPOSITIONS}
\r
306 p[1]:='on top\around\above\over\'; {cont}
\r
307 p[2]:='across\on\to\onto\';
\r
308 p[3]:='against\at\toward\towards\'; {cont}
\r
309 p[4]:='in directi\';
\r
310 p[5]:='in\through\down\';
\r
311 p[6]:='using\with\making use\by\';
\r
312 p[7]:='beside\near\close to\next to\'; {cont}
\r
313 p[8]:='leaning against\';
\r
315 p[10]:='under\underne\beneath\below\';
\r
318 {ADVERB LIST: GROUPS ALL MOODS}
\r
320 a[1]:='gently1careful2softly3calmly4quietly5lightly6easily7';
\r
321 a[2]:='slowly1leisure2slow3with care4cautiou5closely6';
\r
322 a[3]:='strongl1firmly2solidly3powerfu4with force5hard6';
\r
323 a[4]:='quickly1fast2rapidly3speedil4very fast5';
\r
331 rn[2]:='Forward Corridor';
\r
332 rn[3]:='Rear Corridor';
\r
333 rn[4]:='Ship''s Lab';
\r
334 rn[5]:='Sanitary Facilities';
\r
335 rn[6]:='Sleep Chamber';
\r
336 rn[7]:='Cargo Area';
\r
338 rn[9]:='West Hallway';
\r
339 rn[10]:='Central Hallway';
\r
340 rn[11]:='East Hallway';
\r
341 rn[12]:='Suite #4';
\r
342 rn[13]:='Crossroads';
\r
343 rn[14]:='Dusty Road';
\r
344 rn[15]:='Dusty Road';
\r
345 rn[16]:='Gravel Road';
\r
346 rn[17]:='Gravel Road';
\r
347 rn[18]:='Paved Road';
\r
348 rn[19]:='Paved Road';
\r
349 rn[20]:='General Store';
\r
350 rn[21]:='Gravel Lot';
\r
351 rn[22]:='Top of Ship';
\r
352 rn[23]:='Deep Pit';
\r
354 rn[25]:='Sandy Clearing';
\r
355 rn[26]:='Winding Path';
\r
359 rn[30]:='Top of Tree';
\r
360 rn[31]:='Quicksand Pit';
\r
363 rn[34]:='Front of Pyramid';
\r
364 rn[35]:='Vestibule';
\r
365 rn[36]:='Descending Stairs';
\r
366 rn[37]:='Halcyon Hall';
\r
367 rn[38]:='Departure Room';
\r
368 rn[39]:='Holey Hall';
\r
369 rn[40]:='Pyramid Lobby';
\r
373 rn[41]:='Treasure''s Keeper';
\r
374 rn[42]:='Ladder Room';
\r
375 rn[43]:='Shifting Room';
\r
382 rn[50]:='Stairway Room';
\r
383 rn[51]:='Lower Stairway';
\r
384 rn[52]:='Misty Passage';
\r
385 rn[53]:='Damp Passage';
\r
386 rn[54]:='Dark Passage';
\r
387 rn[55]:='Circular Chamber';
\r
388 rn[56]:='The Erusaert';
\r
389 rn[57]:='Solar Chamber';
\r
390 rn[58]:='Eternal Trap';
\r
391 rn[59]:='Overgrown Path';
\r
392 rn[60]:='Antenna Building';
\r
393 rn[61]:='Monitor Outpost';
\r
397 rn[65]:='North Corridor';
\r
398 rn[66]:='Central Corridor';
\r
399 rn[67]:='South Corridor';
\r
400 rn[68]:='Decontamination';
\r
401 rn[69]:='Waiting Room';
\r
402 rn[70]:='Transporter Booth';
\r
403 rn[71]:='Monitor Station';
\r
404 rn[72]:='Reactor Control';
\r
405 rn[73]:='Communications';
\r
406 rn[74]:='Computer Station';
\r
407 rn[75]:='Elevator 1st Floor';
\r
408 rn[76]:='Elevator 2nd Floor';
\r
409 rn[77]:='Observatory';
\r
410 rn[78]:='Icy Platform';
\r
411 rn[79]:='Confirmation Port';
\r
412 rn[80]:='Inspection Lobby';
\r
416 rn[81]:='Circular Corridor';
\r
424 rn[89]:='Reactors West';
\r
425 rn[90]:='Reactors East';
\r
426 rn[91]:='Emergency Override';
\r
427 rn[92]:='Climate Control';
\r
428 rn[93]:='Elevator';
\r
429 rn[94]:='Maintenance';
\r
430 rn[95]:='Transmission Room';
\r
431 rn[96]:='Station Control';
\r
432 rn[97]:='Cryogenic Chamber';
\r
433 rn[98]:='Indentity Booth';
\r
434 rn[99]:='Security Tunnel #1';
\r
435 rn[100]:='Security Tunnel #2';
\r
436 rn[101]:='Security Tunnel #3';
\r
437 rn[102]:='North Catwalk';
\r
438 rn[103]:='East Catwalk';
\r
439 rn[104]:='South Catwalk';
\r
440 rn[105]:='West Catwalk';
\r
441 rn[106]:='Junction';
\r
442 rn[107]:='Conference Room';
\r
443 rn[108]:='Reactor Regulators';
\r
444 rn[109]:='Medical Quarters #6';
\r
451 for x:=1 to RMax do L[x]:=[];
\r
452 L[1]:=[16,35..41,43,44,52,55,56,59,62,112,120,125];
\r
453 L[2]:=[38,56,62,64,71,78];
\r
455 L[4]:=[38,44,51,52,55,62,64,81,90,119];
\r
456 L[5]:=[35,38,48,62,98];
\r
457 L[6]:=[38,62,69,80];
\r
458 L[7]:=[32,51,62,87];
\r
459 L[8]:=[29,35,56,71,81,83..86,96,99,100,111,119,126];
\r
463 L[12]:=[7,48,56,80,87,98,110];
\r
464 L[13]:=[56,81,88,96];
\r
465 L[14]:=[81,96,125];
\r
471 L[20]:=[5,6,32,38,51,86,87,96,132];
\r
472 L[21]:=[62,71,81,125];
\r
473 L[22]:=[56,62,71,78,81,96,125];
\r
475 L[24]:=[56,62,71,78,112,120];
\r
476 L[25]:=[62,71,112,120];
\r
477 L[26]:=[66,112,120];
\r
478 L[27]:=[66,112,120];
\r
481 L[30]:=[68,112,120];
\r
482 L[31]:=[47,112,120];
\r
485 L[34]:=[56,64,68,71,81,89,112,119,120,126];
\r
492 L[41]:=[18,73,56,68];
\r
494 { L[43] through L[49] are empty }
\r
504 L[56]:=[66,68,110];
\r
505 L[57]:=[56,72,82,103,109];
\r
507 L[60]:=[56,96,112,115,120];
\r
508 L[61]:=[37,38,44,56,59,93,94,96];
\r
511 L[64]:=[35,56,72,81,86,109,127];
\r
515 L[68]:=[44,56,131];
\r
516 L[69]:=[35,56,131];
\r
517 L[70]:=[40,41,43,44,56,93,94];
\r
519 L[72]:=[37,38,44,46,55,128];
\r
520 L[73]:=[28,35,38,48,56,115,121,127];
\r
521 L[74]:=[37,38,44,52,59];
\r
524 L[77]:=[56,104,127];
\r
525 L[78]:=[54,56,93,96,115,118];
\r
527 L[80]:=[35,55,56,72,86];
\r
528 L[81]:=[56,72]; { Picture of a Grey Disk }
\r
529 L[82]:=[56,72,103]; { Picture of the Red Star }
\r
530 L[83]:=[56,72,115]; { Picture of an Antenna }
\r
531 L[84]:=[46,56,72]; { Picture of a Robot }
\r
532 L[85]:=[56,72]; { Picture of a Cloud }
\r
533 L[86]:=[56,64,69,72]; { Picture of a Cryogenic Tube }
\r
534 L[87]:=[56,72]; { Picture of an Atomic Nucleus }
\r
535 L[88]:=[56,72]; { Picture of an Atomic Nucleus }
\r
536 L[89]:=[38,44,56,59,95,128];
\r
537 L[90]:=[38,56,59,128];
\r
538 L[91]:=[37,38,44,51,52,56,59,64,69,95,127,129];
\r
541 L[94]:=[2,51,56,87];
\r
542 L[95]:=[38,44,52,56,121,127];
\r
544 L[97]:=[56,69,129];
\r
545 L[98]:=[56,59,81,119];
\r
546 L[99]:=[46,55,56,88];
\r
548 L[101]:=[46,55,56,88];
\r
549 L[102]:=[42,54,56,131];
\r
550 L[103]:=[42,54,131];
\r
551 L[104]:=[42,54,131];
\r
552 L[105]:=[42,54,56,131];
\r
554 L[107]:=[19,35,56,86];
\r
555 L[108]:=[55,56,128];
\r
556 for x:=1 to RMax do L[x]:=L[x]+[30,34,49,60,103,113,116,122,131];
\r
558 {<<<*** END ***>>>}
\r