1 POWERCONT:DEFINTA-Z:MAXFILES=2:CLS:CALL16959:GOSUB301:CLS:CALL17001:PRINT" LEGACY: Reign of the Sorceress ";:CALL17006:PRINT" If you enjoy playing this fascinating game, send $10.00 to:":PRINTTAB(11)"Stan Adermann
3 PRINTTAB(11)"20 SE 2nd St.":PRINTTAB(11)"Gwinner, ND 58040":PRINT"Or at least pass it on to someone else.":CALL17001:PRINT" Press any key. ":GOSUB310:CALL17006:GOTO125
41 CALL17001:GOSUB279:PRINT@132,"ÿ)Move forward Ö)Move back":PRINT@172,"¢)Turn left Ü)Turn right":PRINT@212,"U)Move up D)Move down":PRINT@252,"C)Cast spell R)Rest":PRINT@292,"Q)Quit or Save S)Status":CALL17006:RETURN
53 GOSUB279:PRINT@131,"A "MN$" comes":PRINT@171,"into view.":IFW$="w"OR(RND(1)<MI/HI-.2*FI%(4)ANDW$="h")THENPRINT@211,"It sees you.":GOTO60ELSEPRINT@211,"It doesn't see you. You may:
55 PRINT@291,"W)Wait for creature to pass":PRINT@251,"A)Attack C)Cast spell
56 GOSUB310:IFINSTR("wac",W$)=0THEN56
57 GOSUB279:IFW$="w"THENPRINT@131,"The "MN$" leaves.":PRINT@171,"Press a key.":GOSUB310:GOTO115
70 CALL17006:GOSUB40:CALL17001:GOSUB279:PRINT@131,"Select your attack:":PRINT@171,"T)Thrust P)Parry":PRINT@211,"C)Cast spell":PRINT@251,"S)Surrender and offer gold
79 IFINT(RND(1)*100)>HIANDGO>0THENGOSUB279:PRINT@131,"The creature takes all of":PRINT@171,"your gold, strikes you":PRINT@211,"soundly, and leaves.":PRINT@251,"Press a key.
80 IFINT(RND(0)*100)>HIANDGO>0THENHP=HP-INT(RND(1)*HP):GO=0:GOSUB310:GOTO115ELSECLS:CALL17006:PRINT"The monster laughs gleefully and strikesyou dead. You have lost.":GOSUB306:KILL"a!!!1.do":MENU
87 PRINT@171,"You have slain the":PRINT@211,MN$:GO=GO+INT(RND(1)*MI/2):IFRND(1)<.5THENHF=HF+INT(RND(1)*MC):IFHF>255THENHF=255
88 PRINT@251,"Press a key.":GOSUB310:GOTO115
89 IFMN<>21ANDMP<10*LVTHENPRINT@171,"The monster falls to its":PRINT@211,"knees and offers you a potion":PRINT@251,"in return for its life.":PRINT@291,"A)Accept potion K)Kill"ELSE107
90 GOSUB310:IFINSTR("ak",W$)=0THEN90
91 IFW$="k"THENMP=0:D2=0:GOTO82
92 P=INT(RND(1)*7)+1:RESTORE121:FORA=1TOP:READP$:NEXTA:GOSUB279:IFRND(1)*100+1<HITHENPRINT@131,"The creature gives you a":PRINT@171,"potion of "P$"."ELSEPRINT@131,"You are unable to tell what":PRINT@171,"kind of potion it is.
94 PRINT@211,"Do you wish to drink it?[Y/N]":GOSUB310:IFINSTR("yn",W$)=0THEN94
113 CLS:CALL17006:PRINT"You have been slain. The sorceress still holds her vicelike grip over the land. All hope is lost...":PRINT@210,"until the next time.":GOSUB306:KILL"a!!!1.do":MENU
125 X=VAL(RIGHT$(TIME$,2))*VAL(MID$(TIME$,5,1)):CLS:FORA=1TOX:B=RND(1):NEXTA:ONERRORGOTO130:OPEN"a!!!2.do"FORINPUTAS1:CLOSE1:PRINT"Do you wish to create a new maze?(y/n)
127 PRINT"Note: There is already a maze created, and to create a new one will take approximately fifteen minutes.
128 GOSUB310:IFW$<>"y"ANDW$<>"n"THEN128
129 CLS:IFW$<>"y"THEN5
130 GOSUB269:LINE(0,0)-(63,63),1,B:PRINT@218,"Please Wait...":CALL17001:PRINT@61," LEGACY ":PRINT@93," Reign of the Sorceress ":CALL17006:OPEN"a!!!2.do"FOROUTPUTAS1:FX=INT(RND(1)*10):FY=INT(RND(1)*10):FORLV=1TO10:PRINT@303,LV;:SX=FX:SY=FY
187 CLS:CALL17001:PRINT" LEGACY: Reign of the Sorceress ";:CALL17006:PRINT" Points to be distributed: 100":CALL17001:PRINT@89," Strength:":CALL17006:PRINTTAB(9)"Quickness:":PRINTTAB(6)"Intelligence:":PRINTTAB(6)"Constitution:
218 FORA=1TO8:IFFI%(A)=0THENNEXTA:GOTO251ELSECLS:PRINT"Move which ring?":RESTORE122:FORA=1TO8:READRI$:PRINTA;RI$;:IFFI%(A)=1THENPRINT" R",
220 IFFI%(A)=-1THENPRINT" L",
221 IFFI%(A)=0THENPRINT,
222 NEXT
223 GOSUB310:IFW$<"1"ORW$>"8"THEN223
224 W=VAL(W$):IFFI%(W)=0THENPRINT@240,"You don't have this ring. ":PRINT"Press any key.":GOSUB310:GOTO251
225 V=W:B=0:FORA=1TO8:IFFI%(W)=-FI%(A)THENB=B+1
226 NEXT:IFB=4THENPRINT"Switch it with which ring?"ELSEFI%(V)=-FI%(V):GOTO251
227 GOSUB310:IFW$<"1"ORW$>"8"THEN223
228 W=VAL(W$):IFFI%(W)=0THEN224
229 IFFI%(V)=-FI%(W)THENFI%(V)=-FI%(V):FI%(W)=-FI%(W):GOTO251ELSECLS:PRINT"Spell failed--Press a key.":GOSUB310:GOTO115
230 HP=HP+HI-20*FI%(1):IFHP>HMTHENHP=HM
231 GOTO251
232 HF=HF+HI-FI%(1)*20:IFHF>255THENHF=255
233 GOTO251
234 MQ=MQ/2:GOTO251
235 GOSUB279:GOSUB44:X2=X:Y2=Y:PRINT@131,"You are at"X;Y:LINE(X*6+2,Y*6+2)-(X*6+4,Y*6+4),1,BF:FORY=0TO9:FORX=0TO9:GOSUB35:IFE(1)=0THENLINE(X*6,Y*6)-(X*6+6,Y*6)
237 IFE(2)=0THENLINE(X*6+6,Y*6)-(X*6+6,Y*6+6)
238 IFE(3)=0THENLINE(X*6+6,Y*6+6)-(X*6,Y*6+6)
239 IFE(4)=0THENLINE(X*6,Y*6+6)-(X*6,Y*6)
240 IFE(7)=1THENPRINT@171,"Stairs down at"X;Y:LINE(X*6+6,Y*6)-(X*6,Y*6+6)
241 IFE(6)=1THENPRINT@211,"Stairs up at"X;Y:LINE(X*6,Y*6)-(X*6+6,Y*6+6)
242 NEXT:NEXT:X=X2:Y=Y2:PRINT@251,"Press a key.":GOSUB310:RETURN
256 PRINT"---------------------------------------- left hand right hand --------- ---------- ":RESTORE122:FORA=1TO8:READW$:IFFI%(A)=1THENPRINTTAB(26)W$
265 CALL17006:CLS:PRINT"You have slain the sorceress! All the lands and peoples that she once controlled are yours! Throughout the land can be heard the sounds of laughterand joy.":PRINT:PRINTTAB(15)"The End.":GOSUB310:MENU
274 GOSUB279:PRINT@131,"You are in the presence of":PRINT@171,"the sorceress. She laughs":PRINT@211,"and says, 'Well, little one,":PRINT@251,"do you feel you are ready to":PRINT@291,"face me?' [Y/N]
276 GOSUB310:IFINSTR("yn",W$)=0THEN276
277 IFW$="n"THENLV=9:GOTO115
278 MF=2:GOSUB279:PRINT@131,"Very well! Let the battle":PRINT@171,"begin!":PRINT@211,"Press a key.":GOSUB310:MN=21:GOTO50
289 RESTORE122:FORA=1TOW:MN$="":READMN$:NEXT:GOSUB279:PRINT@131,"You found a ring of":PRINT@171,MN$".":PRINT@211,"Do you wish to place it on":PRINT@251,"your left or right hand?[L/R]
291 GOSUB310:IFINSTR("lr",W$)=0THEN291
292 IFW$="l"THENFI%(W)=-1ELSEFI%(W)=1
293 B=0:FORA=1TO8:IFFI%(A)=FI%(W)THENB=B+1
294 NEXT:IFB>4THEN291
295 GOTO115
296 IFO=0THEN299
297 GOSUB279:HW=HW+1:RESTORE119:FORA=1TOHW:MN$="":READMN$:NEXT:PRINT@131,"You found a "MN$:PRINT@171,"Press a key.":GOSUB310:GOTO115
299 GOSUB279:HA=HA+1:RESTORE120:FORA=1TOHA:MN$="":READMN$:NEXT:PRINT@131,"You found "MN$:PRINT@171,"armour. Press a key.":GOSUB310:GOTO115