5 REM The Melarkian - By Paul Panks (dunric@yahoo.com)
6 CLEAR:CLS
10 DATA "You are","in a forest","in a grassy plain","in the village","inside a tavern"
20 DATA "inside the church","near the village well","by the mountains","on a branch atop the forest"
30 DATA "in a small clearing","in a meadow by a pond","on a dusty shore","by the lake"
40 DATA "inside a small hut","within a dark cave"
50 DATA lantern,oil,book,sword,chainmail,shield,helmet,cloak,ring,orb
51 DATA rope,scroll,werewolf,villager,goblin,hobbit,barbarian,vampire,dragon
52 DATA go,get,take,drop,wield,unwield,wear,remove,light,use,examine,kill
53 DATA climb,0,2,0,0,0,0,1,4,3,0,0,0,0,0,0,2,0,0,2,5,0,0,0,0
54 DATA 4,8,6,9,0,0,7,0,26,5,0,0,0,6,0,0,0,0,5,13,0,0,0,0,11,0,5,0,0,0
55 DATA 26,0,0,0,0,0,0,9,0,12,0,0,0,0,11,0,0,0,8,24,18,23,0,0,15,0,0,26,0,0
56 DATA 0,14,0,16,0,0,17,0,15,0,0,0,0,16,0,0,0,0,19,0,20,13,0,0,0,18,0,0,0,0
57 DATA 0,0,0,18,0,0,0,0,22,0,0,20,0,0,0,21,0,0,0,0,13,0,0,0,13,0,25,0,0,0
58 DATA 0,0,0,24,0,0,0,10,14,6,0,0,"You can't do that.","You aren't strong enough!","You don't see that here.","Nothing happens."
59 DATA "You landed a solid blow!","You missed...","It died. Hooray!","You died...","The End","Congratulations!","What?"
60 DATA 5,7,6,4,3,3,3,2,12,13,12,12,2,8,8,8,15,10,2,2,9,14,2,2,2,3
61 DIM D$(15),N$(25),V$(13),M(26,6),R$(11),W(26),L(25),P$(25):FOR X=1 TO 15:READ D$(X):NEXT:FOR X=7 TO 25:READ N$(X):NEXT
62 FOR X=1 TO 13:READ V$(X):NEXT:FOR X=1 TO 26:FOR Y=1 TO 6:READ M(X,Y):NEXT Y:NEXT X
63 FOR X=1 TO 11:READ R$(X):NEXT:FOR X=1 TO 26:READ W(X):NEXT
64 P$(7)="a brass lantern.":P$(8)="a flask of oil.":P$(9)="an ancient book.":P$(10)="a metal sword.":P$(11)="a fine suit of chainlinked armor."
65 P$(12)="an iron shield, with a gryphon on the front.":P$(13)="a brass helmet, stained in blood.":P$(14)="a magical elven cloak."
66 P$(15)="a ring of protection. It glows softly.":P$(16)="a mysterious white orb. It glows from within!":P$(17)="a coil of rope about 10 feet in length."
67 P$(18)="a tattered, old scroll.":P$(20)="a simple peasant of the village.":P$(21)="a menacing goblin with dark eyes."
68 P$(22)="a strange looking creature with furry feet.":P$(23)="an evil barbarian. He looks mean.":P$(24)="a blood-thirsty vampire. Watch out!"
69 P$(19)="a werewolf with fiery eyes. He growls at you!":P$(25)="an evil dragon with tough scales and powerful claws! Look out!"
70 CLS : PRINT "The Melarkian": PRINT "By: Paul Panks": PRINT : PRINT "'Can you find the magical orb"
71 PRINT "and defeat the dragon?'": PRINT:DATA 1,3,22,12,22,17,10,22,22,17,3,17,14,2,13,22,12,16,17:FOR X=7 TO 25:READ L(X):NEXT
72 R=1:LT=0:H=100:E=0:G=25:N$(1)="north":N$(2)="south":N$(3)="east":N$(4)="west":N$(5)="up":N$(6)="down"
75 PRINT D$(1);" ";D$(W(R));".":GOSUB 260:PRINT"Exits: < ";:FOR X=1 TO 6:IF M(R,X)>0 THEN PRINT N$(X);" ";
77 NEXT:PRINT">":FOR X=7 TO 25:IF L(X)=R THEN PRINT N$(X)
78 NEXT:RANDOMIZE TIMER:I=INT(RND*50)+1:IF I=12 THEN PRINT"You see clouds gathering in the distance."
79 IF I=13 THEN PRINT"A steady rain pelts the ground."
80 IF I=14 THEN PRINT"A cool wind blows from the southeast."
81 IF I=15 THEN PRINT"Lightning flashes across the sky, scarring it across."
85 A$="":N$="":V$="":V=0:N=0:XL$="":INPUT">",A$:XL$=A$:Z=0:FOR X=1 TO LEN(A$):IF MID$(A$,X,1)=" " THEN V$=LEFT$(A$,X-1):Z=X
86 NEXT:N$=MID$(A$,Z+1,Z+25):IF XL$="quit" OR XL$="look" OR XL$="l" OR XL$="lk" THEN GOTO 220
87 IF XL$="i" OR A$="inv" OR XL$="inventory" THEN GOTO 145
88 IF XL$="help" THEN GOTO 112
89 IF XL$="score" THEN GOTO 114
90 V=0:FOR X=1 TO 12:IF V$=V$(X) THEN V=X:X=13
91 NEXT:GOSUB 250:IF V=0 THEN F=11:GOTO 500
92 N=0:FOR X=1 TO 25:IF N$=N$(X) THEN N=X:X=26
93 NEXT:GOSUB 250:IF N=0 OR N<7 AND V<>1 THEN F=1:GOTO 500
94 IF N>18 THEN IF V<>11 AND V<>12 THEN F=1:GOTO 500
95 ON V GOTO 96,100,100,102,104,106,108,110,115,117,122,124
96 IF M(R,N)=0 THEN PRINT"You can't go that way.":GOTO 85
97 IF R=14 AND L(19)=R AND N=1 THEN PRINT"The werewolf blocks your path!":PRINT"It growls,'You may not enter, human!'":GOTO 85
98 IF R=16 AND L(24)=R AND N=1 THEN PRINT"The vampire steps in front!":PRINT"He barks,'The sacred tomb is not yours!'":GOTO 85
99 Z=R:R=M(R,N):GOSUB 225:GOTO 75
100 IF N>6 AND L(N)=R THEN L(N)=101:PRINT"Taken.":GOTO 85
101 F=3:GOTO 500
102 IF N>6 AND L(N)=101 THEN L(N)=R:PRINT"Dropped.":GOTO 85
103 F=1:GOTO 500
104 IF N>6 THEN IF N=10 AND L(N)=101 THEN L(N)=105:PRINT"Wielded.":GOTO 85
105 F=1:GOTO 500
106 IF N>6 THEN IF N=10 AND L(N)=105 THEN L(N)=101:PRINT"Unwielded.":GOTO 85
107 F=1:GOTO 500
108 IF N>6 AND N>10 AND N<15 THEN IF L(N)=101 THEN L(N)=205:PRINT"Worn.":GOTO 85
109 F=1:GOTO 500
110 IF N>6 AND N>10 AND N<15 THEN IF L(N)=205 THEN L(N)=101:PRINT"Removed.":GOTO 85
111 F=1:GOTO 500
112 PRINT"Example: use lantern":PRINT:PRINT"Verbs: go,get,take,drop,wield,unwield,wear,remove,examine,light,use,kill"
113 PRINT"       inventory,look,score,quit.":PRINT:PRINT"dunric@yahoo.com":GOTO 85
114 PRINT"You have";E;"experience and";H;"hit points.":PRINT"You carry";G;"gold coins.":GOTO 85
115 IF N>6 THEN IF N=7 THEN IF L(7)=101 OR L(7)=R THEN IF L(8)=101 OR L(8)=R THEN IF LT=0 THEN LT=1:PRINT"Click!":PRINT"The lantern is now aglow.":GOTO 85
116 F=4:GOTO 500
117 IF N>6 THEN IF N=7 THEN GOTO 115
118 IF N>6 THEN IF N>6 AND N<17 THEN F=4:GOTO 500
119 IF N>6 THEN IF N=17 AND R=20 THEN R=21:PRINT"(use rope)":PRINT"You climb up the tree...":GOTO 75
120 IF N>6 THEN IF N=17 AND R=21 THEN R=20:PRINT"(use rope)":PRINT"You climb down the tree...":GOTO 75
121 F=4:GOTO 500
122 IF N>6 THEN IF L(N)=R OR L(N)=101 OR L(N)=105 OR L(N)=205 THEN PRINT N$(N);": ";P$(N):GOTO 85
123 F=1:GOTO 500
124 IF N>6 THEN IF N>18 AND L(N)=R THEN GOTO 126
125 F=1:GOTO 500
126 RANDOMIZE TIMER:MH=INT(RND*250)+1:GOSUB 200:WD=2:IF L(10)=105 THEN WD=8
127 RANDOMIZE TIMER:I=INT(RND*10)+1:PRINT">":PRINT"You attack:":IF I<5 OR I>9 AND L(10)<>105 THEN PRINT R$(6)
128 IF I>4 AND I<10 THEN PRINT R$(5):DT=WD*4+I:MH=MH-DT
129 IF I>9 THEN IF L(10)=105 THEN PRINT"Your dagger glows!":PRINT"A BOLT of lightning STRIKES":PRINT"at ";N$(N);"!!":DT=DM*8+I*2:MH=MH-DT
130 PRINT:IF MH<1 THEN PRINT R$(7):L(N)=998:GOTO 140
131 PRINT">":DT=0:RANDOMIZE TIMER:I=INT(RND*10)+1:PRINT"< More..> *** Press any key ***"
132 A$=INKEY$:IF A$="" THEN GOTO 132
133 PRINT:IF I<5 OR I>9 THEN PRINT "The ";N$(N);" missed you."
134 IF I>4 AND I<10 THEN PRINT "The ";N$(N);" hit you very hard!!":DT=AC:IF AC<35 THEN DT=DT-I
135 IF I=8 AND N=24 THEN PRINT "The ";N$(N);" sinks his teeth into your neck!!":PRINT"You are drained of blood!!!":H=H-100
136 IF I=8 AND N=19 THEN PRINT "The ";N$(N);" lunges at you!":PRINT"It bites you very hard!!":H=H-75
137 IF I=8 AND N=25 THEN PRINT "The ";N$(N);" breathes fire on you!!":PRINT ">>>>>>>>>>>>>>> FIREBALL!!!":PRINT"You are engulfed by the flames!!!":H=H-250
138 IF DT>0 THEN H=H-DT
139 IF H<1 THEN PRINT R$(8):PRINT:PRINT R$(9):GOTO 210
140 IF MH<1 THEN GOTO 142
141 GOTO 127
142 PRINT"You gained";I;"experience and";DT+I;"gold coins.":G=G+DT+I:E=E+I:IF I>6 THEN H=H+100:PRINT"You gained a level!"
143 IF N=25 AND L(N)=998 THEN PRINT R$(10):PRINT:GOTO 215
144 GOTO 85
145 I=0:PRINT"You are carrying:":FOR X=7 TO 18:IF L(X)=101 THEN PRINT " ";N$(X):I=1
146 IF L(X)=105 THEN PRINT " ";N$(X);" (wielded)":I=1
147 IF L(X)=205 THEN PRINT " ";N$(X);" (worn)":I=1
148 NEXT:IF I=0 THEN PRINT "Alas, you are empty handed."
149 GOTO 85
200 AC=0:FOR X=7 TO 25:IF L(X)=205 THEN AC=AC+X
201 NEXT:IF AC=0 THEN AC=1
202 RETURN
210 PRINT:PRINT"Play again (Y/N)?"
211 A$=INKEY$:IF A$="" THEN GOTO 211
212 IF A$="y" OR A$="Y" THEN RUN
213 IF A$="n" OR A$="N" THEN CLS:PRINT"Thanks for playing!":END
214 GOTO 211
215 PRINT"The dead dragon lay at your feet. Your sword is now soaked"
216 PRINT"in blood, but you don't care. You've slayed the dragon haunting"
217 PRINT"the countryside. Time for a beer, and some well deserved rest...":PRINT:PRINT R$(9):GOTO 210
220 IF XL$="quit" THEN CLS:PRINT"Thanks for playing!":END
221 IF XL$="look" OR XL$="l" OR XL$="lk" THEN IF R=21 THEN PRINT"Looking down, you see the following:":PRINT D$(1);" ";D$(13):PRINT"Exits: < north >":GOTO 85
222 GOTO 75
225 IF L(7)=101 AND L(8)=101 THEN IF LT=0 THEN PRINT"You need to light the lantern...":PRINT"(Stopped...)":R=Z
226 IF LT=0 OR L(7)<>R AND L(7)<>101 THEN IF Z=4 AND N=2 THEN PRINT"It's too dark to move ";N$(N);"!":PRINT"You need a source of light plus fuel...":R=Z
227 RETURN
250 IF XL$="n" OR XL$="north" THEN N=1:V=1
251 IF XL$="s" OR XL$="south" THEN N=2:V=1
252 IF XL$="e" OR XL$="east" THEN N=3:V=1
253 IF XL$="w" OR XL$="west" THEN N=4:V=1
254 IF XL$="u" OR XL$="up" THEN N=5:V=1
255 IF XL$="d" OR XL$="down" THEN N=6:V=1
256 RETURN
260 IF R=20 THEN PRINT"There is a tree here. Use rope to climb up."
261 RETURN
500 IF F=0 THEN F=11
501 PRINT R$(F):GOTO 85