The <3K Adventure Game
Paul Allen Panks
Actually 2,814 bytes, and small enough to fit into an unexpanded Commodore
Vic-20.
See below:
1 DATA
99,99,99,99,99,99,9,16,14,19,5,18,1,9,"NORTH","SOUTH","EAST","WEST","UP","DOWN","HOBBIT","WEREWOLF","DRAGON","VAMPIRE","SWORD","PLATEMAIL","HELMET","CLOAK"
2 DATA
0,2,0,0,0,0,1,6,3,0,0,0,4,0,0,2,0,0,0,3,5,0,0,0,0,0,0,4,0,0,2,12,7,10,0,0,0,0,11,6,8,0,0,0,9,0,0,7,0,0,0,8,0,0,0,0,6,0,0,0,0,13,0,7,0,0,6,15,0,0,0,0,11,0,14,0,0,0,0,0,0,13,0,0,12,16,0,0,0,0,15,0,0,17,0,0,18,0,16,19,0,0,0,17,0,0,0,0,0,0,17,0,0,0
3 DATA"IN A TAVERN","BY A WELL","IN A CHURCH","AT AN ALTAR","IN
STORAGE","NEAR A VILLAGE","BY A TREE","UP THE TREE","IN A HUT","AT A
MOUNTAIN","IN A MEADOW","IN A FOREST","AT A CLEARING","BY A LAKE","ON A
BRIDGE","BY A CASTLE","IN A HALLWAY","IN A ROOM"
4 DATA"BY A
THRONE","GO","GET","DROP","USE","EXAMINE","LOOK","KILL","INVENTORY","QUIT","HELP","ODD
CREATURE","HAS FIERY EYES","HAS TOUGH SCALES","A BLOOD FIEND","BLOOD
SWORD","IRON PLATEMAIL","BRASS HELMET","ELVEN CLOAK"
5 DIM L(25),O$(25),M(25,15),D$(25),DE$(25),VB$(25):FOR X=1 TO 14:READ
L(X):NEXT:FOR X=1 TO 14:READ O$(X):NEXT:FOR X=1 TO 19:FOR Y=1 TO 6:READ
M(X,Y):NEXT Y:NEXT X:S$="SLICED":M$="MISSED"
6 FOR X=1 TO 19:READ D$(X):NEXT:FOR X=1 TO 10:READ VB$(X):NEXT:FOR X=7 TO
14:READ DE$(X):NEXT:CLS:P=125:R=1:?"B-VENTURE":?:?"'CAN YOU SLAY THE
VAMPIRE?'":?
7 ?"YOU ARE ";D$(R):?"< ";:FOR X=1 TO 6:IF M(R,X)>0 then?O$(X);" ";
8 NEXT:?">":FOR X=7 TO 14:IF L(X)=R then?O$(X);"."
9 NEXT
10
V=0:N=0:Z=0:A$="":XL$="":N$="":V$="":INPUT">",A$:A$=UCASE$(A$):XL$=A$:FOR
X=1 TO LEN(A$):IF MID$(A$,X,1)=" " THEN V$=LEFT$(A$,X-1):Z=X
11 NEXT:N$=MID$(XL$,Z+1,X):GOSUB 51:FOR X=1 TO 10:IF VB$(X)=V$ THEN V=X
12 NEXT:FOR X=1 TO 14:IF O$(X)=N$ THEN N=X
13 NEXT:ON V GOTO 15,18,20,22,24,7,26,43,48,53
14 GOTO 23
15 IF M(R,N)=0 THEN 23
16 IF R=16 AND N=4 AND L(8)=R then?"IT GROWLS,'LEAVE, NOW!'":GOTO 10
17 R=M(R,N):GOTO 7
18 IF N<11 OR L(N)<>R THEN 23
19 L(N)=101:GOTO 22
20 IF N<11 OR L(N)<100 THEN 23
21 L(N)=R
22 ?"OK.":GOTO 10
23 ?"HOW?":GOTO 10
24 IF L(N)<>R AND L(N)<100 THEN 23
25 ?O$(N);":";DE$(N):GOTO 10
26 IF L(N)<>R OR N<7 OR N>10 THEN 23
27 GOSUB 52:T=INT(RND*250)+1
28 GOSUB 52:?">YOU ";:U=2:IF L(11)>99 THEN U=8
29 IF I<5 OR I>6 then?M$
30 IF I=5 then?"HIT IT":T=T-U*2
31 IF I=6 then?S$;" IT":T=T-U*4
32 IF T<1 then?"KILLED IT":P=P+99:GOTO 45
33 ?">THEY ";:U=8
34 IF L(12)>99 THEN U=U-3
35 IF L(13)>99 THEN U=U-2
36 IF L(14)>99 THEN U=U-1
37 GOSUB 52:IF I<5 OR I>6 then?M$
38 IF I=5 then?"HIT YOU":P=P-U*2
39 IF I=6 then?S$;" YOU":P=P-U*4
40 IF P<1 then?"ENDED YOU":GOTO 48
41 ?"@ HIT A KEY @":GOSUB 49:GOTO 28
43 FOR X=7 TO 14:IF L(X)>100 then?" ";O$(X)
44 NEXT:GOTO 10
45 L(N)=99:IF N=10 THEN 47
46 GOTO 10
47 ?"YOU WON!"
48 ?:?"@ GAME OVER @":END
49 A$=INKEY$:IF A$="" THEN 49
51 IF V$="" THEN V$=N$
52 RANDOMIZE TIMER:I=INT(RND*8)+1:RETURN
53 FOR X=1 TO 10:?VB$(X);" ";:NEXT:?:GOTO 10
Sincerely,
Paul Allen Panks
dun...@gmail.com
--
pa...@sdf.lonestar.org
SDF Public Access UNIX System - http://sdf.lonestar.org
Paul Allen Panks
http://panks.freeshell.org/text.bas
to download the QBasic-compatible source.
Michael Mattias
news:cc3b36$cmp$1...@chessie.cirr.com...
> It's even smaller now, trimmed down to 2,738 bytes. See:
Hard to believe, but apparently quite true: A bunch of guys posting in a
public forum, "mine's smaller than yours."
MCM
Graham Holden
wrote:
It's actually worse than that. It's ONE guy saying
"Look! Mine's even smaller now!"
Regards,
Graham Holden (g-holden AT dircon DOT co DOT uk)
--
There are 10 types of people in the world;
those that understand binary and those that don't.
Paolo Lucchesi
> It's even smaller now, trimmed down to 2,738 bytes. See:
>
> http://panks.freeshell.org/text.bas
>
> to download the QBasic-compatible source.
Thanks for posting just the link instead of the whole listing, Paul...
Really...
bye
--
Paolo Lucchesi
email: plucchesi(at)tin(dot)it
home page: http://www.paololucchesi.it
David Whyld
"Michael Mattias" <michael...@gte.net> wrote in message
news:I6cFc.31581$eH1.15...@newssvr28.news.prodigy.com...
I think Paul's is a *lot* smaller than anyone else's.
Gene Wirchenko
>"Michael Mattias" <michael...@gte.net> wrote in message
>news:I6cFc.31581$eH1.15...@newssvr28.news.prodigy.com...
>> "Paul Allen Panks" <pa...@sdf.lonestar.org> wrote in message
>> news:cc3b36$cmp$1...@chessie.cirr.com...
>> > It's even smaller now, trimmed down to 2,738 bytes. See:
>>
>>
>> Hard to believe, but apparently quite true: A bunch of guys posting in a
>> public forum, "mine's smaller than yours."
>I think Paul's is a *lot* smaller than anyone else's.
Be sure to check it out thoroughly.
Do not bother reporting back. I do not think that any of us are
interested.
Sincerely,
Gene Wirchenko
Computerese Irregular Verb Conjugation:
I have preferences.
You have biases.
He/She has prejudices.
Lemming
<ge...@mail.ocis.net> wrote:
> Be sure to check it out thoroughly.
>
> Do not bother reporting back. I do not think that any of us are
>interested.
Apropos of nothing ... Gene, are you resident in all the groups I
read, or is it just an illusion?
Lemming
--
Curiosity *may* have killed Schrodinger's cat.
Dott. Piergiorgio
> Hard to believe, but apparently quite true: A bunch of guys posting in a
> public forum, "mine's smaller than yours."
ROTFL!!!!
Best regards from Italy,
Dott. Piergiorgio.
Dott. Piergiorgio
> It's actually worse than that. It's ONE guy saying
>
> "Look! Mine's even smaller now!"
ROTFL !!!!
KEYBOARD !!!
best regards from Italy,
Dott. Piergiorgio.
Gene Wirchenko
[snip]
>Apropos of nothing ... Gene, are you resident in all the groups I
>read, or is it just an illusion?
I have noted this myself. Quite a few people and I have more
than one group in common. The groups do not seem to have any
connection except that they tend to be informative ones with a good
bunch of regulars. I look for quality groups and tend to stick with
them. Maybe such groups are even rarer than I thought. I follow 34
groups out of a possible choice of several gazillion.