VANITY ^di^^ ******* VANITY *******  THE MAIN VARIABLES ARE: Lc=location number o$=object names o()=object number 'n$=list of names of potential victims v$=selected victim )r1 to r10 =random nos. f1 to f9 =flags y=your beauty rating ********************** cTHE PROGRAM LISTING d236099\,25 n0f1=0:7000X:f1=1 x********************** INITIALISATION Lc=(*2)+1 f2=0:f5=0:f6=0:f7=0:f8=0:f9 =0:f10 =0:B=5:C=6:D=7:G=7:H=8:L=9 }W=9 :S=15:y=10 :Z=1:cg=1:gk=1:hp=1:wi=1:U=10 :strength=10 n$="UBUCUDUGUHULUWUZUSU" 'm$="HIGH ON A FOG SHROUDED MOUNTAIN" &f$="ON A FORESTED HILLSIDE" 0w$="IN A WOODED VALLEY" :g$="IN A GOLD MINE" X0o$(13 ,14):o(13 ):d(6) b0620l:n=113 :q$:o$(n)=q$:n l"length of rope","silver musket","golden key","brass lantern","crossbow","blunderbuss","gold nugget","rusty iron key","BOOK OF SPELLS","jewelled sword","MAGIC WAND","parchment map","pickaxe" v%n=113 :o(n)=0:n 313 ,10 ;3;1;"SNOW WHITE" N19,3;"PRESS 'i' FOR INSTRUCTIONS, ANY OTHER KEY TO PLAY." 6="".1}L,0:.1}L,20:720 ="i"8000@  :3:7:0 *"YOU ARE IN FRONT OF YOUR MIRROR.What it tells you makes you veryangry. Pausing only to collect abasket of poisoned apples, you rush from the palace...." 4150:.1}L,12 >***********************  MAIN LOOP J4:23692\,255:f3=0:mh=0:bp=0 /9000(#+Lc:L$:n=16:d(n):n '"YOU ARE ";L$;"." 7Lc242000:f3=11000  'Lc=38&Lc=39'Lc*100d DLc30Lc42*1900l:Lc=35#f4=0 @Lc43+Lc46.Lc*100d:Lc=251010 "What will you do? ";a$ $a$=""1050 )a$="dig"1200 .a$="open"1300 3a$="look"1500 8a$="take"1600@ Ba$="list"1700 L%a$="beauty"1800:1050 V61140t:n=16:c$:a$=c$1150~ `n jS1;7;'" I don't understand ";a$;". ":.2~L,-12 :1050 t+"north","east","south","west","up","down" ~Zd(n)=01;7;'" You can't go ";c$;".":.2~L,-12 :1050 ILc=d(n):Lc5246;'" You went ";c$;". ":.1}L,12 ?Lc40(Lc42*Lc491Lc524Lc*100d Lc535Lc*100d  1000 *********************** DIG Do(13 )2"You've got nothing to dig with.":1050 FLc36$Lc37%Lc40("You find nothing.":1050 n=Lc-29 \o(n)0"You've dug here before. There's nothing else to be found here.":1050 N2;"You unearth a ";o$(n):.1}L,12 :o(n)=1:1050 ****************+****** OPEN NLc45-Lc47/Lc480"There is nothing to open.":1050 %Lc=45-4520:1050 (%Lc=47/4700\:1000 2%Lc=4804800:1000 <*********************** LOOK ILc29Lc43+Lc=36$Lc=37%Lc=40(1550 >Lc=38&Lc=39'"You see all there is.":1050 n=Lc-29 Yo(n)=02;"You find a ";o$(n):.1}L,12 :o(n)=1:1050 3o(n)=1"You see all there is.":1050 !"You find nothing.":1050 *********************** ?TAKE @%Lc29Lc43+1640h J0Lc=38&Lc=39'Lc*100d+10 Tn=Lc-29 ^[o(n)=11;"You take the ";o$(n):.1}L,12 :o(n)=2:1050 hmh=11;'"You take the herb and eat it. It heals some of your scars and enhances your beauty.":.1}L,12 :y=y+1:1800:mh=0:1050 rbp=11'"You take the beauty potion and drink it.":.1}L,12 :y=y+1:1800:bp=0:1050 |("You see nothing to take.":1050 *********************** LIST 4f7=0p$="a basket of poisoned apples" +f7=1p$="absolutely nothing" >1;'"YOU ARE CARRYING:":f711;p$ 7n=113 :o(n)=21;"a ";o$(n) n  1050 *********************** BEAUTY RATING 93;7;'" YOUR BEAUTY RATING IS NOW ";y;". " hy01;'"YOU ARE NOW SO UGLY YOU EAT ONE OF YOUR POISONED APPLES ANB DIE. "::6050 -y>By>Cy>Dy>Gy>Hy>Ly>Wy>S6500d : D*********************** kREVEAL ln=Lc-29 v+o(n)=12;"You see a ";o$(n)  *********************** RANDOM EVENTS Lc=32500 :  r1=(*10 )+1 r12 Pr1=3y<9 2;"You see a medicinal herb.":mh=1: rr1=4Z=12;"You meet a friendly witch. She offers you a beauty potion.":bp=1: "You See a shadowy figure.":"Will you ";2;"offer";0;" a poisoned apple or ";2;"run";0;" away?": u"Make your choice: ";a$:a$"offer"a$"run"1;7;" You must ENTER ""offer"" or ""run""":2040 a$="offer"2120H  #a$="run""COWARD, you ran away." r2=(*4)+1  xr2=42;"In your haste you fell into somebrambles and scratched your face":y=y-1:1800 *Lc<12 Lc=Lc+2 4Lc>12 Lc=Lc-2 >E'"When you stop running, you look about you...":f3=1: Hr3=(*8)+1 ROr3=1"Your would-be victim shuns your offering and runs away.": \/r32r362300 a U=0 f""You've been savaged by a bear." pr4=(*4)+1 z$r4=1i$="no injuries" 5r4=2i$="a few scratches":y=y-1 8r4=3i$="severe lacerations":y=y-2 8r4=4i$="a terrible mauling":y=y-3 "You receive ";i$;"."  1800  q=n$:n=(*q)+1  v$=n$(n) "n$=n$(n-1)+n$(n+1) 9v$="B"v$="BASHFUL BARRY":sc=B:2440 :B=0 $8v$="C"v$="CLUMSY CLAUD":sc=C:2440 :C=0 .6v$="D"v$="DOPEY DICK":sc=D:2440 :D=0 89v$="G"v$="GRUMPY GRAHAM":sc=G:2440 :G=0 B7v$="H"v$="HAPPY HARRY":sc=H:2440 :H=0 L9v$="L"v$="LOONIE LENNIE":sc=L:2440 :L=0 V8v$="W"v$="WEARY WILLIE":sc=W:2440 :W=0 `6v$="S"v$="SNOW WHITE":sc=S:2440 :S=0 eOv$="U""You've killed a bear.";:U=U-1:" There's"'"now ";U;" left.": jbv$="Z"1;"You've just killed the WITCH. IDIOT, she was your only friend.":Z=0: t 1800 ~ "You've just killed ";v$ ?sc 4e'"You lost that time, try again. Your strength is now ";strength;".":.2~L,0:4630 >1;'"BAD LUCK You're now too weak toresist and the Guardian hurls you from the bridge to your death inthe raging torrent below. "::6050 \Do(3)2'"You don't have the key.":.1}L,0: f1f9 =1"There is nothing to open.": pM'"You unlock the great oak door with the ";o$(3):.1}L,12 z1;'"A voice says:";2;'"'Enter at your peril, for only the strong and quick thinking will return. Will you dare to enter my domain, yes or no?'" 1"Yes or no? ";a$:a$"yes"a$"no"4740 1a$="no"'"The great oak door relocksitself.": 2;'"'So be it. But first I'll take all your Possessions.'";1;''"Your Possessions vanish.";0;''"You pass through the portals of the great oak door. It closes, relocking itself behind you..." Bf7=1:n=113 :o(n)=2o(n)=3 n:Lc=480: Af9 =0"You don't have the key.":.2~L,0: )"There is nothing to open.":5410" $@'"YOU HAVE FALLEN INT0 AN OLD WELL":6000p:Lc=30: do(11 )2"You have circled the battlementsand are back where you started.":5040 r8=(*2)+1 ]r6=1'"The court jester tries to steal your MAGIC WAND but fails.":5040 y'"The court jester steals your MAGIC WAND and tosses it off the battlements into the chasm.":o(11 )=0 Lc=29: ='"You see a fabulous castle on theother side of the chasm." Eo(7)2"The drawbridge remains raised.":Lc=25: "You bribe the sentry with your gold nugget. He lowers the draw-bridge and you cross over.":o(7)=0:Lc=43+   Paf2=1"You find a pathway up the side of the chasm.":f2=0:5220d Z0"THE EDGE GIVES WAY AND YOU FALL.":6000p dLc=25: f9 =01;7;" You can't. The passage south is blocked by a great oak door. ":.1}L,0:Lc=47/:1050 L:6;" You went south. ":.1}L,12 :Lc=480:1000 f9 =01;7;" You can't. The passage north is blocked by a great oak door. ":.1}L,0:Lc=480:1050 "xf7=2"The great oak door vanishes in front of your eyes, and all yourpossessions are returned to you.": ,Bf7=0:n=113 :o(n)=3o(n)=2 6On::6;" You went north. ":.1}L,12 :Lc=47/:1000 |72;"You meet ";p$;e$;".";'"You must fight him." >:1;"YOU HAVE THE FOLLOWING WEAPONS: poisoned apples" *o(2)=21;o$(2) *o(5)=21;o$(5) *o(6)=21;o$(6) ,o(10 )=21;o$(10 ) Bo(11 )=21;"or you could try the MAGIC WAND."  w"Choose a weapon: ";a$:a$<31;7;" I don't understand ";a$;" ":.2~L,-12 :5580 a$(3)"poi"a$(3)"sil"a$(3)"cra"a$(3)"blu"a$(3)"jew"a$(3)"mag"5580 a$(3)"mag" Ka(11 )21;7;" You don't have it. ":5580 r6=(*2)+1 D2;"You wave the MAGIC WAND and ... THE ";e$;" turns into a" [r6=12;"frog and you stamp on him and squash him dead.":6400: q2;"fiery DRAGON. With one snort he ";0;1;"BURNS YOU TO DEATH. "::6050 *********************** oDEATH OR INJURY pr7=(*3)+1 z?r7=1"YOU'RE LUCKY. You scramble out unhurt.": r7=2"BAD LUCK. You receive serious injuries.";:y=y-2:y>0" However, you manage tostruggle out alive."  r7=21800: /1;"THE FALL HAS BROKEN YOUR NECK. ":  0 66060:n=111 :t,p:1:t,p:n .66(,0,.66(,0,.2~L,0,.66(,0,.46k,3,.2~L,2,.46k,2,.2~L,0,.46k,0,.2~L,-1,.66(,0  7100 *********************** BORDER ROUTINES bt=15:n=07:n:.01z# =,10 :.01z# =,20:n:t:4: dZt=120:n=07:n:.01z# =,10 :.01z# =,20:n:t: n*********************** WMIRROR ROUTINE X7:0:3: bI1,12 ;"VANITY";2,4;"by PETER CATHERALL (1985)" g>3;4,0;" " lhn=027:7,n+2;"MIRROR, MIRROR, ON THE WALL,"(n+1):.05|L,6:n vjn=029:8,n+1;"AMONG THE PEOPLE OF THIS LAND,"(n+1):.05|L,6:n jn=029:9 ,n+1;"WHO'S THE FAIREST OF THEM ALL?"(n+1):.05|L,6:n f1=0 >7;3;1;17,8;"THOU, O OUEEN" ***********************  NEW GAME "ANOTHER GAME (y or n)? ";a$ a$="y"a$="Y" 7:7:0:: *********************** ?INSTRUCTIONS @7:7: J"You are a vain and wicked Queen who's obsession is to become thefairest person in the land. But your mirror tells you SNOW WHITEis fairer. So you must kill her " T"with one of a limitless supply of poisoned apples. However, on your travels you may be savaged by a bear and receive some very nasty injuries which could make" ^"you even uglier than some of theseven dwarfs. Death also lies inwait for you. However, if you can rescue the Wicked Wizard and" h"return to him his MAGIC WAND andBOOK OF SPELLS he will make you more beautiful than Snow White. So, off you go in search of SnowWhite or the Wicked Wizard. Havea nice evil day." r821,3;1;"PRESS ANY KEY TO CONTINUE" |0:"" 6"When you're asked ""What will youdo now?"" ENTER:-" " north east up south west down look - to look around take - to pick up what you see list - to list what you have dig - to unearth objects open - to open doors beauty-to check your score" N'"When asked ""Do you want to offera poisoned apple or run away?"" ENTER:-" _" offer - to attempt to kill run - to escape possible attack by a bear" @'"When asked to ""Choose a weapon"" ENTER one of those listed" ,21,8;1;"PRESS ANY KEY" 0:"": *********************** #(LOCATIONS DATA #)7f$,8,13 ,16,12 ,0,0 #*8f$,13 ,17,20,16,0,0 #+H"BY THE HERMIT'S CAVE",0,4,7,0,0,0 #,4f$,0,5,0,3,0,0 #-4f$,0,0,9 ,4,6,0 #.6m$,0,25,10 ,0,0,5 #/5f$,3,8,12 ,0,0,0 #04f$,0,0,1,7,9 ,0 #15f$,5,10 ,0,0,0,8 #25m$,6,0,0,9 ,0,13 #36f$,0,12 ,14,0,0,0 #46f$,7,1,0,11 ,0,15 #55f$,0,0,2,1,10 ,0 #67f$,11 ,15,0,0,0,35# #77w$,0,0,18,14,12 ,0 #84f$,1,2,0,0,0,0 #95f$,0,0,21,2,0,0 #:7w$,15,19,0,35#,0,0 #;7w$,0,0,22,18,20,0 #<6f$,2,21,0,0,0,19 #=7f$,17,0,24,20,0,0 #>6w$,19,23,0,0,0,0 #?7w$,0,0,30,22,24,0 #@6f$,21,0,0,0,0,23 #AN"AT THE EDGE OF A CHASM",524,513,524,6,0,524 #B6g$,36$,0,0,42*,0,0 #C7g$,42*,28,47/,0,0,0 #D6g$,0,37%,0,27,0,0 #EM"UP ON THE BATTLEMENTS",502,0,502,0,38&,43+ #F_"IN THE GARDEN AT THE DWARF'S COTTAGE",23,31,32 ,491,0,0 #GG"IN A SMALL SMITHY",0,0,33!,30,0,0 #HM"IN THE DWARF'S PARLOUR",30,33!,0,0,0,41) #IM"IN THE DWARF'S KITCHEN",31,0,0,32 ,34",0 #JH"IN THE DWARF'S LOFT",0,0,0,0,0,33! #K\"AT THE ENTRANCE TO AN OLD GOLD MINE",0,18,0,0,14,42* #L6g$,0,40(,26,0,0,0 #MM"AT THE BOTTOM OF A WELL",0,0,0,28,30,0 #N_"IN A ROOM AT THE TOP OF THE TALLEST TURRET",0,0,0,0,0,29 #OE"IN A VAST CAVERN",46.,0,0,0,0,0 #PS"AT THE BOTTOM OF A DEEP CHASM",524,0,0,36$,0,0 #QJ"IN THE DWARF'S CELLAR",0,0,0,0,32 ,0 #R7g$,0,26,27,0,35#,0 #SN"IN THE CASTLE COURTYARD",44,,0,0,25,29,0 #TH"IN THE THRONE ROOM",0,0,43+,0,0,45- #UI"DOWN IN THE DUNGEONS",0,0,0,0,44,,0 #V\"ON A BRIDGE SPANNING A RAGING TORRENT",480,0,39',0,0,0 #W6g$,27,0,535,0,0,0 #XL"IN A DIMLY LIT PASSAGE",546,0,46.,0,0,0 l