DAMIEN 4D4D 6D5Damien by O Seaman from Sinclair User 33 (Dec.1984) The Spawn of Satan, Damien Thorn, must be destroyed before he becomes powerful enough to take over the world. O Seaman of Chepstow in Gwent has written a text adventure to do just that. A neat core program at lines 10-900 allows for large quantities of text. You will find it difficult to defeat Damien before falling prey to his demented followers, who are lurking everywhere to deceive and destroy you. CAdded command summary at line 9035 jimg@globalnet.co.uk Sep.1999.  9000(# Dn=0:s=0:e=0:w=0:u=0:d=0: '"Directions are:";("North,"n0);("South,"s0);("East,"e0);("West,"w0);("Up,"u0);("Down"d0);8;" " "I can see:"'' Cfo=0:q=114:o(q)=line"A ";o$(q):fo=1 q:fo=0"Nothing"  "What shall I do? ";q$  q$="N"n0line=n:line  q$="S"s0line=s:line  q$="E"e0line=e:line  q$="W"w0line=w:line q$="R"line q$="I"900  q$="U"u0line=u:line  q$="D"d0line=d:line Lq$="U"q$="D"q$="N"q$="S"q$="E"q$="W""I can't go that way":20 !q$="STOP"q$="QUIT"9990' q$="SAVE"8000@ q$="LOAD"85004! !a$="":b$="":q=1̱q$ ";q$(q)=" "a$=q$(q-1):b$=q$(q+1):40( #q:"Huh?":20 ( a$="PICK"a$="TAKE"100d -a$"DROP"a$"PUT" 2-q=114:b$=o$(q,̱b$)60< 7q:a$;" what?":20 <o(q)=line:"O.K. ":20 d.q=114:b$=o$(q,̱b$)120x nq:a$;" what?":20 x-o(q)line"I can't see it here ":20 o(q)=0:"O.K.":20 ''"I have with me :"'' Ffo=0:q=114:o(q)=0"A ";o$(q):fo=1 q:fo=0"Nothing" Lo(6)=0"And ";o(15);" bullet";("s"o(15)>1)  20 37:n=1700:w=1100L:e=1200 R:"I am outside a large mansion. West is a church,East is the mansion door"  10 20:1030 L7:e=1000 V:"There is a priest here.He says:"''" Welcome.I know why you are hereand I know you are our only hopefor salvation.The beast is once more among the world of men.I know he is near.There are many " `"of his disciples among us.You must kill him while he is still a baby and is powerless.However only the holy knives can kill " j"him.Yet the powers of God have prepared well and somewhere nearby is the knives.May you have God's Holy blessing on your Quest." o!o(1)37%1150~ tj23692\,0:'"He reaches into the church restoration fund and gives me `5which I take."''' uo(1)=0 y*#0;"Press a key":1:0 ~ 10 20:1160 ko(13 )0:"The door is locked-You cannot enter.":"Press ENTER";q$:line=1000:line I:"I am in the mansion.There is a wild dog that is about to eat me." %"What shall I use against it? "'q$ <q$"LAMB":"He has ignored me and eaten me!":9900& A"The dog is eating the meat-if I hurry I can get East unharmed" 5"Press ENTER to go East";q$:line=1300:line k:"Damien's nurse has seen me,and guessed what I am about to do. She is coming at me with a poker!" &"What shall I use against her? "'q$ (/q$"GUN":"She has killed me!!":9900& 21'"I shot and killed her-I may now proceed East" <5"Press ENTER to go East";q$:line=1400x:line xq:"I can see Damien in his cot.He has see me.He has stood up-he isbigger than I thought-to strangle me" &"What shall I use against him? "'q$ 1q$"KNIVES":"He has killed me!!":9900& t:"Success!!YOU HAVE KILLED DAMIEN"'"You have destroyed the anti- christ and so are the saviour of the world!!"  9990' 7:e=1600@ :"I can see a grave"  10  20 a$"DIG"1530  .o(7)0"What with?":1530 \:"I dug up the grave and out of itflew 13 black ravens,who have killed me!":9900& @37:n=1800:w=1500:e=1700 JE:"I can see a grave.Also,on it is enscribed 'Here lies Mrs Thorn'" T 10 ^ 20 ha$"DIG"1630^ m.o(7)0"What with?":1630^ rE"I dug up the grave and found theskeleton of a jackal!":1630^ 37:w=1600@:n=1900l:s=1000 1:"I am at the edge of a graveyard to my West."  10 20:1730 7:s=1600@ :"I can see a grave"  10 & 20 0a$"DIG"1830& 5.o(7)0"What with?":1830& :o(10 )=0:'"I dug up the grave to find a skeleton.I noticed a cross that it was holding.I picked it up":1830& l%7:n=2000:s=1700 v=:"I am on a North/South road leading to a seedy town"  10 20:1930 %7:n=21004:s=1900l J:"I can see an old beggar pleadingfor some money.I am still on theroad"  10 !20:a$"GIVE"2030 <o(1)0"I don't have the money!!":2030 N'"The beggar said 'Thankyou' and ran off!!":o(1)=1:2030 4%7:n=2400` :s=2000 > :"I am on a North/South road" H 1020 37:n=2299:s=2299:e=2300 b:"I am at the end of the path. North and South are swamp,but North I can see a glistening"  1020 ':"I sank in the swamp!!":9900& %7:e=2400` :w=2200 :"I am on a path"  1020 `A7:n=3200 :s=21004:e=2500 :w=2300 j:"I am on a crossroads" t 1020 17:e=2600( :w=2400` :2310 (37:e=3000 :w=2500 :s=2700 22:"I am on a path.South is a beggar":1020 7:n=2600( Q:"There is a Beggar here.He says he will sell you a Red Crystal for only `5" 10 !20:a$"GIVE"2730 :o(1)0"I don't have any money":2730 ,"He has given me the crystal and takes `5" 4o(1)=1:o(8)=0:2730 T7:s=3000 ^l:"There is an old grave-digger here who says he'll give me his spade in return for `5 or some silver" h 10 r!20:a$"GIVE"2930r w3b$"`5"b$"SILVER""Give him what?":2930r |;b$="`5"o(1)0"I don't have 5":2930r Gb$="SILVER"o(5)0"I don't have any silver":2930r )"He says 'O.K.' and gives you hisspade" Jo(7)=0:o(1+(4b$="SILVER"))=1:2930r 37:n=2900T :s=3100 :w=2600( R:"I am at the end of the path. North is an old man,South is a tall figure." 1020 7:n=3000 &E:"There is a tall figure here who has given me a Black Crystal!!!" 0 o(9 )=0:1020 17:n=3300 :s=2400` :2110> %7:n=3400H :s=3200 7:"To my North is the start of a city.":1020 H%7:n=3500 :s=3300 M]o(16)=123{:"I am on a N/S road,there is a dead man on the road":1020 R9:"There is a man here with an axe.He looks dangerous!" \F"Shall I attempt hand-to-axe combat,or retreat South? (F/R)";q$ fq$="R"line=s:line po(16)=123{:''"He swiped at me with his axe.I ducked,and kicked him in the shin.He reeled,fell,and died. There is now an axe on the ground." zo(2)=line:1020 A7:n=3800:s=3400H :w=3600:e=3700t e:"I am on a main N/S road.West is a flimsy wooden door,East is a strong door with a red knocker." 1020 t:"I managed to break through the door,to find a man,who said 'Howdare you break my door down!'.Hethen shot me!!"  9900& t7:w=3500 ~f:"There is a tall robed figure here who tells me I can only go East if I give him a Red Crystal"  10 !20:a$"GIVE"3730 >o(8)0"I don't have a Red Crystal":3730 s''"He said 'Thankyou' and cackled alittle.I went East to find 13 Devil Worshippers,who killed me!!":9900& A7:w=3899;:e=3900<:n=4500:s=3500 B:"To my East is an alleyway,and West is a flimsy wooden door"  1020 ;"I broke down the door to find a ring of chain smokers,who offered me a puff.I accepted andwished I hadn't":9900& <37:n=4600:e=4000:w=3800 F;:"I am in a seedy alley.North is a flimsy wooden door." P 1020 37:n=4100:e=4200h:w=3900< T:"Here is a Beggar who asks me fora black crystal or `5 in return for a Red key."  10 20:a$"GIVE"20 6b$"`5"b$"BLACK CRYSTAL""Give what?":4030 Po(1+(8b$="BLACK CRYSTAL"))0"I don't have it":4030 m"He gives you the Red Key":o(1+(8b$="BLACK CRYSTAL"))=1:o(4)=0:4030 7:s=4000 $:"I am at the end of an alleyway" Lo(5)=4100"I can see,lying in a bin,a largepiece of silver!!"  1020 h%7:e=4300:w=4000 rO:"I am still in this alley.To the East is a short robed figure.":1020 7:w=4200h <:"There is a short figure with a gun about to shoot me!" a"Which object shall I use againsthim? ";q$:q$"AXE"''"No use - He has shot me!":9900& ''" He fired a shot at me,but I deflected it with my axe.He pulled the trigger again but I threw the axe at him,which cleaved his skull.He has left his gun and its four remaining bullets on the ground."  1020 07:e=4500 :S:"I am in a Butchers.They have a special offer on - a leg of lambfor only `5!!" D 10 N*20:a$"GIVE"a$"BUY"4430N X3o(1)0"I have no money":4430N bK"You have the lamb ":o(1)=1:o(11 )=0:4430N A7:n=4800:s=3800:w=44000:d=5700D {:"I am in the street.West is a Butchers with a special offer on.There is an open manhole below. It looks a bit dark!"  1020 7:s=3900< h:"I am in a shed.On the wall is painted '666'.Lying on the ground is a yellow key":1020 \7:e=4800 f:"I am in a gardening shop.There is a nagging old woman here.She says either buy something or leave.They seem to be a bit low on stock at the moment-they onlyhave a spade,selling for `5" p#"Do you want to buy it (Y/N)";q$ uq$=""4720p zq$"Y"1020 4o(1)0'"I don't have `5":1020 4o(1)=1:o(7)=0:1020 A7:n=5100:s=4500:w=4700\:e=4900$ ʉ:"I am still in this seedy town. West is a gardening shop,East isa door with a black knocker on. It says 'Please Knock'.":1020 $7:w=4800 .:"I am in a large dusty house. There is a cloaked figure who says I can go East through a biglocked door only on receipt of a Black Crystal." 8 10 B!20:a$"GIVE"4930B L@o(9 )0"I don't have a black crystal":4930B V|"He says 'Ta' and reveals a bunchof keys with which he unlocks the door.It creaks open.I can now go East.":4930B :"I walked through the door to find a meeting of software writers.They grabbed & bound me.One of them said 'I could write a game around this.'He showed mea gun he designed for one of hisgames.It really worked-he tried it out on me.":9900& A7:w=5150:e=5200P:n=5500|:s=4800 4:"To my East is a red door,West isa yellow door."  1020 Mo(3)0"I do not have the key to unlock the door ":1030 (:"I have found a bunch of men sacrificing a pig.I felt sorry for it and so hit and knocked out the men.The pig was so happythat it jumped up on me and suffocated me!!":9900& PMo(4)0"I do not have the key to unlock the door ":1020 U37:n=5400:e=5300:w=5100 Zl:"I am in a dark hallway.North andEast are rooms in which ceremonies seem to be taking place." d 1020  7 x:"There are 3 devil worshippers here.They seem to want to sacrifice me.The high priest hasa small Black key." ;20:a$"SHOOT""They have burned me!!":9900& oo(15)<3"I don't have enough bullets for all of them.They seem to have boiled me!":9900& So(6)0"I don't have a gun.They seem to have boiled me!":9900& ]'"I fired 3 shots at them,killing them all.There is now a Black key lying on the ground." Mw=5200P:o(15)=o(15)-3:o(12 )=line:1020 0:"I entered the room.There was a strange man who promptly locked the door behind me.He offered mea drink (at gunpoint).I drank itand,all of a sudden,I seemed to grow smaller!When I was about 10inches high,I heard him say 'It works'.I shrank another foot,and there was nothing left of me!":9900& |%7:w=5600:s=5100 u:"I am at the end (at last) of thelong road I have been walking down.To my West I can see an oldman":1020 7:e=5500| :"I can see an old man.He says to me 'That is a nice axe you have there.You wouldn't want to swap it for an old white key,would you?'"  10 !20:a$"GIVE"5630 8o(2)0"I don't have an axe.":5630 "I told him I would do the swap. He agreed,took my axe,gave me the white key,and promptly blew up!":o(2)=1:o(13 )=0:5630 D%7:u=4500:n=5800 NE:"I am in a smelly sewer,at the bottom of a ladder.":1020 %7:n=5900 :s=5700D i:"I am in an underground,dark,damp,smelly,dripping,rat infested tunnel.(It isn't nice.)":1020  7:s=5800 m:"I am at the end of the tunnel.I have found a white door with a metal cross on the door.It is locked."  10 *#20:a$"UNLOCK"5930* 4Lo(13 )0"I don't have the key to unlock it with":5930* >J"I have unlocked the door.I can now go East.":e=6000p:5920  p 7 z::"Here is a towering figure.He looks gruesome.Help!" U20:b$"CROSS""He covered me in his cloak and- I disappeared!!":9900& to(10 )0"I dont have a cross(worst luck).He covered me in his cloak and- I disappeared!!":9900& L"He cowers back and lets me past.":w=5900 :n=6100:1020 %7:n=62008:s=6000p 8:"I am in a corridor between 2 doors.":1020 87:s=6100 B:"There is a man here,who gives mesome pretty knives.He says they are the only things that will kill Damien,and then only if notat all soiled by killing anything else.":1020 @:"SAVE - Prepare tape" Jo(16)=line T"D-CODE"+lineo() ^#:"VERIFY - Press Y(es) or N(o) " h ="N"line r"Y"8040h ||'''"If you get an"'"'R Tape Loading Error'"'"Then type 'GOTO G'"'"(Press 'G' twice,& ENTER)"'''"Press any key when ready." =""8070 (g=8090:"D-CODE"+lineo():line A:"Options:"'''"1 Reverify"'"2 Resave"'"3 Quit"''"Press option" !w$=:w$>"3"w$<"1"8100 w$="1"8030^ w$="2"8000@ line !4&:"LOADING - Press a key when ready" !>=""8510>! !H-o(16):""o():line=o(16):line #(A1:7:1:0:0:0:0: #2" WELCOME TO " #<`''" " #Fp''" You must destroy Damien,Son of the Devil,while he is still a baby and is thus relatively powerless." #K'"COMMANDS:"'"N, S, E, W, U, D (directions)"'"R (redescribe), I (inventory)"'"STOP, QUIT, SAVE, LOAD","PICK, TAKE, DROP, PUT"'"DIG, GIVE, BUY, SHOOT, UNLOCK" #P''"Press any key to start" #Z=""9050Z# #_*23658j\,8:16,0,, #d9o$(14,13 ):o(16):o(15)=4 #n/9100#:q=114:o$(q),o(q):q #xline=1000:line #"`5",37%,"AXE",1,"YELLOW KEY",4600,"RED KEY",1,"SILVER",4100,"GUN",4300,"SPADE",1,"RED CRYSTAL",3100 ,"BLACK CRYSTAL",1,"CROSS",1,"LAMB",2,"BLACK KEY",1,"WHITE KEY",8,"KNIVES",62008 &"Bad luck - Have another go" 'R"Press ENTER to replay,or 'NO' toclear this program out "'q$:q$="NO"0 '