OS/2 Shareware BBS: 24 DOS/24-DOS.zip/dosrx10b.zip/MONDAY.R

Text File | 1993-03-08 | 29KB | 976 lines

/*MONDAY GAME A4 optimized via ROPT by MIKEL@UWF on 22 Feb 1987 at 16:47:13*/;
BEGIN:;
"CP SET MSG OFF";
HI='1B'x || '[1m';
LO='1B'x || '[m';
TOT_NOUNS = 22;
 PAUSE=4;
CALL TITLE;
VMFCLEAR;
START:;
DO FOREVER;
CALL TIMEM;
SELECT;
WHEN R = 1 THEN CALL ROOM1;
WHEN R = 2 THEN CALL ROOM2;
WHEN R = 3 THEN CALL ROOM3;
WHEN R = 4 THEN CALL ROOM4;
WHEN R = 5 THEN CALL ROOM5;
WHEN R = 6 THEN CALL ROOM6;
WHEN R = 7 THEN CALL ROOM7;
WHEN R = 8 THEN CALL ROOM8;
WHEN R = 9 THEN CALL ROOM9;
WHEN R = 10 THEN CALL ROOM10;
WHEN R = 11 THEN CALL ROOM11;
WHEN R = 12 THEN CALL ROOM12;
WHEN R = 13 THEN CALL ROOM13;
WHEN R = 14 THEN CALL ROOM14;
WHEN R = 15 THEN CALL ROOM15;
WHEN R = 16 THEN CALL ROOM16;
WHEN R = 17 THEN CALL ROOM17;
WHEN R = 18 THEN CALL ROOM18;
WHEN R = 19 THEN CALL ROOM19;
WHEN R = 20 THEN CALL ROOM20;
WHEN R = 21 THEN CALL ROOM21;
WHEN R = 22 THEN CALL ROOM22;
WHEN R = 23 THEN CALL ROOM23;
OTHERWISE CALL END_ROOM;
END;
SAy;
CALL CAN_SEE;
CALL CAN_GO;
CALL COMMAND;
END;
EXIT;
TIMEM:;
VMFCLEAR;
TIMES = '0:00';
TIMES = OVERLAY(HOUR,TIMES,1,1);
IF MINUTES>9 THEN TIMES = OVERLAY(MINUTES,TIMES,3,2);
ELSE;
IF MINUTES<10 THEN TIMES = OVERLAY(MINUTES,TIMES,4,1);
say left(LOC.R,30) copies(' ',24)'Time: 'TIMES' pm';
say;
return;
CAN_SEE:;
SEE = '';
FLG=0;
IF R>0 & R<7 then FLG=1;
ELSE;
IF R=11 THEN FLG=1;
ELSE;
IF R>15 & R<21 THEN FLG=1;
IF FLG=1 THEN OBJECT.21.2=R;
DO I = 1 to TOT_NOUNS;
If OBJECT.I.2 = R THEN SEE = SEE||OBJECT.I.1||'   ';
END I;
IF SEE = '' THEN SEE = 'Nothing of Interest';
Say 'You can see: 'SEE;
Say;
RETURN;
CAN_GO:;
GO='';
PARSE UPPER VAR EXIT.R NOR SOU EAS WES;
IF NOR = 'N' THEN GO = GO||'NORTH   ';
IF SOU = 'S' THEN GO = GO||'SOUTH   ';
IF EAS = 'E' THEN GO = GO||'EAST   ';
IF WES = 'W' THEN GO = GO||'WEST';
IF GO='' THEN GO='???';
SAY 'Obvious exits: 'GO;
Say copies('=',70);
 Say;
RETURN;
COMMAND:;
N = 0;
 V = 0;
 FLAG = 0;
If MSG = 0 then;
DO;
MSG = 1;
SAY 'WELCOME TO' HI'THE MONDAY ADVENTURE'LO' ( NOVICE LEVEL )';
SAY '(C)OPYRIGHT 1986 / 1987 BY: MIKEL F. RICE (MIKEL @ UWF)';
SAY 'Dedicated to: Tanya E. Bortels';
END;
rnd = random(1,6);
if rnd = 1 then command = 'What next?';
if rnd = 2 then command = 'What will you do?';
if rnd = 3 then command = 'Now what?';
if rnd = 4 then command = 'Your request?';
if rnd = 5 then command = 'What do you want to do?';
if rnd = 6 then command = 'What will you try now?';
SAY;
say command;
pull instruct;
UPPER instruct;
say;
If instruct = 'I' then instruct = 'INV';
parse var instruct verbin nounin;
verb = left(verbin,3);
noun = left(nounin,3);
If verb = 'LOO' & noun = '' then SIGNAL START;
IF (VERB ='NOR' | VERB='SOU') | (VERB ='EAS' | VERB ='WES');
THEN SIGNAL GO;
ELSE;
If (VERB= 'N' | VERB= 'S') | (VERB= 'E' | VERB= 'W') THEN SIGNAL GO;
ELSE;
IF VERB = 'U' | VERB = 'D' THEN SIGNAL GO;
select;
when VERB = 'QUI' then SIGNAL QUIT;
when VERB = 'INV' then CALL INVENTORY;
when VERB = 'HEL' then CALL HELP;
when VERB = 'VER' THEN CALL VERBS;
when VERB = 'DIG' then CALL DIG;
WHEN VERB = 'PAU' THEN PAUSE = NOUN;
otherwise flag = 1;
END;
If flag = 0 then signal delay;
If length(instruct) < 4;
then DO;
Say "WHAT??? I don't understand that.";
SIGNAL DELAY;
END;
If NOUN = '' THEN;
DO;
SAY 'That verb requires a NOUN.';
Signal DELAY;
END;
If verb = 'ENT' THEN VERB = 'GO ';
If verb = 'TAK' THEN VERB = 'GET';
If verb = 'EXA' THEN VERB = 'LOO';
If verb = 'SMA' THEN VERB = 'BRE';
If verb = 'BUI' THEN VERB = 'MAK';
If verb = 'CAR' THEN VERB = 'CUT';
If verb = 'PUM' THEN VERB = 'INF';
If verb = 'PUS' THEN VERB = 'MOV';
If verb = 'ROW' THEN VERB = 'PAD';
If verb = 'STA' THEN VERB = 'KIL';
V=POS(VERB,VLIST);
N=POS(NOUN,NLIST);
IF V=0 THEN;
DO;
SAY "I don't understand that VERB!";
SIGNAL DELAY;
END;
ELSE;
V =(V%3)+1;
IF N=0 THEN;
DO;
SAY "I don't understand that NOUN!";
SIGNAL DELAY;
END;
ELSE;
N =(n%3)+1;
SELECT;
WHEN V = 1 THEN SIGNAL GO;
WHEN V = 2 then CALL GET;
WHEN V = 3 THEN CALL LOOK;
WHEN V = 4 THEN CALL DROP;
WHEN V = 5 THEN CALL OPENV;
WHEN V = 6 THEN CALL READV;
WHEN V = 7 THEN CALL UNLOCK;
WHEN V = 8 THEN CALL MOVE;
WHEN V = 9 THEN CALL CLIMB;
WHEN V = 10 THEN CALL BREAK;
WHEN V = 11 THEN CALL MAKE;
WHEN V = 12 THEN CALL DIG;
WHEN V = 14 THEN CALL CUT;
WHEN V = 15 THEN CALL PADDLE;
WHEN V = 16 THEN CALL INFLATE;
WHEN V = 17 THEN SAY "This is a non-violent adventure!!";
OTHERWISE NOP;
END;
DELAY:;
CALL TIMER;
'CP SLEEP' PAUSE 'SEC';
RETURN;
TIMER:;
MINUTES = MINUTES + 1;
If MINUTES = 60;
THEN DO;
MINUTES = 0;
HOUR = HOUR + 1;
END;
IF HOUR = 4 & MINUTES >= 30 THEN SIGNAL END_ROOM;
IF HOUR =4 & MINUTES =20 then Say'You feel very weak...Watch the time.';
IF HOUR =4 & MINUTES =10 then Say'You feel very hungry!';
IF HOUR =4 & MINUTES >26 then Say'Gasp...pant...cough!';
RETURN;
INVENTORY:;
SAY;
ITEM ='';
DO I = 1 to TOT_NOUNS;
IF OBJECT.I.2 = 50 THEN ITEM = ITEM||OBJECT.I.1'  ';
END I;
IF ITEM = '' THEN ITEM = 'NOTHING!';
SAY 'You are carrying: 'ITEM;
RETURN;
HELP:;
IF R=6 THEN SAY'Try examining things...';
ELSE;
IF R=9 THEN SAY"If at first you don't succeed...";
ELSE;
IF R=12 THEN SAY'I once carved my name in a tree stump!';
ELSE;
If R=14 THEN SAY'Look a tree!';
ELSE;
IF R=21 THEN SAY'LOOK at the rope!';
ELSE;
DO;
RND=RANDOM(1,6);
SELECT;
WHEN RND=1 THEN SAY"CAN'T YOU DO ANYTHING ON YOUR OWN?";
WHEN RND=2 THEN SAY"I'M AS CONFUSED AS YOU ARE!";
WHEN RND=3 THEN SAY"TRY EXAMINING THINGS...";
WHEN RND=4 THEN SAY"WHO IS PLAYING THIS GAME, ME OR YOU?";
WHEN RND=5 THEN SAY"NOT NOW I'M BUSY!";
OTHERWISE SAY"TYPE 'VERBS' FOR MORE HELP!";
END;
END;
RETURN;
GO:;
FLG = 0;
VB = LEFT(VERB,1);
NN = LEFT(NOUN,1);
SELECT;
WHEN ((NOUN="SHE" | NOUN="DOO") & (OPENED=1 & R=19)) THEN R=22;
WHEN ((NOUN="SHE" | NOUN="DOO") & (OPENED=0 & R=19)) THEN CALL DOOR;
WHEN R=22 & (VB='E' | NN='E') THEN R=19;
WHEN R=23 & (VB='W' | NN='W') THEN R=19;
WHEN NOUN="RAF" THEN CALL INRAFT;
WHEN NOR='N' & (VB ='N' | NN='N') THEN R = R + 1;
WHEN SOU='S' & (VB ='S' | NN='S') THEN R = R - 1;
WHEN EAS='E' & (VB ='E' | NN='E') THEN R = R + 5;
WHEN WES='W' & (VB ='W' | NN='W') THEN R = R - 5;
OTHERWISE FLG = 1;
END;
IF (VB='D' | VB='U') | (NN='D' | NN='U') THEN;
DO;
SAY 'TRY CLIMB instead...';
FLG = 0;
END;
IF FLG=1 then;
DO;
SAY 'There is no way to go in that direction!';
SIGNAL DELAY;
END;
ELSE;
CALL TIMER;
SIGNAL START;
DOOR:;
IF OPENED=0 & UNLOCKED=0 THEN;
DO;
SAY 'The door is locked!';
END;
ELSE;
IF OPENED=0 & UNLOCKED=1 THEn;
Do;
SAY'The shed door is closed!';
END;
'CP SLEEp' PAUSE 'SEC';
RETURN;
LOOK:;
IF N=21 THEN OBJECT.N.2 = R;
If N>16 & n<21 THEN SAY OBJECT.N.3;
ELSE;
IF OBJECT.N.2 ^= R & Object.n.2 ^= 50;
THEN SAY "I don't see the "OBJECT.N.1" here now...";
ELSE SAY OBJECT.N.3;
RETURN;
GET:;
COUNT = 0;
DO I = 1 to TOT_NOUNS;
If OBJECT.I.2 = 50 then COUNT = COUNT + 1;
END I;
IF COUNT > 4 THEN;
DO;
RND = RANDOM(1,3);
SELECT;
WHEN RND=1 THEN SAY"You can't carry anymore. Try 'INVENTORY'";
WHEN RND=2 THEN SAY'You are carrying too much stuff. Try "INVENTORY"';
WHEN RND=3 THEN SAY'You have too much. Try "INVENTORY"';
OTHERWISE NOP;
END;
RETURN;
END;
If OBJECT.N.2 =50 THEN SAY"You're already carrying that!";
ELSE;
If OBJECT.N.2 ^=R THEN SAY"I don't see "OBJECT.N.1" here.";
If OBJECT.N.2 = R THEN;
DO;
SELECT;
WHEN N=3 THEN Say'It is too heavy to lift, maybe you can move it.';
WHEN N=4 THEN Say"Don't be stupid!";
WHEN N=8 THEN Say'It is tied to the tree with a strong knot.';
WHEN N=12 THEN Say'It is cemented to the ground.';
WHEN N=13 THEN Say'It is hinged to the shed.';
WHEN N=14 THEN Say"Don't be silly!";
WHEN N=15 & RAFT=1 then say"You can't carry the raft if it's inflated";
WHEN n=21 THEN SAY 'Leave the sand alone...';
OTHERWISE;
OBJECT.N.2 = 50;
SAY 'Okay! You now have the 'OBJECT.N.1;
END;
END;
RETURN;
DROP:;
If OBJECT.N.2 ^= 50 THEN SAY"You aren't holding that.";
ELSE;
DO;
SAY 'Okay! 'OBJECT.n.1' has been dropped!.';
OBJECT.N.2 = R;
END;
RETURN;
OPENV:;
FLG=0;
IF N=1 & OBJECT.N.2=50 & OBJECT.2.2=0 then;
DO;
SAY'Hey! You found something!';
OBJECT.1.3= "It's just an empty bottle";
OBJECT.2.2=R;
 FLG=1;
END;
Else;
If N=1 & OBJECT.N.2^=50 then;
DO;
Say "You don't have that item!";
FLG=1;
END;
ELSE;
IF N=1 & OBJECT.2.2>0 THEN;
Do;
SAY 'It is already open!';
FLG=1;
END;
If N=10 & OBJECT.N.2=50 THEN;
DO;
SAY'Hey! You found something!';
OBJECT.11.2=R;
 FLG=1;
END;
Else;
If N=10 then;
DO;
Say "You don't have that item!";
FLG=1;
END;
IF R^=19 THEN FLG=FLG;
ELSE;
If (N=12 | N=13) & (UNLOCKED=1 & OPENED=0) THEN;
DO;
Say'The door to the shed is now open!';
OPENED=1;
 FLG=1;
END;
ELSE;
IF (N=12 | N=13) & UNLOCKED=0 THEN;
DO;
SAY'The door to the shed is locked!';
FLG=1;
END;
If FLG=0 THEN SAY "I must be stupid, but I can't open that!";
RETURN;
READV:;
FLG=0;
IF N=2 & OBJECT.N.2=50 then;
Do;
Say 'Hello there. I just want to take this time (1 turn) to wish you';
Say 'good luck! For some extra help type "VERBS"...  Mikel Rice!';
FLG=1;
'CP SLEEP 3 SEC';
End;
Else;
If N=2 & OBJECT.2.2^=50 THEN;
DO;
SAY "You don't have that!";
FLG=1;
END;
If N=1 THEN;
DO;
SAY 'The label has washed off...';
FLG=1;
END;
If N=4 & OBJECT.N.2=R THEN;
Do;
SAY 'Carved on the stump:  The key lies under the field of flowers!';
FLG=1;
END;
Else;
If N=4 & FLG=0 THEN SAY "I don't see a stump here...";
If N=10 & (OBJECT.N.2=50 | OBJECT.N.2=R) THEN;
DO;
SAY 'It top reads: ACME Hardware Co.';
FLG=1;
END;
ELSE;
IF N^=22 & FLG=0 THEN SAY'How can you read that?';
ELSE;
IF FLG=0 THEN CALL MAP;
RETURN;
UNLOCK:;
IF R^=19 THEN SAY"I don't see a shed here!";
ELSE;
If (N=12 | N=13) & UNLOCKED=1 THEN SAY'The shed is already unlocked!';
ELSE;
If (N=12 | N=13) & OBJECT.6.2^=50 THEN SAY"You don't have the key!";
ELSE;
If (N=12 | N=13) & (UNLOCKED=0 & OBJECT.6.2=50) THEN;
DO;
Say "The key fits. You turn it and unlock the door to the shed.";
UNLOCKED=1;
END;
ELSE SAY "I must be stupid, but I Can't unlock that!";
RETURN;
MOVE:;
FLG=0;
If (N=4 | N=12) | (N=13 | N=14) THEN;
DO;
SAY 'Only in your dreams...';
FLG=1;
END;
IF (N=3 & R=7) & KNIFE=0 THEN;
DO;
SAY 'Hey! You found something!';
KNIFE=1;
OBJECT.5.2=R;
FLG=1;
END;
IF OBJECT.N.2^=R THEN;
Do;
Say "I don't see that here.";
FLG=1;
END;
If FLG=0 then say "Okay but nothing happened!";
RETURN;
CLIMB:;
IF R=14 & N=14 THEN;
Do;
Say 'Ugh...That was hard work....';
R=21;
END;
ElSE;
IF R=21 & (N=8 | N=14) THEN;
DO;
SAY 'PANT...That was tough....';
R=14;
END;
ELSE SAY 'Why do you want to climb that?';
RETURN;
BREAK:;
IF N=1 & OBJECT.N.2=50 & OBJECT.2.2=0 then;
DO;
SAY 'Hey! You found something!';
OBJECT.2.2=R;
OBJECT.N.2=0;
END;
ELSE;
IF N=1 & OBJECT.N.2^=50 tHEN SAY "I don't have that.";
ELSE SAY "Don't be so destructive!!";
RETURN;
MAKE:;
If N^=16 THEN SAY "I must be stupid, but I just don't understand you!";
ELSE;
If OAR=0 & (OBJECT.5.2=50 & OBJECT.9.2=50) THEN;
DO;
SAY 'Using the knife you make a primitive paddle from the driftwood';
OBJECT.9.2=0;
OBJECT.16.2=50;
OAR=1;
END;
ELSE;
If OAR=0 & (OBJECT.5.2^=50 | OBJECT.9.2^=50);
THEN Say "You don't have enough material to make a paddle.";
ELSE;
If OAR=1 then Say 'you already made a paddle.';
ELSE;
IF OAR=2 THEN SAY"You can't make a paddle with a broken knife!!";
RETURN;
DIG:;
IF R^=9 & OBJECT.7.2=50 THEN SAY "All all you found is dirt...";
ELSE;
IF OBJECT.7.2^=50 THEN SAY "You don't have a shovel!";
ELSE;
IF KEY=0 THEN;
DO;
SAY'You dug a small hole but found nothing...';
SAY'Wait! Look there is something...';
KEY=1;
MAP=1;
OBJECT.22.2=R;
END;
ELSE;
IF KEY=1 then;
Do;
SAY "Hey! You found something!";
OBJECT.6.2=R;
KEY=2;
END;
RETURN;
CUT:;
IF N=8 & OBJECT.5.2=50 & R=21 then Say'If you cut the rope how will you get down?';
ELSE;
IF (N=14 | N=4) & (OBJECT.5.2=50 & R=14) THEN;
DO;
Say 'The knife can cut most types of wood just not oak!';
SAY 'The hard oak wood busted the knife!';
OAR=2;
END;
ELSE;
IF N=9 THEN;
DO;
N=16;
SIGNAL MAKE;
END;
ELSE;
IF n=16 then SIGNAL MAKE;
ELSE;
If n=4 THEN SAY"Aw...leave the poor tree stump alone!";
ELSE SAY"Don't be so destructive!!";
RETURN;
PADDLE:;
IF R^=23 then say "You aren't in the raft!";
ELSE;
If OBJECT.16.2^=50 THEN SAY"You don't have a paddle! Maybe you could MAKE one!";
ELSE SIGNAL WIN_ROOM;
RETURN;
INFLATE:;
If N^=15 then say"I don't know how to inflate that!";
ELSE;
IF OBJECT.11.2^=50 THEN SAY"You don't have a pump!";
ELSE;
If OBJECT.15.2=50 then SAY"You can't inflate it while holding it!";
ELSE;
IF (R>6 & R<10) | (R>11 & R<15) | (r>20);
THEN SAY "You must be at the beach to inflate the raft!";
ELSE;
IF RAFT=1 then SAY"It's already inflated!";
ELSE;
DO;
SAY'Phfsss...phfsss...phfsss...Okay you inflated it!';
OBJECT.15.1='inflated RAFT';
RAFT=1;
MINUTES=MINUTES+1;
END;
RETURN;
INRAFT:;
IF RAFT=0 THEN SAY"It isn't inflated!";
ELSE;
IF OBJECT.15.2^=r THEN SAY"The raft isn't here!!!";
ELSE;
IF OBJECT.5.2^=50 THEN;
Do;
R=23;
SIGNAL START;
end;
ELSE;
DO;
SAY "Oh no! The knife punctured the raft and you can't swim!!";
'CP SLEEP 3 SEC';
SIGNAL END_ROOM;
END;
RETURN;
ROOM1:;
Say 'The beach is long, strecthing out of sight to the east and north. The';
Say 'sand is cool and wet and feels good between your toes. The blue waters';
Say 'of the ocean are to the south and west.';
RETURN;
ROOM2:;
SAY 'The white sand strecthes onward to the north and to the south. The sun';
Say 'makes the sand seem to glow. The blue ocean water is to the west and';
Say 'there is a clearing to the east.';
RETURN;
ROOM3:;
SAY 'More white sandy beaches that seem to go on and on. This island would';
Say 'be a great place to build a fancy summer resort. The ocean is to the';
Say 'west and to the east you see a group of trees.';
RETURN;
ROOM4:;
SAY 'The white sand is hot to your bare feet. A quick wave washes up around';
SAY 'your ankles then ebbs back into the sea. The sun sparkles upon the water';
Say 'in ever changing patterns. You can see a field to the east.';
RETURN;
ROOM5:;
Say 'The beach runs out of sight to the south and to the east. Water is to the';
SAY 'north and west of you. Far out on the horizon you can barely make out a';
Say 'ship sailing slowly through the choppy seas.';
RETURN;
ROOM6:;
Say 'On a beautiful white beach of a small deserted island. Just a few yards';
Say 'off shore, smashed upon some outcroping rocks, is the remains of your boat.';
SAY 'You notice that the sun feels really hot today.';
RETURN;
ROOM7:;
Say 'A small clearing just beyond the white beaches. The grass is growing in';
Say 'patches of green and brown. Overhead some sea gulls float on the tropical';
Say 'breezes. To the north and east you see trees and the beach is to the';
Say 'south and west.';
RETURN;
ROOM8:;
Say 'Standing in the woods under several tall trees. The trees filter the hot';
Say 'sun creating a cool shade. The ground is blanketed with a varity of colored';
Say 'leaves. It is very peaceful here.';
RETURN;
ROOM9:;
Say 'The grass is a lush green and the meadow is dotted with white and yellow';
Say 'daisies and violet snap-dragons. The air is fresh and smells sweet with';
Say 'the fragrance of the flowers. A gentle breeze ruffles the grasses.';
RETURN;
ROOM10:;
Say 'The beach is covered with small pebbles washed smooth by the ocean tides.';
Say 'The wet pebbles sparkle in the shinning sunlight. A cool breeze blows off';
Say 'the dark blue water. A fiddler crab darts back and forth across the sand.';
RETURN;
ROOM11:;
Say 'Sand, sand, and more sand. The beach runs on to the east and to the west.';
Say 'The sun is blocked out by a cloud for a short moment but it soon drifts';
Say 'past and once again the sun beats down upon you. You can see some trees';
say 'up to the north and the ocean is to the south.';
RETURN;
ROOM12:;
Say 'A small grove of trees on a slight enbankment. The beach is down to the';
Say 'south and to the East. The leaves on the trees are a mixture of reds and';
Say 'greens. A soft breeze shakes several leaves from the branches and they';
Say 'flutter to the ground.';
RETURN;
ROOM13:;
Say 'You are surrounded by tall trees. The trees cast long eerie shadows upon';
Say 'the ground and the limbs seem to be reaching out to grab you. You begin';
Say 'to whistle and look nervously around. You jump as a twig snaps beneath';
Say 'your feet. A quick chill runs down your spine.';
RETURN;
ROOM14:;
say 'The trees have thinned out and more sunlight filters through. a tall oak';
Say 'stands amidst the smaller trees like a proud parent. There is a wall of';
Say 'thick bushes and underbrush to the east. A bird sings a happy tune from';
Say "it's unseen perch high above you.";
RETURN;
ROOM15:;
Say 'The wet sand feels cool to your feet. Lying on the sand is a small orange';
Say 'starfish. A wave rolls up and pulls it back into the sea. Small pebbles';
Say 'a beautiful sea shells are scattered along the shore. You look out over';
Say 'the waves and see a school of dolphins swimming around.';
RETURN;
Room16:;
Say 'A tidal pool has formed in the scattered rock formations. You wade out';
SAY 'into the shallow water and feel refreshed. For some reason you start';
Say 'thinking how good a fish sandwhich would taste now. You notice some';
Say 'small minnows darting around in the pool. You try to catch them but';
SAy 'they are too fast for you.';
RETURN;
ROOM17:;
Say 'The beach is long, strecthing out of sight to the North and South. The';
Say 'sand is cool and wet and feels good between your toes. The blue waters';
Say 'of the ocean are to the east and you see some trees to the west.';
RETURN;
ROOM18:;
Say 'So much white sand all around you. You begin to wish you had never seen';
Say 'a beach. Suddenly you notice a person lying on a towel soaking up the';
Say 'warm rays of the sun. You rub your eyes and realize your mind is playing';
Say 'tricks on you because there is no one there only sand...';
RETURN;
ROOM19:;
Say 'The ground here is more sturdy and the walking is easier here. You see';
Say 'a rusted metal shed that was once a boathouse. Time and weather have';
Say 'peeled most of the paint off but it seems to be holding together. To';
Say 'the west is a length of thick underbrush which makes traveling in that';
Say 'direction impossible. The ocean is present to the east.';
RETURN;
ROOM20:;
Say 'This is the northeast corner of the island. The tide appears to be going';
Say 'out now. The sun is getting ever lower in the sky and the temperature is';
Say 'beginning to drop. Your stomach growls loudly and that fish sandwhich';
Say 'comes to mind again.';
RETURn;
ROOM21:;
Say 'You step cautiously around the treehouse until you decide that it is well';
Say 'built and then you relax. From your vantage point you can see the entire';
Say 'island. To the north you see the beach, to the west you see a meadow,';
Say 'to the South you see more trees, and to the east you see the beach and';
Say 'there appears to be a small building there. You feel like a kid again';
Say 'and give your best tarzan yell...';
RETURN;
ROOM22:;
Say 'The shed is small and appears to have been unused for a long time. As you';
Say 'enter a large rat scurries off into a dark corner. Cobwebs hang from each';
Say 'of the four corners. The shed is mostly empty save a few usless items that';
Say 'are scattered about. The door squeaks as it sways in the wind.';
RETURN;
ROOM23:;
Say 'You are in the inflatable two-man raft. The waves gently rock the bright';
Say 'yellow raft on the swelling billows. The raft seems to holding the air';
Say 'there are no apparent leaks. A couple of curious sea gulls swoop in for';
Say 'a closer inspection. Funny how sea gulls remind you of fried Chicken!';
RETURN;
END_ROOM:;
VMFCLEAR;
SAY 'In a pine coffin six feet under!'copies(' ',28)'Time: Eternity';
SAY;
SAY 'The coffin is cold and damp. The air is foul and musty. Mildew and other';
Say 'fungi have begun to cultivate on your clothing. The roses on your grave';
Say 'have long since wilted and died. Already the small sprouts of new grass';
Say 'have began to grow in the fresh top soil. All is cold and lifeless.';
say;
SAY CENTER(HI'Sorry you have lost his adventure...'LO,70);
SIGNAL QUIT;
WIN_ROOM:;
VMFCLEAR;
R=24;
 MINUTES=MINUTES+3;
LOC.24='On a Coast Guard Cutter';
CALL TIMEM;
SAY'After paddling around in the bright yellow raft for a while you were spotted';
SAY'by a Coast Guard Vessel. You were brought on board, given clean clothes, fed';
SAY'a big meal, and then taken home! You parents were so glad to see you alive';
Say'That they forgot all about the new boat you wrecked!';
SAY;
SAY CENTER(HI'CONGRATULATIONS!!! You have solved this adventure!'LO,72);
SIGNAL QUIT;
TITLE:;
VMFCLEAR;
SAY CENTER(HI'MIKEL RICE PROUDLY PRESENTS',71);
SAY;
SAY'                                 THE';
SAY'  MM      MM                         DDDDDDD                        ';
SAY'  M M    M M                         D      D                       ';
SAY'  M  M  M  M             NN       N  D       D             Y       Y';
SAY'  M   MM   M             N N      N  D       D              Y     Y ';
SAY'  M        M             N  N     N  D       D    AAAAA      Y   Y  ';
SAY'  M        M  OOOOOOOOO  N   N    N  D       D   A     A      Y Y   ';
SAY'  M        M  O       O  N    N   N  D      D   A       A      Y    ';
SAY'  M        M  O       O  N     N  N  DDDDDDD    A       A      Y    ';
SAY'              O       O  N      N N             AAAAAAAAA      Y    ';
SAY'              O       O  N       NN             A       A      Y    ';
SAY'              O       O                         A       A           ';
SAY'              OOOOOOOOO                         A       A           ';
SAY'                              ADVENTURE!';
SAY;
 SAY;
R = 6;
 HOUR = 3;
 MINUTES = 25;
 MSG = 0;
 RAFT=0;
UNLOCKED=0;
 OPENED=0;
 KNIFE=0;
 OAR=0;
 KEY=0;
 MAP=0;
VLIST='GO GETLOODROOPEREAUNLMOVCLIBREMAKDIGHELCUTPADINFKILQUI';
NLIST='BOTNOTROCSTUKNIKEYSHOROPDRIBOXPUMSHEDOOTRERAFPADNORSOUEASWES';
NLIST=NLIST||'SANMAP';
LOC.1 = 'A sandy white beach';
 EXIT.1 = 'N * E *';
LOC.2 = 'A sandy white beach';
 EXIT.2 = 'N S E *';
LOC.3 = 'A sandy white beach';
 EXIT.3 = 'N S E *';
LOC.4 = 'A sandy white beach';
 EXIT.4 = 'N S E *';
LOC.5 = 'A sandy white beach';
 EXIT.5 = '* S E *';
LOC.6 = 'A sandy white beach';
 EXIT.6 = 'N * E W';
LOC.7 = 'A small clearing';
 EXIT.7 = 'N S E W';
LOC.8 = 'In the woods';
 EXIT.8 = 'N S E W';
LOC.9 = 'A grassy field';
 exit.9 = 'n s e w';
LOC.10 = 'A pebble covered beach';
 exit.10 = '* s e w';
LOC.11 = 'A sandy white beach';
 exit.11 = 'N * E W';
LOC.12 = 'In the woods';
 EXIT.12 = 'n s e w';
LOC.13 = 'In the woods';
 EXIT.13 = 'n s e w';
LOC.14 = 'A peacful orchard';
 exit.14 = 'n s * w';
LOC.15 = 'A pebble covered beach';
 exit.15 = '* s e w';
LOC.16 = 'A rocky tidal pool';
 exit.16 = 'n * * w';
LOC.17 = 'A sandy white beach';
 EXIT.17 = 'N S * W';
LOC.18 = 'A sandy white beach';
 EXIT.18 = 'N S * W';
LOC.19 = 'A sandy white beach';
 exit.19 = 'N S * *';
LOC.20 = 'A sandy white beach';
 exit.20 = '* S * W';
LOC.21 = 'A little homemade treehouse';
 exit.21 = '';
LOC.22 = 'In a rusted metal shed';
 EXIT.22 = '* * E *';
LOC.23 = 'In the two-man raft';
 exit.23 = '* * * w';
OBJECT.1.1 = 'BOTTLE';
 object.1.2 = 6;
OBJECT.1.3 = 'There appears to be something in it!';
OBJECT.2.1 = 'NOTE';
 object.2.2 = 0;
OBJECT.2.3 = 'There is some writing on it.';
OBJECT.3.1 = 'ROCK';
 object.3.2 = 7;
object.3.3 = 'It is big and seems heavy.';
object.4.1 = 'tree STUMP';
 OBJECT.4.2 = 12;
object.4.3 = 'Something is carved on it.';
object.5.1 = 'KNIFE';
 OBJECT.5.2 = 0;
object.5.3 = 'It is sharp enough to cut wood!';
OBJECT.6.1 = 'KEY';
 OBJECT.6.2 = 0;
OBJECT.6.3 = 'It must unlock something...';
object.7.1 = 'SHOVEL';
 OBJECT.7.2 = 21;
object.7.3 = "It's an ordinary shovel used for digging.";
OBJECT.8.1 = 'ROPE';
 OBJECT.8.2 = 21;
OBJECT.8.3 = "It's tied to the tree and is hanging to the ground.";
object.9.1 = 'DRIFTWOOD';
 OBJECT.9.2 = 5;
object.9.3 = "It's a piece from your wrecked boat...";
OBJECT.10.1 = 'BOX';
 OBJECT.10.2 = 21;
OBJECT.10.3 = 'It is an ordinary box.';
OBJECT.11.1 = 'PUMP';
 OBJECT.11.2 = 0;
OBJECT.11.3 = 'It is rusted but it still works.';
object.12.1 = 'metal SHED';
 OBJECT.12.2 = 19;
object.12.3 = "It's is an old abandoned boathouse.";
object.13.1 = 'shed DOOR';
 OBJECT.13.2 = 19;
object.13.3 = "You see a keyhole.";
object.14.1 = 'Big TREE';
 OBJECT.14.2 = 14;
object.14.3 = "It looks easy to climb.";
object.15.1 = 'deflated RAFT';
 OBJECT.15.2 = 22;
object.15.3 = "It's a two-man raft.";
object.16.1 = 'PADDLE';
 OBJECT.16.2 = 0;
object.16.3 = "It's looks like a chopped up piece of driftwood...";
object.17.1 = 'NORTH';
 OBJECT.17.2 = 0;
object.17.3 = "I see something, maybe I should go there!";
object.18.1 = 'SOUTH';
 OBJECT.18.2 = 0;
object.18.3 = "I see something, maybe I should go there!";
object.19.1 = 'EAST';
 OBJECT.19.2 = 0;
object.19.3 = "I see something, maybe I should go there!";
object.20.1 = 'WEST';
 OBJECT.20.2 = 0;
object.20.3 = "I sEE SOMETHING, Maybe I should go there!";
OBJECT.21.1 = 'SAND';
 OBJECT.21.2 = 6;
OBJECT.21.3 = 'It is as white as snow.';
OBJECT.22.1 = 'MAP';
 OBJECT.22.2 = 0;
OBJECT.22.3 = 'Something is drawn on it!';
SAY CENTER('DO YOU NEED INSTRUCTIONS? (Y/N)?'LO,72);
PULL ANSWER;
IF ANSWER ^= 'Y' THEN RETURN;
VMFCLEAR;
say CENTER(HI'The Monday Adventure'LO,68);
SAY;
SAY 'Oh boy, what a weekend you had... You went cruising around the bay';
say 'Saturday in your NEW boat consuming a case of beer all by yourself.';
say 'Last thing you remember you were doing 80 miles per hour splashing';
say 'the people in canoes with your wake....';
say;
say "You wake up on a sandy white beach, but now it is Monday! You don't";
say 'remember much about Sunday, but you wrecked your boat and washed';
say 'ashore on this little island. Your headache is gone but now you';
say 'are really hungry. There is nothing to eat on this island so you';
say 'will have to figure a way to get back home. There is one slight';
say 'catch. Since you have not eaten in so long you are weak and may';
say 'not survive too much longer... Hint: (You die at 4:30 pm)!';
say;
say center('Press' HI'<ENTER>'LO' to continue',68);
PULL DUMMY;
VMFCLEAR;
SAY CENTER(HI'The Monday Adventure'LO,68);
SAY;
Say '    In this adventure you are able to manipulate objects by using a';
Say 'VERB NOUN pair. For example if you want to pick up a book you could';
Say "type 'GET BOOK'. Then if you wanted to see what the book was about you";
Say "could 'READ BOOK'. In some situations you may want to 'OPEN BOOK' to";
Say "see if something was hidden in the book. Some VERBS do not need a NOUN";
SAY "such as 'INVENTORY' (I), 'DIG', or 'HELP'...just type the verb.";
Say;
Say '    In this adventure you are limited to the compass directions of:';
Say 'NORTH, SOUTH, EAST, and WEST. However, you have other less obvious';
Say "exits such as 'GO' (as in GO CAVE), or 'CLIMB' (as in CLIMB WALL).";
Say "To move in a direction you could type 'GO NORTH' or 'N' for short.";
SAY 'I hope you enjoy playing the MONDAY adventure...Watch the time!!';
Say;
SAY center('Press' HI'<ENTER>'LO' to continue',68);
PULL DUMMY;
RETURN;
VERBS:;
VMFCLEAR;
SAY;
SAY CENTER(HI'VERB LIST'LO,60);
SAY;
SAY '     GO             ENTER            GET             TAKE';
SAY '     LOOK           EXAMINE          DROP            OPEN';
SAY '     READ           UNLOCK           MOVE            PUSH';
SAY '     CLIMB          KILL             BREAK           SMASH';
SAY '     MAKE           BUILD            CUT             CARVE';
SAY '     INFLATE        PUMP             PADDLE          ROW ';
SAY '     INVENTORY *    HELP *           DIG *           QUIT *';
SAY;
say '              * - These verbs require no noun!';
SAY;
 SAY;
SAY '               Press <enter> to continue game';
PULL DUMMY;
MINUTES=MINUTES-1;
RETURN;
MAP:;
IF MAP=0 THEN SAY"WHAT MAP??";
ELSE;
IF OBJECT.22.2^=50 THEN SAY"YOU DON'T HAVE THE MAP!";
ELSE;
DO;
VMFCLEAR;
LINE1='   =====================================';
LINE3='   | BEACH  | BEACH  | BEACH  | BEACH  |';
LINE4='   | BEACH  | FIELD  | WOODS  | BEACH  |';
LINE5='   | BEACH  | WOODS  | WOODS  | BEACH  |';
LINE6='   | BEACH  | ROCK   | WOODS  | BEACH  |';
SAY;
DO OLOOP =1 TO 5;
SAY LINE1;
IF OLOOP=1 | OLOOP=5 THEN SAY LINE3;
IF OLOOP=2 THEN SAY LINE4;
IF OLOOP=3 THEN SAY LINE5;
IF OLOOP=4 THEN SAY LINE6;
END;
SAY LINE1;
END;
IF MAP^=0 THEN;
DO;
SAY;
 SAY;
SAY 'The map is old and crudely drawn...in blood!!';
SAy;
 SAY;
SAY CENTER('Press' HI'<enter>'LO' to continue game',48);
PULL DUMMY;
SAY;
 SAY 'One moment';
END;
RETURN;
QUIT:;
SAY;
SAY CENTER(HI'Do you wish to play again? (Y/N)?'LO,70);
PULL DUMMY;
IF DUMMY = 'Y' THEN SIGNAL BEGIN;
VMFCLEAR;
"CP SET MSG ON";
EXIT