home *** CD-ROM | disk | FTP | other *** search
/ Aztec Shareware Collection / ADVENTURE.ISO / vampyr / sign.dat < prev    next >
Text File  |  1989-12-23  |  6KB  |  98 lines
  1. *;West -- Rendyr ')
  2.     Else
  3.       OutTextXY(600,0,'X: '+XLocStr+'  Y:South -- Trocines '+PicNowStr+'   ');
  4.   Until Ord(Ch) = 26;
  5.   For XL^    DANGER!!!!  ')
  6.     Else
  7.       OutTextXY(600,0,'X: '+XLocStr+'  Y:The Lost Valleyc: '+PicNowStr+'   ');
  8.   Until Ord(Ch) = 26;
  9.   For XLY]Welcome to your doom!  Else
  10.       OutTextXY(600,0,'X: '+XLocStr+'  Y:                The EvilowStr+'   ');
  11.   Until Ord(Ch) = 26;
  12.   For XL      OUTHOUSEaveIt;
  13.        6 : Begin
  14.              For YLoc := 1 to 5<- Men    Women ->  For XLoc := 1 to 50 Do
  15.                Begin
  16.      Balinar's Treasury.sure.    6 : Begin
  17.              For YLoc := 1 to 5     KEEP OUT!T!->  For XLoc := 1 to 50 Do
  18.                Begin
  19.     +Welcome to the town of Balinar. Begin
  20.              For YLoc := 1 to 5 We hope you'll have a nice stay.1 to 50 Do
  21.                Begin
  22.     Salt Water Pond.own of Balinar. Begin
  23.              For YLoc := 1 to 5No fishing allowed.e stay.oc := 1 to 50 Do
  24.                Begin
  25.     (Welcome to the town of Rendyr.. Begin
  26.              For YLoc := 1 to 5All adventurers welcomed..oc := 1 to 50 Do
  27.                Begin
  28.     (Welcome to the town of Rendyr.. Begin
  29.              For YLoc := 1 to 5All adventurers welcomed..oc := 1 to 50 Do
  30.                Begin
  31.     'Welcome to the town of Maninox. Begin
  32.              For YLoc := 1 to 5Pirates are welcomed.med..oc := 1 to 50 Do
  33.                Begin
  34.     )Pirates' port. town of Maninox. Begin
  35.              For YLoc := 1 to 5 No fishing. welcomed.med..oc := 1 to 50 Do
  36.                Begin
  37.     .You have successfully locatedx. Begin
  38.              For YLoc := 1 to 5the end of the tree maze..oc := 1 to 50 Do
  39.                Begin
  40.     Welcome to Deep Creek.l.aninox. Begin
  41.              For YLoc := 1 to 5No littering.aze.med.med..oc := 1 to 50 Do
  42.                Begin
  43.     &<---- Rest Area Creek.l.aninox. Begin
  44.              For YLoc := 1 to 5      No Littering.d.med..oc := 1 to 50 Do
  45.                Begin
  46.     (Welcome to the town of Zachul.. Begin
  47.              For YLoc := 1 to 5Have a nice stay.g.d.med..oc := 1 to 50 Do
  48.                Begin
  49.      %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Çδ Çδ:Ç├
  50. r ÇδÇ├s╨Ç├
  51. ╖╤α╤╥r#There might be sharks in the water.└½½½ìEt½î└½╕8½î╚½3└╣≤½¼<Ov░Oè╚2,AWarning: This tunnel was built for the mayor's personal use only!╤α╤╥rNo one else allowed!s in the water.└½½½ìEt½î└½╕8½î╚½3└╣≤½¼<Ov░Oè╚2.*Welcome to the beautiful seaport of Myron.or's personal use only!╤α╤╥r%If you don't know how to swim, learn.½½ìEt½î└½╕8½î╚½3└╣≤½¼<Ov░Oè╚2/Welcome to the Castle.veIt;
  52.        6 : Begin
  53.              For YLoc :All adventurers are welcomed.or XLoc := 1 to 50 Do
  54.                Beg&Welcome to the castleaveIt;
  55.        6 : Begin
  56.              For YLoc :All adventurers are welcomed.or XLoc := 1 to 50 Do
  57.                Beg+Main tower look-out.eaveIt;
  58.        6 : Begin
  59.              For YLoc :Guards only, others leave!!d.or XLoc := 1 to 50 Do
  60.                Beg/Welcome to the Castle.veIt;
  61.        6 : Begin
  62.              For YLoc :All adventurers are welcomed.or XLoc := 1 to 50 Do
  63.                Beg&Castle courtyard.stleaveIt;
  64.        6 : Begin
  65.              For YLoc :Keep off grass! are welcomed.or XLoc := 1 to 50 Do
  66.                Beg:To see The King, take the first door on the left or right.  For YLoc :(                <---------    --------->1 to 50 Do
  67.                Beg/Welcome to the Castle.veIt;
  68.        6 : Begin
  69.              For YLoc :All adventurers are welcomed.or XLoc := 1 to 50 Do
  70.                Beg&Castle courtyardastle.veIt;
  71.        6 : Begin
  72.              For YLoc :Keep off grass! are welcomed.or XLoc := 1 to 50 Do
  73.                BegTorture Chamber.astle.veIt;
  74.        6 : Begin
  75.              For YLoc :"Prisoners might be a LITTLE crazy.oc := 1 to 50 Do
  76.                Beg/Welcome to Heaven.tle.veIt;
  77.        6 : Begin
  78.              For YLoc :May the Gods spare you.comed.or XLoc := 1 to 50 Do
  79.                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
  80.                For XLoc := 1 to 50 Do
  81.               Begin
  82.                  PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]22YLoc := 1 to 50 Do
  83.                For XLoc := 1 to 50 Do
  84.               Begin
  85.                  PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]22YLoc := 1 to 50 Do
  86.                For XLoc := 1 to 50 Do
  87.               Begin
  88.                  PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]Horse Stable.50 Do
  89.                For XLoc := 1 to 50 Do
  90.               Begin
  91.                  PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]Chapel CourtyardDo
  92.                For XLoc := 1 to 50 Do
  93.               Begin
  94.                  PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24](Welcome to Vampyr's Castle         For XLoc := 1 to 50 Do
  95.            and to your dome!!!!       PutImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]$Torture Chamber.r's Castle         For XLoc := 1 to 50 Do
  96.            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
  97.            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
  98.            Over 5,000 tortured to death.tImage((XLoc-1)*12,(YLoc-1)*4,IconPic[24]