Warlock % %'XWarlock by Hugh Walker from ZX Computing Apr/May.1984 WARLOCK  hi=0 20:9 :0: < 5000 dwy=(*3)+1 n:" You find a ";a$(wy) xhr=csh+ky*5+hq 100d+100d*wy 100d %'"(1) Move;(2) Explore;(3) Status " !0:<"1"Ŧ>"3"210 400+100d* ,'"(1) Open; (2) Leave " 6!0:<"1"Ŧ>"2"3106 @="1"800  J 8200 "'"(1) Up; (2) Down; (3) Leave" !0:<"1"Ŧ>"3"410 ="3"8200 C(*3)'"No way ";("up"Ʀ="1");("down"Ʀ="2");:8000@ bp=(="1")-(="2") -fl=fl+bp:'" O.K. You are now on level ";fl Hf=2302:(f/4):.05|L,f*bp:f:0: $'"1:Forward 2:Back 3:Left 4:Right" 0:>"1"ƺ(*2)'" You run into a low beam"''" and hurt your head";:4500:wl=(*5)+1:str=str-wl*10 :".....Ouch!"  502: X 1650r :12 ;"STATUS" '"You have:"  '7;"A sword and shield" #'7;"Strength.........";str #'7;"Gold coins.......";csh "'7;"Keys.............";ky #'7;"Monsters beaten..";ded "'7;"Hero rating......";hr  :''7;"You are on level ";fl:5500|:200  #1500+100d*(*2) mn=(*9 )+1 ):'"SUDDENLY!"''" You meet the ";m$(mn) Wf=221:.04|# =,10 :(*7):.05|L,-10 :f:0 &ú(*5)mn=9 1700 ú(*10 )6000p ]"":'" What do you do?"''"(1) Hit ";("it"mn<9 );("him"mn=9 );"! (2) Run away!" $"0:<"1"Ŧ>"2"1060$ .="2"85004! 8="1"3000 Ltr502: V9cn=(*(500/((csh/500)+1)))+502 `*'6;" You find ";cn;" gold coins." j csh=csh+cn tcshtres2500 ~ 4100 (*2)502: '" You find a key." ky=ky+1:4100  '" Nothing there";:8000@ x(*2) 7'" You find some"''" food and wine."''" Have a rest." =str=str+(*502)+5:str>500str=500 #'" ZZZZZ ZZZZZ ZZZZZ ZZZZZ ZZZZZ" Jf=15:1.5@,-480:0.2~L,-47/:25:f ''" Oh dear! Time to go.";  8000@ 6'" Door locked!";:4500:"....Have you a key?" "502:ky<16500d 4'" Yes.";:20:"Do you want to use it?(Y/N)" .0:"y"Ʀ"Y"Ʀ"n"Ʀ"N"1530 ="n"Ŧ="N"6500d A'" Yes......Unlock door.";:ky=ky-1:20:"...click" @'" The door opens."; J 4100 T"..........look!" ^fltr1800 h 502 r#1000+100d*(*5) :3500 6'9 ;"THE BITTER END"'9 ;"**************" "''" You met your End at the " T'" hands of the WARLOCK."''" He turned you into a ";k$((*3)+1) !'" Your Hero-rating WAS ";hr /'6;" You found ";csh;" gold coins." 4000:19,10 ;"NOW HOP IT!":20:19,14;" ";18,14;"HOP":10 :18,14;" ";19,14;"HOP"  1900l  3500 '8;"Congratulations!" "'" You've cheated the Warlock" &'8;"and his pets!" 0"i=13:4100:i :.'6;" You found ";csh;" gold coins." D5'" You have ";ky;" key";("s"ky1);" left." N&'" You defeated ";ded;" Monsters." XF'" Your Hero-rating ";("i"str>0);("wa"str0);"s ";hr lhr>hihi=hr v'21,7;"Highest Score:";hi 6"":#0;7;"Another go ? (Y/N) ":0 ="Y"Ŧ="y":502 ="N"Ŧ="n"  1920  3500 $'" You've run out of strength." #'" The Warlock has won again!"  4000 '8;"Before you died"  1850: .4100::1,10 ;"WELL DONE!" %''3;"You have found all of " %'3;"the Warlock's treasure!" 5'3;"Now get out";:20:"..if you can!" #''3;"You are on level ";fl %'3;"The way out is through " '3;"a door on level 0" %30:'''10 ;"Good Luck!" tr=1:5500| ht=(*10 )+1 <str=str-ht*((*2)+1):str<12000 ht>m(mn)3050 !'" You didn't hurt the ";m$(mn) 4500:1050 blo=ht-m(mn) Y'(" You hurt the "blo3);(" You frightened the "blo2);m$(mn):4100 n(mn)=n(mn)-blo n(mn)<13110& ;n(mn)<3'" The ";m$(mn)(g(mn));" looks very ill."  1050 &_502:'" The ";m$(mn)(g(mn));" runs away":4100:'" BUT your strength is now ";str 05hq=hq+g(mn)*((*3)+1):ded=ded+1 :#1100L+100d*(*2) 5:1,12 ;"WARLOCK"'12 ;"*******": $f=111 :z(f),y(f):f: Tf=10 20:h=03:h:.016{n,f*2-h:h:f:0: 7f=56:.5,-6*f:f:502:  3500 )15,6;"Instructions follow" 5500|:3500 *m$(9 ,9 ):a$(3,9 ) $m(9 ):n(9 ):g(9 ) /k$(3,6):z(11 ):y(11 ) 1:f=19 :m$(f):m(f):n(f):g(f):f f=13:a$(f):f #f=111 :z(f):y(f):f f=13:k$(f):f F'" You are a novice hero raiding"''5;"the Warlock's Mansion." N'" You hope to find his ";1;6;"TREASURE";0;0;"." G'" ......The Warlock is away....."''13 ;1;"BUT";0  $'" He has left his pets guard it!" &''"BEWARE THE RETURN OF THE WARLOCK" f=13:i=47:h=26:.01z# =,f+i+h:h:.01z# =,i+h-f:i:.01z# =,h+f-i:f:h:i:f:0 ($hr=0:tr=0:ky=0 2)tres=1500+100d*(*10 ) <%fl=0:ded=0:hq=0 Fstr=500:csh=0 |<21,3;"Press any key to CONTINUE":0:: p:'" Who knocks you over and"''" takes some of your gold." z'csh=csh-(csh/((*3)+1)) 0''6;" You now have ";csh;" gold coins." =trcsh"8520H!+10 *(*3) !HO'" Unfortunately, in your haste"''" you trip and drop some gold.":6010z !R 4500 !\9'" Oh! Bad luck! He traps you.":4500:1050 #(:s$="WARLOCK" #2s$0:1,10 #<%"REWIND & PRESS ANY KEY TO VERIFY " #F 0 #Ps$:1,0 #Z