Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/games/volume18/hobbit/part01

Internet Message Format | 1993-07-11 | 35.5 KB

Path: uunet!news.tek.com!saab!billr
From: [e-mail] (Bill Randle)
Newsgroups: comp.sources.games
Subject: v18i009:  hobbit - MS-DOS adventure using BAT-files, Part01/01
Date: 10 Jul 1993 20:49:06 GMT
Organization: Tektronix, Inc, Redmond, OR, USA
Lines: 1152
Approved: [e-mail]
Message-ID: <21na02$[e-mail]>
NNTP-Posting-Host: saab.cna.tek.com
Xref: uunet comp.sources.games:1809

Submitted-by: [e-mail] (FrEdRiK rAmSbErG (wiilllDDDDCCCCaaarrd))
Posting-number: Volume 18, Issue 9
Archive-name: hobbit/part01
Environment: MS-DOS

[From the author...]
[[This is a small shareware adventure game, as far as I know the first one to be
written entirely in MS-DOS, using BAT-files. If the game is started from
AUTOEXEC.BAT, it can be played at any time while in DOS. It has no memory-resident parts.]]

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 1 (of 1)."
# Contents:  MANIFEST README.TXT ask.bat clue.bat cut.bat drop.bat
#   e.bat eat.bat enter.bat examine.bat get.bat go.bat hint.bat i.bat
#   inventor.bat kill.bat l.bat look.bat n.bat quit.bat restart.bat
#   s.bat show.bat take.bat talk.bat talkhelp.bat w.bat wait.bat x.bat
# Wrapped by billr@saab on Sat Jul 10 13:47:43 1993
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'MANIFEST' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'MANIFEST'\"
else
echo shar: Extracting \"'MANIFEST'\" \(1013 characters\)
sed "s/^X//" >'MANIFEST' <<'END_OF_FILE'
X   File Name        Archive #    Description
X-----------------------------------------------------------
X MANIFEST                   1    This shipping list
X README.TXT                 1
X ask.bat                    1
X clue.bat                   1
X cut.bat                    1
X drop.bat                   1
X e.bat                      1
X eat.bat                    1
X enter.bat                  1
X examine.bat                1
X get.bat                    1
X go.bat                     1
X hint.bat                   1
X i.bat                      1
X inventor.bat               1
X kill.bat                   1
X l.bat                      1
X look.bat                   1
X n.bat                      1
X quit.bat                   1
X restart.bat                1
X s.bat                      1
X show.bat                   1
X take.bat                   1
X talk.bat                   1
X talkhelp.bat               1
X w.bat                      1
X wait.bat                   1
X x.bat                      1
END_OF_FILE
if test 1013 -ne `wc -c <'MANIFEST'`; then
    echo shar: \"'MANIFEST'\" unpacked with wrong size!
fi
# end of 'MANIFEST'
fi
if test -f 'README.TXT' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'README.TXT'\"
else
echo shar: Extracting \"'README.TXT'\" \(3440 characters\)
sed "s/^X//" >'README.TXT' <<'END_OF_FILE'
X                                                         Monday 19.April 1993
X
X
X                         Hobbit - The True Story
X
X                by Fredrik Ramsberg and Johan Berntsson
X
X
XThis is a small interactive adventure game for PC's using MS-DOS 5.0. The
Xgame is in fact, in its entirety, written in MS-DOS. After unpacking the
Xgame in a directory of its own, this is what you have to do to be able to
Xplay it:
X
X               * Include the name of the directory in the PATH variable
X                 declaration in your AUTOEXEC.BAT.
X
X               * Type RESTART at a DOS prompt, or better yet, put it on the
X                 last line in your AUTOEXEC.BAT.
X
XAfter having done this, reboot the machine and the game will be available at
Xall times. Please note: You can interrupt gameplay at any time, to do
Xsomething else in DOS. As long as you don't turn off or reset the computer,
Xthe game will always be ready for continuation. If you have trouble running
Xthe game, make sure that you have DOS version 5.0 and that you have enough
Xmemory space reserved for environment variables. The space reserved can be
Xextended using the MS-DOS command "command /e:nnnnn".
X
X
X
X                                Story
X
XThis game is about what really happened to Bilbo Baggins on his famous
Xadventure. The story, in somewhat corrupt versions, has been told in a book -
XThe Hobbit by JRR Tolkien, and several computer games, among them Hobbit.
XYou play the part of Bilbo, and your goal is to journey to Smaug, the great
Xred dragon in the land beyond the river, and return with treasures. For an
Xassistant you have Thorin the dwarf and Gandalf the powerful wizard. They
Xwill do everything within their power to guide you and to help you. Well,
Xalmost everything, as long as they don't have to get into any trouble
Xthemselves. Or get wet, for that matter. Or cold.
X
XSample sentences that the parser will recognize:
X(Note that everything must be typed in lower case.)
X
X>take chest
X>show gandalf chest
X>show the chest to gandalf
X>drop the chest
X>inventory
X>i  (Short for inventory)
X>get the chest
X>ask gandalf about the spell
X>talk to thorin about chest
X>examine chest
X>x chest (Short for examine chest)
X>hint
X>clue
X>look
X>l (Short for look)
X>go east
X>e (Short for go east)
X>enter the chest
X>wait
X>restart
X>quit
X
X
X                                General info
X
XThis game is a shareware product. You are absolutely free to distribute it
Xto anyone, as long as you don't take a profit from it. However, anyone who
Xenjoys it and decides to keep it should pay a small fee to the authors. This
Xfee will encourage them to write more shareware programs in the future.
XAlso, paying the fee is helping to establish this form of distribution, as
Xother programmers may start using it if it works properly.
X
XThe shareware fee for this program is set to US $10. This may be sent in any
Xway you like to the address below. Thank you!
X
X                           Mr. Fredrik Ramsberg
X                               Ryds Alle 17:214
X                             S-582 51  LINKOPING
X                               SWEDEN
X
XIf you have any questions or comments, feel free to contact me using the
Xabove address, or the e-mail address below:
X
X                               [e-mail]
X
XThank you for playing this game!
END_OF_FILE
if test 3440 -ne `wc -c <'README.TXT'`; then
    echo shar: \"'README.TXT'\" unpacked with wrong size!
fi
# end of 'README.TXT'
fi
if test -f 'ask.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'ask.bat'\"
else
echo shar: Extracting \"'ask.bat'\" \(94 characters\)
sed "s/^X//" >'ask.bat' <<'END_OF_FILE'
X@echo off
Xif "%3" == "the" ask %1 %2 %4
Xif "%2" == "about" talkhelp %1 %3
Xtalkhelp %1 %2
END_OF_FILE
if test 94 -ne `wc -c <'ask.bat'`; then
    echo shar: \"'ask.bat'\" unpacked with wrong size!
fi
# end of 'ask.bat'
fi
if test -f 'clue.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'clue.bat'\"
else
echo shar: Extracting \"'clue.bat'\" \(249 characters\)
sed "s/^X//" >'clue.bat' <<'END_OF_FILE'
X@echo off
Xif "%&room%" == "clearing" goto clearing
X
Xecho Try examining things!
Xgoto exit
X
X:clearing
Xecho Trolls are not known to stand sunlight very well. It may be wise to wait a
Xecho while before confronting them.
Xgoto exit
X
X:exit
X
X
END_OF_FILE
if test 249 -ne `wc -c <'clue.bat'`; then
    echo shar: \"'clue.bat'\" unpacked with wrong size!
fi
# end of 'clue.bat'
fi
if test -f 'cut.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'cut.bat'\"
else
echo shar: Extracting \"'cut.bat'\" \(899 characters\)
sed "s/^X//" >'cut.bat' <<'END_OF_FILE'
X@echo off
Xif "%1" == "the" cut %2
Xif "%1" == "cigar" goto cutcigar
Xif "%1" == "dragon" kill %1
Xif "%1" == "thorin" kill %1
Xif "%1" == "elrond" kill %1
Xif "%1" == "thorin" kill %1
Xif "%1" == "troll" kill %1
Xif "%1" == "trolls" kill %1
Xecho You can't cut that!
Xgoto exit
X
X:cutcigar
Xif not "%&room%" == "den" goto cantseecig
Xif not "%&o6loc%" == "me" goto havntsword
Xecho You run towards the mighty dragon and cut off his cigar. The dragon
Xecho exclaims, "Hey, what are you doing!". You explain that the cigar will
Xecho be easier to smoke now, and after some experimenting, Smaug agrees with you.
Xecho He trades your sword for a treasure and offers you transport to Rivendell.
Xset &o7loc=me
Xset &room=rivendell
Xset &o6loc=den
Xecho.
Xpause
Xlook
X:cantseecig
Xecho There are no cigars around.
Xgoto exit
X:havntsword
Xecho You havn't got anything to cut with.
Xgoto exit
X
X:exit
END_OF_FILE
if test 899 -ne `wc -c <'cut.bat'`; then
    echo shar: \"'cut.bat'\" unpacked with wrong size!
fi
# end of 'cut.bat'
fi
if test -f 'drop.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'drop.bat'\"
else
echo shar: Extracting \"'drop.bat'\" \(765 characters\)
sed "s/^X//" >'drop.bat' <<'END_OF_FILE'
X@echo off
Xif "%1"=="torch" goto drop-torch
Xif "%1"=="lunch" goto drop-lunch
Xif "%1"=="map" goto drop-map
Xif "%1"=="sword" goto drop-sword
Xif "%1"=="treasure" goto drop-treasure
Xif "%1" == "the" drop %2
Xgoto not-held
X
X:drop-torch
Xif not "%&o1loc%"=="me" goto not-held
Xset &o1loc=%&room%
Xgoto dropped
X
X:drop-lunch
Xif not "%&o2loc%"=="me" goto not-held
Xset &o2loc=%&room%
Xgoto dropped
X
X:drop-map
Xif not "%&o3loc%"=="me" goto not-held
Xset &o3loc=%&room%
Xgoto dropped
X
X:drop-sword
Xif not "%&o6loc%"=="me" goto not-held
Xset &o6loc=%&room%
Xgoto dropped
X
X:drop-treasure
Xif not "%&o7loc%"=="me" goto not-held
Xset &o7loc=%&room%
Xgoto dropped
X
X:not-held
Xecho You are not holding that.
Xgoto exit
X
X:dropped
Xecho You drop the %1.
X
X:exit
END_OF_FILE
if test 765 -ne `wc -c <'drop.bat'`; then
    echo shar: \"'drop.bat'\" unpacked with wrong size!
fi
# end of 'drop.bat'
fi
if test -f 'e.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'e.bat'\"
else
echo shar: Extracting \"'e.bat'\" \(10 characters\)
sed "s/^X//" >'e.bat' <<'END_OF_FILE'
X@go east
END_OF_FILE
if test 10 -ne `wc -c <'e.bat'`; then
    echo shar: \"'e.bat'\" unpacked with wrong size!
fi
# end of 'e.bat'
fi
if test -f 'eat.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'eat.bat'\"
else
echo shar: Extracting \"'eat.bat'\" \(340 characters\)
sed "s/^X//" >'eat.bat' <<'END_OF_FILE'
X@echo off
Xif "%1" == "the" eat %2
Xif "%1" == "lunch" goto eatlunch
Xif "%1" == "" echo What do you want to eat?
Xif not "%1" == "" echo You can't eat that!
Xgoto exit
X
X:eatlunch
Xif not "%&o2loc%" == "me" goto donthave
Xecho You feel much refreshed.
Xset &o2loc=nil
Xgoto exit
X
X:donthave
Xecho But you don't have any lunch!
X
X:exit
END_OF_FILE
if test 340 -ne `wc -c <'eat.bat'`; then
    echo shar: \"'eat.bat'\" unpacked with wrong size!
fi
# end of 'eat.bat'
fi
if test -f 'enter.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'enter.bat'\"
else
echo shar: Extracting \"'enter.bat'\" \(33 characters\)
sed "s/^X//" >'enter.bat' <<'END_OF_FILE'
X@if "%1" == "the" go %2
X@go %1
END_OF_FILE
if test 33 -ne `wc -c <'enter.bat'`; then
    echo shar: \"'enter.bat'\" unpacked with wrong size!
fi
# end of 'enter.bat'
fi
if test -f 'examine.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'examine.bat'\"
else
echo shar: Extracting \"'examine.bat'\" \(4103 characters\)
sed "s/^X//" >'examine.bat' <<'END_OF_FILE'
X@echo off
Xif "%1" == "" look
Xif "%1" == "torch" goto torch
Xif "%1" == "lunch" goto lunch
Xif "%1" == "map" goto map
Xif "%1" == "chest" goto chest
Xif "%1" == "elrond" goto elrond
Xif "%1" == "gandalf" goto gandalf
Xif "%1" == "thorin" goto thorin
Xif "%1" == "smaug" goto smaug
Xif "%1" == "dragon" goto smaug
Xif "%1" == "treasure" goto treasure
Xif "%1" == "paintings" goto paintings
Xif "%1" == "painting" goto paintings
Xif "%1" == "cigar" goto cigar
Xif "%1" == "the" examine %2
Xecho There is nothing special about the %1.
Xgoto exit
X
X:torch
Xif not "%&o1loc%" == "me" if not "%&o1loc%" == "%&room%" goto cantsee
Xecho It is currently providing light.
Xgoto exit
X
X:lunch
Xif not "%&o2loc%" == "me" if not "%&o2loc%" == "%&room%" goto cantsee
Xecho It's edible.
Xgoto exit
X
X:map
Xif "%&o3loc%" == "gandalf" if "%&room%" == "home" goto ganhasmap
Xif not "%&o3loc%" == "me" if not "%&o3loc%" == "%&room%" goto cantsee
Xecho The curious map must obviously have been drawn by hand, at great effort.
Xecho It shows the mysterious surroundings of Rivendell, home of the elves.
Xgoto exit
X:ganhasmap
Xecho Gandalf has it. You should ask him about it. Maybe he doesn't need it anyway.
Xgoto exit
X
X:chest
Xif not "%&o4loc%" == "me" if not "%&o4loc%" == "%&room%" goto cantsee
Xecho It's a nice piece of wooden workmanship.
Xif "%&o1loc%" == "chest" echo There's a burning torch inside it. You decide to pick it up.
Xif "%&o1loc%" == "chest" set &o1loc=me
Xgoto exit
X
X:gandalf
Xif not "%&room%" == "home" goto gancantsee
Xecho Gandalf, the old magician, is still working with his new spell.
Xif "%&o3loc%" == "gandalf" echo He is carrying a map.
Xgoto exit
X:gancantsee
Xecho Gandalf isn't here!
Xgoto exit
X
X:elrond
Xif not "%&room%" == "rivendell" goto elrcantsee
Xecho Elrond has turned pretty nasty lately. Better not mess with him, considering
Xecho his plans to enslave all Hobbits.
Xgoto exit
X:gancantsee
Xecho Elrond isn't here!
Xgoto exit
X
X:thorin
Xecho Thorin, your old friend, is no longer the proud dwarf he once was. All the
Xecho drugs have turned him into a drooling good-for-nothing idiot. The only reason
Xecho that he has come along is to get more treasures for drugs, as always.
X
Xif "%&room%" == "home" echo He doesn't seem to happy about leaving the house.
Xif "%&room%" == "rivendell" echo Thorin takes another beer from the fridge. Elrond slaps him.
Xif "%&room%" == "den" echo Thorin is negotiating with the dragon about taking some rare drugs home,
Xif "%&room%" == "den" echo provided that Smaug gets to keep your body.
Xif "%&room%" == "woods" echo Thorin says "We're lost! Abandon all hope. We'll never get out of here alive!".
Xif "%&room%" == "clearing" if "%&stoned%" == "NO" echo Thorin participates in the chanting.
Xif "%&room%" == "clearing" if "%&stoned%" == "YES" echo Thorin is talking to the trolls. He doesn't notice that they are dead.
Xif "%&room%" == "cave" echo Thorin is writing a song. I shall call it "Let's roll another one", he remarks.
Xgoto exit
X
X:smaug
Xif not "%&room%" == "den" goto smacantsee
Xecho Smaug's red dragon body is filling the eastern part of the cave. As he can't
Xecho get out of the cave anymore, he seems to have settled with just lying here,
Xecho eating any adventurers that drop by. Every now and then he enjoys a big
Xecho cigar, but he obviously doesn't know quite how to do it right. The cigar in
Xecho his mouth hasn't been cut properly. Smaug coughs, but luckily you're out of
Xecho the deadly range.
Xgoto exit
X:smacantsee
Xecho Smaug is not around, as far as I can see.
Xgoto exit
X
X:treasure
Xif not "%&o7loc%" == "me" if not "%&o7loc%" == "%&room%" goto cantsee
Xecho It is just the kind of treasure you'd expect to find in a dragon's den. It does
Xecho seem mighty valuable.
Xgoto exit
X
X:paintings
Xif not "%&room%" == "den" goto cantsee
Xecho Among the paintings you recognize works of Picasso, da Vinci and Rembrandt.
Xgoto exit
X
X:cigar
Xif not "%&room%" == "den" goto cantsee
Xecho The cigar doesn't seem to be properly cut.
Xgoto exit
X
X:cantsee
Xecho It is nowhere to be seen.
X
X:exit
END_OF_FILE
if test 4103 -ne `wc -c <'examine.bat'`; then
    echo shar: \"'examine.bat'\" unpacked with wrong size!
fi
# end of 'examine.bat'
fi
if test -f 'get.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'get.bat'\"
else
echo shar: Extracting \"'get.bat'\" \(16 characters\)
sed "s/^X//" >'get.bat' <<'END_OF_FILE'
X@take %1 %2 %3
END_OF_FILE
if test 16 -ne `wc -c <'get.bat'`; then
    echo shar: \"'get.bat'\" unpacked with wrong size!
fi
# end of 'get.bat'
fi
if test -f 'go.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'go.bat'\"
else
echo shar: Extracting \"'go.bat'\" \(3679 characters\)
sed "s/^X//" >'go.bat' <<'END_OF_FILE'
X@echo off
X
Xif "%&room%" == "woods" goto woods
Xif "%&room%" == "cave" goto cavern
Xif "%&room%" == "clearing" goto clearing
Xif "%&room%" == "home" goto home
Xif "%&room%" == "rivendell" goto rivendell
Xif "%&room%" == "den" goto den
X
Xgoto error
X
X
X:woods
Xif "%1" == "raft" if "%&o5loc%" == "woods" goto rwoods
Xif "%1" == "south" goto gowoods
Xif "%1" == "west" goto gowoods
Xif "%1" == "north" goto gorivendell
Xgoto fail
X:rwoods
Xecho Not knowing what is about to happen, you fearlessly enter the raft. You follow
Xecho the river downstream for a while, as you don't have any means of manouvering
Xecho the little dingy. When hitting land, you are cold and starving. You soon find
Xecho a trail leading to a little village. The natives feed you and treat you well,
Xecho so you are soon healthy enough to go hunting on your own. On one of your trips
Xecho up into the mountains, you are suddenly brought back to your original mission,
Xecho as you step on a loose rock, which gives way. You slide down a long tunnel
Xecho which has many bends and little light. Eventually you leave the tunnel, only
Xecho to come into...
Xset &o5loc=nil
Xset &room=den
Xecho.
Xpause
Xcall look
Xecho Thorin, whom you haven't seen since you were in the forest together, enters
Xecho from a side door, singing about peace. He greets you with a laugh.
Xgoto exit
X
X:cavern
Xif "%1" == "south" goto goclearing
Xgoto fail
X
X:clearing
Xif "%1" == "east" goto gorivendell
Xif "%1" == "north" goto nclearing
Xif "%1" == "west" goto gohome
Xgoto fail
X:nclearing
Xif "%&stoned%" == "YES" goto gocave
Xecho The trolls won't let you.
Xgoto exit
X
X:home
Xif "%1" == "east" goto goclearing
Xgoto fail
X
X:rivendell
Xif "%1" == "north" goto nrivendell
Xif "%1" == "west" goto wrivendell
Xgoto fail
X:wrivendell
Xif not "%&o2loc%"=="me" goto goclearing
Xecho Just as you leave, Elrond grabs your lunch. He looks annoyed.
Xset &o2loc=rivendell
Xgoto goclearing
X:nrivendell
Xif not "%&o2loc%"=="me" goto nrivcont
Xecho Just as you leave, Elrond grabs your lunch. He looks annoyed.
Xset &o2loc=rivendell
X:nrivcont
Xif "%&o3loc%" == "me" goto gowodfromriv
Xecho You stagger off into the surrounding hills, but find nothing of interest.
Xecho Disappointed you return back to Elrond's party.
Xgoto exit
X:gowodfromriv
Xecho Using the curious map that Gandalf gave you, you soon find your way to the
Xecho pleasant lush of the woods.
Xset &room=woods
Xlook
X
X:den
Xgoto fail
X
X:gohome
Xset &room=home
Xif not "%&o7loc%"=="me" goto success
Xecho You go west.
Xcall look
Xecho.
Xecho As you enter your home again, Gandalf comes to his feet. He comes forward, as
Xecho if to greet and congratulate you, but instead he asks, "Did you bring any
Xecho tobacco?". You decide to do what you should have done a long time ago. You
Xecho show the old wizard to the door, and kindly ask him to leave. Thorin follows
Xecho Gandalf out through the door.
Xecho.
Xecho Without any wizards or dwarves pestering you all the time, your life gets very
Xecho pleasant, and with the treasure it stays that way. You have won!!!
Xecho.
Xpause
Xrestart
X
X:goclearing
Xset &room=clearing
Xgoto success
X:gocave
Xset &room=cave
Xgoto success
X:gorivendell
Xset &room=rivendell
Xgoto success
X:gowoods
Xset &room=woods
Xgoto success
X:goden
Xset &room=den
Xgoto success
X
X
X:error
Xecho Error: Undefined room!
Xgoto exit
X
X:fail
Xecho You can't go %1.
Xgoto exit
X
X:success
Xecho You walk %1.
Xcall look
Xif "%1" == "north" echo Thorin is already here.
Xif "%1" == "south" echo Thorin comes running after you.
Xif "%1" == "east" echo Thorin enters from the west.
Xif "%1" == "west" echo Thorin follows your trail.
X
X:exit
END_OF_FILE
if test 3679 -ne `wc -c <'go.bat'`; then
    echo shar: \"'go.bat'\" unpacked with wrong size!
fi
# end of 'go.bat'
fi
if test -f 'hint.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'hint.bat'\"
else
echo shar: Extracting \"'hint.bat'\" \(13 characters\)
sed "s/^X//" >'hint.bat' <<'END_OF_FILE'
X@clue %1 %2
END_OF_FILE
if test 13 -ne `wc -c <'hint.bat'`; then
    echo shar: \"'hint.bat'\" unpacked with wrong size!
fi
# end of 'hint.bat'
fi
if test -f 'i.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'i.bat'\"
else
echo shar: Extracting \"'i.bat'\" \(14 characters\)
sed "s/^X//" >'i.bat' <<'END_OF_FILE'
X@inventory
X
END_OF_FILE
if test 14 -ne `wc -c <'i.bat'`; then
    echo shar: \"'i.bat'\" unpacked with wrong size!
fi
# end of 'i.bat'
fi
if test -f 'inventor.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'inventor.bat'\"
else
echo shar: Extracting \"'inventor.bat'\" \(217 characters\)
sed "s/^X//" >'inventor.bat' <<'END_OF_FILE'
X@echo off
Xecho You are carrying:
Xif "%&o1loc%"=="me" echo A Torch
Xif "%&o2loc%"=="me" echo Some Lunch
Xif "%&o3loc%"=="me" echo A Curious Map
Xif "%&o6loc%"=="me" echo A Sword
Xif "%&o7loc%"=="me" echo A Treasure
END_OF_FILE
if test 217 -ne `wc -c <'inventor.bat'`; then
    echo shar: \"'inventor.bat'\" unpacked with wrong size!
fi
# end of 'inventor.bat'
fi
if test -f 'kill.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'kill.bat'\"
else
echo shar: Extracting \"'kill.bat'\" \(89 characters\)
sed "s/^X//" >'kill.bat' <<'END_OF_FILE'
X@echo off
Xecho Violence is not very likely to solve your problems. Better stay calm.
X
END_OF_FILE
if test 89 -ne `wc -c <'kill.bat'`; then
    echo shar: \"'kill.bat'\" unpacked with wrong size!
fi
# end of 'kill.bat'
fi
if test -f 'l.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'l.bat'\"
else
echo shar: Extracting \"'l.bat'\" \(9 characters\)
sed "s/^X//" >'l.bat' <<'END_OF_FILE'
X@look
X
END_OF_FILE
if test 9 -ne `wc -c <'l.bat'`; then
    echo shar: \"'l.bat'\" unpacked with wrong size!
fi
# end of 'l.bat'
fi
if test -f 'look.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'look.bat'\"
else
echo shar: Extracting \"'look.bat'\" \(2768 characters\)
sed "s/^X//" >'look.bat' <<'END_OF_FILE'
X@echo off
Xecho.
Xif "%&room%" == "woods" goto woods
Xif "%&room%" == "cave" goto cavern
Xif "%&room%" == "clearing" goto clearing
Xif "%&room%" == "home" goto home
Xif "%&room%" == "rivendell" goto rivendell
Xif "%&room%" == "den" goto den
X
Xgoto error
X
X:woods
Xecho Deep Forest
Xecho You are standing in the deep forest. Paths lead off in all directions but east,
Xecho where a mighty river is floating by. You feel lost and hungry.
Xecho Thorin sits down and starts singing about drugs. He offers you a joint.
Xgoto exit
X
X:cavern
Xecho Trolls' Cave
Xif "%&o1loc%"=="cavern" goto cavelight
Xif "%&o1loc%"=="me" goto cavelight
Xecho It's dark. You can't see anything.
Xgoto lastexit
X:cavelight
Xecho You are in a hardly even lit cavern with a doorway leading south.
Xecho Thorin is mumbling to himself and fails to notice your presence.
Xgoto exit
X
X:clearing
Xecho Trolls' Clearing
Xecho You are standing in a vast clearing, with paths leading off to the east and
Xecho west. A yellow brick road leads north. Trolls are standing all around you,
Xecho fiercely watching every move of your limbs.
Xif "%&stoned%"=="YES" echo The trolls seem to be stoned. They probably don't like the sunlight.
Xif not "%&stoned%"=="YES" echo The trolls are chanting ancient rhymes. They tend to do that just before dawn.
Xgoto exit
X
X:home
Xecho Tunnel Like Hall
Xecho You are in your comfortable tunnel like hall. Infact, it's just a dirty hole in
Xecho the ground, but to you it's home. Gandalf is working on a nasty spell. There
Xecho is a round, green door set in the eastern wall.
Xgoto exit
X
X:rivendell
Xecho Rivendell
Xecho This is Rivendell, the last homelike house. At least, that's the name of it.
Xecho Elrond is sitting at a round table together with his generals, discussing his
Xecho plans for a coming conquest and enslavement of the Hobbits. Paths lead off to
Xecho the north and west.
Xecho Elrond hesitatingly offers you some food. He gives your fairly thick legs a
Xecho greedy look. He drools.
Xecho Thorin announces: "If you're attacking the Hobbits, count me in!"
Xset &o2loc=me
Xgoto exit
X
X:den
Xecho Smaug's Den
Xecho You are in a great cave. Gold and jewelry cover the floor. Precious paintings
Xecho are hanging on all the walls. Smaug is lying on a big heap of silver bars,
Xecho smoking a huge cigar. He looks at you and yawns loudly.
Xgoto exit
X
X:error
Xecho Error: Undefined room!
X
X:exit
Xecho You can see:
Xif "%&o1loc%"=="%&room%" echo A Torch
Xif "%&o2loc%"=="%&room%" echo Some Lunch
Xif "%&o3loc%"=="%&room%" echo A Curious Map
Xif "%&o4loc%"=="%&room%" echo A Wooden Chest
Xif "%&o5loc%"=="%&room%" echo A Raft
Xif "%&o6loc%"=="%&room%" echo A Sword
Xif "%&o7loc%"=="%&room%" echo A Treasure
Xecho Thorin, the dwarf.
X:lastexit
END_OF_FILE
if test 2768 -ne `wc -c <'look.bat'`; then
    echo shar: \"'look.bat'\" unpacked with wrong size!
fi
# end of 'look.bat'
fi
if test -f 'n.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'n.bat'\"
else
echo shar: Extracting \"'n.bat'\" \(11 characters\)
sed "s/^X//" >'n.bat' <<'END_OF_FILE'
X@go north
END_OF_FILE
if test 11 -ne `wc -c <'n.bat'`; then
    echo shar: \"'n.bat'\" unpacked with wrong size!
fi
# end of 'n.bat'
fi
if test -f 'quit.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'quit.bat'\"
else
echo shar: Extracting \"'quit.bat'\" \(10 characters\)
sed "s/^X//" >'quit.bat' <<'END_OF_FILE'
X@restart
END_OF_FILE
if test 10 -ne `wc -c <'quit.bat'`; then
    echo shar: \"'quit.bat'\" unpacked with wrong size!
fi
# end of 'quit.bat'
fi
if test -f 'restart.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'restart.bat'\"
else
echo shar: Extracting \"'restart.bat'\" \(424 characters\)
sed "s/^X//" >'restart.bat' <<'END_OF_FILE'
X@echo off
Xrem ***  The first known attempt at MS-DOS adventuring    ***
Xrem *** Launched by Johbe and Frera on 30:th of March '93 ***
X
Xset &room=home
Xset &o1loc=chest
Xset &o2loc=rivendell
Xset &o3loc=gandalf
Xset &o4loc=home
Xset &o5loc=woods
Xset &o6loc=cave
Xset &o7loc=den
Xset &stoned=NO
X
Xecho Hobbit - The True Story.
Xecho.
Xecho An MS-DOS adventure released by Milbus Software (tm) 1993.
Xecho.
Xcall look
X
END_OF_FILE
if test 424 -ne `wc -c <'restart.bat'`; then
    echo shar: \"'restart.bat'\" unpacked with wrong size!
fi
# end of 'restart.bat'
fi
if test -f 's.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'s.bat'\"
else
echo shar: Extracting \"'s.bat'\" \(13 characters\)
sed "s/^X//" >'s.bat' <<'END_OF_FILE'
X@go south
X
END_OF_FILE
if test 13 -ne `wc -c <'s.bat'`; then
    echo shar: \"'s.bat'\" unpacked with wrong size!
fi
# end of 's.bat'
fi
if test -f 'show.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'show.bat'\"
else
echo shar: Extracting \"'show.bat'\" \(181 characters\)
sed "s/^X//" >'show.bat' <<'END_OF_FILE'
X@echo off
Xrem show (the) map to elrond
Xrem show elrond (the) map
X
Xif "%1" == "the" show %2 %3 %4
Xif "%2" == "the" show %1 %3
X
Xif "%2" == "to" talkhelp %3 %1
Xtalkhelp %1 %2
END_OF_FILE
if test 181 -ne `wc -c <'show.bat'`; then
    echo shar: \"'show.bat'\" unpacked with wrong size!
fi
# end of 'show.bat'
fi
if test -f 'take.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'take.bat'\"
else
echo shar: Extracting \"'take.bat'\" \(1273 characters\)
sed "s/^X//" >'take.bat' <<'END_OF_FILE'
X@echo off
Xif "%1"=="torch" goto take-torch
Xif "%1"=="lunch" goto take-lunch
Xif "%1"=="map" goto take-map
Xif "%1"=="chest" goto take-chest
Xif "%1"=="raft" goto take-raft
Xif "%1"=="sword" goto take-sword
Xif "%1"=="treasure" goto take-treasure
Xif "%1" == "the" take %2
Xgoto cant-take
X
X:take-torch
Xif "%&o1loc%"=="me" goto already-got
Xif not "%&o1loc%"=="%&room%" goto cant-see
Xset &o1loc=me
Xgoto taken
X
X:take-lunch
Xif "%&o2loc%"=="me" goto already-got
Xif not "%&o2loc%"=="%&room%" goto cant-see
Xset &o2loc=me
Xgoto taken
X
X:take-map
Xif "%&o3loc%"=="me" goto already-got
Xif not "%&o3loc%"=="%&room%" goto cant-see
Xset &o3loc=me
Xgoto taken
X
X:take-chest
Xif not "%&o4loc%"=="%&room%" goto cant-see
Xgoto cant-take
X
X:take-raft
Xif not "%&o5loc%"=="%&room%" goto cant-see
Xgoto cant-take
X
X:take-sword
Xif "%&o6loc%"=="me" goto already-got
Xif not "%&o6loc%"=="%&room%" goto cant-see
Xset &o6loc=me
Xgoto taken
X
X:take-treasure
Xif "%&o7loc%"=="me" goto already-got
Xif not "%&o7loc%"=="%&room%" goto cant-see
Xset &o7loc=me
Xgoto taken
X
X:already-got
Xecho You are already carrying that.
Xgoto exit
X
X:cant-take
Xecho You can't take that.
Xgoto exit
X
X:cant-see
Xecho You can't see it here.
Xgoto exit
X
X:taken
Xecho You take the %1.
X
X:exit
END_OF_FILE
if test 1273 -ne `wc -c <'take.bat'`; then
    echo shar: \"'take.bat'\" unpacked with wrong size!
fi
# end of 'take.bat'
fi
if test -f 'talk.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'talk.bat'\"
else
echo shar: Extracting \"'talk.bat'\" \(443 characters\)
sed "s/^X//" >'talk.bat' <<'END_OF_FILE'
X@echo off
Xrem talk to gandalf about (the) map
Xrem talk gandalf (the) map
Xrem talk to gandalf
X
Xif "%4" == "the" talk %1 %2 %3 %5 %6
Xif "%2" == "the" talk %1 %3 %4 %5 %6
X
Xif not "%5" == "" goto toomany
Xif "%1" == "to" if "%3" == "about" talkhelp %2 %4
Xif "%1" == "to" talkhelp %2
Xif "%3" == "" talkhelp %1 %2
X
Xecho I don't understand that sentence.
Xgoto exit
X
X:toomany
Xecho There are too many words in that sentence.
X
X:exit
END_OF_FILE
if test 443 -ne `wc -c <'talk.bat'`; then
    echo shar: \"'talk.bat'\" unpacked with wrong size!
fi
# end of 'talk.bat'
fi
if test -f 'talkhelp.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'talkhelp.bat'\"
else
echo shar: Extracting \"'talkhelp.bat'\" \(3293 characters\)
sed "s/^X//" >'talkhelp.bat' <<'END_OF_FILE'
X@echo off
Xif "%1" == "gandalf" goto talkgandalf
Xif "%1" == "elrond" goto talkelrond
Xif "%1" == "thorin" goto talkthorin
X
Xgoto notalk
X
X:talkgandalf
Xif not "%&room%"=="home" goto cantsee
Xif "%2" == "map" goto ganmap
Xif "%2" == "spell" goto ganspell
Xif "%2" == "hoboff" goto ganhoboff
Xecho "Yes, that's probably so", he says.
Xgoto exit
X:ganmap
Xif not "%&o3loc%"=="gandalf" goto gan2map
Xecho "Oh, that map. There is absolutely nothing special about it at all. I guess
Xecho you could have it, if you want it.", Gandalf declares and hands you the map.
Xset &o3loc=me
Xgoto exit
X:gan2map
Xecho Gandalf yells, "I already gave it to you, didn't I!!!".
Xgoto exit
X:ganspell
Xecho "This will be a great spell. I shall name it 'HOBOFF', no doubt.", Gandalf
Xecho chuckles.
Xgoto exit
X:ganhoboff
Xecho Gandalf gives you a mean smile, showing all his teeth. "Any Hobbit of my
Xecho choice will be turned into a pile of dirt.", he laughs, "Only a few minor
Xecho adjustments left, and it will produce a great fertilizer.". His eyes open
Xecho wide as he reaches the end of the sentence. He then looks at you for a good
Xecho fifteen seconds before he slowly turns away.
Xgoto exit
X
X:talkelrond
Xif not "%&room%"=="rivendell" goto cantsee
Xif "%2" == "map" goto elmap
Xif "%2" == "plans" goto elplans
Xecho Elrond laughs at your silly question. He pats your head.
Xgoto exit
X:elmap
Xif not "%&o3loc%" == "rivendell" if not "%&o3loc%" == "me" goto elnomap
Xecho "That's a fine map you've got there. We wouldn't want anything to HAPPEN to it,
Xecho now would we?", Elrond hisses. He continues; "Whatever you do, don't show it to
Xecho that crazy dwarf!".
Xgoto exit
X:elnomap
Xecho "What map are you talking about, you little prat? You must be delirious!",
Xecho Elrond snarls. He slaps you in the face.
Xgoto exit
X:elplans
Xecho "They are top secret. If you reveal anything you're dead meat, pipsqueak!",
Xecho Elrond whispers. He look as though he meant it.
Xgoto exit
X
X:talkthorin
Xif "%2" == "map" goto thormap
Xif "%&room%" == "clearing" echo Thorin gets a serious look on his face. "Don't push your luck, kid!", he says.
Xif "%&room%" == "woods" echo "Have you ever tried picking up your teeth with broken fingers?",Thorin replies.
Xif "%&room%" == "cave" echo "I'm tired of killing for money. Let's go home!", Thorin sighs.
Xif "%&room%" == "rivendell" echo Thorin is too absorbed by Elronds plans to pay attention.
Xif "%&room%" == "den" echo "Hell, this is a fortune!", Thorin states as he walks around the cave.
Xif "%&room%" == "home" echo "Did your mom ever talk to you about death?", Thorin asks you.
Xgoto exit
X:thormap
Xif not "%&o3loc%" == "%&room%" if not "%&o3loc%" == "me" goto thornomap
Xecho Thorin takes a quick look at the map. His eyes widen in rage as he reaches for
Xecho his battle axe. "It was you all the time, wasn't it?!", he cries out. With one
Xecho well placed blow he cleaves your skull. All is dark...
Xecho.
Xpause
Xrestart
X:thornomap
Xecho Thorin eyes you suspiciously. "Don't try any tricks, boy. We both know that
Xecho there is no map here, now don't we?", he asks. He doesn't seem too sure about
Xecho it himself.
Xgoto exit
X
X
X:cantsee
Xecho You can't see him here.
Xgoto exit
X
X:notalk
Xecho Action speaks louder than words!
X
X:exit
END_OF_FILE
if test 3293 -ne `wc -c <'talkhelp.bat'`; then
    echo shar: \"'talkhelp.bat'\" unpacked with wrong size!
fi
# end of 'talkhelp.bat'
fi
if test -f 'w.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'w.bat'\"
else
echo shar: Extracting \"'w.bat'\" \(10 characters\)
sed "s/^X//" >'w.bat' <<'END_OF_FILE'
X@go west
END_OF_FILE
if test 10 -ne `wc -c <'w.bat'`; then
    echo shar: \"'w.bat'\" unpacked with wrong size!
fi
# end of 'w.bat'
fi
if test -f 'wait.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'wait.bat'\"
else
echo shar: Extracting \"'wait.bat'\" \(242 characters\)
sed "s/^X//" >'wait.bat' <<'END_OF_FILE'
X@echo off
X
Xif "%&room%" == "clearing" if not "%&stoned%" == "YES" goto wait-clearing
Xecho Time passes...
Xgoto exit
X
X:wait-clearing
Xecho A new day dawns. The trolls seem rather surprised, and rigid with fear.
Xset &stoned=YES
X
X:exit
END_OF_FILE
if test 242 -ne `wc -c <'wait.bat'`; then
    echo shar: \"'wait.bat'\" unpacked with wrong size!
fi
# end of 'wait.bat'
fi
if test -f 'x.bat' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'x.bat'\"
else
echo shar: Extracting \"'x.bat'\" \(16 characters\)
sed "s/^X//" >'x.bat' <<'END_OF_FILE'
X@examine %1 %2
END_OF_FILE
if test 16 -ne `wc -c <'x.bat'`; then
    echo shar: \"'x.bat'\" unpacked with wrong size!
fi
# end of 'x.bat'
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have the archive.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0