0 poke 59468,12:rem" Adventure 1.5 copyright(c)1980 by John O'Hare
1 lu=150:lf=2
2 lt=62:remlight object #
3 tv=15:t7=20:mx=tv*t7:mx=mx+50:remtv=treasurevalue/t7=#of treasures/mx=max score
4 ol=10:rem object limit
5 fori=0to5:readd$(i):next
6 data north,south,east,west,up,down
7 tr=7:remtreasure storage room
8 rem n=nouns/v=verbs/r1=rooms/o=objects/m=messages/c=commands/a=actions
9 gosub2200
10 read n,v,r1,o,m,c,a,dr:dimn$(n),v$(v),rm$(r1),rm(r1,5),ob(o),ob$(o),ob%(o)
11 lb=57:rem limbo
12 dt=58:remdeath room
14 ad=3:ad$=" HAUNTED MANSION ":rem adventure number and name
15 dim ow$(o),m$(m),c$(c)
16 poke59468,14:print"Welcome to Adventure"ad
17 print:print""tab(17-(len(ad$)/2));"*"ad$"*"
18 deffnr(x)=int(rnd(1)*x)+1
19 gn=4:so=50
20 gosub2000
30 fori=0ton:read n$(i):next
40 fori=0tov:read v$(i):next
50 fori=0tor1
60 readrm$(i)
70 forj=0to5
80 readrm(i,j)
90 next:next
100 fori=1too
110 read ob$(i),ow$(i),ob%(i),ob(i)
120 next
130 fori=1tom
140 readm$(i)
150 next
160 rm$(lb)=rm$(lb)+chr$(13)+"A sign here says: LIMBO, find right exit "
161 rm$(lb)=rm$(lb)+"and live again."
170 fori=1toc
171 readc$(i):next
175 r=1:rem (c)1980 john o'hare
176 readw0:dimw1$(w0),w2$(w0):forwc=1tow0:readw1$(wc),w2$(wc):next:reade4$:jp=1
181 fori=1to7:reade$(i):next:fori=1to3:readhs$(i):next
182 read e5$
186 print"hit any key to begin adventure"
187 geta$:ifa$=""then187
188 print"":gosub4800
189 input"use saved game n";g$
190 if g$="n"then199
191 print:print"hit any key when tape is ready.":poke158,0
192 get sg$:ifsg$=""then192
193 open1,1,0,"advent"
194 input#1,r,lu,df,lf,so,gn,ga,gf
195 forsg=1too
196 input#1,ob%(sg):next
197 close1
199 print""
200 df=0:if r>drandob%(lt)<>-1andob%(lt)<>rthendf=1
201 if r=lborr=dtthendf=0
202 if df=0 then 209
203 print"I CAN'T SEE IN THE DARK!"
204 print:goto330
209 if left$(rm$(r),1)="*"then rm$=mid$(rm$(r),2):goto220
210 print"You're in ";:rm$=rm$(r)
220 printrm$"."
225 if r=dtthenprint:so=so-12:qf=1:goto1200
230 x=1:uf=0
240 print:forvi=1too:ifob%(vi)=randx=1thenprint"VISIBLE ITEMS HERE:":x=0:uf=1
245 ifob%(vi)<>rthen260
247 iflen(ob$(vi))+pos(0)>36thenprint
250 printob$(vi)". ";
260 next
265 ifufthenprint
270 x=1
280 print:foroe=0to5
290 if rm(r,oe)<>0andx=1thenprint"OBVIOUS EXITS:":x=0
300 if rm(r,oe)<>0thenprintd$(oe)" ";
310 next:print
315 print"Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,"
320 if ob%(lt)=-1thenlu=lu-1
321 gosub400
322 ht=ht+1
325 gosub4300
327 gosub3900
328 ifgk=1thengk=0:so=so-5:goto200
330 print: print"WHAT NEXT Ã,,";
331 i1$="":i2$=""
340 inputip$:i1$=ip$
342 ifip$="Ã,,"thenprint"":goto330
345 print
350 forsb=1tolen(ip$)
360 ifmid$(ip$,sb,1)=" "theni1$=left$(ip$,sb-1):i2$=right$(ip$,len(ip$)-sb):goto380
370 next
380 goto500
390 rem lamp and attack checks
400 iflu<50andlf=2andob%(lt)<>0thenprint"You're flashlight is getting dim!":lf=1
410 iflu<38andlf=1andob%(lt)<>0thenprint"You're flashlight is getting dimmer!!":lf=0
420 if lu<25and lu>0 andob%(lt)<>0thenprint:print"LIGHT RUNS OUT IN"lu"TURNS!"
430 if lu=0and lf=0thenprint"LIGHT HAS RUN OUT!!!":lf=-1:ob%(lt)=0
440 rem
450 return
500 if i1$="go"theni1$=i2$:i2$=""
501 if i1$="say"theni1$=i2$:i2$=""
505 v1$=left$(i1$,3):n1$=left$(i2$,3):i1=0:i2=0
506 ifv1$="fee"andn1$="oys"thenn1$="big"
507 forw3=1tow0:ifv1$=w1$(w3)thenv1$=w2$(w3)
508 next
509 ifn1$="hou"orn1$="tra"thenn1$="doo"
510 forvl=1tov
520 if v1$=v$(vl)theni1=vl:goto540
530 next
540 if i2$=""then570
541 fornl=1ton
550 if n1$=n$(nl)theni2=nl:goto570
560 next
570 if i1=0thenprint"YOU USE WORD(S) I DON'T KNOW":goto330
580 if i1<7andi1>0then1100
590 mf=0:k=0
595 jp=1:c7=53:ifi1>17thenjp=54:c7=c
600 fory=jptoc7
610 if val(mid$(c$(y),1,2))<>i1then710
615 if val(mid$(c$(y),3,2))=0then630
620 if val(mid$(c$(y),3,2))<>i2then710
630 k=0:mf=1:forz=5to16step4
635 c1=val(mid$(c$(y),z,2)):c2=val(mid$(c$(y),z+2,2))
640 ifc1=1thenifob%(c2)<>-1then710
650 ifc1=2thenifr<>c2then710
660 ifc1=3thenifob%(c2)<>0then710
680 ifc1=5thenifob%(c2)<>rthen710
695 k=k+1:if k=3thenan=y:goto800
700 next
710 nexty
715 if mf=1thenprint"I CAN'T DO THAT NOW.":goto730
720 print"I DON'T UNDERSTAND?"
730 goto320
800 af=0:dh=0:rf=0:rc=0
805 forg=17to34step6:a1=val(mid$(c$(an),g,2)):a2=val(mid$(c$(an),g+2,2))
807 a3=val(mid$(c$(an),g+4,2))
810 if a1=1thenprintm$(a2)".":goto910
820 if a1=2thenob=ob%(a2):ob%(a2)=ob%(a3):ob%(a3)=ob:goto910
830 if a1=3thenob%(a2)=0:goto910
840 if a1=4thenob%(a2)=r:goto910
850 if a1=5thenr=a2:rc=1:goto910
860 if a1=6thendh=1:r=lb:so=so-5:goto910
870 if a1=7thengosub920:goto910
880 if a1=8thengosub1000:goto910
885 ifa1=17thenrm(r,a2)=a3:goto910
890 if a1=9then ob%(a2)=a3:goto910
900 if a1=10thengosub1050:goto910
901 if a1=77thendh=1:goto910
903 ifa1=18thengosub4200:goto910
904 if a1=11thenrc=1:goto910
905 if a1=12thengosub1200:goto910
906 if a1=13thenqf=1:goto1200
907 if a1=14thenh=a2:af=1:gosub950:goto910
908 if a1=15thene=a2:af=1:gosub1030:goto910
909 if a1=16thengosub2500:goto910
910 next
911 if dh=1thenprint:goto200
912 if rc=1then199
913 goto320
920 forh=1too
930 if n1$=ow$(h)then950
940 next:if i2$<>""thenprint"I see no "i2$" here!":return
941 print"be specific"
942 return
950 if ob(h)=1thenprint"IT'S BEYOND MY POWER TO DO THAT!":return
952 if ob(h)>1thenprint"Don't be stupid!":return
955 if ob%(h)=-1then print"I'm already carrying it.":return
960 if ob%(h)<>rthenprint"I DON'T SEE IT HERE!":return
961 os%=0:forpq=1too:ifob%(pq)=-1thenos%=os%+1
962 next
970 ifos%+1>olthenprint"I'VE TOO MUCH TO CARRY":return
980 print"ok,":ob%(h)=-1:return
990 rem
1000 ifn1$<>"tre"then1008
1001 td%=0:fortd=1too
1002 ifleft$(ob$(td),1)<>"*"then1006
1003 iftd=52andob%(td)=-1andob%(42)<>rthenprintm$(24):ob%(52)=0:ob%(76)=r:goto1006
1004 iftd=52andob%(td)=-1thenprintm$(43):ob%(td)=r:goto1006
1005 ifob%(td)=-1thenob%(td)=r:print"dropped: ";ob$(td):td%=1
1006 nexttd:iftd%=0thenprint"You have no treasure to drop."
1007 return
1008 if i2$=""thenprint"be specific":return
1009 fore=1too
1010 if n1$=ow$(e)then1030
1020 next:print"You don't have it!":return
1030 if ob%(e)=-1thenob%(e)=r:print"ok,":return
1040 print"I'M NOT CARRYING IT!":return
1050 os=0:print"I'M CARRYING:"
1070 fori7=1too
1080 ifob%(i7)<>-1then1090
1081 os=1
1082 iflen(ob$(i7))+pos(0)>36thenprint
1083 printob$(i7)". ";
1090 next
1091 ifosthenprint:return
1092 print"nothing":return
1100 if rm(r,i1-1)=0anddf=0thenprint"I CAN'T GO IN THAT DIRECTION.":goto320
1101 ifrm(r,i1-1)=0anddf=1thenprint"I FELL DOWN AND BROKE MY NECK!!":goto1130
1102 ifob%(54)=randi1=1thenprint"The goblin won't let me by!":goto320
1105 ifob%(55)=randi1=3thenprint"The troll is blocking my way!":goto320
1110 r=rm(r,i1-1):goto199
1120 end
1130 r=lb:so=so-5:goto200
1200 sc=0:fori=1too
1210 if right$(ob$(i),1)="*"andob%(i)=tr then sc=sc+tv
1220 next
1222 ifqf=1thenso=so-4
1223 ifso<0thenso=0
1225 sc=sc+so
1230 if qf=1then1300
1240 print"YOUR SCORE IS"sc"OUT OF A POSSIBLE"mx
1250 if sc-so=300thenprint:goto1300
1255 return
1300 print"You scored"sc"points."
1310 print"There were"mx"points possible."
1311 ifsc<1thenprint"You must have nothing but space between youre ears!":end
1312 ifsc<51thenprint"You are obviously a rank amateur.":end
1313 ifsc<75thenprint"You're score qualifies you as a novice class adventurer.":end
1314 ifsc<125thenprint"You've achieved the rating: Experienced Adventurer":end
1315 ifsc<175thenprint"You have reached the 'junior master' status.":end
1320 ifsc<225thenprint"Your score puts you in MASTER ADVENTURERclass -D-":end
1330 ifsc<295thenprint"Your score puts you in MASTER ADVENTURERclass -C-":end
1335 ifsc<345thenprint"Your score puts you in MASTER ADVENTURERclass -B-":end
1340 ifsc<350thenprint"Your score puts you in MASTER ADVENTURERclass -A-":end
1350 ifsc=mxthenprint"All of adventuredom gives tribute"
1355 ifsc=mxthenprint"to you, ADVENTURER GRANDMASTER!":end
2000 print
2010 print"This is adventure!!!"
2020 print"I will be your eyes and hands as you"
2030 print"search for lost treasure."
2040 print
2050 print"The object is to recover"t7"treasures"
2060 print"and return them to the proper place."
2065 print"Treasures have a '*' in there name":print
2070 print"Use two word commands consisting of"
2080 print"a verb and a noun, example:"
2090 print
2100 print"go west, take gold, enter hole, shoot"
2110 print
2120 print"inventory, save game, drop treasure"
2121 print"hit any key to continue"
2122 get a$:ifa$=""then2122
2123 print" Words to Know "
2125 print"READ - if you have something that can be read you will read it."
2126 print"ENTER - will take you into a hole, passage, building, etc..
2127 print"INVENTORY - gives you list of what you are carrying."
2128 print"LOOK - describes the room you are in."
2129 print:print"Use TAKE and DROP in most cases to manipulate objects."
2130 print
2131 print"There are many more words that will be discovered as you explore some may
2132 print"even be magic, usually when you tell me things you should use two words."
2133 print:print"If you find one word doesn't work just try another."
2151 print
2153 print"Please wait while I load my data..."
2160 return
2165 print"Treasures have a (*) in there name":print
2200 print"";
2400 print" Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,, adventure "
2402 print" N N M±± -by- "
2404 print" N N ÚÃ,Ã,¿ M ³ john o'hare "
2406 print" N N ÀÃÃÙ M³
2408 print" N N M VVVVVVV
2410 print" N N³ ³M VVMVVVNVV
2412 print" PÃ,,Ã,, ³ÚÃ,¿ ÚÃ,¿ ÚÃ,¿ ³Ã,, VVVVVVVVV
2414 print" ³É¿ ³ÀÃÙ ÀÃÙ ÀÃÙ ³ VVVMNMNMVV"
2416 print" PPÀÙ LÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ù VVVVVVVVV"
2418 print" Ã,,P ³M M V M N V"
2420 print" ³ ³ M M N ³³
2422 print"³M³ ܳ OOÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,PP ³³
2424 print"³³PPPP ³³ÚÃ,¿ OÃ,,³ÚÃ,Ã,¿ ³³ ³³
2426 print"³³³³³³ ³³ÀÃÙ ³.³ÀÃÃÙ ³³ ³³
2428 print"³³³³³³Ã,,Ã,,³LÃ,,Ã,,Ã,,Ã,,³ LÃ,,Ã,,Ã,,Ã,,Ã,,Ù³ ³³
2430 print" M³³³³M ³³ Ã,,Ã,, ³³M ³³
2432 print" Ã,,Ã,,Ã,,PMOÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,PÃ,,Ã,,OÃ,,Ã,,Ã,,P NVM
2434 print" ³PPPPPPPPPPPÃ,,Ã,,OOOOO³
2436 print" M M
2438 print" ³ ³ Ü»
2440 print" M M³"
2442 print"Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,, Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,"
2443 print
2444 print"Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,"
2450 print" hit any key to begin adventure"
2455 geta$:ifa$=""then2455
2460 gosub3000
2465 return
2500 print:print"hit any key when tape is ready.":poke158,0
2501 getsg$:ifsg$=""then2501
2502 open1,1,2,"advent"
2503 print#1,r:print#1,lu:print#1,df:print#1,lf:print#1,so:print#1,gn:print#1,ga:print#1,gf
2504 fori=1too
2505 forsg=1too
2506 print#1,ob%(sg):next
2507 close1
2508 return
2999 rem n,v,r,o,m,c,a,dr
3000 poke32997,32
3010 poke32997+4,32
3015 fori=33077to33076+5:pokei,32:next
3017 fori=1to1500:next
3020 return
3900 if ob%(54)=rorob%(55)=rorob%(73)=rorob%(74)=rthenob%(61)=0:return
3999 ifr<8orr=lborr=(dt)orht<35thenreturn
4000 ifgn=0thenreturn
4005 ifga=1thenob%(61)=r:goto4030
4010 iffnr(32)=7thenga=1:goto3999
4020 ob%(61)=0:return
4030 rem
4040 print"There is a threatening little ghost in the room with you!"
4050 gf=(1-gf)
4060 ifgfthenreturn
4070 print"The ghost attacks!"
4080 iffnr(6)=2thenprint"It got you!":r=lb:ga=0:gk=1:return
4090 print"It missed!"
4100 return
4200 iffnr(5)>2thenprint"You missed!":return
4210 print"You got him!":print"The ghost dissapears in a white mist!"
4220 gn=gn-1:ga=0:gf=0:ob%(61)=0
4230 return
4300 ifr=27thenprint"A clock shows the time: ";left$(ti$,2)":"mid$(ti$,3,2)""
4305 ifha=1thenprint"The spirit of Hubie Marsten appears and says:":prinths$(fnr(3))"."
4306 ifha=1thenob%(74)=r:ha=0
4310 iffnr(5)=4andr>6thenprinte$(fnr(7))"."
4315 ifr>3andr<7andfnr(4)=2thenprint"The trees seem to be alive!"
4316 ifr>32andr<36andob%(74)<>rtheniffnr(3)=2thenha=1
4317 ifob%(74)=randfnr(3)=2thenprint"The spirit vanished??":ob%(74)=0:ha=0
4320 ifob%(54)=randfnr(3)=2then4400
4330 ifob%(55)=randfnr(3)=2then4500
4335 ifob%(73)=randfnr(3)=2then4600
4340 return
4400 print"The goblin attack with an axe in hand!"
4410 iffnr(6)=4thenprint"CRUNCH!! He gets you!":r=lb:gk=1:return
4420 print"WHOOSH! He misses!":return
4500 print"The troll attacks!"
4510 iffnr(7)=6thenprint"He smashes your skull!":r=lb:gk=1:return
4520 print"He missed!":return
4600 print"Barlow attacks!"
4610 ifob%(38)=-1thenprint"He sees your cross and backs off!":return
4620 iffnr(4)=3thenprint"He got you!!":r=lb:gk=1:return
4630 print"He missed!":return
4800 input "What time is it (HHMM)";tm$
4805 iflen(tm$)<>4thenprint"illegal time":goto4800
4810 ti$=tm$+"00"
4820 print"thank you friend."
4830 return
10269 data 35,31,58,78,59,91,0,35
10279 rem
10289 rem
10299 rem
Data statements:
10309 data nnn,mai,big,spi,let,doo,mat,but,kni,bot,liq,des,oys,pap,red
10319 data blu,gre,boo,gol,clo,cof,pot,sta,lad,gun,cro,tru,rug,gob,gho,tro,sig
10329 data fla,win,gam,pas
10339 data vvv,nor,sou,eas,wes,up,dow,tak,dro,ent,inv,loo,sco,qui,hel,pus
10349 data rea,ope,mov,sho,run,kil,eat,cli,tur,on,off,dri,cbm,sav,thr,sta
10359 rem
10369 rem
10379 data room #0,0,0,0,0,0,0
10389 data "*You're on an old worn path",6,0,1,2,0,0
10399 data "*You're walking along an old path",5,0,1,3,0,0
10409 data "front of a big spooky house",0,7,2,4,0,0
10419 data "the haunted forest",5,4,4,5,0,0
10429 data "the haunted forest",4,4,6,4,0,0
10439 data "the haunted forest",5,4,1,5,0,0
10449 data "*You're on the porch of the old house",3,0,0,0,0,0
10459 data "an old dusty living room",7,12,9,0,0,0
10469 data "the dining room",0,13,10,8,0,0
10479 data "the kitchen",0,0,11,9,0,0
10489 data "a musty old pantry",0,0,0,10,0,0
10499 data "the family room",8,0,13,0,00,0
10509 data "a small alcove",9,16,0,12,26,0
10519 data "the study",0,17,0,0,0,0
10529 data "*You're at the west end of a corridor",0,18,16,0,0,0
10539 data "the middle of a corridor",13,19,17,15,0,0
10549 data "*You're at the east end of a corridor",14,20,0,16,0,0
10559 data "the Den",15,0,0,0,0,0
10569 data "the Library",16,0,0,0,0,0
10579 data "a Guest Room",17,0,0,21,0,0
10589 data "a dusty closet",0,0,20,0,0,0
10599 data "the trophy room",0,25,0,0,0,0
10609 data "an old dusty nursery",0,26,0,0,0,0
10619 data "a large bathroom",0,27,0,0,0,0
10629 data "*You're at the west end of a hallway",22,28,26,0,0,0
10639 data "a stairwell",23,31,27,25,0,13
10649 data "*You're at the east end of a hallway",24,32,0,26,0,0
10659 data "the master bedroom",25,0,0,29,0,0
10669 data "a dark, dusty closet. A ladderleads up here",0,0,28,0,30,0
10679 data "*You're on the ladder",0,0,0,0,0,29
10689 data "a yellow bedroom",26,0,0,0,0,0
10699 data "a white bedroom",27,0,0,0,0,0
10709 data "the west end of the attic",0,0,34,0,0,30
10719 data "the east end of the attic",0,35,0,33,0,0
10729 data "a dirty old storeroom",34,0,0,0,0,0
10739 data "the basement, there is a largeopen door to the south",0,40,0,37,10,0
10749 data "a laundry room",0,0,36,38,0,0
10759 data "a musty, old room in the basement",0,39,37,0,0,0
10769 data "an old wine cellar",38,0,0,0,0,0
10779 data "a chilly, damp room",36,0,0,0,0,0
10789 data "a secret underground cavern",0,42,0,0,40,0
10799 data "a narrow passage",41,0,43,0,0,0
10809 data "a drafty chamber",0,0,44,42,0,0
10819 data "a large circular chamber",45,0,46,43,0,0
10829 data "a splendid chamber 30 feet high",47,44,0,0,0,0
10839 data "a roughly carved room, a pit leads down",0,52,0,44,0,53
10849 data "*You're at a junction of three passages",0,45,48,56,0,0
10859 data "a dusty passage",0,0,49,47,0,0
10869 data "an old broken passage",0,0,50,48,0,0
10879 data "*You're at a turn in the passage",0,51,0,49,0,0
10889 data "a TORTURE CHAMBER",50,0,0,0,0,0
10899 data "a cold damp room",46,0,0,0,0,0
10909 data "a pit",0,0,0,0,0,54
10919 data "a pit",0,0,0,0,0,55
10929 data "a pit. There are no exits",0,0,0,0,0,0
10939 data "a dead end passage",0,0,47,0,0,0
10949 data " a misty room with strange looking exits",1,58,58,58,5,58
10959 data " H E L L <Ã,,¿<Ã,,Ã...<Ã,,ÙÃ,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,Ã,,*",0,0,0,0,0,0
10969 rem
10979 rem close
10989 rem
10999 data "MAILBOX (name on it: Hubie Marsten)",mai,3,1
11009 data ring of keys,key,0,0
11019 data old letter,let,0,0
11029 data "LARGE PADLOCKED DOOR",doo,7,1
11039 data "OPEN DOOR",doo,0,1
11049 data doormat,mat,7,0
11059 data "BUTTON BY DOOR (doorbell?)",but,7,1
11069 data "SIGN - LEAVE TREASURE HERE SAY SCORE",sig,7,1
11079 data "FURNITURE",fur,8,1
11089 data "TABLE & CHAIRS",tab,9,1
11099 data *silver candlesticks*,can,9,0
11109 data *silver knife*,kni,10,0
11119 data pool of blood,blo,10,1
11129 data "BIG MAC",big,10,0
11139 data "vial of strange liquid",via,11,0
11149 data *wallet full of $100s*,wal,12,0
11159 data "DESK",des,14,1
11169 data slip of paper,pap,0,0
11179 data magic gun,gun,0,0
11189 data *gold watch*,wat,18,0
11199 data *rare painting*,pai,18,0
11209 data red book,red,19,0
11219 data blue book,blu,19,0
11229 data green book,gre,19,0
11239 data *gold book*,gol,0,0
11249 data "CLOSET",xxx,20,1
11259 data bed,bed,20,1
11269 data *oriental rug*,rug,20,0
11279 data cloths,clo,21,1
11289 data *mink*,min,21,0
11299 data *gold medal*,med,22,0
11309 data crib,cri,23,1
11319 data * $1000 savings bond *,bon,23,0
11329 data toilet,toi,24,1
11339 data sink,sin,24,1
11349 data a bubbling potion,pot,24,0
11359 data stairs going down,sta,26,1
11369 data wooden cross,cro,26,0
11379 data "CLOSET",xxx,28,1
11389 data *pearl necklace*,nec,28,0
11399 data bed,bed,28,1
11409 data *velvet pillow*,pil,28,0
11419 data ladder,lad,29,1
11429 data furniture,fur,31,1
11439 data "*Commodore PET*",pet,31,0
11449 data furniture,fur,32,1
11459 data cobwebs,cob,33,1
11469 data *rare family jewels*,jew,34,0
11479 data "A body hanging from a noose (Hubie?)",bod,35,1
11489 data old trunk,tru,35,1
11499 data *rare coins*,coi,0,0
11509 data *bottle of rare imported wine*,win,39,0
11519 data "An old wooden Coffin",cof,40,1
11529 data "A dangerous GOBLIN",gob,45,2
11539 data "A mean TROLL",tro,43,2
11549 data "a torture rack",rac,51,1
11559 data *gold death mask*,mas,51,0
11569 data "GIANT OYSTER",oys,52,1
11579 data *sack of diamonds*,dia,55,0
11589 data *large ruby*,rub,56,0
11599 data "A GHOST",gho,0,2
11609 data flashlight(on),fla,0,0
11619 data flashlight(off),fla,11,0
11629 data large rug,xxx,10,1
11639 data locked trapdoor,tra,0,1
11649 data open trapdoor,tra,0,1
11659 data locked trapdoor,tra,30,1
11669 data open trapdoor,tra,0,1
11679 data *giant pearl*,pea,0,0
11689 data stairs going up,sta,13,1
11699 data cobwebs,cob,8,1
11709 data "SIGN SAYS - YOU SHALL DIE...",sig,5,1
11719 data "-Barlow the Vampire-",vam,0,2
11729 data "The spirit of Hubie Marston",spi,0,1
11739 data empty vial,via,0,0
11749 data sweet smelling broken glass,gla,0,0
11759 data "PASSAGE",pas,0,1
11760 data empty bottle,bot,0,0
11769 data nothing happens
11779 data "how should I know what to do"
11789 data "I'M DEAD"
11799 data a couple things fell out
11809 data something fell out
11819 data the trapdoor creaks open
11829 data the door creaks open
11839 data"It says: those who enter may not leave heres a hint they may need"
11849 data"If something is too heavy to take, try to move it"
11859 data "OK, I moved it"
11869 data "OK, weird laughing comes from the house"
11879 data"the troll drinks the potion and turns into a frog, the frog hops away"
11889 data"you got him. The goblin and disappears in a cloud of black smoke"
11899 data "Barlow turns to dust and blows away"
11909 data "The ghost vaporizes"
11919 data "It's poison I'm dead!"
11929 data "Everything changes and...."
11939 data "BANGBANGBANG"
11949 data you got him
11959 data you missed
11969 data "it says - Hubie is harmless"
11979 data "It says:"
11989 data "This book is a treasure"
11999 data "The bottle of wine drops with a CRASH!"
12009 data "It's empty"
12019 data "some treasures may be weapons shoot goblin-troll potion!
12029 data "say CBM"
12039 data "Kill a Vampire with *silver* when trapped, take a drink"
12049 data indentify book by color
12059 data "I don't have it"
12069 data "Where?!?"
12079 data "The BLUE book turns into a *gold* book"
12089 data "thanks I was hungery"
12099 data the flashlight is on
12109 data the flashlight is off
12119 data "I can't move that!"
12129 data there was something under it
12139 data "OK,"
12149 data "It's locked"
12159 data "It's to heavy"
12169 data "I need a key"
12179 data "The oyster opens up to eat the BIG MAC and a pearl rolls out!"
12189 data "The bottle lands softly on the pillow"
12199 data "A voice booms out.....PLEASE LEAVE IT ALONE!"
12209 data "The lid of the Coffin rises and Barlow the vampire jumps out!!!"
12219 data "I don't see it here"
12229 data "HOW?!?"
12239 data"I have nothing to read","NOT WELCOME",closets aren't closed
12249 data "I have nothing to eat"
12259 data "I have nothing to drink"
12269 data "I don't have a gun"
12279 data "I don't have a knife"
12289 data "Barlow stops me!"
12299 data "There is nothing to attack here"
12309 data "The bullets bounce off the shell!"
12310 data "He only eats big macs and I don't have one"
12312 data "hic hic, burp. Boy was that good!"
12319 data1000000000000000100000000000000000,1100000000000000110000000000000000
12329 data1200000000000000120000000000000000,1300000000000000130000000000000000
12339 data0712055800000000014000000000000000,0720055300000000014000000000000000
12349 data0726055000000000014000000000000000,0717000000000000012900000000000000
12355 data 0731000000000000014400000000000000
12359 data 0727056400000000014000000000000000
12369 data0732056300000000146300000000000000,0802055803690114014200046900031400
12370 data0802055800000000015800000000000000
12379 data0821055501360000011200035500033600,0832016300000000156300000000000000
12389 data0817000000000000012900000000000000,0905050400000000013900000000000000
12399 data0833015205420000014300155200000000,0833015200000000012400155200025276
12402 data 0700000000000000070000000000000000,0800000000000000080000000000000000
12409 data0905050500000000050800000000000000,0905056600000000053600000000000000
12419 data0905056800000000053300000000000000
12429 data0919052600000000052100000000000000,0919053900000000052900000000000000
12439 data0935057700000000054100000000000000
12445 data 1400000000000000010200000000000000
12449 data1507050700000000011100000000000000
12459 data1604010300000000010800010900000000
12469 data1606050600000000012200014900000000
12479 data1613011800000000012100000000000000
12489 data1617000000000000012900000000000000
12499 data1614012200000000012200012600000000
12509 data1615012300000000012200012700000000
12519 data1616012400000000012200012800000000
12529 data1618012500000000012200012300000000
12539 data1600000000000000014800000000000000
12549 data 1720037305530000012500014500047300
12555 data1720055300000000012500000000000000
12559 data1705050401020000010700020405170108
12569 data1701050103020303010400040300040200
12579 data1701050100000000012500000000000000
12589 data1705056501020000010600026566170536
12599 data1705056500000000014100000000000000
12609 data1705050400000000014100000000000000
12619 data1705056701020000010600026768170433
12629 data1705056700000000014100000000000000
12639 data1719000000000000015000000000000000
12649 data1711051703180319010400041800041900
12659 data1726055003510000010500045100000000
12669 data1726055000000000012500000000000000
12679 data1711051700000000012500000000000000
12689 data 1820057305530000015500000000000000
12699 data 1820037305530000014500015500047300
12709 data1827056403650366011000013700046500
12719 data1820055303770000011000013700047700
12729 data1812000000000000013600000000000000
12739 data1900056101190000011800180000000000
12749 data1900057401190000011800010100000000
12759 data1900055401190000011800011300035400
12769 data1900055501190000011800010100000000
12779 data1900055801190000015700000000000000
12789 data1900057301190000011800010100000000
12799 data1900011900000000015600000000000000
12809 data1900000000000000015300000000000000
12819 data2000000000000000013100000000000000
12829 data2100000000000000014700000000000000
12839 data2200011400000000013300031400000000
12849 data2200000000000000015100000000000000
12859 data2323054300000000053000000000000000
12869 data2400016200000000013500026263770000
12879 data2400016300000000013400026263770000
12889 data2500016300000000013400026263770000
12899 data2600016200000000013500026263770000
12909 data2710011502550000011700021575050600
12919 data2710011500000000011700021575050800
12925 data2733015200000000015900025278000000
12929 data2721013600000000011600033600060000
12939 data2721000000000000013000000000000000
12940 data2710000000000000013000000000000000
12941 data2700000000000000015200000000000000
12949 data2800012300000000013200022325000000
12959 data2800000000000000010100000000000000
12969 data2934000000000000160000000000000000
12979 data3008057301120000011400097399041200
12989 data3008011200000000010100041200000000
12999 data3008000000000000015400000000000000
13000 data3100057301120000011400097399000000
13001 data3100011200000000010100000000000000
13002 data3100000000000000015400000000000000
13009 data13,n,nor,s,sou,e,eas,w,wes,u,up,d,dow,get,tak,use,sho,sea,ope,att,kil
13010 datafir,sho,fee,dro,giv,dro,end
13012 data"A black cat runs by","I heard a funny noise","I think I hear footsteps"
13014 data "Was that a scream I heard ?","I feel a chill","A spider runs by"
13016 data "I think I heard a door slam"
13019 data "Who dares to enter this house","You shall die..."
13020 data "Get out, get out before it's too late"
13029 data"the end"