*;West -- Rendyr ') Else OutTextXY(600,0,'X: '+XLocStr+' Y:South -- Trocines '+PicNowStr+' '); Until Ord(Ch) = 26; For XL^ DANGER!!!! ') Else OutTextXY(600,0,'X: '+XLocStr+' Y:The Lost Valleyc: '+PicNowStr+' '); Until Ord(Ch) = 26; For XLY]Welcome to your doom! Else OutTextXY(600,0,'X: '+XLocStr+' Y: The EvilowStr+' '); Until Ord(Ch) = 26; For XL OUTHOUSEaveIt; 6 : Begin For YLoc := 1 to 5<- Men Women -> For XLoc := 1 to 50 Do Begin Balinar's Treasury.sure. 6 : Begin For YLoc := 1 to 5 KEEP OUT!T!-> For XLoc := 1 to 50 Do Begin +Welcome to the town of Balinar. Begin For YLoc := 1 to 5 We hope you'll have a nice stay.1 to 50 Do Begin Salt Water Pond.own of Balinar. Begin For YLoc := 1 to 5No fishing allowed.e stay.oc := 1 to 50 Do Begin (Welcome to the town of Rendyr.. Begin For YLoc := 1 to 5All adventurers welcomed..oc := 1 to 50 Do Begin (Welcome to the town of Rendyr.. Begin For YLoc := 1 to 5All adventurers welcomed..oc := 1 to 50 Do Begin 'Welcome to the town of Maninox. Begin For YLoc := 1 to 5Pirates are welcomed.med..oc := 1 to 50 Do Begin )Pirates' port. town of Maninox. Begin For YLoc := 1 to 5 No fishing. welcomed.med..oc := 1 to 50 Do Begin . You have successfully locatedx. Begin For YLoc := 1 to 5the end of the tree maze..oc := 1 to 50 Do Begin Welcome to Deep Creek.l.aninox. Begin For YLoc := 1 to 5 No littering.aze.med.med..oc := 1 to 50 Do Begin &<---- Rest Area Creek.l.aninox. Begin For YLoc := 1 to 5 No Littering.d.med..oc := 1 to 50 Do Begin (Welcome to the town of Zachul.. Begin For YLoc := 1 to 5Have a nice stay.g.d.med..oc := 1 to 50 Do Begin %You have reached the torture chamber.aker-- (1) to add (2) to look .If you don't want to get tortured, then leave.¿Wšš¿W¿ JUSTICE HALLrture chamber.aker-- (1) to add (2) to look "Death to all thieves and brigands. then leave.¿Wšš¿W¿-No fishing allowed.HALLrture chamber.aker-- (1) to add (2) to look $Or it's the torture chamber for YOU!hen leave.¿Wšš¿W¿No swimming allowed.ƒÒøÃùÃGIãú&Š€ûar€ë €ë:€Ã r €ë€ÃsЀà ·ÑàÑÒr#There might be sharks in the water.À«««Et«ŒÀ«¸8«ŒÈ«3À¹ó«¬1 to 50 Do Beg/Welcome to the Castle.veIt; 6 : Begin For YLoc :All adventurers are welcomed.or XLoc := 1 to 50 Do Beg&Castle courtyardastle.veIt; 6 : Begin For YLoc :Keep off grass! are welcomed.or XLoc := 1 to 50 Do BegTorture Chamber.astle.veIt; 6 : Begin For YLoc :"Prisoners might be a LITTLE crazy.oc := 1 to 50 Do Beg/Welcome to Heaven.tle.veIt; 6 : Begin For YLoc :May the Gods spare you.comed.or XLoc := 1 to 50 Do Beg-4 Big Bad Wolf --- Don't feed the animals! For YLoc :BThis is the wolf that almost ate Little Red Riding Hood. Bad Wolf. Beg-1 Erik the Scum --- Don't feed the animals! For YLoc ::He won't bite now. He's been neutered. He's now an eunuch.ad Wolf. Beg(#Blackeye's treasure vault]à --Sign Maker-- (1) to add (2) to look  DO NOT TOUCH!!!xitšU‰å¿Wšš¿Wšš¿W¿+Blackeye's treasure vault II --Sign Maker-- (1) to add (2) to look  DO NOT TOUCH!!!itšU‰å¿Wšš¿Wšš¿W¿.Ha ha ha! Fooled ya!ault II --Sign Maker-- (1) to add (2) to look It's not easy to find me!U‰å¿Wšš¿Wšš¿W¿22YLoc := 1 to 50 Do For XLoc := 1 to 50 Do Begin PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]22YLoc := 1 to 50 Do For XLoc := 1 to 50 Do Begin PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]22YLoc := 1 to 50 Do For XLoc := 1 to 50 Do Begin PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]  Horse Stable.50 Do For XLoc := 1 to 50 Do Begin PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]Chapel CourtyardDo For XLoc := 1 to 50 Do Begin PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24](Welcome to Vampyr's Castle For XLoc := 1 to 50 Do and to your dome!!!! PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]$Torture Chamber.r's Castle For XLoc := 1 to 50 Do Over 5,000 tortured to death.tImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]22Torture Chamber.r's Castle For XLoc := 1 to 50 Do Over 5,000 tortured to death.tImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]22Torture Chamber.r's Castle For XLoc := 1 to 50 Do Over 5,000 tortured to death.tImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]