10 GOTO 5300
20 CLS:CLEAR:SCREEN 9:COLOR 11:RANDOMIZE TIMER:
30 GRASS=0:JUNGLE=0:MOUNTS=0:DARK=0:OCEAN=0:SPEAR=0:QUEST=0:ORB=0:RAFT=0
40 DIM SCENE$(14):FOR JJ=1 TO 14:READ SCENE$(JJ):NEXT JJ
50 DIM GIFT$(5):FOR JJ=1 TO 5:GIFT$(JJ)="":NEXT
60 REM
70 REM
80 REM
90 REM
100 REM
110 SCENE=1:GRASS=1:IF ORB=1 THEN GOSUB 5120
120 IF QUEST=1 THEN GOTO 140
130 GOSUB 4120:
140 PRINT "You are in ";SCENE$(SCENE)
150 PRINT"The route follows a path West"
160 PRINT ADV$;DIP$;ADV2$
170 REM
180 IF GRASS=1 THEN GOSUB 2400 :PRINT PERIL$
190 GOSUB 1850
200 REM
210 REM
220 IF CMD$="w" THEN 250
230 IF CMD$="s" OR CMD$="n" OR CMD$="nw" OR CMD$="e" OR CMD$="ne" OR CMD$="se" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
240 GOTO 110
250 SCENE=2:GRASS=1:PRINT ADDS$;SCENE$(SCENE)
260 PRINT"Pathways lead Northeast or Northwest, East or West"
270 PRINT ADV$;DIP$;ADV2$
280 IF GRASS=1 THEN GOSUB 2400 :PRINT PERIL$
290 GOSUB 1850
300 IF CMD$="ne" THEN 1300
310 IF CMD$="nw" THEN 1680
320 IF CMD$="e" THEN 110
330 IF CMD$="s" OR CMD$="n" OR CMD$="se" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
340 IF CMD$="w" THEN 360
350 GOTO 250
360 SCENE=3:GRASS=1:PRINT ADDS$;SCENE$(SCENE)
370 PRINT"you may now go East, Northeast and North"
380 PRINT ADV$;DIP$;ADV2$
390 IF GRASS=1 THEN GOSUB 2400 :PRINT PERIL$
400 GOSUB 1850
410 IF CMD$="ne" THEN 1680
420 IF CMD$="n" THEN 460
430 IF CMD$="e" THEN 250
440 IF CMD$="s" OR CMD$="se" OR CMD$="sw" OR CMD$="nw" OR CMD$="w" THEN GOSUB 3760 :PRINT ANSL$
450 GOTO 360
460 SCENE=4:JUNGLE=1:PRINT ADDS$;SCENE$(SCENE)
470 PRINT"You may choose to go North, South or East"
480 PRINT ADV$;DIP$;ADV2$
490 IF JUNGLE=1 THEN GOSUB 2510:PRINT PERIL$
500 GOSUB 1850:
510 IF CMD$="n" THEN GOSUB 4480:GOTO 560
520 IF CMD$="e" THEN 1680
530 IF CMD$="s" THEN 360
540 IF CMD$="w" OR CMD$="nw" OR CMD$="se" OR CMD$="ne" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
550 GOTO 460
560 SCENE=5:JUNGLE=1:PRINT ADDS$;SCENE$(SCENE)
570 PRINT"You struggle to go South or East"
580 PRINT ADV$;DIP$;ADV2$
590 IF JUNGLE=1 THEN GOSUB 2510:PRINT PERIL$
600 GOSUB 1850:
610 REM
620 IF CMD$="s" THEN 460
630 IF CMD$="e" THEN 660
640 IF CMD$="w" OR CMD$="nw" OR CMD$="n" OR CMD$="se" OR CMD$="ne" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
650 GOTO 560
660 SCENE=6:JUNGLE=1:PRINT ADDS$;SCENE$(SCENE)
670 PRINT"You may hack your way West, South, East or Northwest"
680 PRINT ADV$;DIP$;ADV2$
690 IF JUNGLE=1 THEN GOSUB 2510:PRINT PERIL$
700 GOSUB 1850:
710 IF CMD$="w" THEN 560
720 IF CMD$="nw" THEN 770
730 IF CMD$="s" THEN 1680
740 IF CMD$="e" THEN 1530
750 IF CMD$="n" OR CMD$="nw" OR CMD$="se" OR CMD$="ne" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
760 GOTO 660
770 SCENE=7:MOUNTS=1:IF ORB=1 THEN PRINT "the bridge is down"
780 PRINT ADDS$;SCENE$(SCENE)
790 PRINT"The path goes Southeast and East"
800 PRINT ADV$;DIP$;ADV2$
810 IF MOUNTS=1 THEN GOSUB 2610:PRINT PERIL$
820 IF SPEAR=1 THEN GOTO 850 :
830 IF ORB=1 THEN 870
840 GOSUB 4610
850 GOSUB 1850:IF ORB=1 THEN 870
860 IF CMD$="e" THEN 920
870 IF CMD$="se" THEN 660
880 REM
890 IF CMD$="w" OR CMD$="n" OR CMD$="s" OR CMD$="se" OR CMD$="ne"OR CMD$="nw" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
900 REM
910 GOTO 770
920 SCENE=8:MOUNTS=1:IF ORB=1 THEN COLOR 11:PRINT "the bridge is out" :
930 PRINT ADDS$;SCENE$(SCENE)
940 PRINT"the track continues West, South and East"
950 PRINT ADV$;DIP$;ADV2$
960 IF ORB=1 THEN 1060
970 IF MOUNTS=1 THEN GOSUB 2610:PRINT PERIL$
980 GOSUB 1830:
990 REM
1000 IF CMD$="e" THEN GOSUB 4710:GOSUB 4790
1010 IF CMD$="s" THEN 1530
1020 IF CMD$="w" THEN 770
1030 REM
1040 IF CMD$="n" OR CMD$="se" OR CMD$="ne"OR CMD$="nw" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
1050 GOTO 920
1060 SCENE=9:MOUNTS=1:IF ORB=1 THEN 1070 ELSE 1080
1070 PRINT"Your passage is slow through the winter snow without your horses."
1080 PRINT ADDS$;SCENE$(SCENE)
1090 PRINT"A southerly path is Southeast or Southwest or you may go West"
1100 PRINT ADV$;DIP$;ADV2$
1110 IF MOUNTS=1 THEN GOSUB 2610:PRINT PERIL$
1120 GOSUB 1830:
1130 IF CMD$="w" THEN 920
1140 IF CMD$="se" THEN 1180
1150 IF CMD$="sw" THEN 1530
1160 IF CMD$="s" OR CMD$="n" OR CMD$="e" OR CMD$="ne"OR CMD$="nw" THEN GOSUB 3760 :PRINT ANSL$
1170 GOTO 1060
1180 SCENE=10:DARK=1:PRINT ADDS$;SCENE$(SCENE)
1190 PRINT"You may follow the trail West, South and Northwest"
1200 PRINT ADV$;DIP$;ADV2$
1210 IF DARK=1 THEN GOSUB 2720:PRINT PERIL$
1220 GOSUB 1830:
1230 IF CMD$="w" THEN 1530
1240 IF CMD$="s" THEN 1430
1250 IF CMD$="nw" THEN 1060
1260 REM
1270 IF CMD$="e" OR CMD$="n" OR CMD$="se" OR CMD$="sw" OR CMD$="ne" THEN GOSUB 3760 :PRINT ANSL$
1280 GOTO 1180
1290 IF CMD$="s" THEN 1430
1300 SCENE=11:DARK=1:PRINT ADDS$;SCENE$(SCENE)
1310 PRINT"Directions to travel are West, Southwest and Northwest,East"
1320 PRINT ADV$;DIP$;ADV2$
1330 IF DARK=1 THEN GOSUB 2720:PRINT PERIL$
1340 GOSUB 1830:
1350 IF CMD$="sw" THEN 250
1360 IF CMD$="w" THEN 1680
1370 REM
1380 IF CMD$="nw" THEN 1530
1390 IF CMD$="e" THEN 1430
1400 REM
1410 IF CMD$="s" OR CMD$="n" OR CMD$="ne" OR CMD$="se" THEN GOSUB 3760 :PRINT ANSL$
1420 GOTO 1290
1430 SCENE=12:DARK=1:PRINT ADDS$;SCENE$(SCENE)
1440 PRINT"You may go West, and North "
1450 PRINT ADV$;DIP$;ADV2$
1460 IF DARK=1 THEN GOSUB 2720:PRINT PERIL$
1470 GOSUB 1830:
1480 IF CMD$="w" THEN 1300
1490 REM
1500 IF CMD$="n" THEN 1180
1510 IF CMD$="e" OR CMD$="se" OR CMD$="s" OR CMD$="ne"OR CMD$="nw" OR CMD$="sw" THEN GOSUB 3760 :PRINT ANSL$
1520 GOTO 1430
1530 SCENE=13:OCEAN=1:IF GIFT$(1)="" THEN GOSUB 5160
1540 IF GIFT$(1)="raft" THEN GOSUB 4290:
1550 PRINT ADDS$;SCENE$(SCENE)
1560 PRINT"You know of land to the Southeast,Southwest,West,East, North and Northeast"
1570 REM PRINT ADV$;DIP$;ADV2$
1580 IF OCEAN=1 THEN GOSUB 2830:PRINT PERIL$
1590 GOSUB 1830:
1600 IF CMD$="w" THEN 660
1610 IF CMD$="n" THEN 920
1620 IF CMD$="ne" THEN 1060
1630 IF CMD$="e" THEN 1180
1640 IF CMD$="se" THEN 1300
1650 IF CMD$="sw" THEN 1680
1660 IF CMD$="s" OR CMD$="nw" THEN GOSUB 3760 :PRINT ANSL$
1670 GOTO 1530
1680 SCENE=14:OCEAN=1:IF GIFT$(1)="" THEN GOSUB 5160
1690 IF GIFT$(1)="raft" THEN GOSUB 4290:
1700 PRINT ADDS$;SCENE$(SCENE)
1710 PRINT"You know of land to the East,Southeast,Southwest,West, North and Northeast"
1720 REM PRINT ADV$;DIP$;ADV2$
1730 IF OCEAN=1 THEN GOSUB 2830:PRINT PERIL$
1740 GOSUB 1830
1750 IF CMD$="w" THEN 460
1760 IF CMD$="n" THEN 660
1770 IF CMD$="e" THEN 1300
1780 IF CMD$="se" THEN 250
1790 IF CMD$="sw" THEN 360
1800 IF CMD$="ne" THEN 1530
1810 IF CMD$="s" OR CMD$="nw" THEN GOSUB 3760 :PRINT ANSL$
1820 GOTO 1680
1830 REM word separation for hannah orion
1840 PRINT:PRINT
1850 INPUT "Type l or c for commands :-";CMD$:
1860 ROL=INT(RND*13)+1:IF ROL=4 THEN ROL=5
1870 REM
1880 IF CMD$="help" THEN GOSUB 5260:GOTO 2390
1890 IF SCENE=12 THEN GOSUB 3980
1900 IF SCENE=6 THEN GOSUB 3920
1910 IF SCENE=3 THEN GOSUB 3700
1920 IF SCENE=8 THEN GOSUB 3550
1930 COUNT=0:GOSUB 3190:GOSUB 3460:GOSUB 3610
1940 PRINT:PRINT:
1950 LONG=LEN(CMD$): IF LONG=0 THEN 1850:IF LONG=1 THEN 2010
1960 IF LONG<2 THEN 2010
1970 FOR I=1 TO LONG:A$=MID$(CMD$,I,LONG):COUNT=COUNT+1:A=ASC(A$):IF A=32 THEN FLAG=COUNT:IF A>=97 AND A<=122 THEN A$=CHR$(A-32):
1980 NEXT
1990 IF LONG>2 AND FLAG=0 THEN VERB$=LEFT$(CMD$,FLAG):NOUN$=MID$(CMD$,FLAG+1,LONG):GOTO 2030
2000 IF LONG>2 AND FLAG>0 THEN PRINT "first word or verb>";LEFT$(CMD$,FLAG-1);"<":PRINT "second word or noun>";MID$(CMD$,FLAG+1,LONG);"<" :GOTO 2040
2010 GOSUB 2230:GOTO 2390:REM SINGLE LETTER
2020 IF LONG>2 AND FLAG=0 THEN PRINT "cmd$ is one verb >";MID$(CMD$,FLAG+1,LONG);"< and noun>";LEFT$(CMD$,FLAG-1);"<":GOTO 2040 REM
2030 CRASS$=CMD$:REM ONE WORD:goto 2160
2040 VERB$=LEFT$(CMD$,FLAG-1):WORD$=MID$(CMD$,FLAG+1,LONG):
2050 IF CMD$="get raft" THEN GOSUB 4560:GOTO 2390
2060 IF CMD$="get fruit" AND SCENE=3 THEN GOSUB 4400:GOTO 2390
2070 IF CMD$="get spear" AND SCENE=7 THEN GOSUB 4660:GOTO 2390
2080 IF CMD$="get orb" AND SCENE=8 THEN GOSUB 4930:GOTO 2390
2090 IF CMD$="steal orb" AND SCENE=8 THEN GOSUB 4930:GOTO 2390
2100 IF CMD$="take orb" AND SCENE=8 THEN GOSUB 4930:GOTO 2390
2110 IF CMD$="go gorge" OR CMD$="go ravine" AND SCENE=8 THEN GOSUB 4790:GOTO 2390
2120 IF CMD$="make raft" OR CMD$="make boat" THEN GOSUB 4560:GOTO 2390
2130 IF CMD$="q" OR CMD$="quit" THEN 5300
2140 IF VERB$="examine" THEN LOCATE 17,1:COLOR 5:PRINT:PRINT:GOSUB 5350:PRINT:PRINT EXA$:GOTO 2390
2150 IF VERB$="take" THEN LOCATE 17,1:COLOR 5:PRINT:PRINT"I took the ";WORD$;" as quickly as I could but it still got away from me.":PRINT:GOTO 2390
2160 IF VERB$="collect" THEN COLOR 5: PRINT:PRINT"I tried to collect the ";WORD$;" but I failed miserably.":PRINT:GOTO 2390
2170 IF VERB$="inspect" THEN COLOR 5: PRINT:PRINT:GOSUB 5350 :PRINT EXA$:PRINT:PRINT:GOTO 2390
2180 IF VERB$="build" THEN COLOR 5: PRINT:PRINT "I have tried to build the ";WORD$;" but have not been able to yet.":PRINT:GOTO 2390
2190 IF VERB$="search" THEN LOCATE 17,1:COLOR 5: PRINT:PRINT "I have tried to search for the ";WORD$;" but have not been able to yet.":PRINT:GOTO 2390
2200 REM
2210 REM
2220 REM
2230 IF CMD$="q" THEN GOTO 5300
2240 IF CMD$="e" THEN DIP$="East":GOTO 2390
2250 IF CMD$="ne" THEN DIP$="NorthEast":GOTO 2390
2260 IF CMD$="se" THEN DIP$="SouthEast":GOTO 2390
2270 IF CMD$="w" THEN DIP$="West":GOTO 2390
2280 IF CMD$="nw" THEN DIP$="NorthWest":GOTO 2390
2290 IF CMD$="sw" THEN DIP$="SouthWest":GOTO 2390
2300 IF CMD$="s" THEN DIP$="South":GOTO 2390
2310 IF CMD$="n" THEN DIP$="North":GOTO 2390
2320 IF CMD$="d" THEN DIP$="Down":GOTO 2390
2330 IF CMD$="u" THEN DIP$="Up":GOTO 2390
2340 IF CMD$="l" THEN DIP$="with vision":GOTO 2390
2350 IF CMD$="i" THEN DIP$="bringing these items":GOTO 2380
2360 IF CMD$="c" THEN CLS:GOSUB 3010:GOSUB 3160:GOTO 2390
2370 GOTO 2390
2380 PRINT"You are carrying :-";:FOR JJ=1 TO 5:PRINT GIFT$(JJ):NEXT JJ:GOTO 2390
2390 RETURN
2400 REM grasslands peril
2410 COLOR 3
2420 PERL=INT(RND*6)+1:ON PERL GOTO 2430,2440,2450,2460,2470,2480,2490
2430 PERIL$="The wild grasses here are still waist deep.":GOTO 2500
2440 PERIL$="There are snakes hidden in the long grass.":GOTO 2500
2450 PERIL$="Many wild animals lurk in the depths of the grasses.":GOTO 2500
2460 PERIL$="You can't tell how solid the ground is beneath your feet.":GOTO 2500
2470 PERIL$="Flocks of birds suddenly fly up as you approach.":GOTO 2500
2480 PERIL$="The grasses cut into your arms and legs and makes you itch.":GOTO 2500
2490 PERIL$="These are treeless unending fields of waiving grass.":GOTO 2500
2500 GRASS=0:RETURN
2510 REM perils of jungle and forests
2520 COLOR 3
2530 PERL=INT(RND*5)+1:ON PERL GOTO 2540,2550,2560,2570,2580,2590
2540 PERIL$="The Deep Forests of Timbrell come as a wall preventing easy passage":GOTO 2600
2550 PERIL$="The forest is nearly impenetrable":GOTO 2600
2560 PERIL$="Insects prove to be the greatest menace here.":GOTO 2600
2570 PERIL$="The Jungle of the Twin Valleys is wrought with unseen danger.":GOTO 2600
2580 PERIL$="Beware of snakes dropping from the trees.":GOTO 2600
2590 PERIL$="You must slash your way through the dense undergrowth.":GOTO 2600
2600 JUNGLE=0:RETURN
2610 REM perils of the Mountains
2620 COLOR 3
2630 PERL=INT(RND*5)+1:ON PERL GOTO 2640,2650,2660,2670,2680,2690
2640 PERIL$="Robbers and Bandits infest the Steppes of Drubel all the way to the Mountains.":GOTO 2710
2650 PERIL$="There are many different species of burrowing creatures which leave dangerous holes in the ground.":GOTO 2710
2660 PERIL$="The Steppes are easy going compared to the rugged rocky ravines of the mountains.":GOTO 2710
2670 PERIL$="Severely cold icy winds sweep down from the heights.":GOTO 2710
2680 PERIL$="A blanket of snow envelopes Winter bringing passage to a standstill.":GOTO 2710
2690 PERIL$="The Ravine of Mortus looms up like a barrier. The closer you get the more impossible it appears.":GOTO 2710
2700 REM
2710 MOUNTS=0:RETURN
2720 REM perils of the Darklands
2730 COLOR 3
2740 PERL=INT(RND*5)+1:ON PERL GOTO 2750,2760,2770,2780,2790,2800
2750 PERIL$="Thick Forests and rising waters make the Darklands unpredictable.":GOTO 2820
2760 PERIL$="Swamps are frequently encountered slowing progress even further.":GOTO 2820
2770 PERIL$="Insects and mosquitoes plague the crossing in such numbers that even speaking is dangerous.":GOTO 2820
2780 PERIL$="It is necessary to construct rafts from bamboo in order to cross the many streams and lagoons.":GOTO 2820
2790 PERIL$="The constant wetness saturates everything in your packs.":GOTO 2820
2800 PERIL$="There is nowhere to rest in these forsaken swamps.":GOTO 2820
2810 REM
2820 DARK=0:RETURN
2830 REM perils of the Oceans
2840 COLOR 3
2850 PERL=INT(RND*5)+1:ON PERL GOTO 2860,2870,2880,2890,2900,2910
2860 PERIL$="The vastness of the Oceans makes crossing it impossible.":GOTO 2930
2870 PERIL$="The saltwater cannot be drunk and will not sustain life.":GOTO 2930
2880 PERIL$="It is impossible to carry enough food for the months it would take to cross.":GOTO 2930
2890 PERIL$="Small inconveniences become major problems on such a crossing.":GOTO 2930
2900 PERIL$="Being exposed to the elements in an open boat for so long is highly dangerous.":GOTO 2930
2910 PERIL$="Even the best mariners dread the fullness of the Oceans.":GOTO 2930
2920 REM
2930 OCEAN=0:RETURN
2940 DATA "The Grasslands in the Kingdom of Brihad","The Grasslands in the neighbouring Country of Rihad","The Trees and grasslands of Upper Arborine","The Tall Forests of Timbrell"
2950 DATA "The First Jungle of the Twin Valleys","The Second Jungle of the Twin Valleys"
2960 DATA "The Highlands of Drubel","The Northern Escarpment of Morteus","The Northern Wilderness of Morteus"
2970 DATA "The Rain Forests of Florien","The Dark Forests of Lansabad","The Forests of Blear
2980 DATA "The Great Northern Ocean","The Deep Southern Ocean
2990 REM
3000 REM
3010 REM LOCATE 2,5:PRINT " A FEW COMMANDS"
3020 COLOR 5:LOCATE 2,5:PRINT "SOME WORDS I KNOW"
3030 LOCATE 3,5:PRINT "---------------"
3040 LOCATE 4,5:PRINT "get, go, build "
3050 LOCATE 5,5:PRINT "examine, collect"
3060 LOCATE 6,5:PRINT "spear, fruit,orb"
3070 LOCATE 7,5:PRINT "raft, take, boat"
3080 LOCATE 8,5:PRINT "inspect, search "
3090 LOCATE 9,5:PRINT "quit, look, help"
3100 LOCATE 10,5:PRINT "some abreviations are"
3110 LOCATE 11,5:PRINT "n,s,w,e,nw,ne,sw,se,l,c,i"
3120 LOCATE 16,5:REM
3130 LOCATE 17,1:PRINT " You are now in ";SCENE$(SCENE)
3140 LOCATE 22,1:REM
3150 RETURN
3160 REM wait for keypress
3170 INPUT "press enter ";PAWS$
3180 RETURN
3190 REM random adjectives
3200 ADDS=INT(RND*8)+1 : ON ADDS GOTO 3210,3220,3230,3240,3250,3260,3270,3280,3290
3210 ADDS$="Now you are in ": GOTO 3300
3220 ADDS$="Finally you reach ": GOTO 3300
3230 ADDS$="After a harrowing effort you find yourself in ": GOTO 3300
3240 ADDS$="This time you are in ": GOTO 3300
3250 ADDS$="Soon you arrive in ": GOTO 3300
3260 ADDS$="Eventually you make it to ": GOTO 3300
3270 ADDS$="You find that you are in ":GOTO 3300
3280 ADDS$="Here you are in ":GOTO 3300
3290 ADDS$="Your persistance has brought to ":GOTO 3300
3300 RETURN
3310 REM waitawhile and play music
3320 FOR PAWS=1 TO 3000:NEXT PAWS
3330 REM
3340 RETURN
3350 REM ******A German Folk Tune******
3360 PLAY "o2 t200 l8"
3370 PLAY "d g a b >c d4 ml e c< "
3380 PLAY "mn b p8 a p8 g4 p8 "
3390 RETURN :REM "d g a b >c d4 ml"
3400 PLAY " e c <b p8 a8 p8 g4 p4"
3410 PLAY ">d8. c16 <b >d c <b"
3420 PLAY "o2 t200 l8"
3430 PLAY "g a b >c d4 ml e c mn"
3440 PLAY "<b p8 a p8 g4."
3450 RETURN
3460 REM adverb string
3470 ADV=INT(RND*5)+1: ON ADV GOTO 3480,3490,3500,3510,3520,3530
3480 ADV$="You travelled ":GOTO 3540
3490 ADV$="You wandered ":GOTO 3540
3500 ADV$="You came ":GOTO 3540
3510 ADV$="You pushed your way ":GOTO 3540
3520 ADV$="You blazed a trail ":GOTO 3540
3530 ADV$="You chose a "+DIP$+"erly direction ":GOTO 3540
3540 RETURN
3550 REM RAVINE OF MORTEUS
3560 COLOR 2
3570 PRINT "You are now confronted by the Ravine of Morteus"
3580 PRINT"The only way across it is via a narrow rope bridge"
3590 PRINT"The Ravine drops off hundreds of feet below"
3600 RETURN
3610 REM adverb string
3620 ADV2=INT(RND*5)+1: ON ADV2 GOTO 3630,3640,3650,3660,3670,3680
3630 ADV2$=" to get here.":GOTO 3690
3640 ADV2$=" to arrive at this place.":GOTO 3690
3650 ADV2$=" to make it this far.":GOTO 3690
3660 ADV2$=" to reach this destination.":GOTO 3690
3670 ADV2$=" to be here.":GOTO 3690
3680 ADV2$=" set up camp here.":GOTO 3690
3690 RETURN
3700 COLOR 3:REM HAZARDS OF ARBORINE
3710 COLOR 5
3720 PRINT"The Orchards of Arborine lie west of the grassy plains."
3730 PRINT"The fruit of the Orchards is poisonous both to the touch and to consume."
3740 PRINT"The fruit-fly carry a toxin which can infect unwary travellers."
3750 RETURN
3760 REM landing zone
3770 WEPON=INT(RND*9)+1:
3780 ON WEPON GOTO 3800,3810,3820,3830,3840,3850,3860,3870,3880,3890
3790 COLOR 9
3800 ANSL$="There is no way out this far "+DIP$:GOTO 3910
3810 ANSL$="The "+DIP$+"erly path is overgrown and lost":GOTO 3910
3820 ANSL$="The way is blocked to travelers going "+DIP$:GOTO 3910
3830 ANSL$="I can see no exit in this "+DIP$+"erly direction":GOTO 3910
3840 ANSL$="There is a sheer cliff in front of me "+DIP$:GOTO 3910
3850 ANSL$="An impenetrable forest lies to the "+DIP$+" blocking the way "+DIP$:GOTO 3910
3860 ANSL$="A dense fog makes further travel "+DIP$+" impossible.":GOTO 3910
3870 ANSL$="A Witch has put a curse on the road to the "+DIP$+". We had better choose another route.":GOTO 3910
3880 ANSL$="The "+DIP$+"ern path is washed out by floodwaters. Choose another route.":GOTO 3910
3890 ANSL$="Ferocious Pygmys ambush the way ahead to the "+DIP$+". You must turn back now!":GOTO 3910
3900 REM
3910 RETURN
3920 COLOR 2:REM JUNGLE CITY OF TRIOLLE
3930 PRINT"You are lost in the darkest jungle of the Twin Valleys"
3940 PRINT"Here you stumble across a long lost city made entirely out of sandstone"
3950 PRINT"The hidden city of Triolle is deserted and completely taken over by the jungle"
3960 PRINT"Monkeys and other primates inhabit it now. Beware they steal your provisions."
3970 RETURN
3980 COLOR 3:REM forests of Blear
3990 PRINT"Unlike the Darklands of Lansabad, the Forests of Blear are "
4000 PRINT"inhabited by the poison pygmy people of Prahm."
4010 PRINT"They live in the trees of Prahm and use poisonous darts to hunt"
4020 PRINT" their prey and to kill their enemies"
4030 PRINT"There is no reasoning with them. They can't communicate through "
4040 PRINT"language as their own is too primitive."
4050 PRINT"As you pass through their territory you come under attack"
4060 PRINT"Poisonous darts fly into your luggage and thick leather clothing"
4070 PRINT"You are saved from death by the armour you wear however it still is"
4080 PRINT"a harrowing experience and you make haste for the protective"
4090 PRINT"forests of Lansabad to the west."
4100 REM
4110 RETURN
4120 COLOR 11:REM quest
4130 PRINT"Your quest is to receive the famed Orb of Morteus from the "
4140 PRINT"recluse who dwells on the threshold of Morteus."
4150 PRINT"Your path is yours to discover but beware there are many "
4160 PRINT"dangers that lie in wait for your passage."
4170 PRINT"The hermit is difficult to find as he moves around"
4180 PRINT" on the Steppes of Drubel hunting his living."
4190 PRINT"The Orb of Morteus as its name suggests is a sphere
4200 PRINT"of pure crystal with some unique properties."
4210 PRINT"In the right hands it can predict future events so "
4220 PRINT"that unnatural catastrophies can be avoided."
4230 PRINT"You however do not possess the gene necessary to wield "
4240 PRINT"the Orb. You are merely the courier."
4250 PRINT"You are an adventurer, one of many who have attempted this quest."
4260 PRINT"journey West to begin your Quest ."
4270 QUEST=1
4280 RETURN
4290 REM ocean hazards
4300 COLOR 9:
4310 PRINT "You have been adrift on a bamboo raft for days now."
4320 PRINT"You have drunk the last of your water and the only "
4330 PRINT"provisions you have left are a few coconuts."
4340 PRINT"Look to see if any land is within sight":
4350 PRINT"By some miracle you have survived this crossing"
4360 RETURN
4370 REM
4380 REM
4390 REM
4400 COLOR 3:REM poisoned fruit
4410 GIFT$(2)="fruit":PRINT"Got it!"
4420 PRINT"You find yourself in the Orchards of Upper Arborine."
4430 PRINT"You must give the order to pick the fruit carefully wearing leather gloves."
4440 PRINT"You only take five of the pear shaped fruits. "
4450 PRINT"Just enough to coax the Druid of Drubel out of the Orb."
4460 PRINT"You stow the fruit in your saddlebags and continue on your way."
4470 RETURN
4480 COLOR 2:REM forests of Timbrell
4490 PRINT"As you enter the Forests of Timbrell you are overcome "
4500 PRINT"by the majestic beauty and spaciousness of the tall timbers."
4510 PRINT"This is open forest wherein many animals graze and find shelter."
4520 PRINT"The hunting is good here and you and your party eat well for the time being."
4530 PRINT"But the further north you travel this spaciousness is devoured "
4540 PRINT"by thick underbrush which soon becomes jungle."
4550 RETURN
4560 REM get raft
4570 GIFT$(1)="raft":PRINT"Got it!"
4580 PRINT"You build a makeshift raft out of Bamboo and some other timbers that seemed to be suitable."
4590 PRINT"You add provisions that should last you many days, mostly fruit and coconuts."
4600 RETURN
4610 PRINT"As you approach the Steppes of Drubel You are attacked "
4620 PRINT"by a gang of ruthless bandits."
4630 PRINT"One of them throws a spear at you but you dodge"
4640 PRINT"it and then drive them off. The spear could be an asset."
4650 SPEAR=1:RETURN
4660 REM get spear
4670 GIFT$(3)="spear":PRINT"Got it !":PRINT"In picking up the spear you are careful not to "
4680 PRINT"touch the tip as it could be poisonous."
4690 SPEAR=1:RETURN
4700 REM discovering the hermit of Drubel
4710 PRINT"After travelling for months you finally come into the Steppes of Drubel"
4720 REM the ravine of morteus
4730 COLOR 9
4740 PRINT"You find yourself in the Ravine of Morteus, a narrow gorge hundreds of feet deep"
4750 PRINT"with a gushing river which consumes anything which falls into it."
4760 PRINT"The Ravine is crossed by a narrow rope bridge that stretches two hundred meters"
4770 PRINT"across the Gorge. Below in the walls of the gorge you can see caves."
4780 RETURN
4790 REM go gorge
4800 COLOR 3
4810 PRINT"You decide not to take the rope bridge but instead to explore the ravine below."
4820 PRINT"There are many caves, some showing signs of habitation."
4830 PRINT"One cave you discover is massive and you decide to follow the many volcanic tubes "
4840 PRINT"that form its tunnels. The tube opens into a cathedral sized cavern. It is here"
4850 PRINT"that you discover the Hermit of Drubel closely guarding the Orb of Morteus."
4860 GOSUB 3160:
4870 COLOR 7:PRINT"Now you must decide whether to go through with the plan to steal
4880 PRINT" the Orb of Morteus. What must you do now? "
4890 REM
4900 GOSUB 1850:
4910 REM
4920 RETURN
4930 REM get orb
4931 if gift$(2)<>"fruit" then 5525
4940 GIFT$(2)="Orb of Morteus":COLOR 9:ORB=1
4950 PRINT"You place the fruit that you have of the Arborine trees"
4960 PRINT"on a pedestal then step away from it, and you watch as the hermit"
4970 PRINT"approaches the fruit cautiously."
4980 PRINT"Your heart beats furiously as you watch him handle the fruit."
4990 PRINT"Suddenly he hisses and throws the fruit to the floor in disgust."
5000 PRINT"You wonder with amazement 'does he know the fruit? "
5010 PRINT"Does he know the secret of the poison?' Why is it that he didn't taste it."
5020 PRINT"A lethal taste is all that was needed but as it turned out"
5030 PRINT"the handling of the fruit was enough to place the hermit"
5040 PRINT"into a deep sleep, almost a coma. When he fell to the floor you ran in "
5050 PRINT"and grabbed the Orb of Morteus. You steal the Orb without hesitation."
5060 PRINT"Packing the Orb into your saddlebags you and your entourage flee"
5070 PRINT"to the surface once again. Once there you use the rope bridge to cross the"
5080 PRINT" Ravine unfortunately leaving your horses and mules behind."
5090 PRINT"You slash the bridge from its moorings thereby ensuring your getaway."
5100 GOSUB 3160
5110 RETURN
5120 REM return victorious
5130 PRINT"Congratulations you have made it back to the safety of the Grasslands of Brihad"
5140 PRINT"You are hailed as a hero to return with the Orb of Morteus":GOSUB 5420
5150 RETURN
5160 REM in ocean no raft
5170 COLOR 4
5180 PRINT"You find yourself in the ocean without a raft or any means to keep afloat."
5190 PRINT"You cannot survive for more than a few hours. It will be the toss of the Dice"
5200 PRINT"to see whether you survive. The Die has been cast......"
5210 DICE=INT(RND*9)+1: IF DICE<5 THEN 5230
5220 IF DICE>6 THEN 5240
5230 PRINT"You manage to swim to shore":GOSUB 3160:GOTO 5250
5240 PRINT"You unfortunately do not survive. Next time build a raft.":GOSUB 3160:GOTO 5300
5250 RETURN
5260 REM help hints
5270 PRINT:PRINT"Take your boat with you wherever you go in case you fall into the ocean"
5280 PRINT:PRINT
5290 RETURN
5300 CLS:COLOR 9:LOCATE 5,20:PRINT" THE ORB OF MORTEUS"
5310 LOCATE 7,20:PRINT" by"
5320 LOCATE 9,20:PRINT" Hannah Orion"
5330 LOCATE 25,1:INPUT "Press Enter to start";AS$
5340 GOTO 20
5350 REM examine stuff
5360 EXAM=INT(RND*3)+1:ON EXAM GOTO 5370,5380,5390,5400
5370 EXA$="I have examined the "+WORD$+" carefully but did not find anything unusual.":GOTO 5410
5380 EXA$="An examination of the "+WORD$+" did not reveal any insights.":GOTO 5410
5390 EXA$="The "+WORD$+" was examined thoroughly without any problems.":GOTO 5410
5400 EXA$="The "+WORD$+" did not pass the examination.":GOTO 5410
5410 RETURN
5420 REM ******A German Folk Tune******
5430 PLAY "o2 t200 l8"
5440 PLAY "d g a b >c d4 ml e c< "
5450 PLAY "mn b p8 a p8 g4 p8 "
5460 RETURN :REM "d g a b >c d4 ml"
5470 PLAY " e c <b p8 a8 p8 g4 p4"
5480 PLAY ">d8. c16 <b >d c <b"
5490 PLAY "o2 t200 l8"
5500 PLAY "g a b >c d4 ml e c mn"
5510 PLAY "<b p8 a p8 g4."
5520 RETURN
5525 color 4:?"You need the poisonous fruit of the Arborine trees in order to complete this plan.":return
