1 {//-------------------------------------------------------------------------}
\r
3 {Copyright (C) 1990, 2009 - Apogee Software, Ltd. }
\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
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
14 {See the GNU General Public License for more details. }
\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
20 {Original Source: 1990 Scott Miller }
\r
21 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
\r
23 {//-------------------------------------------------------------------------}
\r
24 (****************************************************************************)
\r
25 (* SUPERNOVA VERSION B *)
\r
26 (* >> This file contains the special room routines for Supernova << *)
\r
27 (* Programmer: Scott Miller *)
\r
28 (* << Began February 2, 1985 >> *)
\r
29 (* Copyright 1985 Scott Miller *)
\r
30 (****************************************************************************)
\r
35 VMax = 95; { Verbs }
\r
36 NMax = 133; { Nouns }
\r
37 PMax = 11; { Preps }
\r
38 AMax = 4; { Adverbs }
\r
39 TMax = 30; { Timers }
\r
40 RMax = 109; { Rooms }
\r
41 MMax = 29; { Mov's }
\r
53 Str130 = string[131];
\r
54 Str234 = string[234];
\r
55 Str255 = string[255];
\r
56 Entr = record AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags:integer;end;
\r
57 LSet = set of 1..NMax;
\r
59 aInv : set of 1..MMax;
\r
60 aPStat : set of 1..6;
\r
61 aEvents : set of 1..255;
\r
63 aWear : set of 1..MMax
\r
68 Sets : file of SaveSet;
\r
69 Objects : file of LSet;
\r
70 Things : file of byte;
\r
71 Timers : file of integer;
\r
72 V{erb} : array [1..VMax] of Str29;
\r
73 N{oun} : array [1..NMax] of Str29;
\r
74 P{rep} : array [1..PMax] of Str29;
\r
75 A{dvb} : array [1..AMax] of Str53;
\r
76 RN{ame} : array [1..RMax] of Str19;{ Name of each room stored here. }
\r
77 R{oom} : array [1..MMax] of byte; { Knows which room a Mov object is in.}
\r
78 L{ocate}: array [0..RMax] of LSet; { Locates all non-Mov objects. }
\r
79 T{imer} : array [1..TMax] of integer;
\r
80 Dir : array [1..8] of Str9;
\r
81 M{max} : array [1..3] of byte; {******************}
\r
82 PStat : set of 1..6; {* Player Status: *}
\r
83 NoNounOnly : set of 1..VMax; {* [] = Healthy *}
\r
84 OneNounMaybe : set of 1..VMax; {* 2 = Hungry *}
\r
85 ToNounOnly : set of 1..VMax; {* 3 = Sick *}
\r
86 ToNounMaybe : set of 1..VMax; {* 4 = Injured *}
\r
87 Events : set of 1..255; {* 5 = Tired *}
\r
88 Mov{able objects}, {* 6 = Thirsty *}
\r
89 Inv{ventory}, {******************}
\r
91 Wear : set of 1..MMax;
\r
92 Brief : set of 1..RMax;
\r
93 NounSet : set of 1..NMax;
\r
94 MugCon, { All -Con variables are containers. }
\r
111 Prm, { Player Room }
\r
112 EFlag, { Error Flag }
\r
113 FFlag, { Format Flag }
\r
114 TFlag, { Timer Flag }
\r
117 Region, { Knows what room to go in when exiting the player's ship }
\r
121 Serum, { Begins at zero, dispenser jams at 2! }
\r
123 Old, { for Block Reader }
\r
126 Code, { dials, etc }
\r
128 StoreR, { Knows if the previous Room that was read is the same as the }
\r
129 StoreS, { Room that is about to be read. If so, then it simply writes }
\r
130 StoreL, { that variable again! }
\r
132 RC, { Endless Room Counter }
\r
145 R1,R2,S1: file of Str234;
\r
146 L1 : file of Str78;
\r
147 C1 : file of Str77;
\r
148 T1,T2 : text[2500];
\r
163 SFlag : boolean; { If TRUE then a Special action took place. }
\r
166 {$Ia:ADPAR.pas <<<<<------ LOADS IN MANY PARSER COMMANDS ***************}
\r
168 procedure Describe(Room:byte);
\r
170 col(9,9);write(RN[Prm]);col(11,7);writeln;
\r
171 if(en(1))or(not(en(1))and not(Prm in Brief))then
\r
172 begin Brief:=Brief+[Prm];
\r
173 case Prm of { Alternate Room Descriptions }
\r
174 29:if en(35) then begin RS(130);RS(131)end else RR(29);
\r
175 34:if en(30) then begin RS(81);RS(82)end else RR(34);
\r
176 52:if en(39) then RS(126)else RR(52);
\r
177 91:if en(51) then begin RS(157);RS(158)end else RR(91)
\r
181 case Prm of { For initial object's description }
\r
182 1:if 16 in L[1] then RL(150);
\r
183 107:if 19 in L[107] then RL(518);
\r
184 38:if 17 in L[38] then RL(260);
\r
185 41:if(18 in L[41])and not en(34)then RS(96);
\r
186 55:if 11 in L[55] then RL(290);
\r
187 63:if 20 in L[63] then RL(356);
\r
188 73:if 28 in L[73] then RL(352);
\r
189 80:if 17 in L[80] then RL(395);
\r
190 94:begin if 26 in L[94] then RL(397);if 2 in L[94] then RL(398)end;
\r
192 for o:=1 to MMax do { Print the objects that are lying in the room }
\r
195 if o=6 then write('There is some ',FN(o),' here.')
\r
198 if Word[1] in['a','e','i','o','u']then
\r
199 write('There is an ',FN(o),' here.')else
\r
200 write('There is a ',FN(o),' here.')
\r
202 if((o=29)and(MugCon<>Null))or((o=7)and(HolstCon<>Null))or
\r
203 ((o=5)and(SatchCon<>Null))then write(' (with something in it)');
\r
204 if(o=5)and(R[5]=20)then write(' (lying in some trash)');
\r
205 if(o=7)and(7 in L[12])and(R[7]=12)then write(' (on the shelf)');
\r
206 if o=NicheCon then write(' (on the niche)');
\r
207 if(en(6))and(o=16)then write(' (on the seat)');
\r
208 if o=PyraCon then write(' (in the pyramid''s slot)');
\r
209 if o=HingeCon then write(' (inside the statue''s mouth)');
\r
210 if o=PodumCon then write(' (on top of the podium)');
\r
211 if(o=16)and en(37)then write(' (under the crystal)');
\r
212 if o=RobotCon then write(' (in the robot''s panel)');
\r
213 if o in Socket then write(' (in one of the regulator''s sockets)');
\r
218 procedure Move{New:byte};
\r
220 if en(7) then RL(22) else
\r
221 if en(8) then RL(23) else
\r
223 if(MugCon<>Null)and(29 in Inv)then
\r
224 begin if Prm<>8 then L[Prm]:=L[Prm]-[MugCon];L[New]:=L[New]+[MugCon]end;
\r
225 if(SatchCon<>Null)and(5 in Inv)then
\r
226 begin L[Prm]:=L[Prm]-[SatchCon];L[New]:=L[New]+[SatchCon]end;
\r
227 if(HolstCon<>Null)and(7 in Inv)then
\r
228 begin L[Prm]:=L[Prm]-[HolstCon];L[New]:=L[New]+[HolstCon]end;
\r
235 {$Ia:VOCAB.pas <<<<<------- Loads in VOCABULARY LIST **********}
\r
238 {****************************** ROOM ROUTINES *******************************}
\r
239 overlay procedure Room1; { The Player's Ship }
\r
242 1:case Vb of { Bridge }
\r
245 22,24,28:case N1 of
\r
246 37,38,55,44:if Md<>Null then RL(534)else RB(3,11);103:RL(317);
\r
247 35:if en(6)then RL(542)else RL(543);
\r
254 35:if N1 in[16,35] then
\r
255 if(here(16))and(en(6))then
\r
257 begin Add(7);sound(440);RS(19);T[6]:=4;for x:=1 to random(30)+9 do
\r
258 begin y:=random(6000)+60;play(y,y,70);delay(9)end;Score(10,67)
\r
260 else begin Add(7);RL(149); for x:=1 to random(9)+9 do
\r
261 begin y:=random(9999);play(y,y,30);delay(55)end;end
\r
263 56:if en(7)and en(6)then
\r
265 if input=Identity then
\r
266 begin RS(21);T[6]:=Null;Score(15,4);play(400,400,200)end
\r
269 if input='r2/20-8 d2/vega' then
\r
270 if not(Region in[2,4]) then
\r
271 begin RS(28);Add(26);Min(27);play(600,600,99)end
\r
274 begin Min(26);RS(39);Min(27);play(600,600,99)end
\r
276 44:if en(7)and en(6)then
\r
278 43:begin play(750,750,200); { Purple }
\r
280 if T[9]=11 then begin Score(5,68);Region:=2;T[13]:=3;TFlag:=2;
\r
281 n[126]:='hinged mouth\mouth\hinge\';
\r
282 RB(9,11);Explode(30)end
\r
286 40:begin play(900,900,200); { Cyan }
\r
287 if en(26) then begin RS(37);Add(27)end
\r
290 41:begin play(600,600,200); { Tan }
\r
292 if not(en(22))and not(en(23))then
\r
293 begin col(28,23);RL(180);col(11,7);
\r
296 for y:=30 to 200 do begin sound(y);delay(5)end;nosound;
\r
298 else begin RS(40);play(500,999,3);Min(26);Min(27)end
\r
299 else if en(26)then RL(184)else RL(185)
\r
303 39:if(16 in NounSet)and en(6)then
\r
304 if en(7)then RL(575)else begin Min(6);RL(145);SFlag:=false;end;
\r
309 overlay procedure Room2; { The Player's Ship }
\r
312 2:case Vb of { Forward Corridor }
\r
313 9,13,51:if(n1 in[0,62,64,71])then
\r
314 if en(23) then begin RL(237);case Region of 1:move(22);2:move(24);end end
\r
319 24,28:if NStr='hatch' then if en(23) then RL(163)else RL(99);
\r
321 if en(22)then begin RL(160);Min(22)end else
\r
322 begin RL(161);Add(22);
\r
323 if T[8]>0 then begin RS(40);play(500,999,3);T[8]:=0;Min(27)end end;
\r
324 41:if NStr='hatch' then
\r
327 begin RL(96);Add(23);
\r
328 if(not en(44))and(Region=2)then
\r
329 begin Add(44);RL(327);for i:=1 to 400 do sound(random(3500)+999);
\r
330 for i:=7500 downto 500 do begin sound(random(i)+i);
\r
331 sound(random(3500)+2000)end;
\r
332 for i:=1 to 300 do sound(random(3500)+2500);nosound;
\r
336 else begin RS(45);DEAD end;
\r
338 if en(23) then begin RL(98);Min(23)end else say('hatch','closed');
\r
341 3:case Vb of { Rear Corridor }
\r
345 28,31:if N1 in[55,81] then begin RB2(4,12);Pause;end;
\r
346 24,41,76:if N1=55 then if Md in[1,4]then RL(533)else begin RS(22);DEAD;end;
\r
351 overlay procedure Room3; { The Player's Ship }
\r
355 4:case Vb of { Ship's Lab }
\r
358 90:RS(23); 52:RS(26); 38:RS(27); 55:RS(31);
\r
359 81,119:begin RB(10,14);Pause;end;
\r
360 64:if NicheCon<>Null then
\r
361 writeln('There is a ',FN(NicheCon),' sitting on the niche.')
\r
364 31:if N1 in[81,119] then begin RB(10,14);Pause;end;
\r
365 41..44,88:if N1=55 then RL(174);
\r
367 if N1 in[3,4,8,9,12,17,29] then
\r
368 if Pr in[1,5,10] then
\r
369 if NicheCon=Null then
\r
370 begin Van(N1);R[N1]:=4;NicheCon:=N1;RL(147)end
\r
374 54:if N1 in[38,90]then begin RL(321);Serum:=1;end;
\r
375 56:begin Serum:=Serum+1;
\r
377 if NicheCon=Null then RS(24)
\r
378 else if NicheCon<>29 then
\r
379 writeln('A small amount of serum drips onto the ',FN(NicheCon),' and ',
\r
382 if MugCon=Null then begin MugCon:=92;RS(25);L[4]:=L[4]+[92];
\r
383 if input='6' then Add(42)else Min(42)end
\r
385 if MugCon in[79,92,99] then
\r
386 writeln('The serum mixes with the ',FN(MugCon),' inside the mug.')
\r
388 writeln('The serum drips on the ',FN(MugCon),' inside the mug and',
\r
389 ' quickly evaporates.')
\r
395 5:case Vb of { Sanitary Facilities }
\r
397 22,28:if N1=98 then RL(122);
\r
400 6:case Vb of { Sleep Chamber }
\r
403 28:case N1 of 80:RL(159); 69:RS(29) end;
\r
404 51:if N1=69 then Vb:=35;
\r
407 7:case Vb of { Cargo Area }
\r
409 22,28:if N1=32 then RL(155);
\r
410 24:if N1=32 then RL(156);
\r
411 41,53:if N1=32 then RL(157);
\r
412 39:if 32 in NounSet then RL(158);
\r
418 overlay procedure Room4; { The Tavern }
\r
421 8:case Vb of { Tavern }
\r
422 2,13:if en(7)then RL(22)else begin RL(93);move(13)end;
\r
423 3,9,11,51:if en(7)then RL(22)
\r
424 else if(N1 in[null,71])then begin RL(283);move(9)end
\r
425 else if N1=126 then RL(473);
\r
426 31:if N1 in[81,119]then RB(2,9);
\r
428 83:if T[1] in[4..7,11..17] then RS(8) else begin Add(19);Add(7);RL(30)end;
\r
429 35,84,85:begin Add(7);RL(30);if N1 in[35,84] then Add(2)else Min(2)end;
\r
433 if T[1] in[5..7,11..18] then
\r
434 if(md=1)or(en(18))then begin RL(31);Score(20,3);
\r
435 if not en(18)then begin Add(18);T[1]:=8;end end
\r
439 28:case N1 of 56:RL(371);81,119:RB(2,9);111:RL(44)end;
\r
440 41:if N1=56 then RL(394);
\r
441 39:if(29 in NounSet)and not en(21)then RL(86);
\r
442 54,93:if N1=111 then begin RS(32);DEAD;end;
\r
443 42,44,75:if N1=111 then RL(474);
\r
444 59:if N1=126 then RL(473);
\r
445 20:if N1=126 then RL(178);
\r
448 9:case Vb of { West Hallway }
\r
451 28:if N1=56 then RL(92);
\r
452 4,10,13,51:if(n1 in[null,71])then begin RL(284);move(8)end;
\r
453 54:if(N1=56)and(T[1]<1)then RS(13)else RL(123);
\r
454 41,88:if N1=56 then
\r
455 case N2 of 0:RL(107);3:RL(101)else RL(137)end;
\r
458 10:case Vb of { Central Hallway }
\r
462 28:if N1=56 then if en(11)then RL(370)else RL(92);
\r
463 2,11:if en(11) then begin RL(90);Score(5,69);move(12);Min(11)end
\r
465 41,88:if N1=56 then case N2 of 0:RL(107);3:begin;end else RL(137)end;
\r
466 54:if N1=56 then RL(123);
\r
469 11:case Vb of { East Hallway }
\r
472 28:if N1=56 then RL(92);
\r
473 41,88:if N1=56 then
\r
474 case N2 of 0:RL(107);3:RL(101)else RL(137)end;
\r
475 54:if N1=56 then RL(123);
\r
476 53:if N1=56 then begin RL(92);Min(11)end;
\r
479 12:case Vb of { Suite #4 }
\r
480 1,13:if en(7)then RL(22)else
\r
481 if en(11) then begin RL(91);move(10);Min(11)end else RL(92);
\r
482 41,88:if N1=56 then begin RL(104);Add(11)end;
\r
485 56:if en(11)then RL(370)else RL(92);
\r
486 80:if Md<>Null then RL(535)else RL(536);
\r
487 87:if 7 in L[12] then begin RL(106);R[7]:=12;Score(5,24)end;
\r
490 53:if N1=56 then begin RL(92);Min(11)end;
\r
491 39:if(7 in NounSet)or(30 in NounSet)then Score(5,24);
\r
497 overlay procedure Room5; { Barre-An Planet }
\r
498 procedure Zap; begin for x:=1 to 29 do if R[x]=Prm then Van(x) end;
\r
501 13:case Vb of { Crossroads }
\r
502 1,11:if en(7)then RL(22)else begin RL(93);move(8)end;
\r
506 28,31:if N1 in[81,88] then begin Score(5,70);RB2(5,6);Pause;end;
\r
507 41:if N1=56 then RL(394);
\r
510 14:case Vb of { Dusty Road }
\r
512 4:begin RC:=1;move(15)end;
\r
515 15:case Vb of { Dusty Road (endless) }
\r
516 3:begin Zap;RC:=RC-1;if RC<1 then move(14)else move(15)end;
\r
517 4:begin Zap;RC:=RC+1;move(15);if RC=40 then
\r
518 writeln('You notice something unusual.')end;
\r
519 11,13:if RC=40 then begin RL(135);Explode(3);play(1,9999,0);play(9999,1,0);
\r
520 walls(10);Explode(5);TFlag:=4;Inv:=[1,6,12,17,20,26,28,29];move(78);
\r
521 T[3]:=120;T[4]:=120;T[5]:=120;PStat:=[];MugCon:=79;Bor(0,0)end;
\r
524 16:case Vb of { Gravel Road }
\r
525 2,11:begin RL(108);move(20)end;
\r
526 3:begin RC:=1;move(17)end;
\r
528 28,31:if N1=81 then RL(109);
\r
531 17:case Vb of { Gravel Road (endless) }
\r
532 3:begin Zap;RC:=RC+1;if(RC=80)and(Inv<>[])then
\r
533 begin move(17);RS(17);Inv:=[];end
\r
535 4:begin Zap;RC:=RC-1;if RC<1 then move(16)else move(17)end;
\r
538 18:case Vb of { Paved Road }
\r
540 2:begin RC:=1;move(19);end;
\r
544 19:case Vb of { Paved Road (endless) }
\r
545 1:begin Zap;RC:=RC-1;if RC<1then move(18)else move(19)end;
\r
546 2:if RC=60 then RS(18) else begin Zap;RC:=RC+1;move(19)end;
\r
549 20:case Vb of { General Store }
\r
551 28:if N1=132 then RL(88);
\r
552 20,26,76:if(N1 in[86,87])and(5 in L[20])then
\r
553 begin RS(14);R[5]:=20;Score(15,20)end;
\r
554 39:if(5 in NounSet)or(30 in NounSet)then Score(15,20);
\r
557 21:case Vb of { Gravel Lot }
\r
560 2,9,51:if N1 in[Null,62,71] then begin RL(234);move(22)end;
\r
561 28,31:if n1=81 then begin Score(5,71);RB(1,7);Pause;end;
\r
564 22:case Vb of { Top of Ship (Barre-An) }
\r
565 1:begin RL(235);move(21)end;
\r
566 10,11,51:if(n1 in[null,62,64,71])then
\r
567 if en(23) then begin RL(236);move(2);Score(15,72)end else RL(99);
\r
568 24,28,31:case N1 of
\r
569 56:if en(23) then RL(163)else RL(99);81:begin RB(1,7);Pause;end end;
\r
571 if en(22)then begin RL(94);Min(22)end else begin RL(95);Add(22)end;
\r
573 if en(22) then begin RL(96);Add(23);Score(5,73)end else RL(97);
\r
575 if en(23) then begin RL(98);Min(23)end else say('hatch','closed');
\r
576 59:if(N1 in[49,122])or(VStr='jump off')then move(21);
\r
582 overlay procedure Room6; { Jungle Planet }
\r
585 23:case Vb of { Deep Pit }
\r
587 28,31:case N1 of 73:RL(218); 81,116:RS(80) end;
\r
588 75:if N1=73 then move(34);
\r
591 24:case Vb of { Top of Ship (Jungle planet) }
\r
592 3:begin RL(235);move(25)end;
\r
593 10,11,51:if(n1 in[null,62,64,71])then
\r
594 if en(23) then begin Score(5,74);RL(236);move(2)end else RL(99);
\r
595 24,28:if N1=56 then if en(23) then RL(163)else RL(99);
\r
597 if en(22)then begin RL(94);Min(22)end else begin RL(95);Add(22)end;
\r
599 if en(22) then begin RL(96);Add(23)end else RL(97);
\r
601 if en(23) then begin RL(98);Min(23)end else say('hatch','closed');
\r
602 59:if(N1 in[49,122])or(VStr='jump off')then move(25);
\r
605 25:case Vb of { Sandy Clearing }
\r
606 4,9,51:if N1 in[Null,62,71] then begin RL(234);move(24)end;
\r
607 1:begin move(26);Score(5,75)end;
\r
611 26:case Vb of { Winding Path 1 }
\r
613 5:begin RS(65);DEAD;end;
\r
615 if VStr='jump in' then begin RL(288);DEAD;end
\r
616 else begin RS(66);move(27);Score(25,76)end;
\r
618 9,51:if N1=112 then RL(204);
\r
619 28:if N1=66 then RS(85);
\r
620 35,62:if N1=66 then begin RL(288);DEAD;end;
\r
621 75,76:if N1=66 then RL(285);
\r
622 83:if N1=66 then RL(286);
\r
623 84:if N1=66 then begin RL(287);DEAD;end;
\r
626 27:case Vb of { Winding Path 2 }
\r
628 8,11:begin RS(65);DEAD;end;
\r
630 9,51:if N1=112 then RL(204);
\r
632 if VStr='jump in' then begin RL(288);DEAD;end
\r
633 else begin RS(66);move(26)end;
\r
634 28:if N1=66 then RS(85);
\r
635 35,62:if N1=66 then begin RL(288);DEAD;end;
\r
636 75,76:if N1=66 then RL(285);
\r
637 83:if N1=66 then RL(286);
\r
638 84:if N1=66 then begin RL(287);DEAD;end;
\r
641 28:case Vb of { Winding Path 3 }
\r
644 8:begin RS(67);DEAD;end;
\r
646 9,51:if N1=112 then RL(204);
\r
647 28:if N1=112 then RS(86);
\r
648 24:if N1=112 then RL(553);
\r
651 29:case Vb of { Winding Path 4 }
\r
653 5:if en(29) then move(32) else
\r
654 begin col(10,7);RS(72);col(11,7);T[12]:=146;Add(29);move(32)end;
\r
655 9,51:if N1 in[Null,112] then begin RL(201);move(30)end;
\r
656 6:begin RS(69);Prm:=31;T[11]:=4;end;
\r
657 8:if en(35)or en(130)then begin RC:=1;move(59);Score(20,77)end;
\r
659 28:case N1 of 112:RL(238);120:RL(544);
\r
660 113:if Md=1 then begin RL(314);Add(130)end end;
\r
661 59:if N1=120 then begin RL(541);Prm:=31;T[11]:=4;end;
\r
667 overlay procedure Room7; { Jungle Planet }
\r
670 30:case Vb of { Top of Tree }
\r
672 10,51:if N1 in[Null,112] then begin RL(203);move(29)end;
\r
674 20..28:if N1=68 then RS(79);
\r
678 31:case Vb of { Quicksand Pit }
\r
680 9,51:if N1=112 then RL(204);
\r
681 39,42,76:if N1=47 then
\r
682 if en(78)then RL(549)else begin T[11]:=0;RS(71);Prm:=29;Score(25,78)end;
\r
683 28:case N1 of 47:RL(239); 120:RL(240);end
\r
686 32:case Vb of { Winding Path 5 }
\r
688 8:begin move(29);if en(35) and not en(40) then begin RL(314);Add(40)end end;
\r
690 9,51:if N1=112 then RL(204);
\r
693 33:case Vb of { Winding Path 6 }
\r
695 6:if not en(28)then begin RS(68);Add(28);move(34)end else move(34);
\r
697 9,51:if N1=112 then RL(204);
\r
700 34:case Vb of { Front of Pyramid }
\r
702 41..44,54,75,88:if N1=56 then RL(220) else
\r
704 if HingeCon<>Null then
\r
705 begin writeln('The hinged mouth opens, revealing a ',FN(HingeCon),
\r
706 ' inside.');Add(31);R[HingeCon]:=34;Score(25,79)end
\r
707 else begin RL(226);Add(31)end;
\r
708 53:if N1=56 then RL(220) else
\r
710 begin RL(227);if HingeCon<>Null then R[HingeCon]:=Null;Min(31)end;
\r
711 1,11:if en(30) then begin Score(25,80);move(35)end else RL(219);
\r
712 39:if(PyraCon in NounSet)or((30 in Nounset)and(PyraCon=9))then
\r
713 begin RL(225);Min(30);SFlag:=false;end else
\r
714 if HingeCon in NounSet then begin RL(228);SFlag:=false;end;
\r
716 9,51:if N1=112 then RL(204);
\r
717 92:if N1 in[Null,49,122] then begin RL(216);move(23) end;
\r
718 31:if N1 in[81,89,119] then begin RB(8,7);Pause;end;
\r
719 28,24:case N1 of 68:RS(87); 89:RS(88); 81,119:begin RB(8,7);Pause;end;
\r
720 64:if PyraCon=Null then RL(241)else
\r
721 writeln('The small slot contains a ',FN(PyraCon),'.');
\r
722 56:if en(30) then RL(244)else RL(245);
\r
724 if HingeCon=Null then RL(242)else
\r
725 writeln('The open mouth contains a ',FN(HingeCon),'.')
\r
733 overlay procedure Room8; { Inside Pyramid (Top Level) }
\r
736 35:case Vb of { Vestibule }
\r
738 10,11,51:if N1 in[Null,71] then
\r
739 if en(32) then move(36) else begin RS(84);Add(32);move(36)end;
\r
740 28:if N1=56 then if en(30) then RL(244)else RL(245);
\r
743 36:case Vb of { Descending Stairs }
\r
744 10,11,51:if N1 in[Null,71] then move(37);
\r
748 37:case Vb of { Halcyon Hall }
\r
749 1:if T[16]>1 then begin RL(278);DEAD;end else move(39);
\r
751 10,51:if N1 in[Null,71] then move(42);
\r
755 38:case Vb of { Departure Room }
\r
758 73:if 10 in L[38] then begin RL(253);RL(252)end else RL(253);
\r
759 10:if 10 in L[38] then RL(254);
\r
760 30:if 17 in L[38] then begin SF;writeln('It''s a grey disk!')end
\r
762 26:if(N1=10)and(10 in L[38])then RL(255);
\r
763 42,44:if N1 in[10,73] then RL(256);
\r
764 75:if N1=73 then RL(257);
\r
766 39:if(10 in L[38])and(10 in NounSet)then
\r
767 begin L[38]:=L[38]+[17];RL(259);Score(15,81);SFlag:=false;end
\r
768 else if(30 in NounSet)and(17 in L[38])then R[17]:=38;
\r
774 overlay procedure Room9; { Inside Pyramid (Top Level) }
\r
777 39:case Vb of { Holey Hall }
\r
778 2,13:if T[15]>1 then begin RL(269);move(37);Score(5,82)end else move(37);
\r
779 4,11:if T[15]>1 then begin RS(95);DEAD;end else move(40);
\r
782 40:case Vb of { Pyramid Lobby }
\r
783 1,11:if T[14]>1 then
\r
784 begin n[68]:='podium\alter\column\';WRITE('');move(41)end;
\r
785 3,13:if(18 in Inv)or(4 in Inv)then begin Brief:=Brief-[39];move(39);
\r
786 T[15]:=3;T[16]:=9;col(10,7);RS(93);
\r
787 for i:=500 to 5500 do sound(random(i)+random(i));
\r
788 for j:=1 to 7000 do sound(random(i)+random(i));
\r
789 for j:=i downto 500 do sound(random(j)+random(j));nosound;
\r
794 if T[14]>1 then RL(246) else
\r
795 if en(33) then begin T[14]:=7;RL(261);Walls(8);end
\r
796 else begin T[14]:=7;Score(20,33);RS(89);Walls(8);end;
\r
797 28:case N1 of 56:if T[14]>1 then RL(370)else RL(92);68:RL(247)end;
\r
800 41:case Vb of { Treasure's Keeper }
\r
801 2,13:if T[14]>1 then begin n[68]:='pyramid\podium\';WRITE('');move(40)end
\r
804 56:if T[14]>1 then RL(370)else RL(92);
\r
805 68:if PodumCon=Null then RL(264) else
\r
806 writeln('There is a ',FN(PodumCon),' on the podium.');
\r
807 18:if(18 in L[41])and not en(34)then RS(90);
\r
812 if PodumCon=Null then
\r
813 begin Van(N1);R[N1]:=41;PodumCon:=N1;RL(266)end
\r
816 75:if N1=68 then RL(276);
\r
817 50:if N1=68 then begin RL(277);Walls(8);T[14]:=7;end;
\r
818 39:if(30 in NounSet)and(18 in L[41])then R[18]:=41;
\r
824 overlay procedure Room10; { Pyramid Maze }
\r
827 42:case Vb of { Ladder Room }
\r
828 1..13:if Maze then case Vb of 9,13:move(37);6:move(43);3,8:move(42)end
\r
829 else case Vb of 9,13:move(37)end;
\r
830 41..44,50,55:if N1=116 then RL(325);
\r
831 28:if N1=116 then RL(547);
\r
834 43:case Vb of { Shifting Room NW }
\r
835 1..8:if Maze then case Vb of 7:move(42)end
\r
836 else case Vb of 2:move(44);8:move(45)end;
\r
837 41..44,50,55:if N1=116 then RL(325);
\r
838 28:if N1=116 then RL(547);
\r
841 44:case Vb of { Shifting Room W }
\r
842 1..8:if Maze then case Vb of 7:move(47);2:move(45)end
\r
843 else case Vb of 1:move(43);5:move(44)end;
\r
844 41..44,50,55:if N1=116 then RL(325);
\r
845 28:if N1=116 then RL(547);
\r
848 45:case Vb of { Shifting Room SW }
\r
849 1..8:if Maze then case Vb of 1,3:move(45)end
\r
850 else case Vb of 1:move(45);6:move(43)end;
\r
851 41..44,50,55:if N1=116 then RL(325);
\r
852 28:if N1=116 then RL(547);
\r
855 46:case Vb of { Shifting Room N }
\r
857 case Vb of 1:begin RS(98);DEAD;end;
\r
858 7:begin Score(50,84);move(50)end end
\r
860 case Vb of 1:begin RS(98);DEAD;end;
\r
861 7:begin Score(50,84);move(50)end;3:move(48);8:move(45)end;
\r
862 41..44,50,55:if N1=116 then RL(325);
\r
863 28:if N1=116 then RL(547);
\r
866 47:case Vb of { Shifting Room S }
\r
867 1..8:if Maze then case Vb of 6:move(44)end
\r
868 else case Vb of 3:move(49);1:move(47);4:move(45)end;
\r
869 41..44,50,55:if N1=116 then RL(325);
\r
870 28:if N1=116 then RL(547);
\r
873 48:case Vb of { Shifting Room NE }
\r
874 1..8:if Maze then case Vb of 7:move(49);3,4:move(48)end
\r
875 else case Vb of 4:move(46);1,2:move(48)end;
\r
876 41..44,50,55:if N1=116 then RL(325);
\r
877 28:if N1=116 then RL(547);
\r
880 49:case Vb of { Shifting Room SE }
\r
881 1..8:if Maze then case Vb of 5:move(48)end
\r
882 else case Vb of 4:move(47);2:move(45)end;
\r
883 41..44,50,55:if N1=116 then RL(325);
\r
884 28:if N1=116 then RL(547);
\r
887 50:case Vb of { Stairway Room E }
\r
889 4,10,13,51:move(51);
\r
890 41..44,50,55:if N1=116 then RL(325);
\r
896 overlay procedure Room11; { Inside Pyramid (Bottom Level) }
\r
899 51:case Vb of { Lower Stairway }
\r
900 3,9,13,51:move(50);
\r
904 52:case Vb of { Misty Passage }
\r
905 2:if T[19]>1 then begin RS(129);DEAD;end else move(51);
\r
906 4:if en(35)then begin RL(305);DEAD;end else move(53);
\r
907 33:if(N1=11)and(11 in Inv)then
\r
908 if Pr in[1,5,7,10] then
\r
909 if N2 in[34,49,64] then
\r
911 begin Score(40,39);Van(11);L[52]:=L[52]+[11];T[19]:=0;RS(127)end
\r
912 else begin Van(N1);R[N1]:=52;RL(586)end;
\r
913 39:if(11 in NounSet)and en(39)then RL(307);
\r
914 28:case N1 of 11:RL(312); 64:RL(313) end;
\r
915 42,44,55:case N1 of 11:RL(307); 34:RL(308); end;
\r
919 53:case Vb of { Damp Passage }
\r
920 2:begin move(54);if en(35)then begin RS(122);DEAD;end end;
\r
921 3:if T[18]>1 then begin RL(305);DEAD;end else move(52);
\r
923 begin RS(125);Brief:=Brief-[52];move(52);T[18]:=0;T[19]:=3;
\r
924 col(10,7);RL(306);Walls(12);Score(20,85)end;
\r
927 54:case Vb of { Dark Passage }
\r
932 55:case Vb of { Circular Chamber }
\r
933 1:begin Brief:=Brief-[54];move(54);
\r
936 begin col(10,7);RS(119);RS(120);Pause;L[53]:=L[53]+[66];Score(20,86);
\r
937 Brief:=Brief-[53];move(53);col(10,7);RS(121);Walls(12);T[18]:=4;end
\r
938 else begin col(10,7);RS(118);DEAD;end end;
\r
939 2:if Md=1 then RS(230)else
\r
940 if random(2)=1 then begin Prm:=58;RL(563)end else begin RS(100);DEAD;end;
\r
941 3:begin move(56);if 11 in Inv then begin RS(102);DEAD;end end;
\r
942 4:if Md=1 then RS(231)else begin RS(99);DEAD;end;
\r
943 39:if(11 in NounSet)then begin RS(101);SFlag:=false;end
\r
944 else if(30 in Nounset)and(11 in L[55])then R[11]:=55;
\r
950 overlay procedure Room12; { Inside Pyramid (Bottom Level) }
\r
953 56:case Vb of { The Erusaert }
\r
954 2,11:if en(36) then begin Score(5,88);move(57)end;
\r
955 4,13:if T[17]>4 then begin RS(108);DEAD;end else move(55);
\r
957 1:if not en(35) then RL(292);
\r
958 34:if 1 in L[56]then RL(291)
\r
959 else if not en(35)then begin RS(103);L[56]:=L[56]+[1]end;
\r
966 26:if N1 in[49,68] then RL(295);
\r
967 39:if 1 in NounSet then
\r
969 if not en(35)then RL(300) else
\r
971 begin RS(113);T[17]:=3;Van(1);Inv:=Inv+[1];Score(50,87)end
\r
973 else if(30 in NounSet)then RL(578);
\r
974 37:if not(1 in NounSet)and(not en(35))then RL(300);
\r
975 35,51,62:if N1=68 then begin RS(106);DEAD;end;
\r
976 59:begin RS(107);DEAD;end;
\r
977 41,88:if N1 in[68,110] then
\r
980 if here(16)and en(37)then
\r
981 begin RS(117);T[17]:=6;L[56]:=L[56]+[1,56];Add(35);Min(37)end
\r
982 else begin RS(111);DEAD;end
\r
987 if Pr in[1,10] then
\r
988 if N2 in[49,1] then
\r
989 begin Van(16);Add(37);R[16]:=56;
\r
991 if Pr=1 then RL(297)else RL(298)
\r
995 if(N2=34)and(Pr=10)then
\r
996 begin writeln('Done.');Van(16);SF;R[16]:=56;end
\r
997 else if N2=68 then RL(299)
\r
1000 if N2 in[68,110] then
\r
1001 if Pr=1 then RL(299) else
\r
1005 if here(16)and en(37)then
\r
1006 begin RS(117);T[17]:=6;L[56]:=L[56]+[1];Add(35);Min(37)end
\r
1007 else begin RS(111);DEAD;end
\r
1010 54,75,76:case N1 of
\r
1011 1:if 1 in L[56] then RL(300);
\r
1019 overlay procedure Room13; { Inside Pyramid (Bottom Level) }
\r
1022 57:case Vb of { Solar Chamber }
\r
1024 28:case N1 of 56:RL(370);72,82,116:RS(149);109:RS(150)end;
\r
1025 44,75:if N1=103 then begin Prm:=58;RS(233);Walls(5);Static end;
\r
1028 58:case Vb of { Eternal Trap }
\r
1033 59:case Vb of { Overgrown Path }
\r
1034 5:begin RC:=RC-1;if RC<1 then begin RL(309);move(29)end else RL(310)end;
\r
1035 8:begin RC:=RC+1;if RC>7 then begin RL(309);move(60)end else RL(310)end;
\r
1037 9,51:if N1=112 then RL(204);
\r
1040 60:case Vb of { Antenna Building (Outside) }
\r
1041 4,11:begin Door(61,25);
\r
1042 if not en(43)then begin RS(137);Score(10,43)end end;
\r
1045 28:case N1 of 96:RL(323);115:RL(324)end;
\r
1046 41..44,54,75,88:if N1=56 then RL(315);
\r
1047 9,51:if N1=112 then RL(204)else RL(316);
\r
1050 61:case Vb of { Monitor Outpost }
\r
1053 28,24,31:case N1 of 37,59:RS(133);38,44:RL(322);93:RL(319);
\r
1055 42,44,75:if N1 in[37,38,44] then RL(318);
\r
1058 62:case Vb of { Booth (Jungle Planet) }
\r
1064 for y:=60 downto 1 do for x:=800 downto 1 do sound(x*y);
\r
1065 nosound;TFlag:=3;Brief:=Brief-[70];Score(10,89);
\r
1066 for x:=1 to MMax do if R[x]=62 then R[x]:=70;move(70)
\r
1069 28,24,31:case N1 of 37,59:RS(133);38:RL(322);93:RL(319);
\r
1070 94:RS(134);44:RL(320);end;
\r
1073 63:case Vb of { Booth (Ringed Planet) }
\r
1075 42,44,75:case N1 of
\r
1078 for y:=60 downto 1 do for x:=800 downto 1 do sound(x*y);
\r
1079 nosound;TFlag:=3;Brief:=Brief-[70];
\r
1080 for x:=1 to MMax do if R[x]=63 then R[x]:=70;move(70)
\r
1083 28,24,31:case N1 of 37,59:RS(133);38:RL(322);93:RL(319);
\r
1084 94:RS(134);44:RL(320);end;
\r
1085 39:if(30 in NounSet)and(20 in L[63])then R[20]:=63;
\r
1091 overlay procedure Room14; { Inner Planet }
\r
1094 64:case Vb of { Lobby }
\r
1095 1,13:begin DOpen(99);RS(139);DEAD;end;
\r
1097 28:case N1 of 35:RL(330);49,122:RL(334);72,116:begin Score(5,90);RS(148)end;
\r
1098 81:RB(5,11);86:RL(333);127:RL(351)end;
\r
1099 31:if N1=81 then RB(5,11);
\r
1100 20,24:if N1=127 then RS(142);
\r
1101 54:if N1=127 then if Md=3 then begin RL(537);DEAD;end else RL(538);
\r
1104 65:case Vb of { North Corridor }
\r
1108 28:if N1=56 then RL(92);
\r
1111 66:case Vb of { Central Corridor }
\r
1114 3:if T[20]>1 then begin Score(15,91);move(73)end else RL(92);
\r
1116 28:case N1 of 56:if T[20]>1 then RL(370)else RL(92);64:RL(335)end;
\r
1120 begin RL(336);T[20]:=3;DOpen(20);Score(5,92)end
\r
1124 67:case Vb of { South Corridor }
\r
1130 71:case Vb of { Monitor Station }
\r
1132 28:case N1 of 59:if CodeSet=4 then RL(353)else RL(355);116:RL(354)end;
\r
1134 if CodeSet=4 then begin RB2(11,14);Pause;end else RL(355);
\r
1137 72:case Vb of { Reactor Control }
\r
1139 28,24:case N1 of 128:RL(560);
\r
1140 37,38:RL(339);46:if Md<>Null then begin Score(5,93);RL(343)end
\r
1143 if RobotCon<>Null then
\r
1144 writeln('The robot''s panel contains a ',FN(RobotCon),'.')
\r
1151 if RobotCon=Null then
\r
1152 if N1 in[3,4,8,12,17]then
\r
1153 begin Van(N1);RL(347);R[N1]:=72;RobotCon:=N1;end
\r
1157 41:if N1 in[55,46] then
\r
1158 if RobotCon=Null then RL(558)else
\r
1159 begin R[RobotCon]:=72;Add(46);Score(25,94);
\r
1160 writeln('The panel slides open, revealing a ',FN(RobotCon),' inside.')
\r
1162 53:if N1=55 then begin Van(RobotCon);Min(46);RL(344)end;
\r
1164 37,38,44:begin RL(340);Walls(9);gotoxy(43,wherey-1);col(28,31);
\r
1165 writeln('BOOM!');Explode(32);DEAD;end;
\r
1166 46:if(VStr='turn on')or(VStr='activat')or
\r
1167 (VStr='turn off')then RL(341)
\r
1168 else if(not en(94))and(not en(93))then begin RL(342);RL(559)end
\r
1176 overlay procedure Room15; { Inner Planet }
\r
1179 68:case Vb of { Decontamination }
\r
1180 3,13:if en(45)then Door(65,20) else RL(331);
\r
1182 28,24:case N1 of 131:RL(329);end;
\r
1183 42,44,75:if N1=44 then begin RL(332);Add(45);play(20,99,7);play(99,99,600);
\r
1184 play(99,20,7);Score(10,95)end;
\r
1187 69:case Vb of { Waiting Room }
\r
1190 28,24:case N1 of 35:RL(330);131:RL(329);end;
\r
1193 70:case Vb of { Transporter Booth }
\r
1195 28,24:case N1 of 44:RS(140);93:RL(319);94:RS(141);end;
\r
1197 if N1 in[40..43]then
\r
1198 begin Brief:=Brief-[62,63,78];RS(138);Min(45);
\r
1199 for y:=60 downto 1 do for x:=800 downto 1 do sound(x*y);nosound;
\r
1201 40:begin for x:=1 to MMax do if R[x]=70 then R[x]:=78;
\r
1202 TFlag:=4;move(78);Score(15,97)end;
\r
1203 41:begin for x:=1 to MMax do if R[x]=70 then R[x]:=62;
\r
1204 TFlag:=2;move(62)end;
\r
1205 43:begin for x:=1 to MMax do if R[x]=70 then R[x]:=63;
\r
1206 TFlag:=2;move(63);Score(10,96)end
\r
1211 { 71 and 72 are in Room14 }
\r
1216 overlay procedure Room16; { Inner Planet }
\r
1219 73:case Vb of { Communications }
\r
1223 48:begin RL(366);writeln('The dial is set at number ',CodeSet,'.')end;
\r
1224 115:RL(350);121:RL(367);127:RL(351)
\r
1228 if(code>0)and(code<11)then
\r
1229 begin RL(363);CodeSet:=Code;if Code=4 then Score(10,98)end
\r
1234 74:case Vb of { Computer Station }
\r
1236 28:case N1 of 37:RL(349);38:RL(322);52:RL(37);
\r
1237 59:begin RB2(7,10);col(26,23);RL(364);Score(5,47)end end;
\r
1238 31:if N1=59 then begin RB2(7,10);col(26,23);RL(364);Add(47)end;
\r
1241 75:case Vb of { Elevator 1st Floor }
\r
1243 42,44,75:begin RS(143);play(20,42,20);sound(42);delay(5500);RL(338);
\r
1244 play(42,20,20);Prm:=76;for x:=1 to MMax do if R[x]=75 then R[x]:=76;end;
\r
1247 76:case Vb of { Elevator 2nd Floor }
\r
1248 1:begin Score(5,99);Door(77,5)end;
\r
1249 42,44,75:begin RS(144);play(20,42,20);sound(42);delay(5500);RL(338);
\r
1250 play(42,20,20);Prm:=75;for x:=1 to MMax do if R[x]=76 then R[x]:=75;end;
\r
1253 77:case Vb of { Observatory }
\r
1255 28:case N1 of 34:RL(562);104:if Nstr='eyepiec' then RL(561)else RS(146)end;
\r
1257 if 20 in Wear then begin Score(5,100);RS(147)end
\r
1258 else begin RL(368);RL(369)end;
\r
1264 overlay procedure Room17; { Planetship }
\r
1267 78:case Vb of { Icy Platform }
\r
1270 54:RL(379);93:RL(380);96:RL(381);103:RL(500);115:RL(350);118:RL(382)
\r
1272 59:if N1=54 then begin RL(400);DEAD;end;
\r
1275 79:case Vb of { Confirmation Port }
\r
1277 28:case N1 of 44:RL(383);64:RL(384);116:RL(600)end;
\r
1278 44,75:if N1=44 then begin RS(156);Score(10,50);
\r
1279 play(20,99,7);play(99,99,600);play(99,20,7)end;
\r
1283 begin Explode(1);sound(50);RS(151);
\r
1284 for i:=9000 downto 1 do
\r
1285 for j:=1 to 4 do sound(random(i div 2 + 400)+i);nosound;
\r
1286 Van(17);L[80]:=L[80]+[17];move(80);Add(7);T[22]:=3;T[26]:=91;
\r
1287 delay(900);sound(70);RL(399);delay(999);nosound;Score(25,101);
\r
1288 n[40]:='sockets\socket\';
\r
1289 n[82]:='laser beam\laser\beam\';
\r
1290 n[110]:='speaker\';
\r
1295 80:case Vb of { Inspection Lobby }
\r
1298 28:case N1 of 55:RL(385);86:if 17 in L[80]then RL(395);72,116:RS(148)end;
\r
1299 41..44,88,53:if N1=55 then RL(405);
\r
1305 overlay procedure Room18; { Planetship }
\r
1308 81:case Vb of { Circular Corridor }
\r
1312 28:case N1 of 72:RL(386)end;
\r
1315 82:case Vb of { Circular Corridor }
\r
1320 28:case N1 of 72,103:RL(387)end;
\r
1323 83:case Vb of { Circular Corridor }
\r
1327 28:case N1 of 72,115:RL(388)end;
\r
1330 93:case Vb of { Central Elevator }
\r
1331 3,11,13:case Floor of
\r
1333 2..5,30..40,89..95,170..230,333..444,543..600,793..812:RL(413);
\r
1335 begin door(98,5);delay(999);RS(217);Score(20,102);
\r
1336 for x:=1 to 7 do begin i:=random(7000)+1500;j:=random(600)+400;
\r
1340 else begin door(97,5);Score(5,103)end
\r
1342 28:if N1 in[44,52] then RS(188);
\r
1343 56:begin val(input,i,testc);
\r
1345 if(i>0)and(i<837)then
\r
1347 begin j:=i;i:=abs(floor-i);Floor:=j;RL(411);play(20,36,35);
\r
1348 sound(37);for x:=1 to 200 do delay(i div 4);
\r
1349 RL(412);play(36,20,35);
\r
1357 95:case Vb of { Transmission Room }
\r
1359 28:if N1 in[38,121]then RS(191);
\r
1360 42,44,75:if N1=44 then begin Score(5,104);RL(404);play(1200,1200,99);
\r
1361 if en(48)then Min(48)else Add(48)end;
\r
1364 96:case Vb of { Station Control }
\r
1366 28:case N1 of 38:RS(192);59:begin Score(5,105);RB2(11,5);Pause;end end;
\r
1367 31:if N1=59 then begin Score(5,105);RB2(11,5);Pause;end;
\r
1373 overlay procedure Room19; { Planetship }
\r
1376 84:case Vb of { Circular Corridor }
\r
1380 28:case N1 of 72,46:RL(389)end;
\r
1383 85:case Vb of { Circular Corridor }
\r
1387 28:case N1 of 72:RL(390)end;
\r
1390 86:case Vb of { Circular Corridor }
\r
1392 4,11:if T[21]>1 then begin Score(15,107);move(91);
\r
1393 if en(52)then T[23]:=2;end else RL(92);
\r
1395 28:case N1 of 56:if T[21]>1 then RL(370);64:RL(335);72,69:RL(391)end;
\r
1399 begin RL(336);T[21]:=3;DOpen(15);Score(5,106)end
\r
1403 87:case Vb of { Circular Corridor }
\r
1407 28:case N1 of 72:RL(392)end;
\r
1410 88:case Vb of { Circular Corridor }
\r
1414 28:case N1 of 72:RL(392)end;
\r
1417 89:case Vb of { Reactors West }
\r
1420 28:case N1 of 38:RL(414);59:RL(401);128:RS(189)end;
\r
1423 1:RB2(8,6); { Orange Crystal }
\r
1424 2:RB2(10,10); { Green Crystal }
\r
1425 3:RB2(12,14); { Yellow Crystal }
\r
1426 4:begin RB2(14,9); { Blue Crystal (Cracked) }
\r
1427 x:=wherex;y:=wherey;gotoxy(40,14);col(25,23);write('LACITIRC');
\r
1428 gotoxy(x,y);Score(20,108)
\r
1431 44,75:if N1=44 then
\r
1432 begin RL(402);ScrnSet:=ScrnSet+1;if ScrnSet>4 then ScrnSet:=1;
\r
1434 begin i:=random(7000)+999;play(i,i,50);delay(random(15)+5)end
\r
1436 if N1 in[38,128]then RL(403);
\r
1437 42,75:if N1 in[38,128]then RL(403);
\r
1443 overlay procedure Room20; { Planetship }
\r
1446 90:case Vb of { Reactors East }
\r
1449 28:case N1 of 38:RL(393);59:RL(402);128:RS(190)end;
\r
1450 31:if N1=59 then begin Score(5,109);RB2(9,random(14)+1)end;
\r
1451 42,44,75:if N1 in[38,128]then RL(403);
\r
1454 91:case Vb of { Emergency Override }
\r
1455 3,13:begin if T[25]>2 then
\r
1456 begin Col(10,7);RL(424);T[25]:=Null;T[24]:=Null;T[26]:=14;Add(52)end;
\r
1458 if(T[24]>0)and not en(64)then begin T[24]:=Null;T[26]:=14;Add(52)end
\r
1461 28:case N1 of 37,38,51:RL(393);44:RL(469);59:RL(468);64:RL(335);
\r
1462 69:if en(51)then RL(426)else if Md=1 then RL(467)else RS(182);
\r
1464 31:if N1=59 then RL(468);
\r
1465 24:if N1=69 then if en(51)then crazy else RL(427);
\r
1466 75:if N1=69 then if en(51)then crazy else RL(428);
\r
1468 69:if en(51)then RL(426)else
\r
1469 if N2 in[0,60]then RL(601)else
\r
1470 if not(N2 in[10,18,29])then RL(602)else
\r
1471 begin RS(160);L[91]:=L[91]+[123];L[91]:=L[91]-[44,129];T[23]:=15;
\r
1474 42,44:if(N1=69)and not en(51)then RL(470)else
\r
1475 if N1=44 then begin RL(471);play(20,440,1);play(440,440,500);
\r
1476 play(440,20,1);end;
\r
1477 41,88:if N1=69 then if en(51)then crazy else RL(467);
\r
1478 39:if N1=95 then RL(442);
\r
1482 if(T[24]>1)and(T[24]<6)then
\r
1483 begin T[24]:=Null;T[25]:=7;RS(181)end
\r
1488 if N1=12 then RL(577);
\r
1491 92:case Vb of { Climate Control }
\r
1493 28,31:case N1 of 59:RS(152);end;
\r
1499 overlay procedure Room21; { Planetship }
\r
1502 94:case Vb of { Maintenance }
\r
1506 87:begin RL(490);Score(15,110);
\r
1508 begin Score(10,49);RL(396);L[94]:=L[94]+[26];end
\r
1509 else if 26 in L[94] then RL(397);
\r
1513 if(30 in NounSet)then
\r
1514 begin if 2 in L[94] then R[2]:=94;if 26 in L[94] then R[26]:=94;end;
\r
1515 if(51 in NounSet)then
\r
1516 begin RL(491);NounSet:=NounSet-[51];
\r
1517 if not(NounSet=[])then SFlag:=false end
\r
1521 97:case Vb of { Cryogenic Chamber }
\r
1522 4,11,13:door(93,5);
\r
1523 28:if N1=69 then RS(193);
\r
1524 18:begin RS(194);Van(N1)end;
\r
1527 98:case Vb of { Identity Booth }
\r
1528 2,11:begin door(99,0);
\r
1529 if T[27]>1 then begin Col(10,7);RS(208);delay(999);Blast;DEAD end
\r
1530 else begin T[27]:=2000;Col(10,7);RL(504);play(22,22,999);RS(210);
\r
1531 delay(999);Blast;RL(505)end
\r
1534 28,31:case N1 of 81,119:if NStr='message' then RL(517)else RB2(13,13);
\r
1538 99:case Vb of { Security Tunnel #1 }
\r
1540 2,11:begin Score(15,111);door(100,0)end;
\r
1542 41,88:if N1=55 then RL(509);
\r
1543 28:case N1 of 46:RS(216);55:RL(510);88:RL(511)end;
\r
1544 42,44,75:if N1=46 then begin RL(513);T[27]:=2000;Add(7)end;
\r
1545 39:if 88 in NounSet then begin RL(513);T[27]:=2000;Add(7)end;
\r
1548 100:case Vb of { Security Tunnel #2 }
\r
1549 1,13:begin door(99,0);Col(10,7);RS(208);delay(999);Blast;DEAD end;
\r
1550 2,11:begin door(101,0);
\r
1551 if T[28]>1 then begin Col(10,7);RS(209);delay(999);Blast;DEAD end
\r
1552 else begin T[28]:=2000;Col(10,7);RL(504);play(22,22,999);RS(211);
\r
1553 delay(999);Blast;RS(212);PStat:=PStat+[4];T[29]:=14;end;
\r
1555 41,88:if N1=55 then RL(512);
\r
1561 overlay procedure Room22; { Planetship (Lower Level) }
\r
1564 101:case Vb of { Security Tunnel #3 }
\r
1566 2,11:begin Region:=5;door(102,0);Score(20,112);
\r
1567 if not(20 in Wear)then RL(492)end;
\r
1568 41,88:if N1=55 then RL(509);
\r
1569 28:case N1 of 46:RS(216);55:RL(510);88:RL(511)end;
\r
1570 42,44,75:if N1=46 then begin RL(513);T[28]:=2000;Add(7)end;
\r
1571 39:if 88 in NounSet then begin RL(513);T[28]:=2000;Add(7)end;
\r
1574 102:if(Vb in[1..14,16,20..31,33..44,48..64,73..76,83..85,88..94])and
\r
1575 not(20 in Wear)then RL(491) else
\r
1576 case Vb of { North Catwalk }
\r
1577 1,11,13:begin Region:=Null;Door(101,0);Col(10,7);RS(209);delay(999);
\r
1581 24,25,28:case N1 of 34,49:RL(493);
\r
1582 131:if NStr='catwalk' then RL(494)else begin RS(195);RS(196)end end;
\r
1583 75,76:if N1=42 then RL(495);
\r
1584 51,59:if N1 in[42,54,131]then begin RL(496);DEAD;end;
\r
1587 103:if(Vb in[1..14,16,20..31,33..44,48..64,73..76,83..85,88..94])and
\r
1588 not(20 in Wear)then RL(491) else
\r
1589 case Vb of { East Catwalk }
\r
1592 24,25,28:case N1 of 34,49:RL(493);
\r
1593 131:if NStr='catwalk' then RL(494)else begin RS(195);RS(196)end end;
\r
1594 75,76:if N1=42 then RL(495);
\r
1595 51,59:if N1 in[42,54,131]then begin RL(496);DEAD;end;
\r
1598 104:if(Vb in[1..14,16,20..31,33..44,48..64,73..76,83..85,88..94])and
\r
1599 not(20 in Wear)then RL(491) else
\r
1600 case Vb of { South Catwalk }
\r
1601 2,13:begin Region:=Null;Door(106,5);Score(20,113)end;
\r
1604 24,25,28:case N1 of 34,49:RL(493);
\r
1605 131:if NStr='catwalk' then RL(494)else begin RS(195);RS(196)end end;
\r
1606 75,76:if N1=42 then RL(495);
\r
1607 51,59:if N1 in[42,54,131]then begin RL(496);DEAD;end;
\r
1610 105:if(Vb in[1..14,16,20..31,33..44,48..64,73..76,83..85,88..94])and
\r
1611 not(20 in Wear)then RL(491) else
\r
1612 case Vb of { West Catwalk }
\r
1615 24,25,28:case N1 of 34,49:RL(493);
\r
1616 131:if NStr='catwalk' then RL(494)else begin RS(195);RS(196)end end;
\r
1617 75,76:if N1=42 then RL(495);
\r
1618 51,59:if N1 in[42,54,131]then begin RL(496);DEAD;end;
\r
1624 overlay procedure Room23; { Planetship (Lower Level) }
\r
1628 106:case Vb of { Junction }
\r
1629 1:begin Region:=5;Door(104,5);if not(20 in Wear)then RL(492)end;
\r
1632 4,11,13:door(107,20);
\r
1633 41..44,88:if N1=56 then RL(532);
\r
1636 107:case Vb of { Conference Room }
\r
1637 3,13:door(106,20);
\r
1638 39:if(30 in NounSet)and(19 in L[107])then R[19]:=107;
\r
1641 108:case Vb of { Reactor Regulators }
\r
1645 begin Add(65);L[108]:=L[108]+[40];Score(5,114);
\r
1646 for x:=22 to 25 do R[x]:=108;RL(519);RL(520);
\r
1649 53:if en(65)then RL(522)else RL(523);
\r
1650 28,24:case N1 of 55:if en(65)then goto JUMP else RL(523);
\r
1653 for x:=1 to 25 do if x in Socket then
\r
1654 if x=22 then writeln(' An ',FN(x),' is in one of the sockets.')
\r
1655 else writeln(' A ',FN(x),' is in one of the sockets.')
\r
1658 33:if(N2 in[40,55])and en(65)then
\r
1659 begin i:=0;for x:=1 to 25 do if x in Socket then i:=i+1;
\r
1662 if N1 in[1,22..25]then
\r
1664 writeln('The ',FN(N1),' fits perfectly in an open socket.');
\r
1665 Van(N1);Socket:=Socket+[N1];R[N1]:=108;
\r
1666 i:=0;for x:=1 to 25 do if x in Socket then i:=i+1;
\r
1667 if(i>3)and(1 in Socket) and not(25 in Socket)then
\r
1668 begin { #### You have won the game!!!!! #### }
\r
1669 Col(10,7);delay(999);Static;Static;RS(221);Static;Static;
\r
1670 delay(999);explode(1);sound(20);RS(222);delay(999);RS(223);
\r
1671 Pause;Bor(0,0);writeln;Score(55,115);
\r
1672 Add(66);Prm:=109;PStat:=[];PlayerInput(Line);
\r
1673 Col(10,15);for x:=224 to 229 do RS(x);
\r
1674 writeln;writeln;Pause;writeln;
\r
1675 WON; { <<<----- END OF GAME !!! *************}
\r
1678 else writeln('The ',FN(N1),' won''t fit in any of the sockets.')
\r
1679 else writeln('First you must have the ',FN(N1),'.')
\r
1687 {**************************** END OF ROOM ROUTINES **************************}
\r
1690 {$Ia:DEFAULT.pas <<<<<------ LOADS IN DEFAULT ROUTINES *******************}
\r
1693 BEGIN { Main Program }
\r
1694 Assign1;Assign2;Assign3;Assign4;Assign5;
\r
1695 Names1;Names2;Names3;
\r
1697 Init1;Init2;Init3;
\r
1703 PlayerInput(LINE);
\r
1704 if length(input)>0 then Parser_Syntax(input);
\r
1705 if EFlag=Legal then
\r
1710 begin RL(11);Time1;
\r
1711 case TFlag of 1:Time2A;2:Time2B;3:Time2C;4:Time2D;end end
\r
1713 begin SFlag:=false; if(Vb=71)and(Prm=55)and not en(35)then Vb:=1;
\r
1728 64..67,71,72 :Room14;
\r
1732 81..83,93,95,96 :Room18;
\r
1735 94,97..100 :Room21;
\r
1738 end; { Room Defaults }
\r
1741 1..8,30,82,87 :Default0;
\r
1742 16,17,18 :Default1;
\r
1743 9..15,32,35,51,77,79,62 :Default2;
\r
1747 66..69,71 :Default6;
\r
1748 31,65,75,80,81,83,84,93,95 :Default7;
\r
1749 41,50,88 :Default8;
\r
1750 20,22,24,26,70,76 :Default9;
\r
1752 42,44,73,86,89,90,94 :Default11;
\r
1754 19,53,56,72,74,78,91 :Default13;
\r
1755 21,25,49,59,92 :Default14
\r
1757 if en(128)then DEAD;Min(128);
\r
1758 if not(Vb in[77..79,82,86,87,95])then
\r
1759 begin Time1;case TFlag of 1:Time2A;2:Time2B;3:Time2C;4:Time2D;end end;
\r
1764 END. { ADGAME2 (Supernova) }
\r