Lost Dutchman's Mine (runs on any CBM 8 bit)

[Blacklord]

Code Select Expand

  10 rem lost dutchman's mine
   20 rem by cleveland m. blakemore
   30 rem runs on all commodore computers
   40 rem with 40 columns and petascii
   50 rem lock in uppercase & clear screen
   60 printchr$(8)chr$(142)chr$(147)
   70 rem print title screen
   80 print"{down}{down}{down}{down}{down}{down}{down}"tab(10)"lost dutchman's mine"
   90 printtab(10)"{down}{down}* all c= computers *":printtab(14)"{down}(c)1988 cmb"
  100 printtab(8)"{down}{down}by cleveland m. blakemore"
  110 rem initialize arrays and variables
  120 dim v$(32),n$(20),l$(9),s$(9),d(9,6),o(9,8),i(8),d$(8),m$(4)
  130 rem variables and flags
  140 rem cl=current location
  150 dim cl,wingame,weight,dead,alive,wolf,ghost,full,empty,river,mound,count
  160 alive=1:dead=0:wolf=alive:spirit=alive
  170 full=1:empty=0:river=empty:mound=full:count=0
  180 rem read locations & descriptions
  190 forx=.to9:readl$(x):next:forx=.to9:reads$(x):next
  200 rem read in directions
  210 forx=1to9:ford=1to6:readd(x,d):nextd,x
  220 forx=1to32:readv$(x):next:forx=1to20:readn$(x):next
  230 forx=.to8:readd$(x):next
  240 readx,d:ifx=-1then260
  250 o(x,d)=1:goto240
  260 forx=.to4:readm$(x):next
  270 rem wait for return key press
  280 printtab(8)"{down}{down}{down}{down}{down}{down}press return to continue"
  290 geta$:on-(a$<>chr$(13))goto290
  300 rem start off at gas station
  310 cl=.:gosub730
  320 rem parser main routines
  330 rem get command
  340 in$="":v=.:n=.
  350 input"{down}command>";in$:ifin$=""thenprint"silence is golden.":goto350
  360 rem parse verb
  370 iflen(in$)>1then450
  380 v=.:forx=1to7:ifin$=v$(x)thenv=x
  390 next:ifv=.thenprint"what does that mean?":goto600
  400 ifv=7thengosub880:goto600
  410 on-(cl=6and(v=1orv=6)andweight>1)goto420:goto430
  420 print"you are carrying too much to fit throughthe crack.":goto600
  430 ifd(cl,v)thencl=d(cl,v):gosub730:goto600
  440 print"you can't go that way!":goto600
  450 v=.:forx=8to13:ifin$=v$(x)thenv=x
  460 next:ifvthenv=v-7:goto410
  470 v=.:forx=14to32:ifleft$(in$,len(v$(x)))=v$(x)thenv=x:d=len(v$(x))
  480 next:ifv=.thenprint"i don't know that verb!":goto600
  490 rem parse noun
  500 x=len(in$):ifx=dthen570
  510 ifmid$(in$,d,1)<>chr$(32)andd  520 ifd=xthen570
  530 d=d+1:n=.:forx=1to20:ifmid$(in$,d,len(n$(x)))=n$(x)thenn=x
  540 next:ifn=.thenprintv$(v)" what?!?":goto600
  550 rem jump to appropriate subroutine
  560 rem based on value in "v"
  570 ifv<23thenonv-13gosub880,880,920,970,970,1030,1030,1100,1160:goto600
  580 onv-22gosub1210,1210,1280,1310,1310,1310,1370,1370,1450,1450
  590 rem check flags and counters
  600 ifwingamethenx=.:goto700
  610 ifcl=3andspirit=alivethencl=4:gosub730:print"{down}the spirit scares you back!!"
  620 ifcl=9andriver=emptythencl=7:gosub730:print"{down}the room below is underwater."
  630 ifriver=fullandcl=8andcount>0thenx=1:goto700
  640 ifwolf=aliveandcl=7andcount>1thenx=2:goto700
  650 ifspirit=aliveandcl=4andcount>4thenx=3:goto700
  660 ifspirit=aliveandcl=4andcount>2thenprint"{down}the spirit looks real angry!"
  670 if((cl>1andcl<4)orcl>5)andi(0)>-1andcount>2andrnd(0)>.5thenx=4:goto700
  680 count=count+1
  690 goto340
  700 print:printm$(x):ifxthenprint"sorry, you have died..."
  710 end
  720 rem print location
  730 count=0
  740 printchr$(147);
  750 if((cl>1andcl<4)orcl>5)andi(0)>-1thenprint"it's pitch dark in here!":return
  760 print"you are":printl$(cl)
  770 rem print available directions
  780 print"directions:";
  790 d=.:forx=1to6:ifd(cl,x)thenprintv$(7+x);",";:d=x
  800 next:ifd=.thenprint"none."
  810 ifdthenprint"{left}."
  820 rem print objects at location
  830 print"you can now see:":ifs$(cl)>""thenprints$(cl)
  840 d=.:forx=.to8:ifo(cl,x)thenprintd$(x):d=1
  850 next:ifd=.ands$(cl)=""thenprint"nothing."
  860 return
  870 rem load/inventory
  880 print"you are carrying:":d=.:forx=.to8:ifi(x)thenprintd$(x):d=1
  890 next:ifd=.thenprint"nothing."
  900 return
  910 rem gozer
  920 ifcl=.thencl=1:goto950
  930 ifcl=1thencl=.:goto950
  940 print"nothing happens here.":return
  950 gosub730:return
  960 rem take/get
  970 ifn=.thenprint"get what?!?":return
  980 ifn>9thenprint"you can't get that!":return
  990 ifi(n-1)thenprint"you already have it!":return
 1000 ifo(cl,n-1)theni(n-1)=o(cl,n-1):o(cl,n-1)=.:print"ok,taken.":goto1070
 1010 print"it's not here!":return
 1020 rem drop/put
 1030 ifn>9thenprint"you must be confused.":return
 1040 ifi(n-1)=.thenprint"you don't have it!":return
 1050 o(cl,n-1)=i(n-1):i(n-1)=0:print"okay, dropped."
 1060 ifo(0,5)ando(0,7)ando(0,8)thenwingame=1
 1070 weight=0:forx=.to8:ifi(x)thenweight=weight+1
 1080 next:return
 1090 rem light
 1100 ifi(1)=.thenprint"no matches.":return
 1110 ifn<>1thenprint"you're a pyromaniac!":return
 1120 ifi(.)=.thenprint"you don't have it!":return
 1130 ifi(.)=-1thenprint"it's already burning.":return
 1140 i(.)=-1:gosub730:print"{down}okay, it's burning.":return
 1150 rem dig
 1160 ifcl<>9orn<>15thenprint"try it somewhere else.":return
 1170 ifmound=emptythenprint"the mound has already been excavated.":return
 1180 o(9,8)=1:mound=empty:gosub730
 1190 print"{down}okay, you have dug a deep hole...":return
 1200 rem shoot/kill
 1210 ifi(3)=.thenprint"you don't have the "n$(4)"ver.":return
 1220 ifi(6)=.thenprint"you don't have the "n$(7)"ts.":return
 1230 ifn<>13andn<>14thenprint"you're crazy.":return
 1240 ifcl<>7thenprint"it's not here.":return
 1250 wolf=dead:print"{down}the revolver thunders fire and the wolf falls over dead";
 1260 print"{right}in mid-leap.":s$(7)="a dead timber wolf":return
 1270 rem say
 1280 ifn=10then920
 1290 print"nothing happens.":return
 1300 rem turn/rotate/twist
 1310 ifcl<>8orn<>18thenprint"interesting concept...":return
 1320 river=full:print"the door blasts open with a tidal wave  of water!!!"
 1330 print"the river bed quickly fills up and you{right}{right}are drenched."
 1340 print"you'd better leave. it's almost neck{right}{right}{right}{right}deep in here!"
 1350 s$(8)="bubbles coming out of your clenched lipsunderwater":count=0:return
 1360 rem blow/whist
 1370 ifn=.thenprint"tweet tweet tweet..."
 1380 ifcl=4andn=.thenprint"the spirit trembles and wavers a little.":return
 1390 ifn<>5thenprint"that's ridiculous!":return
 1400 ifi(n-1)=.thenprint"you don't have it!":return
 1410 ifcl<>4thenprint"nothing happens.":return
 1420 spirit=dead:print"the spirit writhes and vanishes in a{right}{right}{right}{right}cloud of smoke!"
 1430 s$(4)="":return
 1440 rem look/examine
 1450 ifn=.thengosub740:return
 1460 ifn<10thenifi(n-1)=.thenprint"you don't have it!":return
 1470 ifn=2thenprint"gozer travel inc.'need to travel?? call gozer!!'":return
 1480 ifcl=2andn=12thenprint"his bony claw points to the east...":return
 1490 ifcl=0andn=19thenprint"{rvs on} put all the treasure on this shelf ":return
 1500 ifn=1andi(0)=-1thenprint"it's burning.":return
 1510 ifn=1andi(0)=1thenprint"it's out.":return
 1520 print"you see nothing out of the ordinary.":return
 1530 rem locations
 1540 data in a deserted last chance gas station
 1550 data"in a dusty adobe house with a sunbeam{right}{right}{right}coming through an east window"
 1560 data in a long e-w mineshaft,in a sloping granite tunnel
 1570 data in front of an old boarded up mineshaft entrance,in a deep ravine
 1580 data inside a cool cavern with a small crack leadingdown to the north
 1590 data on a spiral stone staircase
 1600 data in a subterranean river bed running east & west
 1610 data in an ancient indian burial ground
 1620 rem specific observations
 1630 data a metal plaque above a glass shelf,a skull mounted on a spear
 1640 data a skeleton draped with cobwebs,"",a whistling evil spirit
 1650 data "",a colossal stone sun calendar,a ravenous snarling timber wolf!
 1660 data a circular wheel set in the middle of aniron door to the east
 1670 data a large burial mound
 1680 rem directions
 1690 rem  n,s,e,w,u,d
 1700 data 4,0,0,0,0,0
 1710 data 0,0,6,7,3,0
 1720 data 0,0,0,0,4,2
 1730 data 3,1,0,5,0,0
 1740 data 0,0,4,0,0,0
 1750 data 8,0,0,2,0,8
 1760 data 0,0,2,0,2,9
 1770 data 0,6,0,8,6,0
 1780 data 0,0,0,0,7,0
 1790 rem verbs
 1800 data n,s,e,w,u,d,i,north,south,east,west,up,down,load,inven,gozer,take
 1810 data get,drop,put,light,dig,shoot,kill,say,turn,rotat,twist,blow,whist
 1820 data look,examine
 1830 rem nouns
 1840 data torch,match,shove,revol,bottl,diamo,bulle,ruby,nugge,gozer
 1850 data skull,skele,wolf,timb,mound,calen,spiri,wheel,plaqu,shelf
 1860 rem descriptions
 1870 data a wooden torch,a matchbook,a rusty shovel
 1880 data a pearl handled revolver,an empty 7-up bottle
 1890 data a glowing diamond,a handful of rusty bullets,a lustrous red ruby
 1900 data the dutchman's nugget
 1910 rem objects & initial locations
 1920 data 0,1,0,3,0,4,1,0,5,2,2,6,3,7,8,5,-1,-1
 1930 rem end of game messages
 1940 data congratulations! you've won the game!
 1950 data you drowned in the river.,the timber wolf tears you to shreds.
 1960 data the evil spirit sucked the breath out of you!
 1970 data you fell down in the dark and broke your neck!