1 /*MONDAY GAME A4 optimized via ROPT by MIKEL@UWF on
22 Feb
1987 at
16:47:13*/;
14 WHEN R
= 1 THEN CALL ROOM1
;
15 WHEN R
= 2 THEN CALL ROOM2
;
16 WHEN R
= 3 THEN CALL ROOM3
;
17 WHEN R
= 4 THEN CALL ROOM4
;
18 WHEN R
= 5 THEN CALL ROOM5
;
19 WHEN R
= 6 THEN CALL ROOM6
;
20 WHEN R
= 7 THEN CALL ROOM7
;
21 WHEN R
= 8 THEN CALL ROOM8
;
22 WHEN R
= 9 THEN CALL ROOM9
;
23 WHEN R
= 10 THEN CALL ROOM10
;
24 WHEN R
= 11 THEN CALL ROOM11
;
25 WHEN R
= 12 THEN CALL ROOM12
;
26 WHEN R
= 13 THEN CALL ROOM13
;
27 WHEN R
= 14 THEN CALL ROOM14
;
28 WHEN R
= 15 THEN CALL ROOM15
;
29 WHEN R
= 16 THEN CALL ROOM16
;
30 WHEN R
= 17 THEN CALL ROOM17
;
31 WHEN R
= 18 THEN CALL ROOM18
;
32 WHEN R
= 19 THEN CALL ROOM19
;
33 WHEN R
= 20 THEN CALL ROOM20
;
34 WHEN R
= 21 THEN CALL ROOM21
;
35 WHEN R
= 22 THEN CALL ROOM22
;
36 WHEN R
= 23 THEN CALL ROOM23
;
37 OTHERWISE CALL END_ROOM
;
48 TIMES
= OVERLAY(HOUR
,TIMES
,1,1);
49 IF MINUTES
>9 THEN TIMES
= OVERLAY(MINUTES
,TIMES
,3,2);
51 IF MINUTES
<10 THEN TIMES
= OVERLAY(MINUTES
,TIMES
,4,1);
52 say
left(LOC
.R
,30) copies(' ',24)'Time: 'TIMES
' pm';
58 IF R
>0 & R
<7 then FLG
=1;
62 IF R
>15 & R
<21 THEN FLG
=1;
63 IF FLG
=1 THEN OBJECT
.21.2=R
;
64 DO I
= 1 to TOT_NOUNS
;
65 If OBJECT
.I
.2 = R THEN SEE
= SEE
||OBJECT
.I
.1||' ';
67 IF SEE
= '' THEN SEE
= 'Nothing of Interest';
68 Say
'You can see: 'SEE
;
73 PARSE UPPER VAR EXIT
.R NOR SOU EAS WES
;
74 IF NOR
= 'N' THEN GO
= GO
||'NORTH ';
75 IF SOU
= 'S' THEN GO
= GO
||'SOUTH ';
76 IF EAS
= 'E' THEN GO
= GO
||'EAST ';
77 IF WES
= 'W' THEN GO
= GO
||'WEST';
78 IF GO
='' THEN GO
='???';
79 SAY
'Obvious exits: 'GO
;
90 SAY
'WELCOME TO' HI
'THE MONDAY ADVENTURE'LO
' ( NOVICE LEVEL )';
91 SAY
'(C)OPYRIGHT 1986 / 1987 BY: MIKEL F. RICE (MIKEL @ UWF)';
92 SAY
'Dedicated to: Tanya E. Bortels';
95 if rnd
= 1 then command
= 'What next?';
96 if rnd
= 2 then command
= 'What will you do?';
97 if rnd
= 3 then command
= 'Now what?';
98 if rnd
= 4 then command
= 'Your request?';
99 if rnd
= 5 then command
= 'What do you want to do?';
100 if rnd
= 6 then command
= 'What will you try now?';
106 If instruct
= 'I' then instruct
= 'INV';
107 parse var instruct verbin nounin
;
108 verb
= left(verbin
,3);
109 noun
= left(nounin
,3);
110 If verb
= 'LOO' & noun
= '' then SIGNAL START
;
111 IF (VERB
='NOR' | VERB
='SOU') | (VERB
='EAS' | VERB
='WES');
114 If (VERB
= 'N' | VERB
= 'S') | (VERB
= 'E' | VERB
= 'W') THEN SIGNAL GO
;
116 IF VERB
= 'U' | VERB
= 'D' THEN SIGNAL GO
;
118 when VERB
= 'QUI' then SIGNAL QUIT
;
119 when VERB
= 'INV' then CALL INVENTORY
;
120 when VERB
= 'HEL' then CALL HELP
;
121 when VERB
= 'VER' THEN CALL VERBS
;
122 when VERB
= 'DIG' then CALL DIG
;
123 WHEN VERB
= 'PAU' THEN PAUSE
= NOUN
;
126 If flag
= 0 then signal delay
;
127 If
length(instruct
) < 4;
129 Say
"WHAT??? I don't understand that.";
134 SAY
'That verb requires a NOUN.';
137 If verb
= 'ENT' THEN VERB
= 'GO ';
138 If verb
= 'TAK' THEN VERB
= 'GET';
139 If verb
= 'EXA' THEN VERB
= 'LOO';
140 If verb
= 'SMA' THEN VERB
= 'BRE';
141 If verb
= 'BUI' THEN VERB
= 'MAK';
142 If verb
= 'CAR' THEN VERB
= 'CUT';
143 If verb
= 'PUM' THEN VERB
= 'INF';
144 If verb
= 'PUS' THEN VERB
= 'MOV';
145 If verb
= 'ROW' THEN VERB
= 'PAD';
146 If verb
= 'STA' THEN VERB
= 'KIL';
151 SAY
"I don't understand that VERB!";
158 SAY
"I don't understand that NOUN!";
164 WHEN V
= 1 THEN SIGNAL GO
;
165 WHEN V
= 2 then CALL GET
;
166 WHEN V
= 3 THEN CALL LOOK
;
167 WHEN V
= 4 THEN CALL DROP
;
168 WHEN V
= 5 THEN CALL OPENV
;
169 WHEN V
= 6 THEN CALL READV
;
170 WHEN V
= 7 THEN CALL UNLOCK
;
171 WHEN V
= 8 THEN CALL MOVE
;
172 WHEN V
= 9 THEN CALL CLIMB
;
173 WHEN V
= 10 THEN CALL BREAK
;
174 WHEN V
= 11 THEN CALL MAKE
;
175 WHEN V
= 12 THEN CALL DIG
;
176 WHEN V
= 14 THEN CALL CUT
;
177 WHEN V
= 15 THEN CALL PADDLE
;
178 WHEN V
= 16 THEN CALL INFLATE
;
179 WHEN V
= 17 THEN SAY
"This is a non-violent adventure!!";
184 call CP
'SLEEP' PAUSE
'SEC';
187 MINUTES
= MINUTES
+ 1;
193 IF HOUR
= 4 & MINUTES
>= 30 THEN SIGNAL END_ROOM
;
194 IF HOUR
=4 & MINUTES
=20 then Say
'You feel very weak...Watch the time.';
195 IF HOUR
=4 & MINUTES
=10 then Say
'You feel very hungry!';
196 IF HOUR
=4 & MINUTES
>26 then Say
'Gasp...pant...cough!';
201 DO I
= 1 to TOT_NOUNS
;
202 IF OBJECT
.I
.2 = 50 THEN ITEM
= ITEM
||OBJECT
.I
.1' ';
204 IF ITEM
= '' THEN ITEM
= 'NOTHING!';
205 SAY
'You are carrying: 'ITEM
;
208 IF R
=6 THEN SAY
'Try examining things...';
210 IF R
=9 THEN SAY
"If at first you don't succeed...";
212 IF R
=12 THEN SAY
'I once carved my name in a tree stump!';
214 If R
=14 THEN SAY
'Look a tree!';
216 IF R
=21 THEN SAY
'LOOK at the rope!';
221 WHEN RND
=1 THEN SAY
"CAN'T YOU DO ANYTHING ON YOUR OWN?";
222 WHEN RND
=2 THEN SAY
"I'M AS CONFUSED AS YOU ARE!";
223 WHEN RND
=3 THEN SAY
"TRY EXAMINING THINGS...";
224 WHEN RND
=4 THEN SAY
"WHO IS PLAYING THIS GAME, ME OR YOU?";
225 WHEN RND
=5 THEN SAY
"NOT NOW I'M BUSY!";
226 OTHERWISE SAY
"TYPE 'VERBS' FOR MORE HELP!";
235 WHEN ((NOUN
="SHE" | NOUN
="DOO") & (OPENED
=1 & R
=19)) THEN R
=22;
236 WHEN ((NOUN
="SHE" | NOUN
="DOO") & (OPENED
=0 & R
=19)) THEN CALL DOOR
;
237 WHEN R
=22 & (VB
='E' | NN
='E') THEN R
=19;
238 WHEN R
=23 & (VB
='W' | NN
='W') THEN R
=19;
239 WHEN NOUN
="RAF" THEN CALL INRAFT
;
240 WHEN NOR
='N' & (VB
='N' | NN
='N') THEN R
= R
+ 1;
241 WHEN SOU
='S' & (VB
='S' | NN
='S') THEN R
= R
- 1;
242 WHEN EAS
='E' & (VB
='E' | NN
='E') THEN R
= R
+ 5;
243 WHEN WES
='W' & (VB
='W' | NN
='W') THEN R
= R
- 5;
246 IF (VB
='D' | VB
='U') | (NN
='D' | NN
='U') THEN
;
248 SAY
'TRY CLIMB instead...';
253 SAY
'There is no way to go in that direction!';
261 IF OPENED
=0 & UNLOCKED
=0 THEN
;
263 SAY
'The door is locked!';
266 IF OPENED
=0 & UNLOCKED
=1 THEn
;
268 SAY
'The shed door is closed!';
270 call CP
'SLEEP' PAUSE
'SEC';
273 IF N
=21 THEN OBJECT
.N
.2 = R
;
274 If N
>16 & n
<21 THEN SAY OBJECT
.N
.3;
276 IF OBJECT
.N
.2 ^
= R
& Object
.n
.2 ^
= 50;
277 THEN SAY
"I don't see the "OBJECT
.N
.1" here now...";
282 DO I
= 1 to TOT_NOUNS
;
283 If OBJECT
.I
.2 = 50 then COUNT
= COUNT
+ 1;
289 WHEN RND
=1 THEN SAY
"You can't carry anymore. Try 'INVENTORY'";
290 WHEN RND
=2 THEN SAY
'You are carrying too much stuff. Try "INVENTORY"';
291 WHEN RND
=3 THEN SAY
'You have too much. Try "INVENTORY"';
296 If OBJECT
.N
.2 =50 THEN SAY
"You're already carrying that!";
298 If OBJECT
.N
.2 ^
=R THEN SAY
"I don't see "OBJECT
.N
.1" here.";
299 If OBJECT
.N
.2 = R THEN
;
302 WHEN N
=3 THEN Say
'It is too heavy to lift, maybe you can move it.';
303 WHEN N
=4 THEN Say
"Don't be stupid!";
304 WHEN N
=8 THEN Say
'It is tied to the tree with a strong knot.';
305 WHEN N
=12 THEN Say
'It is cemented to the ground.';
306 WHEN N
=13 THEN Say
'It is hinged to the shed.';
307 WHEN N
=14 THEN Say
"Don't be silly!";
308 WHEN N
=15 & RAFT
=1 then say
"You can't carry the raft if it's inflated";
309 WHEN n
=21 THEN SAY
'Leave the sand alone...';
312 SAY
'Okay! You now have the 'OBJECT
.N
.1;
317 If OBJECT
.N
.2 ^
= 50 THEN SAY
"You aren't holding that.";
320 SAY
'Okay! 'OBJECT
.n
.1' has been dropped!.';
326 IF N
=1 & OBJECT
.N
.2=50 & OBJECT
.2.2=0 then
;
328 SAY
'Hey! You found something!';
329 OBJECT
.1.3= "It's just an empty bottle";
334 If N
=1 & OBJECT
.N
.2^
=50 then
;
336 Say
"You don't have that item!";
340 IF N
=1 & OBJECT
.2.2>0 THEN
;
342 SAY
'It is already open!';
345 If N
=10 & OBJECT
.N
.2=50 THEN
;
347 SAY
'Hey! You found something!';
354 Say
"You don't have that item!";
357 IF R^
=19 THEN FLG
=FLG
;
359 If (N
=12 | N
=13) & (UNLOCKED
=1 & OPENED
=0) THEN
;
361 Say
'The door to the shed is now open!';
366 IF (N
=12 | N
=13) & UNLOCKED
=0 THEN
;
368 SAY
'The door to the shed is locked!';
371 If FLG
=0 THEN SAY
"I must be stupid, but I can't open that!";
375 IF N
=2 & OBJECT
.N
.2=50 then
;
377 Say
'Hello there. I just want to take this time (1 turn) to wish you';
378 Say
'good luck! For some extra help type "VERBS"... Mikel Rice!';
380 call CP
'SLEEP 3 SEC';
383 If N
=2 & OBJECT
.2.2^
=50 THEN
;
385 SAY
"You don't have that!";
390 SAY
'The label has washed off...';
393 If N
=4 & OBJECT
.N
.2=R THEN
;
395 SAY
'Carved on the stump: The key lies under the field of flowers!';
399 If N
=4 & FLG
=0 THEN SAY
"I don't see a stump here...";
400 If N
=10 & (OBJECT
.N
.2=50 | OBJECT
.N
.2=R
) THEN
;
402 SAY
'It top reads: ACME Hardware Co.';
406 IF N^
=22 & FLG
=0 THEN SAY
'How can you read that?';
408 IF FLG
=0 THEN CALL MAP
;
411 IF R^
=19 THEN SAY
"I don't see a shed here!";
413 If (N
=12 | N
=13) & UNLOCKED
=1 THEN SAY
'The shed is already unlocked!';
415 If (N
=12 | N
=13) & OBJECT
.6.2^
=50 THEN SAY
"You don't have the key!";
417 If (N
=12 | N
=13) & (UNLOCKED
=0 & OBJECT
.6.2=50) THEN
;
419 Say
"The key fits. You turn it and unlock the door to the shed.";
422 ELSE SAY
"I must be stupid, but I Can't unlock that!";
426 If (N
=4 | N
=12) | (N
=13 | N
=14) THEN
;
428 SAY
'Only in your dreams...';
431 IF (N
=3 & R
=7) & KNIFE
=0 THEN
;
433 SAY
'Hey! You found something!';
438 IF OBJECT
.N
.2^
=R THEN
;
440 Say
"I don't see that here.";
443 If FLG
=0 then say
"Okay but nothing happened!";
448 Say
'Ugh...That was hard work....';
452 IF R
=21 & (N
=8 | N
=14) THEN
;
454 SAY
'PANT...That was tough....';
457 ELSE SAY
'Why do you want to climb that?';
460 IF N
=1 & OBJECT
.N
.2=50 & OBJECT
.2.2=0 then
;
462 SAY
'Hey! You found something!';
467 IF N
=1 & OBJECT
.N
.2^
=50 tHEN SAY
"I don't have that.";
468 ELSE SAY
"Don't be so destructive!!";
471 If N^
=16 THEN SAY
"I must be stupid, but I just don't understand you!";
473 If OAR
=0 & (OBJECT
.5.2=50 & OBJECT
.9.2=50) THEN
;
475 SAY
'Using the knife you make a primitive paddle from the driftwood';
481 If OAR
=0 & (OBJECT
.5.2^
=50 | OBJECT
.9.2^
=50);
482 THEN Say
"You don't have enough material to make a paddle.";
484 If OAR
=1 then Say
'you already made a paddle.';
486 IF OAR
=2 THEN SAY
"You can't make a paddle with a broken knife!!";
489 IF R^
=9 & OBJECT
.7.2=50 THEN SAY
"All all you found is dirt...";
491 IF OBJECT
.7.2^
=50 THEN SAY
"You don't have a shovel!";
495 SAY
'You dug a small hole but found nothing...';
496 SAY
'Wait! Look there is something...';
504 SAY
"Hey! You found something!";
510 IF N
=8 & OBJECT
.5.2=50 & R
=21 then Say
'If you cut the rope how will you get down?';
512 IF (N
=14 | N
=4) & (OBJECT
.5.2=50 & R
=14) THEN
;
514 Say
'The knife can cut most types of wood just not oak!';
515 SAY
'The hard oak wood busted the knife!';
525 IF n
=16 then SIGNAL MAKE
;
527 If n
=4 THEN SAY
"Aw...leave the poor tree stump alone!";
528 ELSE SAY
"Don't be so destructive!!";
531 IF R^
=23 then say
"You aren't in the raft!";
533 If OBJECT
.16.2^
=50 THEN SAY
"You don't have a paddle! Maybe you could MAKE one!";
534 ELSE SIGNAL WIN_ROOM
;
537 If N^
=15 then say
"I don't know how to inflate that!";
539 IF OBJECT
.11.2^
=50 THEN SAY
"You don't have a pump!";
541 If OBJECT
.15.2=50 then SAY
"You can't inflate it while holding it!";
543 IF (R
>6 & R
<10) | (R
>11 & R
<15) | (r
>20);
544 THEN SAY
"You must be at the beach to inflate the raft!";
546 IF RAFT
=1 then SAY
"It's already inflated!";
549 SAY
'Phfsss...phfsss...phfsss...Okay you inflated it!';
550 OBJECT
.15.1='inflated RAFT';
556 IF RAFT
=0 THEN SAY
"It isn't inflated!";
558 IF OBJECT
.15.2^
=r THEN SAY
"The raft isn't here!!!";
560 IF OBJECT
.5.2^
=50 THEN
;
567 SAY
"Oh no! The knife punctured the raft and you can't swim!!";
568 call CP
'SLEEP 3 SEC';
573 Say
'The beach is long, strecthing out of sight to the east and north. The';
574 Say
'sand is cool and wet and feels good between your toes. The blue waters';
575 Say
'of the ocean are to the south and west.';
578 SAY
'The white sand strecthes onward to the north and to the south. The sun';
579 Say
'makes the sand seem to glow. The blue ocean water is to the west and';
580 Say
'there is a clearing to the east.';
583 SAY
'More white sandy beaches that seem to go on and on. This island would';
584 Say
'be a great place to build a fancy summer resort. The ocean is to the';
585 Say
'west and to the east you see a group of trees.';
588 SAY
'The white sand is hot to your bare feet. A quick wave washes up around';
589 SAY
'your ankles then ebbs back into the sea. The sun sparkles upon the water';
590 Say
'in ever changing patterns. You can see a field to the east.';
593 Say
'The beach runs out of sight to the south and to the east. Water is to the';
594 SAY
'north and west of you. Far out on the horizon you can barely make out a';
595 Say
'ship sailing slowly through the choppy seas.';
598 Say
'On a beautiful white beach of a small deserted island. Just a few yards';
599 Say
'off shore, smashed upon some outcroping rocks, is the remains of your boat.';
600 SAY
'You notice that the sun feels really hot today.';
603 Say
'A small clearing just beyond the white beaches. The grass is growing in';
604 Say
'patches of green and brown. Overhead some sea gulls float on the tropical';
605 Say
'breezes. To the north and east you see trees and the beach is to the';
606 Say
'south and west.';
609 Say
'Standing in the woods under several tall trees. The trees filter the hot';
610 Say
'sun creating a cool shade. The ground is blanketed with a varity of colored';
611 Say
'leaves. It is very peaceful here.';
614 Say
'The grass is a lush green and the meadow is dotted with white and yellow';
615 Say
'daisies and violet snap-dragons. The air is fresh and smells sweet with';
616 Say
'the fragrance of the flowers. A gentle breeze ruffles the grasses.';
619 Say
'The beach is covered with small pebbles washed smooth by the ocean tides.';
620 Say
'The wet pebbles sparkle in the shinning sunlight. A cool breeze blows off';
621 Say
'the dark blue water. A fiddler crab darts back and forth across the sand.';
624 Say
'Sand, sand, and more sand. The beach runs on to the east and to the west.';
625 Say
'The sun is blocked out by a cloud for a short moment but it soon drifts';
626 Say
'past and once again the sun beats down upon you. You can see some trees';
627 say
'up to the north and the ocean is to the south.';
630 Say
'A small grove of trees on a slight enbankment. The beach is down to the';
631 Say
'south and to the East. The leaves on the trees are a mixture of reds and';
632 Say
'greens. A soft breeze shakes several leaves from the branches and they';
633 Say
'flutter to the ground.';
636 Say
'You are surrounded by tall trees. The trees cast long eerie shadows upon';
637 Say
'the ground and the limbs seem to be reaching out to grab you. You begin';
638 Say
'to whistle and look nervously around. You jump as a twig snaps beneath';
639 Say
'your feet. A quick chill runs down your spine.';
642 say
'The trees have thinned out and more sunlight filters through. a tall oak';
643 Say
'stands amidst the smaller trees like a proud parent. There is a wall of';
644 Say
'thick bushes and underbrush to the east. A bird sings a happy tune from';
645 Say
"it's unseen perch high above you.";
648 Say
'The wet sand feels cool to your feet. Lying on the sand is a small orange';
649 Say
'starfish. A wave rolls up and pulls it back into the sea. Small pebbles';
650 Say
'a beautiful sea shells are scattered along the shore. You look out over';
651 Say
'the waves and see a school of dolphins swimming around.';
654 Say
'A tidal pool has formed in the scattered rock formations. You wade out';
655 SAY
'into the shallow water and feel refreshed. For some reason you start';
656 Say
'thinking how good a fish sandwhich would taste now. You notice some';
657 Say
'small minnows darting around in the pool. You try to catch them but';
658 SAy
'they are too fast for you.';
661 Say
'The beach is long, strecthing out of sight to the North and South. The';
662 Say
'sand is cool and wet and feels good between your toes. The blue waters';
663 Say
'of the ocean are to the east and you see some trees to the west.';
666 Say
'So much white sand all around you. You begin to wish you had never seen';
667 Say
'a beach. Suddenly you notice a person lying on a towel soaking up the';
668 Say
'warm rays of the sun. You rub your eyes and realize your mind is playing';
669 Say
'tricks on you because there is no one there only sand...';
672 Say
'The ground here is more sturdy and the walking is easier here. You see';
673 Say
'a rusted metal shed that was once a boathouse. Time and weather have';
674 Say
'peeled most of the paint off but it seems to be holding together. To';
675 Say
'the west is a length of thick underbrush which makes traveling in that';
676 Say
'direction impossible. The ocean is present to the east.';
679 Say
'This is the northeast corner of the island. The tide appears to be going';
680 Say
'out now. The sun is getting ever lower in the sky and the temperature is';
681 Say
'beginning to drop. Your stomach growls loudly and that fish sandwhich';
682 Say
'comes to mind again.';
685 Say
'You step cautiously around the treehouse until you decide that it is well';
686 Say
'built and then you relax. From your vantage point you can see the entire';
687 Say
'island. To the north you see the beach, to the west you see a meadow,';
688 Say
'to the South you see more trees, and to the east you see the beach and';
689 Say
'there appears to be a small building there. You feel like a kid again';
690 Say
'and give your best tarzan yell...';
693 Say
'The shed is small and appears to have been unused for a long time. As you';
694 Say
'enter a large rat scurries off into a dark corner. Cobwebs hang from each';
695 Say
'of the four corners. The shed is mostly empty save a few usless items that';
696 Say
'are scattered about. The door squeaks as it sways in the wind.';
699 Say
'You are in the inflatable two-man raft. The waves gently rock the bright';
700 Say
'yellow raft on the swelling billows. The raft seems to holding the air';
701 Say
'there are no apparent leaks. A couple of curious sea gulls swoop in for';
702 Say
'a closer inspection. Funny how sea gulls remind you of fried Chicken!';
706 SAY
'In a pine coffin six feet under!'copies(' ',28)'Time: Eternity';
708 SAY
'The coffin is cold and damp. The air is foul and musty. Mildew and other';
709 Say
'fungi have begun to cultivate on your clothing. The roses on your grave';
710 Say
'have long since wilted and died. Already the small sprouts of new grass';
711 Say
'have began to grow in the fresh top soil. All is cold and lifeless.';
713 SAY
CENTER(HI
'Sorry you have lost his adventure...'LO
,70);
719 LOC
.24='On a Coast Guard Cutter';
721 SAY
'After paddling around in the bright yellow raft for a while you were spotted';
722 SAY
'by a Coast Guard Vessel. You were brought on board, given clean clothes, fed';
723 SAY
'a big meal, and then taken home! You parents were so glad to see you alive';
724 Say
'That they forgot all about the new boat you wrecked!';
726 SAY
CENTER(HI
'CONGRATULATIONS!!! You have solved this adventure!'LO
,72);
730 SAY
CENTER(HI
'MIKEL RICE PROUDLY PRESENTS',71);
733 SAY
' MM MM DDDDDDD ';
735 SAY
' M M M M NN N D D Y Y';
736 SAY
' M MM M N N N D D Y Y ';
737 SAY
' M M N N N D D AAAAA Y Y ';
738 SAY
' M M OOOOOOOOO N N N D D A A Y Y ';
739 SAY
' M M O O N N N D D A A Y ';
740 SAY
' M M O O N N N DDDDDDD A A Y ';
741 SAY
' O O N N N AAAAAAAAA Y ';
742 SAY
' O O N NN A A Y ';
744 SAY
' OOOOOOOOO A A ';
759 VLIST
='GO GETLOODROOPEREAUNLMOVCLIBREMAKDIGHELCUTPADINFKILQUI';
760 NLIST
='BOTNOTROCSTUKNIKEYSHOROPDRIBOXPUMSHEDOOTRERAFPADNORSOUEASWES';
761 NLIST
=NLIST
||'SANMAP';
762 LOC
.1 = 'A sandy white beach';
764 LOC
.2 = 'A sandy white beach';
766 LOC
.3 = 'A sandy white beach';
768 LOC
.4 = 'A sandy white beach';
770 LOC
.5 = 'A sandy white beach';
772 LOC
.6 = 'A sandy white beach';
774 LOC
.7 = 'A small clearing';
776 LOC
.8 = 'In the woods';
778 LOC
.9 = 'A grassy field';
780 LOC
.10 = 'A pebble covered beach';
782 LOC
.11 = 'A sandy white beach';
784 LOC
.12 = 'In the woods';
786 LOC
.13 = 'In the woods';
788 LOC
.14 = 'A peacful orchard';
790 LOC
.15 = 'A pebble covered beach';
792 LOC
.16 = 'A rocky tidal pool';
794 LOC
.17 = 'A sandy white beach';
796 LOC
.18 = 'A sandy white beach';
798 LOC
.19 = 'A sandy white beach';
800 LOC
.20 = 'A sandy white beach';
802 LOC
.21 = 'A little homemade treehouse';
804 LOC
.22 = 'In a rusted metal shed';
806 LOC
.23 = 'In the two-man raft';
808 OBJECT
.1.1 = 'BOTTLE';
810 OBJECT
.1.3 = 'There appears to be something in it!';
813 OBJECT
.2.3 = 'There is some writing on it.';
816 object
.3.3 = 'It is big and seems heavy.';
817 object
.4.1 = 'tree STUMP';
819 object
.4.3 = 'Something is carved on it.';
820 object
.5.1 = 'KNIFE';
822 object
.5.3 = 'It is sharp enough to cut wood!';
825 OBJECT
.6.3 = 'It must unlock something...';
826 object
.7.1 = 'SHOVEL';
828 object
.7.3 = "It's an ordinary shovel used for digging.";
831 OBJECT
.8.3 = "It's tied to the tree and is hanging to the ground.";
832 object
.9.1 = 'DRIFTWOOD';
834 object
.9.3 = "It's a piece from your wrecked boat...";
837 OBJECT
.10.3 = 'It is an ordinary box.';
838 OBJECT
.11.1 = 'PUMP';
840 OBJECT
.11.3 = 'It is rusted but it still works.';
841 object
.12.1 = 'metal SHED';
843 object
.12.3 = "It's is an old abandoned boathouse.";
844 object
.13.1 = 'shed DOOR';
846 object
.13.3 = "You see a keyhole.";
847 object
.14.1 = 'Big TREE';
849 object
.14.3 = "It looks easy to climb.";
850 object
.15.1 = 'deflated RAFT';
852 object
.15.3 = "It's a two-man raft.";
853 object
.16.1 = 'PADDLE';
855 object
.16.3 = "It's looks like a chopped up piece of driftwood...";
856 object
.17.1 = 'NORTH';
858 object
.17.3 = "I see something, maybe I should go there!";
859 object
.18.1 = 'SOUTH';
861 object
.18.3 = "I see something, maybe I should go there!";
862 object
.19.1 = 'EAST';
864 object
.19.3 = "I see something, maybe I should go there!";
865 object
.20.1 = 'WEST';
867 object
.20.3 = "I sEE SOMETHING, Maybe I should go there!";
868 OBJECT
.21.1 = 'SAND';
870 OBJECT
.21.3 = 'It is as white as snow.';
873 OBJECT
.22.3 = 'Something is drawn on it!';
874 SAY
CENTER('DO YOU NEED INSTRUCTIONS? (Y/N)?'LO
,72);
876 IF ANSWER ^
= 'Y' THEN RETURN
;
878 say
CENTER(HI
'The Monday Adventure'LO
,68);
880 SAY
'Oh boy, what a weekend you had... You went cruising around the bay';
881 say
'Saturday in your NEW boat consuming a case of beer all by yourself.';
882 say
'Last thing you remember you were doing 80 miles per hour splashing';
883 say
'the people in canoes with your wake....';
885 say
"You wake up on a sandy white beach, but now it is Monday! You don't";
886 say
'remember much about Sunday, but you wrecked your boat and washed';
887 say
'ashore on this little island. Your headache is gone but now you';
888 say
'are really hungry. There is nothing to eat on this island so you';
889 say
'will have to figure a way to get back home. There is one slight';
890 say
'catch. Since you have not eaten in so long you are weak and may';
891 say
'not survive too much longer... Hint: (You die at 4:30 pm)!';
893 say
center('Press' HI
'<ENTER>'LO
' to continue',68);
896 SAY
CENTER(HI
'The Monday Adventure'LO
,68);
898 Say
' In this adventure you are able to manipulate objects by using a';
899 Say
'VERB NOUN pair. For example if you want to pick up a book you could';
900 Say
"type 'GET BOOK'. Then if you wanted to see what the book was about you";
901 Say
"could 'READ BOOK'. In some situations you may want to 'OPEN BOOK' to";
902 Say
"see if something was hidden in the book. Some VERBS do not need a NOUN";
903 SAY
"such as 'INVENTORY' (I), 'DIG', or 'HELP'...just type the verb.";
905 Say
' In this adventure you are limited to the compass directions of:';
906 Say
'NORTH, SOUTH, EAST, and WEST. However, you have other less obvious';
907 Say
"exits such as 'GO' (as in GO CAVE), or 'CLIMB' (as in CLIMB WALL).";
908 Say
"To move in a direction you could type 'GO NORTH' or 'N' for short.";
909 SAY
'I hope you enjoy playing the MONDAY adventure...Watch the time!!';
911 SAY
center('Press' HI
'<ENTER>'LO
' to continue',68);
917 SAY
CENTER(HI
'VERB LIST'LO
,60);
919 SAY
' GO ENTER GET TAKE';
920 SAY
' LOOK EXAMINE DROP OPEN';
921 SAY
' READ UNLOCK MOVE PUSH';
922 SAY
' CLIMB KILL BREAK SMASH';
923 SAY
' MAKE BUILD CUT CARVE';
924 SAY
' INFLATE PUMP PADDLE ROW ';
925 SAY
' INVENTORY * HELP * DIG * QUIT *';
927 say
' * - These verbs require no noun!';
930 SAY
' Press <enter> to continue game';
935 IF MAP
=0 THEN SAY
"WHAT MAP??";
937 IF OBJECT
.22.2^
=50 THEN SAY
"YOU DON'T HAVE THE MAP!";
941 LINE1
=' =====================================';
942 LINE3
=' | BEACH | BEACH | BEACH | BEACH |';
943 LINE4
=' | BEACH | FIELD | WOODS | BEACH |';
944 LINE5
=' | BEACH | WOODS | WOODS | BEACH |';
945 LINE6
=' | BEACH | ROCK | WOODS | BEACH |';
949 IF OLOOP
=1 | OLOOP
=5 THEN SAY LINE3
;
950 IF OLOOP
=2 THEN SAY LINE4
;
951 IF OLOOP
=3 THEN SAY LINE5
;
952 IF OLOOP
=4 THEN SAY LINE6
;
960 SAY
'The map is old and crudely drawn...in blood!!';
963 SAY
CENTER('Press' HI
'<enter>'LO
' to continue game',48);
971 SAY
CENTER(HI
'Do you wish to play again? (Y/N)?'LO
,70);
973 IF DUMMY
= 'Y' THEN SIGNAL BEGIN
;
975 call CP
"SET MSG ON";
981 when cmd
= 'SLEEP' then do
982 sleeptime
= word(args
,1)
984 do until
time('e') > sleeptime
993 parse source system
.