0 REM Adventure XT
3 CLEAR:COLOR 10,2:CLS
4 hs$="Handy says,'Thank you for bringing Azrael to me! Here are several tools for you. I'll leave them here.'"
5 hs2$="Handy places some tools on the floor."
6 ms$="The beaker breaks. Azrael licks it up and suddenly falls to the floor! Checking him, he is fast asleep. You pick him up, carrying Azrael on your back. Back to Handy Smurf's!"
7 g=1000:ic=0:hp=192:rm=1:fb$=">>>>>>>>>>>>>>>>>>>> F I R E - B A L L ! ! !"
8 fb2$="The monster is burnt to a crisp!"
10 DIM no$(60),lo(60),ex$(60),vb$(25),m(100,6),de$(100),p(60),wd$(20)
15 FOR x=1 to 56:READ no$(x):NEXT
16 FOR x=1 to 56:READ lo(x):NEXT
17 FOR x=1 to 56:READ ex$(x):NEXT
18 FOR x=1 to 19:READ vb$(x):NEXT
19 FOR x=1 to 84:FOR y=1 to 6:READ m(x,y):NEXT:NEXT
20 FOR x=1 to 84:READ de$(x):NEXT
21 FOR x=1 to 56:READ p(x):NEXT
50 DATA "north","south","east","west","up","down"
51 DATA "oil","lantern","rope","knapsack","backpack"
52 DATA "pole","food","water","wine","bottle"
53 DATA "book","gold","spellbook","beaker"
54 DATA "helmet","chainmail","boots","cloak"
55 DATA "ring","shield","amulet","gauntlets"
56 DATA "dagger","sword","broadsword","axe"
57 DATA "glowball","scepter","slayer"
58 DATA "villager","clerk","goblin","hellhound"
59 DATA "direwolf","skeleton","dragon","ghost"
60 DATA "wolf","warrior","tursk","troll","spider"
61 DATA "hobbit","mordimar"
62 DATA "papa","handy","jokey","brainy"
63 DATA "gargamel","azrael"
70 DATA 99,99,99,99,99,99
71 DATA 98,4,8,4,63,63,1,5,1,53,82,84,24,84
72 DATA 1038,1038,1038,1038,24,1041,1042,1045
73 DATA 4,98,1045,1038,24,1043,1042,5,3,65,12
74 DATA 41,45,38,35,10,20,72,24,47,68,64,78
75 DATA 80,79,82,84,84
76 CLS:?"@@@ Adventure XT @@@":?"Written for the 13th annual interactive fiction contest":?"By: Paul Panks (dunric@yahoo.com)":?
77 ?"It has been four years since you last ventured into Blarg,"
78 ?"the land of might and magic. Mordimar, an evil wizard, found"
79 ?"the powerful Orb of Destiny. With it, he became nearly"
80 ?"invincible. As his power grew, the chi (life force)"
81 ?"from the surrounding forest was drained steadily, until"
82 ?"there was almost nothing left.":?
83 ?"Determined to stop Mordimar, you set out on a quest"
84 ?"to re-acquire the orb and bring peace back to the"
85 ?"forest.":?:?"Your Quest Begins":?
86 ?"@@@ Press any key to continue @@@"
87 a$=inkey$:if a$="" then goto 87
88 CLS
89 ?"Are you playing a saved game (y/n)?";
90 a$=inkey$:if a$="" then goto 90
91 if a$="y" then ? a$:?:goto 470
92 if a$="n" then ? a$:?:goto 100
93 goto 90
99 REM Verb routines (generic)
100 nc=0:print de$(rm):if lt=0 then if rm>18 then ?"It is too dark to see much of anything!":goto 106
101 on rm gosub 600,610,620,630,640,650,660,670,680,690,700,710,720,730,740,750,760,770,780,790
102 gosub 800
106 gosub 491
107 for x=7 to 56:if lo(x)=rm then ? no$(x);"."
108 next: goto 450
109 REM Go
110 :
111 if rm=22 or rm=81 then if n=5 then if lo(9)<>0 and lo(9)<>rm then ?"You need a rope to climb up!":goto 462
112 if rm=65 then if n=2 then if lo(38)=rm then ?"The goblin blocks your path! He growls,'You cannot pass!'":goto 462
113 if rm=12 then if n=2 then if lo(39)=rm then ?"The hellhound slams you around! He screams,'DIE, KNAVE!'":sleep 1:?"You died.":sleep 2:print:goto 400
114 if rm=12 then if n=2 or n=3 then if LT=0 then ?"It is much too dark to move in that direction!":?"(You need a source of light)":goto 462
117 if n>6 or n=0 or m(rm,n)=0 then print"You can't go that way.":goto 462
118 rm=m(rm,n):goto 100
119 REM Get
120 :
121 if n<7 or n>35 then print"You can't pick that up.":goto 462
122 if lo(n)<>0 and lo(n)<>305 and lo(n)<>405 and lo(n)<>rm then print"It's beyond your power to do that!":goto 462
123 if ic>8 then ?"You are carrying too much already!":goto 462
124 if n=20 and lo(56)=rm then lo(20)=99:lo(56)=0:ex$(56)="azrael: a mischevious cat. He is asleep.":ic=ic+1:print ms$:goto 462
125 ic=ic+1:lo(n)=0:print"Ok.":goto 462
129 REM Drop
130 :
131 if n<7 then print"You can't drop that.":goto 462
132 if lo(n)<>0 and lo(n)<>105 and lo(n)<>205 then print"You don't have it.":goto 462
133 ic=ic-1:lo(n)=rm:print"Ok.":GOTO 462
139 REM Inventory
140 :
141 print"You are carrying:"
142 si=0:wd=0:ac=0:for x=7 to 56:if lo(x)=0 then si=1:print "   ";no$(x);"."
143 if lo(x)=105 then wd=x:si=1:print "   ";no$(x);" (wielded)."
144 if lo(x)=205 then si=1:ac=ac+(x/4):ac=cint(ac):print "   ";no$(x);" (worn)."
145 if x=10 or x=11 then if lo(x)=0 then gosub 300
146 if x=8 and LT=0 and lo(8)=0 then ?"(the lantern is off)":else if x=8 and lo(8)=0 then ?"(the lantern is aflame)"
147 next:if si=0 then print"Alas, you are empty-handed."
148 ?"(You have";hp;"hit points and";g;"gold coins).":goto 462
149 REM Look
150 :
151 goto 100
159 REM Wield
160 :
161 if n<7 or n>35 or n<29 then print"You can't wield that.":goto 462
162 if lo(n)<>0 then print"It's beyond your power to do that!":goto 462
163 if wd>0 then print"You are already wielding something (";no$(wd);").":goto 462
164 wd=n:lo(n)=105:print "Ok.":goto 462
169 REM Unwield
170 :
171 if n<7 or n>35 or n<29 then print"You can't unwield that.":goto 462
172 if lo(n)<>105 then print"It's beyond your power to do that!":goto 462
173 wd=0:lo(n)=0:print "Ok.":goto 462
179 REM Wear
180 :
181 if n<7 or n>35 or lo(n)<>0 or n<21 and n>28 then print"You can't wear that.":goto 462
182 lo(n)=205:ac=ac+(n/4):ac=cint(ac):print"Ok.":goto 462
189 REM Remove
190 :
191 if n<7 or n>35 or lo(n)<>0 or n<21 and n>28 then print"You can't remove that.":goto 462
192 lo(n)=0:ac=ac-(n/4):ac=cint(ac):print"Ok.":goto 462
199 REM Examine
200 :
201 if n=0 then ?"You notice nothing unusual about it.":goto 462
202 if lo(n)<>0 and lo(n)<>rm and lo(n)<>105 and lo(n)<>205 then ?"That isn't here.":goto 462
203 print ex$(n):goto 462
209 REM Use
210 :
211 if lo(n)<>0 and lo(n)<>rm or n<7 or n>35 then ?"You can't use that!":goto 462
212 if n=7 then if lo(8)<>0 and lo(8)<>rm then ?"You need the lantern.":goto 462
213 if n=7 and LT=1 then ?"The lantern is already on.":goto 462
214 if n=8 then if lo(7)<>0 and lo(7)<>rm then ?"You need the flask of oil.":goto 462
215 if n=8 and LT=1 then ?"The lantern is already on.":goto 462
216 if n=8 then LT=1:?"The lantern is now aflame.":goto 462
217 goto 405
219 REM Climb
220 :
221 if rm<>22 and rm<>81 or n>0 then ?"You can't climb that.":goto 462
222 if rm=22 then if lo(9)=0 or lo(9)=rm then rm=23:?"You climb up...":goto 100
223 if rm=81 then if lo(9)=0 or lo(9)=rm then rm=82:?"You climb up...":goto 100
224 ?"You need the rope first.":goto 462
229 REM Read
230 :
231 if lo(n)<>0 and lo(n)<>rm then ?"You can't read that!":goto 462
232 if n=17 then ?"The book reads (in part):":goto 420
233 if n=19 then ?"It is written in an unfamiliar tongue.":goto 462
234 ?"You read it with little interest.":goto 462
239 REM Buy
240 :
241 if rm<>3 then ?"You are not in the village shop!":goto 462
242 if lo(37)<>rm then ?"The clerk isn't here.":goto 462
243 if lo(n)<>98 then ?"The clerk says,'We don't carry that.'":goto 462
244 if ic>=8 then ?"The clerk says,'You can't carry that.'":goto 462
245 if p(n)=99 then ?"The clerk says,'You can't buy that.'":goto 462
246 if p(n)>g then ?"The clerk says,'You don't have enough gold.'":goto 462
247 g=g-p(n):lo(n)=0:ic=ic+1:?"You hand clerk";p(n);"gold coins.":?"He hands you the ";no$(n);".":?"He says,'Thank you for your business.'":goto 462
249 REM Sell
250 :
251 if rm<>3 then ?"You are not in the village shop!":goto 462
252 if lo(37)<>rm then ?"The clerk isn't here.":goto 462
253 if lo(n)=105 then ?"The clerk says,'You must unwield that first.'":goto 462
254 if lo(n)=205 then ?"The clerk says,'You must remove that first.'":goto 462
255 if lo(n)<>0 then ?"The clerk says,'I don't see you carrying that.'":goto 462
256 lo(n)=98:cg=p(n)/2:g=g+cg:ic=ic-1:?"You hand clerk the ";no$(n);".":?"He hands you";cg;"gold coins.":?"He says,'Thank you for your business.'":goto 462
259 REM Fight
260 :
261 if n<36 then ?"You can't fight that!":goto 462
if rm>72 and rm<84 then ?"You can't fight here. This is a sacred place.":goto 462
262 if lo(n)<>rm then ?"The ";no$(n);" isn't here.":goto 462:else randomize timer:mh=int(rnd*150)+50:if n=50 then mh=820
263 randomize timer:i=int(rnd*35)+1:?"You are fighting the "no$(n);".":?">"
264 dm=1:for x=7 to 35:if lo(x)=105 then dm=x
265 next:if dm=1 then ?"You are wielding nothing!":else ?"You are wielding the ";no$(dm);"."
266 print">"
267 if i<=5 then ?"You missed."
268 if i>=5 and i<=10 then ?"You hit ";no$(n);".":mh=mh-10:else if i>=15 and i<=20 or i>=20 and i<=25 then if dm=31 or dm>32 and dm<36 then gosub 290
269 if i>=10 and i<=15 then ?"You hit ";no$(n);" very hard.":mh=mh-15:if dm=31 or dm>32 and dm<36 then mh=mh-10
270 if i>=15 and i<=20 then ?"You smashed ";no$(n);" with a bone-crushing sound.":mh=mh-30:if dm=31 or dm>32 and dm<36 then mh=mh-15
271 if i>=20 and i<=25 then ?"You massacred ";no$(n);" into small fragments.":mh=mh-40:if dm=31 or dm>32 and dm<36 then mh=mh-dm
272 if i=26 then if dm=31 then ?"A bolt of lightning streaks down from above!":?"Your BROADSWORD strikes ";no$(n);" down!":mh=0
273 if i=27 then if dm=33 then ?"Your GLOWBALL strikes ";no$(n);" very hard!":mh=mh-55
274 if i=28 then if dm=34 then ?"Your SCEPTER shoots flame at ";no$(n);"!":mh=mh-65
275 if i=29 then if dm=35 then ?"Your SLAYER leaps from your hands! It impales ";no$(n);"!":mh=mh-75
276 if i>=30 then ?"Your attack was blocked by ";no$(n);".":else if lo(19)=0 then if i>=30 then ?"You cast HEAL...":?"You are healed fully!":hp=192
277 sleep 1:?">":?"The monster ";no$(n);" is attacking.":sleep 1:?">":if i=32 and lo(19)=0 then ?"You cast FIRE-BALL...":? fb$:? fb2$:mh=0
278 randomize timer:c=int(rnd*35)+1:if C<=5 then ?"It missed you."
279 if c>=5 and c<=10 then ?"It hit you.":dt=7:hp=hp-dt:if ac>dt then hp=hp+2
280 if c>=10 and c<=15 then ?"It hit you very hard.":dt=12:hp=hp-dt:if ac>dt then hp=hp+4
281 if c>=15 and c<=20 then ?"It smashed you with a bone-crushing sound.":dt=20:hp=hp-dt:if ac>dt then hp=hp+8
282 if c>=20 and c<=25 then ?"It massacred you into small fragments.":dt=40:hp=hp-dt:if ac>dt then hp=hp+15
283 if i=26 then if n=50 then ?"A bolt of lightning streaks down from the heavens!":?"You are fried to death!":sleep 1:?"You died.":?:sleep 1:goto 400
284 ?">":sleep 1:if mh<=0 then ?"The monster died.":?"You killed ";no$(n);".":sleep 1:?">":goto 287
285 ?"Your HP:";hp:?"Their HP:";mh:?">":if hp<=0 then ?"You died.":?:sleep 1:goto 400
286 goto 263
287 for x=7 to 35:if lo(x)=1000+x then ?"You found ";no$(x);" on it!":lo(x)=rm
288 next:?"You gained";dt;"gold pieces and";n;"hit points.":hp=hp+n:g=g+dt:lo(n)=998:gosub 580:goto 451
289 end
290 if dm=31 then ?"Your BROADSWORD glows!"
291 if dm=33 then ?"Your GLOWBALL splits into eight pieces!"
292 if dm=34 then ?"Your SCEPTER shoots lightning at ";no$(n);"!"
293 if dm=35 then ?"Your SLAYER vibrates!"
294 return
298 end
299 REM Check for items in knapsack/backpack
300 if x=11 then goto 305
301 print"      The knapsack holds:"
302 s1=0:for y=7 to 35:if lo(y)=305 then s1=1:?"        (";no$(y);")."
303 next:if s1=0 then print"        (Nothing)"
304 return
305 s1=0:?"      The backpack holds:":for y=7 to 35:if lo(y)=405 then s1=1:?"        (";no$(y);")."
306 next:if s1=0 then print"        (Nothing)"
307 return
309 REM Put
310 :
311 if lo(n)<>0 then ?"You must be carrying that first!":goto 462
312 if lo(10)<>0 and lo(11)<>0 and lo(10)<>rm and lo(11)<>rm then ?"You aren't carrying the knapsack or backpack!":goto 462
313 tl=0:if ne2$="knapsack" then tl=10
314 if ne2$="backpack" then tl=11
315 if tl=0 then ?"You can't place it there.":goto 462
316 if tl=10 then lo(n)=305:ic=ic-1:?"Ok.":goto 462
317 lo(n)=405:ic=ic-1:?"Ok.":goto 462
319 REM Eat
320 :
321 if lo(n)<>0 and lo(n)<>rm then ?"That isn't here.":goto 462
322 if n=13 then hp=192:?"You eat the food.":?"You feel much better!":lo(13)=1:ic=ic-1:goto 462
323 ?"You can't eat that.":goto 462
329 REM Drink
330 :
331 if lo(n)<>0 and lo(n)<>rm then ?"That isn't here.":goto 462
332 if n=14 then if lo(16)<>0 and lo(16)<>rm then ?"You need the glass bottle first.":goto 462
333 if n=14 then lo(14)=5:ic=ic-1:ct=0:?"Ahhhh! Refreshing!":goto 462
334 if n=15 then lo(15)=1:lo(16)=0:?"You drink the wine.":?"It tastes great!":goto 462
335 ?"You can't drink that.":goto 462
349 REM check for thirst
350 :
351 if ct=50 then ?"You are thirsty."
352 if ct=100 then ?"You are very thirsty."
353 if ct=150 then ?"You have died of thirst.":sleep 1:?"You died.":sleep 2:goto 400
354 return
370 ?"This is a text adventure. You play by entering in one or two"
371 ?"word commands (e.g. go north, get food, etc.). Valid commands"
372 ?"include:":?
373 ?"1. go 2. get 3. drop 4. inventory 5. look 6. wield 7. unwield"
374 ?"8. wear 9. remove 10. examine 11. use 12. climb 13. read"
375 ?"14. buy 15. sell 16. kill 17. put 18. eat 19. drink"
376 ?"20. inventory 21. save game (or just 'save') 22. look"
377 ?"23. quit 24. help":?:goto 462
379 REM list command
380 if rm<>3 then ?"You are not in the village shop!":goto 462
381 if lo(37)<>rm then ?"The clerk isn't here.":goto 462
382 ?"The clerk says,'Here is what we have in stock:"
383 si=0:for x=7 to 35:if lo(x)=98 then si=1:? p(x);": ";no$(x)
384 next:if si=0 then ?"He scratches his head and says,'Alas, we have nothing in stock...'"
385 ?"Your gold: ";g:goto 462
400 print "@@@ Press any key @@@"
401 a$=inkey$:if a$="" then goto 401
402 CLS:RUN
404 REM Use (continued)
405 if n=9 then if rm=22 then rm=23:?"You climb up...":goto 100
406 if n=9 then if rm=81 then rm=82:?"You climb up...":goto 100
407 if n=12 then if rm=22 then rm=23:?"You climb up (on the pole)...":goto 100
408 if n=12 then if rm=81 then rm=82:?"You climb up (on the pole)...":goto 100
409 if n=13 then ?"You must use 'eat' instead.":goto 462
410 if n=14 or n=15 or n=16 then ?"You must use 'drink' instead.":goto 462
411 if n=17 then ?"You must use 'read' instead.":goto 462
412 if n=19 then ?"You muse use 'read' instead.":goto 462
413 ?"You can't use that here.":goto 462
420 :
421 ?"'...to defeat mordimar, you must be wielding the broadsword. It is the only"
422 ?"weapon which can work against his black magic. The others will not damage"
423 ?"him enough. I have yet to acquire it, but someday I shall finally defeat"
424 ?"him! - Tursk'":goto 462
425 REM Check for other verbs
426 gosub 350:if A$="help" or A$="hint" then gosub 370:else if A$="list" then goto 380
427 if A$="go north" or A$="n" or A$="north" then v=1:n=1:co=0:goto 461
428 if A$="go south" or A$="s" or A$="south" then v=1:n=2:co=0:goto 461
429 if A$="go east" or A$="e" or A$="east" then v=1:n=3:co=0:goto 461
430 if A$="go west" or A$="w" or A$="west" then v=1:n=4:co=0:goto 461
431 if A$="go up" or A$="u" or A$="up" then v=1:n=5:co=0:goto 461
432 if A$="go down" or A$="d" or A$="down" then v=1:n=6:co=0:goto 461
433 if A$="inventory" or A$="i" or A$="inv" then v=4:n=56:co=0:goto 461
434 if A$="save" or A$="save game" then goto 475
435 if A$="quit" then ?:?"Quit Game":?:goto 440
436 if A$="look" or A$="l" then v=5:n=56:co=0:goto 461
437 return
439 REM Quit Game
440 ?"Are you sure (y/n)? ";
441 b$=inkey$:if b$="" then goto 441
442 if b$="y" then ? b$:?:?"Ok...thanks for playing!":sleep 2:END
443 if b$="n" then ? b$:?:goto 451
444 goto 441
450 :
451 if lo(56)=0 and rm=80 then lo(56)=-5:?"You bring Azrael to Handy.":? hs$:? hs2$:lo(9)=rm:lo(22)=rm:lo(31)=rm:lo(32)=rm 
ct=ct+1:v=0:n=0:ne$="":n$="":n2$="":v$="":v2$="":pr=0:pt=0:nm=0:bz=0:FOR X=1 TO 10:wd$(x)="":NEXT x
452 INPUT ">",A$:gosub 426
453 pt=1:nm=0:D$=A$:FOR a=1 to LEN(D$):IF MID$(D$, a, 1)=" " THEN A$=MID$(D$,pt,a-pt): pt=a+1:nm=nm+1:wd$(nm)=A$ 
454 NEXT a:nm=nm+1:a$=MID$(D$,pt,a-pt):wd$(nm)=A$
455 v$=wd$(1):n$=wd$(2):IF wd$(3)="and" OR wd$(3)="then" THEN v2$=wd$(4):n2$=wd$(5):co=1 
456 IF wd$(3)="in" OR wd$(3)="from" OR wd$(3)="to" THEN v$=wd$(1):ne$=wd$(2):ne2$=wd$(4):pr=1:bz=1 
457 v=0:FOR x=1 TO 19:IF v$=vb$(x) THEN v=x
458 NEXT:IF v=0 THEN PRINT"What? Check your verb.":GOTO 451 
459 n=0:FOR x=1 TO 56:IF ne$=no$(x) or n$=no$(x) THEN n=x
460 NEXT:IF n=0 then if v<>10 and v<>12 THEN PRINT"Huh? Check your noun.":GOTO 451
461 on v goto 110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,310,320,330
if nc=0 then nc=1:goto 106
462 GOTO 451
469 REM load a game
470 ?:?"Loading...";:sleep 1
471 open "game.sav" for input as #1
472 input#1,g: input#1,ic: input#1,hp: input#1,rm: input#1,ac: input#1,lt: input#1,wd: input #1,dm
473 for x=7 to 56:input#1,lo(x):next:close #1:?"Done.":sleep 1
474 goto 100
475 ?"Saving...";:sleep 1
476 open "game.sav" for output as #1
477 print#1,g: print#1,ic: print#1,hp: print#1,rm: print#1,ac: print#1,lt: print#1,wd: print #1,dm
478 for x=7 to 56:print#1,lo(x):next:close #1:?"Done.":sleep 1
479 goto 462
490 end
491 ?"Obvious exits: < /";
492 if m(rm,1)>0 then ?"north/ ";
493 if m(rm,2)>0 then ?"south/ ";
494 if m(rm,3)>0 then ?"east/ ";
495 if m(rm,4)>0 then ?"west/ ";
496 if m(rm,5)>0 then ?"up/ ";
497 if m(rm,6)>0 then ?"down/ ";
498 print">":return
500 print"Map of Adventure XT                    Hall2--Room4                             "
501 print"                                      /                        23/branch--hut24 "          
502 print"           8Toolshed--7Garden   Tavern1      26RWF---RWF25  22RWF               "
503 print"                         |        |                   |        |                "
504 print"                      6Church--Fountain5--Shop3    19RWF----20RWF--RWF21        "
505 print"                                  |                            |     47         "
506 print"                     27BF      Village Ent9                Clearing18 T-DE48    "
507 print"                  28 29 |  30     |                   16    17 |   43 |44 45 46 "
508 print"                   BF--BF--BF     |  Pond15 River---River DE-T-T-Keep  "
509 print"                    |      |      |10   13  14 |      |       39  40  |41       "
510 print"             31BF--BF32    BF11--On--Meadow--Mead.  River  Tunnel--T--T-DE42    "
511 print"                           |     |     34  35  36     | 37   |                  "
512 print"                         33BF--Inter12-DF--DF--DF---River--Cave38               "
513 print"                                 |         |   |51                              "
514 print"                               Bridge49  50DF--DF---Alcove52  53Kitchen  RM54   "
515 print"                                 |             |    57  58  59  60 |    61|62   "
516 print"                               Bridge55      56DF---LF--LF--LF--Cottage-H-H-RM63"
517 print"                                 |                   |   |67 68                 "
518 print"      Mordimar64               Goblin65    [inset]  LF66LF--LF--LF69            "
519 print"           |        71       72  |           |               |                  "
520 print"    70Throne RM--Fountain--Shadow Castle   SNW73         Small Path74           "
521 print"                                             |      76       |                  "
522 print"                                         75SB P--SB Patch--Path77               "
523 print"--------------------------*INSET*----------------------                         "
524 print"|                Brainy82                             |                         "
525 print"|                   |  81          83           84    |                         "
526 print"|    79Jokey-----SM Forest--Outside G Castle--G Castle|                         "
527 print"|        |                                            |                         "
528 print"|    78Papa--Handy80                                  |                         "
529 print"|        |                                            |                         "
530 print"|    [to SNW]                                         |                         "
531 print"-------------------------------------------------------                         "
532 GOTO 462
580 if n=50 then goto 581:else return
581 ?:?"@@@ You have defeated Mordimar!!! @@@":sleep 2:?
582 print"Mordimar's crumbled body lay at your feet. As you"
583 print"gaze into the Orb, you sense the world returning to"
584 print"normal! The woodland creatures send great happiness"
585 print"to your heart! It swells with joy!":?
586 print"'You have done a great deed!' their voices say."
587 print"'Now we can come out and play!'":?
588 print"The world thanks you for your courage...":?
589 print"@@@ The End @@@":sleep 30:?:?"@@@ Press any key @@@"
590 a$=inkey$:if a$="" then goto 590
591 end
599 REM Room 1
600 PRINT"You are standing in a tavern with creaky wooden floors. A few tables"
601 print"line the room, with flickering candles set in the middle, illuminating"
602 print"the area. To the south (outside) stands a large fountain.":RETURN
609 REM
REM Room 2
610 PRINT"You are standing on an upstairs hallway in the tavern. A lone room"
611 print"stands to the east, unoccupied. The only exit is back down the"
612 print"staircase.":RETURN
619 REM
REM Room 3
620 PRINT"You are standing in the village shop. People come here to purchase"
621 print"needed goods and sell unwanted items. Commands here include 'buy <item>',"
622 print"'sell <item>' and 'list'. The shop is usually attended by a clerk.":RETURN
629 REM
REM Room 4
630 PRINT"You are standing in a small room upstairs of the main tavern. A small"
631 print"bed is visible here, allowing you to rest comfortably. The only exit"
632 print"is back west.":RETURN
639 REM
REM Room 5
640 PRINT"You are standing near a large fountain. Looking down at your reflection,"
641 print"you notice the water appears mossy green. However, despite the color"
642 print"it appears drinkable. To the east stands a small shop, while west of"
643 print"here lies a church.":RETURN
649 REM
REM Room 6
650 PRINT"You are standing in a small church. Pews adorn the room, with an altar"
651 print"at the front. To the north (outside) a garden is visible. The only"
652 print"other exit is back east.":RETURN
659 REM
REM Room 7
660 PRINT"You are standing in a lovely garden. Several different flowers dot"
661 print"the area, including lillies and begonias. To the west stands a"
662 print"wooden toolshed.":RETURN
669 REM
REM Room 8
670 PRINT"You are standing inside a darkened toolshed. A few items of interest"
671 print"line the walls, but not much else is here. The only exit is back"
672 print"east.":RETURN
679 REM
REM Room 9
680 PRINT"You are standing at the entrance to a small village. A path heads south"
681 print"from here into a well-lit forest.":RETURN
689 REM
REM Room 10
690 PRINT"You are on a well-lit path walking through a forest. The area is"
691 print"populated by many small creatures (scurrying about). The path"
692 print"continues south.":RETURN
699 REM
REM Room 11
700 PRINT"You are on a well-lit path walking through a forest. A lush green meadow"
701 print"stands to the east (near a small pond). An intersection is south of"
702 print"here.":RETURN
709 REM
REM Room 12
710 PRINT"You are standing at an intersection in the forest. A dying woodland is"
711 print"west of here, the trees charred black with soot. To the east stands a"
712 print"darker section of the forest, while a long bridge is south.":RETURN
719 REM
REM Room 13
720 PRINT"You are walking through a lush, green meadow. It opens up here and"
721 print"continues for miles on end (to the east). To the west, a large path"
722 print"cuts through a well-lit forest.":RETURN
729 REM
REM Room 14
730 PRINT"You are in a lush, green meadow. To the north lies a small pond. Small"
731 print"clouds drift on by, pushed by a gentle breeze. The only obvious exit"
732 print"is back west.":RETURN
739 REM
REM Room 15
740 PRINT"You are standing next to a small pond. The water appears mossy green"
741 print"and devoid of life. Although you could try drinking the water, it does"
742 print"not appear healthy. The only exit is back south.":RETURN
749 REM
REM Room 16
750 PRINT"You are knee deep in a swiftly moving river. The water feels icy cold!"
751 print"The river continues to the east, while less hurried currents are directly"
752 print"south.":RETURN
759 REM
REM Room 17
760 PRINT"You have reached the northern bank of a swiftly moving river. On the other"
761 print"side of the water rises a tall Redwood forest (to the north).":RETURN
769 REM
REM Room 18
770 PRINT"You are standing in a small clearing. There is nothing around but"
771 print"blue sky.":RETURN
779 REM
REM Room 19
780 PRINT"You are walking in a Redwood forest, the trees of which rise hundreds of"
781 print"feet into the air. To the east stands a well-lit section of the forest,"
782 print"while west of here the area becomes dark and oppressive.":RETURN
789 REM
REM Room 20
790 PRINT"You are standing in a Redwood forest, the trees of which rise hundreds of"
791 print"feet into the air. A large clearing is south, while one particular"
792 print"tree -- with low-lying branches, stands to the north. It appears"
793 print"climbable.":RETURN
799 REM
800 if rm= 21 then
801 PRINT"The Redwood forest ends here next to a large, purple mountain range."
802 print"The only obvious exit is back west.":RETURN
809 end if
if rm= 22 then
810 PRINT"You are walking in a Redwood forest. A lone tree (with low-lying"
811 print"branches) is here, as a poorly made ladder heads up into the treetops"
812 print"above. The only obvious exit is back south.":RETURN 
819 end if
if rm= 23 then
820 PRINT"You are atop the forest, standing on a long branch. A small hut (with a"
821 print"thatched roof) stands to the east near the top of the tree. Looking in,"
822 print"you can see a small creature, apparently meditating. Perhaps it would"
823 print"be best not to disturb him.":RETURN
829 end if
if rm= 24 then
830 print"You are standing inside a small hut. A small creature is here, apparently"
831 print"meditating. He stops suddenly, noticing your presence, but this does"
832 print"not seem to alarm him. He smiles at you, gestering to a nearby table"
833 print"(next to a wooden bookcase). Perhaps you should sit down and"
834 print"listen to what he has to say.":RETURN
839 end if
if rm= 25 then
840 PRINT"You are walking in a Redwood forest. The trees thin out some to the"
841 print"west. To the south, the trees are much taller, as the area is populated"
842 print"with woodland creatures.":RETURN
849 end if
if rm= 26 then
850 PRINT"You have reached the end of the Redwood forest. The only obvious exit"
851 print"is back east. Further travel west is made impossible by majestic purple"
852 print"mountains.":RETURN
859 end if
if rm= 27 then
860 PRINT"You have reached the end of the burnt forest. The trees are charred"
861 print"black with soot (no doubt the remnants from a once raging wildfire)."
862 print"The only obvious exit is back south.":RETURN
869 end if
if rm= 28 then
870 PRINT"You are walking in a burnt forest. The trees have been charred black"
871 print"from a recent wildfire. East of here the trees appear larger and"
872 print"more stable, while west of here the woods thin out somewhat.":RETURN
879 end if
if rm= 29 then
880 PRINT"You are standing in the middle of a large, burnt forest. The trees"
881 print"have been charred black from a recent fire. To the north, the forest"
882 print"stops abruptly, while to the east and west the forest continues.":RETURN
889 end if
if rm= 30 then
890 PRINT"You are walking in a burnt forest. The trees are particularly blackened"
891 print"here. This must have been where the first started, as the surrounding"
892 print"area is charred black with soot. Additionally, several telltale signs"
893 print"of a lightning strike are evident nearby, suggesting the cause of"
894 print"the blaze.":RETURN
899 end if
if rm= 31 then
900 PRINT"You have reached the end of the burnt forest. Further travel west and"
901 print"north becomes impossible by fallen trees.":RETURN 
909 end if
if rm= 32 then
910 PRINT"You are walking in a burnt forest, the trees of which appear blackened"
911 print"by soot from a recent wildfire. To the north, the trees appear to thin"
912 print"out somewhat, while fallen trees obstruct further travel to the west.":RETURN
919 end if
if rm= 33 then
920 PRINT"You have reached a burnt forest, the trees of which appear blackened"
921 print"with soot from a recent fire. To the north, the trees appear to thicken"
922 print"considerably, while east of here lies an intersection.":RETURN
929 end if
if rm= 34 then
930 PRINT"You have reached a dark forest. The trees appear to be evergreens,"
931 print"shrouding most of the floor, while speckles of light filter down from"
932 print"the thick canopy above. To the east, the forest appears to thin out"
933 print"somewhat, while west of here lies an intersection.":RETURN
939 end if
if rm= 35 then
940 PRINT"You are walking in a dark forest. The trees are particularly dense here, as"
941 print"very little light filters down from below. There are several different"
942 print"woodland creatures here (all scurrying about), including squirrels, rabbits,"
943 print"foxes and birds. The forest continues east and south.":RETURN
949 end if
if rm= 36 then
950 PRINT"You are walking in a dark forest. The trees thin out here near a large"
951 print"river (to the east), while west of here appears to be the middle of"
952 print"the forest. South of here the forest continues to thin out.":RETURN
959 end if
if rm= 37 then
960 PRINT"You are standing at the bank of a swiftly moving river. Although it does"
961 print"not appear too deep, caution should nonetheless be taken. The forest"
962 print"continues west, while east of here a cave is visible, nestled near a"
963 print"small alcove (to the southwest).":RETURN
969 end if
if rm= 38 then
970 PRINT"You have entered into a dark cave. Very little is visible here, but you"
971 print"do notice several glowing red lights, all wisping about endlessly. It is almost"
972 print"as if the cave is haunted by evil spirits! The cave begins to widen some to"
973 print"the north.":RETURN
979 end if
if rm= 39 then
980 PRINT"You have reached a large tunnel within the cave, splitting off to the east"
981 print"here (accessible through a hole). As the tunnel progresses, it appears to"
982 print"narrow considerably. You might only be able to squeeze through by dropping"
983 print"several items.":RETURN
989 end if
if rm= 40 then
990 PRINT"You are crawling on your belly in a narrow tunnel. It heads to the east here,"
991 print"turning sharply. Moans from disembodied spirits can be heard, getting louder"
992 print"the deeper you go! The only obvious exit is back west.":RETURN
999 end if
if rm= 41 then
1000 PRINT"You have reached a small intersection within the cave. Tunnels head off in"
1001 print"all directions here, while the main tunnel continues north.":RETURN
1009 end if
if rm= 42 then
1010 PRINT"The tunnel stops here near a large rock. The only exit is back west.":RETURN
1019 end if
if rm= 43 then
1020 PRINT"You have reached a dead end within the cavern. The only exit is back east.":RETURN
1029 end if
if rm= 44 then
1030 PRINT"You are crawling on your belly in the heart of the cave. The main tunnel"
1031 print"branches off here in four directions: north, south, east and west. One"
1032 print"particular tunnel (to the east) appears to glow softly with a pale"
1033 print"green hue. Perhaps it would be worth exploring further.":RETURN
1039 end if
if rm= 45 then
1040 PRINT"You are crawling on your belly in a small tunnel. The area is surrounded"
1041 print"by pale green light, glowing softly. The air feels magical, as if the"
1042 print"light particles themselves are alive!":RETURN
1049 end if
if rm= 46 then
1050 PRINT"You have reached a small keep within the cave. Several large candles,"
1051 print"glowing softly green, illuminate the darkness. This small room appears"
1052 print"to be a place of meditation and worship. Perhaps you should rest here"
1053 print"and learn more about this most unique room.":RETURN
1059 end if
if rm= 47 then
1060 PRINT"You are crawling on your belly in the main tunnel within the cave. To the"
1061 print"south you notice a pale green light, glowing near a smaller tunnel towards"
1062 print"the southeast. To the east, the main tunnel forks off into a much smaller"
1063 print"one. It appears almost too narrow to pass through.":RETURN
1069 end if
if rm= 48 then
1070 PRINT"You have reached a dead end within the cavern, as the main tunnel"
1071 print"forks off here into a very small passageway. However, a large"
1072 print"boulder has crashed through the tunnel from above, blocking further"
1073 print"passage east. The only exit is back west.":RETURN
1079 end if
if rm= 49 then
1080 PRINT"You are standing on a wooden bridge just south of a large intersection."
1081 print"It appears to cross over a swiftly moving river (heading northeast). At"
1082 print"the end of the bridge you notice a large, stone castle.":RETURN
1089 end if
if rm= 50 then
1090 PRINT"You are walking in a dark forest. The trees thicken somewhat to the east, as"
1091 print"very little light filters down from below. There are several woodland creatures"
1092 print"scurrying about, making you feel restless. The forest continues north and east.":RETURN
1099 end if
if rm= 51 then
1100 PRINT"You are walking in the middle of a dark forest. The trees are particularly"
1101 print"thick here, as a plethora of woodland creatures scurry about the forest floor,"
1102 print"looking for food. To the east stands a secluded alcove, while north the forest"
1103 print"continues. Further travel south becomes increasingly difficult, but not"
1104 print"impossible.":RETURN
1109 end if
if rm= 52 then
1110 PRINT"You have reached a secluded alcove, hidden within the forest. Several magical"
1111 print"creatures populate the area, including unicorns and one-eyed beasts. It appears"
1112 print"to be a land that time forgot, for these beings are only written about in"
1113 print"fairy tales! The only exit is back west.":RETURN
1119 end if
if rm= 53 then
1120 PRINT"You are standing in a small kitchen within the cottage. A large wooden table"
1121 print"is set in the center, surrounded by chairs. To the south lies the main living"
1122 print"room, as a narrow hallway heads into several small rooms.":RETURN
1129 end if
if rm= 54 then
1130 PRINT"You have entered into a small room within the cottage. Not much can be seen"
1131 print"here save for a bed and a small table. The only exit is back south.":RETURN
1139 end if
if rm= 55 then
1140 PRINT"You are standing in the middle of a large bridge. Underneath, a river flows"
1141 print"to the northeast. To the south, the bridge stops abruptly near a large,"
1142 print"stone castle. Rumor has it that a goblin periodically appears, demanding"
1143 print"money by all who cross here. You wonder if the goblin will stop you, too!":RETURN
1149 end if
if rm= 56 then
1150 PRINT"You have reached the limits of the dark forest. A well-lit section of"
1151 print"the forest opens up here, dramatically improving visibility. Far to the"
1152 print"east a cottage can be seen, smoke rising from a chimney high above.":RETURN
1159 end if
if rm= 57 then
1160 PRINT"You are standing in a well-lit forest. Beams of light filter down from"
1161 print"the canopy above, dotting the forest floor. The forest continues to the"
1162 print"east and south, while west of here a dark forest is visible.":RETURN
1169 end if
if rm= 58 then
1170 PRINT"You are standing in the middle of a well-lit forest. Beams of light filter down"
1171 print"from high above, dotting the forest floor. A particularly well-lit path, almost"
1172 print"magical in appearance, shimmers to the south, while east of here the forest"
1173 print"continues towards a large cottage.":RETURN
1179 end if
if rm= 59 then
1180 PRINT"You are standing in a well-lit forest next to a large cottage (east). The"
1181 print"forest begins to thin out here somewhat, as the cottage dominates the eastern"
1182 print"edge of the woods (with the door wide open). Could someone be expecting you?":RETURN
1189 end if
if rm= 60 then
1190 PRINT"You are standing inside a large cottage within the forest. A fireplace is here,"
1191 print"allowing you to warm your feet. Oddly enough, no one appears to have occupied"
1192 print"this abode for quite some time, even though a fire is ominously burning"
1193 print"neatly in a small fireplace. 'Could this place be haunted?' you wonder aloud."
1194 print"A hallway is east, while a kitchen is directly north.":RETURN
1199 end if
if rm= 61 then
1200 PRINT"You are walking down a long hallway within the cottage. Several rooms are"
1201 print"visible here, some closed by locked doors (and others open). The hallway"
1202 print"continues east.":RETURN
1209 end if
if rm= 62 then
1210 PRINT"You are walking down a long hallway within the cottage. Two rooms are"
1211 print"plainly visible up ahead (to the north and east), both of them left"
1212 print"wide open by the previous occupants.":RETURN
1219 end if
if rm= 63 then
1220 PRINT"You have reached a small room within the cottage. Not much can be seen"
1221 print"here, save for a small bed next to a wooden dresser. The only exit is"
1222 print"back west.":RETURN
1229 end if
if rm= 64 then
1230 PRINT"You have reached the inner sanctum of Mordimar, evil of the ancients! You"
1231 print"sense great power! He cackles at you with an insane laugh, yelling,'You"
1232 print"fool! You can't possibly hope to defeat me! I am Mordimar, master of the"
1233 print"ancient circle of wizards! I own this world! Who are YOU to challenge"
1234 print"otherwise?! Bah! So be it! I will crush you like a bug! Die, knave!'":RETURN
1239 end if
if rm= 65 then
1240 PRINT"At the end of the bridge, a small goblin is said to often appear,"
1241 print"demanding gold. To the south, just beyond the bridge, stands a tall"
1242 print"stone castle. A pair of red flags, with gryphons emblazoned on"
1243 print"them, wave to you in a stiff breeze, somehow beckoning you inside!":RETURN
1249 end if
if rm= 66 then
1250 PRINT"You are walking in a well-lit forest. Light filters down from the canopy"
1251 print"above, dotting the forest floor. Several woodland creatures scurry about,"
1252 print"some of them unaware of your presence. Fallen trees block passage to the"
1253 print"south. The only obvious exit is back north.":RETURN 
1259 end if
if rm= 67 then
1260 PRINT"You are standing in the middle of a well-lit forest. The path turns east"
1261 print"here near a large patch of strange red berries. They look too small for"
1262 print"humans to eat, but it looks as though the tiny woodland creatures eat"
1263 print"them regularly. To the north, the forest thickens somewhat.":RETURN
1269 end if
if rm= 68 then
1270 PRINT"You have reached a particularly dark section of the forest, more secluded than"
1271 print"the rest. To the south, a small path heads past a series of red berry patches."
1272 print"Whatever lives in these woods must be fairly tiny, for the berries themselves"
1273 print"are all scattered about the forest floor.":RETURN
1279 end if
if rm= 69 then
1280 PRINT"You have reached the limits of the forest, as storm-tossed trees block your"
1281 print"path to the east. The only obvious exit is back west.":RETURN
1289 end if
if rm= 70 then
1290 PRINT"You have entered into the throne room of Mordimar. Strangely, he does not"
1291 print"appear to be here, although you DO sense a strong energy to the north! The"
1292 print"throne is made of solid gold and encrusted with several jewels. To the"
1293 print"east lies a stone fountain.":RETURN
1299 end if
if rm= 71 then
1300 PRINT"You are standing in the castle courtyard. A large stone fountain, with the"
1301 print"statue of an angel, pours water down from an upheld jar into a motted basin"
1302 print"below. A throne room is visible to the west, while the castle entrance is"
1303 print"east.":RETURN
1309 end if
if rm= 72 then
1310 PRINT"You have reached a tall, stone castle known as Shadow Castle. Legend has it"
1311 print"that the evil wizard Mordimar took the castle by storm many moons ago. High"
1312 print"above, a pair of flags, with gryphons emblazoned on them, flap endlessly in"
1313 print"a cool breeze. They appear to be beckoning you further into the castle! A"
1314 print"courtyard, complete with a fountain, stands to the west of here.":RETURN
1319 end if
if rm= 73 then
1320 PRINT"You have somehow entered into a strange, new world just beyond the red berry"
1321 print"patch. Although it hardly seems possible, the entire area is populated by"
1322 print"dozens of tiny blue creatures not more than three apples high! You are"
1323 print"stunned by their speech, as they all seem to be speaking in a bizarre, elven"
1324 print"tongue, the likes of which you cannot make out. To the north, mushroom"
1325 print"houses are visible. This is where the blue creatures apparently live and"
1326 print"work.":RETURN
1329 end if
if rm= 74 then
1330 PRINT"You have found a small path separate from the rest of the forest. It turns"
1331 print"to the south, heading west into a large red berry patch. A well-lit forest"
1332 print"is clearly visible (to the north).":RETURN
1339 end if
if rm= 75 then
1340 PRINT"You are walking through a red berry patch. These berries are quite odd, as"
1341 print"only the bottom portion of the patch is scattered about the ground. It"
1342 print"appears as though whomever eats of these berries can't be more than"
1343 print"three apples high. To the north, a small village of mushroom houses"
1344 print"is plainly visible.":RETURN
1349 end if
if rm= 76 then
1350 PRINT"You have reached a large red berry patch. Although it hardly seems"
1351 print"possible, only the bottom portion of the patch is scattered about the"
1352 print"ground, suggesting small woodland creatures, not more than three apples"
1353 print"high, eat from the patch. You pick a few berries from the tree and"
1354 print"taste them, but they are hardly edible, as the flavor is slightly"
1355 print"sour! Yuck! The red berry patch continues west.":RETURN
1359 end if
if rm= 77 then 
1360 PRINT"You have reached the end of the small path, stopping here at a"
1361 print"large red berry patch (to the west). Several woodland creatures"
1362 print"scurry about the floor, some of them blue! They appear to be"
1363 print"picking red berries from a large patch of berry bushes. Because"
1364 print"some of these creatures are so small, there is an abundance of"
1365 print"berries near the top, which is waist high for humans.":RETURN
1369 end if
if rm= 78 then
1370 PRINT"As you walk about the village, trying not to step on the dozens of"
1371 print"curious blue creatures, one particular elf walks up to you. He has a"
1372 print"white beard and a red hat, which is distinct from all the others who"
1373 print"wear only white hats. He also appears to be much wiser than the rest,"
1374 print"if not older as well. He says to you,'You can walk around the village,"
1375 print"but please, be careful! If you need any help, ask Handy for tools or"
1376 print"other items. Have a smurfy day!' The path continues north and east.":RETURN
1379 end if
if rm= 79 then
1380 PRINT"As you walk up to a goofy looking blue creature, he hands you a yellow"
1381 print"box, wrapped in a red bow. Carefully, you remove the wrappings, but suddenly"
1382 print"a blast of soot and ash explode in your face! Checking yourself over, you"
1383 print"do not appear to be harmed, just embarrassed! The blue creature laughs at"
1384 print"you, teasing,'You fell for my trick! BWHAHAHAHAHA!' You feel like stepping"
1385 print"on the blue creature! Thankfully, he walks away before you can smush him!":RETURN
1389 end if
if rm= 80 and lo(56)<>-5 then
1390 PRINT"You have entered into the mushroom house of Handy, a local 'handy' man in the"
1391 print"village. He appears to be working on several different projects as once, the"
1392 print"largest of which appears to be a wooden statue of appearance similar to"
1393 print"his own! 'Welcome to my humble home!' he says to you. 'Please feel free"
1394 print"to look around, but don't touch anything! I'm working on a robot to"
1395 print"help with the dam building next fall!' You wonder what he could be"
1396 print"talking about when it hits you: he's working on a robot! Handy looks"
1397 print"around the room and says,'What I really need is a nice, new rug! I"
1398 print"know! Bring me azrael and I'll give you some tools!'":RETURN
1399 end if
if rm= 80 and lo(56)=-5 then
PRINT"You have entered into the mushroom house of Handy, a local 'handy' man in the"
print"village. He appears to be working on several different projects as once, the"
print"largest of which appears to be a wooden statue of appearance similar to"
print"his own! 'Welcome to my humble home!' he says to you. 'Please feel free"
print"to look around, but don't touch anything! I'm working on a robot to"
print"help with the dam building next fall!' You wonder what he could be"
print"talking about when it hits you: he's working on a robot! Handy thanks"
print"you for the nice rug. 'Thank you! It looks Smurfy!'
end if
if rm= 81 then
1400 PRINT"You are walking in Smurf forest. On one particular tree you notice a"
1401 print"blue creature with glasses, reading from a book. He appears to be secluded"
1402 print"from the rest of the Smurfs, as he immerses himself in endless quotations"
1403 print"(apparently self-written). The path continues to the east near a hulking"
1404 print"castle.":RETURN
1409 end if
if rm= 82 then
1410 PRINT"You are on a branch high atop Smurf forest. A lone blue creature is here,"
1411 print"wearing glasses and reading quotations from a large book. 'Famous quotations"
1412 print"from Brainy Smurf' he says to you. 'Quotation 36: He who seeks shall find,"
1413 print"and having seeked, shall be wiser the more!' You feel a sudden repulsiveness"
1414 print"towards this particular creature: no wonder he isn't liked! The only obvious"
1415 print"exit is back down the tree.":RETURN
1419 end if
if rm= 83 then
1420 PRINT"You are standing outside Gargamel's castle, a hulking place with a large"
1421 print"bell at the top and several crows roosting on the straw-matted roof. From"
1422 print"inside, you can hear a man talking to no one in particular. You listen"
1423 print"for awhile until you hear him bellow,'I'll get you, you dispicable little"
1424 print"Smurfs!' You wonder why he could be so upset, but then you remember"
1425 print"how you were treated entering the village.":RETURN
1429 end if
if rm= 84 then
1430 PRINT"You are standing inside Gargamel's castle. A tall man wearing a black"
1431 print"cloak is stirring a large pot, cackling in glee. 'Oh, the smurfs will"
1432 print"be mine, Azrael! And then after I've eaten them, I can turn the rest"
1433 print"into gold! Gold, Azrael! BWHAHAHAHAHAHA!' He appears to be talking to"
1434 print"his cat, scurrying about the floor in fear of his master! A few beakers"
1435 print"are here, as Gargamel appears to be mixing potions. There are also"
1436 print"a few gold bars laying on a wooden table near the back.":RETURN
1499 end if
RETURN
10000 REM Item descriptions
10001 DATA "north: facing north."
10002 DATA "south: facing south."
10003 DATA "east: facing east."
10004 DATA "west: facing west."
10005 DATA "up: facing up."
10006 DATA "down: facing down"
10007 DATA "oil: a flask of oil. Requires the lantern."
10008 DATA "lantern: a brass lantern stained with blood. Requires the oil."
10009 DATA "rope: a coil of rope about 10' in length. It appears used."
10010 DATA "knapsack: a leather knapsack. Can hold up to 4 items."
10011 DATA "backpack: a large backpack. Can hold up to 6 items."
10012 DATA "pole: a wooden pole about 6' in length."
10013 DATA "food: these food rations can last up to two weeks."
10014 DATA "water: the water appears murky green. It does not appear drinkable."
10015 DATA "wine: a bottle of sparkling red wine. It looks drinkable."
10016 DATA "bottle: an empty bottle."
10017 DATA "book: a large leather book. It is written in an elvish tongue."
10018 DATA "gold: several gold bars. They glitter beautifully!"
10019 DATA "spellbook: an ancient spellbook. Useful in casting spells."
10020 DATA "beaker: a glass beaker containing a red liquid."
10021 DATA "helmet: an iron helmet. It has a few small dents."
10022 DATA "chainmail: a chainlinked suit of armor. Offers good protection."
10023 DATA "boots: a pair of leather boots. Offers minimal protection."
10024 DATA "cloak: a large cloak. Offers fair protection."
10025 DATA "ring: a ring of protection. It glows with a bluish hue."
10026 DATA "shield: a large shield with a cross on the front. Offers great protection."
10027 DATA "amulet: a magical amulet. It glows with a greenish hue."
10028 DATA "gauntlets: a pair of metal gauntlets. Offers good protection."
10029 DATA "dagger: a small dagger with a jeweled hilt. Effective at close range."
10030 DATA "sword: a large two-handed sword. It has a ruby hilt. Effective at medium range."
10031 DATA "broadsword: a large broadsword with a diamond hilt. Effective at long range."
10032 DATA "axe: a large battle axe. It has a doubled edge. Effective at close range."
10033 DATA "glowball: eight glowing balls wisping around like fireflies. Effective at long range."
10034 DATA "scepter: a large, powerful scepter with elvish runes. It appears magical."
10035 DATA "slayer: a large sword with a razor-sharp blade. Effective at medium range."
10036 DATA "villager: a simple villager. He smiles at you briefly."
10037 DATA "clerk: a stout clerk with glasses. You can 'buy' and 'sell' items here."
10038 DATA "goblin: a menacing goblin with dark eyes and sharp teeth."
10039 DATA "hellhound: a fiery hellhound raised from the depths of hell. He burns in a luminous flame."
10040 DATA "direwolf: a direwolf wandering the caverns. He growls at you loudly."
10041 DATA "skeleton: an undead zombie haunting the forest. He appears almost translucent."
10042 DATA "dragon: a large dragon with tough scales and sharp claws. He bellows,'Be gone, knave!'"
10043 DATA "ghost: a translucent ghost haunting the area where he died. Watch out!"
10044 DATA "wolf: a friendly wolf with yellow eyes. He seems content on watching you."
10045 DATA "warrior: an evil warrior bound by black magic. He looks tough indeed!"
10046 DATA "tursk: a friendly adventurer with a trimmed beard and flowing hair."
10047 DATA "troll: a troll. Nothing special."
10048 DATA "spider: a black widow spider lurking in the shadows. Be wary of his bite!"
10049 DATA "hobbit: a friendly hobbit. He has furry feet and stands less than 4 feet tall."
10050 DATA "mordimar: the all-powerful wizard of legend! You sense great power flowing through him!"
10051 DATA "papa: a small blue creature with a white beard and a red hat. He is mixing potions."
10052 DATA "handy: a small blue creature wearing a white hat. He appears to be building something."
10053 DATA "jokey: this mischevious blue creature appears to be up to no good. He carries around a box wrapped with a bow."
10054 DATA "brainy: a small blue creature with glasses. He appears to be the least liked of his kind."
10055 DATA "gargamel: an evil wizard trying to turn little blue creatures into gold. He has a black heart."
10056 DATA "azrael: a mischevious cat. He appears somewhat malnourished."
11000 REM Verbs
11001 data"go","get","drop","inventory","look","wield","unwield","wear","remove","examine","use"
11002 data"climb","read","buy","sell","kill","put","eat","drink"
11099 REM map
11100 REM   N, S, E, W, U, D
11101 DATA 00,05,00,00,02,00
11102 DATA 00,00,04,00,00,01
11103 DATA 00,00,00,05,00,00
11104 DATA 00,00,00,02,00,00
11105 DATA 01,09,03,06,00,00
11106 DATA 07,00,05,00,00,00
11107 DATA 00,06,00,08,00,00
11108 DATA 00,00,07,00,00,00
11109 DATA 05,10,00,00,00,00
11110 DATA 09,12,13,11,00,00
11111 DATA 30,33,10,00,00,00
11112 DATA 10,49,34,33,00,00
11113 DATA 00,00,14,10,00,00
11114 DATA 15,00,00,13,00,00
11115 DATA 00,14,00,00,00,00
11116 DATA 00,37,17,00,00,00
11117 DATA 18,00,00,16,00,00
11118 DATA 20,17,00,00,00,00
11119 DATA 25,00,20,00,00,00
11120 DATA 22,18,21,19,00,00
11121 DATA 00,00,00,20,00,00
11122 DATA 00,20,00,00,23,00
11123 DATA 00,00,24,00,00,22
11124 DATA 00,00,00,23,00,00
11125 DATA 00,19,00,26,00,00
11126 DATA 00,00,25,00,00,00
11127 DATA 00,29,00,00,00,00
11128 DATA 00,32,29,00,00,00
11129 DATA 27,00,30,28,00,00
11130 DATA 00,11,00,29,00,00
11131 DATA 00,00,32,00,00,00
11132 DATA 28,00,00,31,00,00
11133 DATA 11,00,12,00,00,00
11134 DATA 00,00,35,12,00,00
11135 DATA 00,50,36,34,00,00
11136 DATA 00,51,37,35,00,00
11137 DATA 16,00,38,36,00,00
11138 DATA 39,00,00,37,00,00
11139 DATA 00,38,40,00,00,00
11140 DATA 00,00,41,39,00,00
11141 DATA 44,00,42,40,00,00
11142 DATA 00,00,00,41,00,00
11143 DATA 00,00,44,00,00,00
11144 DATA 47,41,45,43,00,00
11145 DATA 00,00,46,44,00,00
11146 DATA 00,00,00,45,00,00
11147 DATA 00,44,48,00,00,00
11148 DATA 00,00,00,47,00,00
11149 DATA 12,55,00,00,00,00
11150 DATA 35,00,51,00,00,00
11151 DATA 36,56,52,50,00,00
11152 DATA 00,00,00,51,00,00
11153 DATA 00,60,00,00,00,00
11154 DATA 00,62,00,00,00,00
11155 DATA 49,65,00,00,00,00
11156 DATA 51,00,57,00,00,00
11157 DATA 00,66,58,56,00,00
11158 DATA 00,67,59,57,00,00
11159 DATA 00,00,60,58,00,00
11160 DATA 53,00,61,59,00,00
11161 DATA 00,00,62,60,00,00
11162 DATA 54,00,63,61,00,00
11163 DATA 00,00,00,62,00,00
11164 DATA 00,70,00,00,00,00
11165 DATA 55,72,00,00,00,00
11166 DATA 57,00,00,00,00,00
11167 DATA 58,00,68,00,00,00
11168 DATA 00,74,69,67,00,00
11169 DATA 00,00,00,68,00,00
11170 DATA 64,00,71,00,00,00
11171 DATA 00,00,72,70,00,00
11172 DATA 65,00,00,71,00,00
11173 DATA 78,75,00,00,00,00
11174 DATA 69,77,00,00,00,00
11175 DATA 73,00,76,00,00,00
11176 DATA 00,00,77,75,00,00
11177 DATA 74,00,00,76,00,00
11178 DATA 79,73,80,00,00,00
11179 DATA 00,78,81,00,00,00
11180 DATA 00,00,00,78,00,00
11181 DATA 00,00,83,79,82,00
11182 DATA 00,00,00,00,00,81
11183 DATA 00,00,84,81,00,00
11184 DATA 00,00,00,83,00,00
12000 REM
12001 DATA "Inside a Small Tavern"
12002 DATA "Upstairs Hallway"
12003 DATA "In the Village Shop"
12004 DATA "Inside a Small Room"
12005 DATA "By a large Fountain"
12006 DATA "Inside the Village Church"
12007 DATA "Within the Church Gargen"
12008 DATA "Inside a Small Toolshed"
12009 DATA "Entrance to Village"
12010 DATA "On the Path"
12011 DATA "In a Burnt Forest"
12012 DATA "At an Intersection"
12013 DATA "In a Large Meadow"
12014 DATA "In a Large Meadow"
12015 DATA "At a Small Pond"
12016 DATA "In the River"
12017 DATA "In the River"
12018 DATA "In a Small Clearing"
12019 DATA "Redwood Forest"
12020 DATA "Redwood Forest"
12021 DATA "Redwood Forest"
12022 DATA "Redwood Forest"
12023 DATA "High atop the forest"
12024 DATA "Small Hut"
12025 DATA "Redwood Forest"
12026 DATA "Redwood Forest"
12027 DATA "In a Burnt Forest"
12028 DATA "In a Burnt Forest"
12029 DATA "In a Burnt Forest"
12030 DATA "In a Burnt Forest"
12031 DATA "In a Burnt Forest"
12032 DATA "In a Burnt Forest"
12033 DATA "In a Burnt Forest"
12034 DATA "Dark Forest"
12035 DATA "Dark Forest"
12036 DATA "Dark Forest"
12037 DATA "In the River"
12038 DATA "Large Cave"
12039 DATA "In a Twisty Tunnel"
12040 DATA "In a Twisty Tunnel"
12041 DATA "In a Twisty Tunnel"
12042 DATA "At a Dead End"
12043 DATA "At a Dead End"
12044 DATA "In a Twisty Tunnel"
12045 DATA "In a Twisty Tunnel"
12046 DATA "Small Keep"
12047 DATA "In a Twisty Tunnel"
12048 DATA "At a Dead End"
12049 DATA "On the Bridge"
12050 DATA "Dark Forest"
12051 DATA "Dark Forest"
12052 DATA "Small Alcove"
12053 DATA "Kitchen"
12054 DATA "Small Room"
12055 DATA "On the Bridge"
12056 DATA "Dark Forest"
12057 DATA "Light Forest"
12058 DATA "Light Forest"
12059 DATA "Light Forest"
12060 DATA "In a Small Cottage"
12061 DATA "Hallway"
12062 DATA "Hallway"
12063 DATA "Small Room"
12064 DATA "Mordimar"
12065 DATA "On the Bridge"
12066 DATA "Light Forest"
12067 DATA "Light Forest"
12068 DATA "Light Forest"
12069 DATA "Light Forest"
12070 DATA "Throne Room"
12071 DATA "Fountain"
12072 DATA "Shadow Castle"
12073 DATA "Strange New World"
12074 DATA "Small Path"
12075 DATA "Smurf Berry Patch"
12076 DATA "Smurf Berry Patch"
12077 DATA "Smurf Berry Patch"
12078 DATA "Papa Smurf"
12079 DATA "Jokey Smurf"
12080 DATA "Handy Smurf"
12081 DATA "Smurf Forest"
12082 DATA "High atop Smurf Forest"
12083 DATA "Outside Gargamel's Castle"
12084 DATA "Inside Gargamel's Castle"
13000 REM item prices
13050 DATA 99,99,99,99,99,99
13051 DATA 12,26,8,40,200
13052 DATA 42,30,16,50,20
13053 DATA 100,1000,5000,28
13054 DATA 200,800,120,80
13055 DATA 300,150,380,400
13056 DATA 50,480,750,320
13057 DATA 2000,1000,3000
13058 DATA 99,99,99,99
13059 DATA 99,99,99,99
13060 DATA 99,99,99,99,99
13061 DATA 99,99
13062 DATA 99,99,99,99
13063 DATA 99,99