Constant Story "The April Pub Crawl^";
Constant Headline "by Dan Ferrell- www.danferrell.com^^    

Please note: This was an actual event that took place in April, but due to the night being kind of foggy 
near the end I not sure how acurate my descriptions are.   
";

constant debug;

!These are the libraries that are referenced by the compiler.
Include "parser";
Include "verblib";
Include "grammar";

!The Initialization routine is run at the start of the program automatically.
[ Initialise;
    location = Dominics;
    print "^^^^In this crazy game you get to play the Dan Ferrell, the guy who just spent three weeks trying to
               organize this event called the first annual Ann Arbor PubCrawl out in Ann Arbor.  The goal of this 
	       game is wander from bar to bar and collect drinks and have people write all over you.  During the 
               process of this game you will start out at a place called Dominics then proceed to ConorONeils, 
               then proceed to The BlueMoon, then on to ScoreKeepers and then on to the final stop- Good Time Charlies.  Your goal is to drink as much
               as you possible can.  The person who drinks the most wins in the end.^^";
];

! This is the place where the game starts.  This is where all it all begins, at this location you will run into
! Ali and drink several pitchers of Sangria that tastes like MD 20/20 and then move on to the next location or call
! it over and give up and go home
Object Dominics "Dominics"
has light,
with name "dominics" "Dominics" "DOMINICS" "dom" "Dom",
description
"You are at Dominics the first bar on your stop for the night.  This place looks as if has stood here since the University was founded back in 1817.
  The bar looks as if it was originally a house that was turned into a local bar for all the crazy college kids.  As you wander around the place looking 
for the rest of the people you wander out on the patio and find Ali sitting there with several other people with a table full of pitchers of Sangria.
(go east: home,  go north: ConorONeils.)",
e_to Home, n_to ConorONeils 
;

Object -> Pitcher1_of_Sangria "Pitcher One of Sangria"
  with name "pitcher1" "Pitcher1" "pitcher one of sangria" "Pitcher One of Sangria",
  description "Looks tempting an ice cold pitcher of wine",
	before       
       [; Drink: "That was great after a whole day of shopping for a kayak, this stuff strangely taste's
                  just like maddog, isn't that crazy"; ],
  has edible;

Object -> Pitcher2_of_Sangria "Pitcher Two Of Sangria"
  with description "Looks tempting an ice cold pitcher of wine",
       name "pitcher2" "Pitcher2" "pitcher two of sangria" "Pitcher Two of Sangria",
       before
       [; Drink: "That tasted great, I think it is time for some more"; ],
  has edible;


Object -> Pitcher3_of_Sangria "Pitcher Three of Sangria"
  with description "Looks tempting an ice cold pitcher of wine",
       name "pitcher3" "Pitcher3" "pitcher three of sangria" "Pitcher Three of Sangria",
       before
       [; Drink: "That was great, cool and refreshing!!!"; ],
  has  edible;

Object -> Pitcher4_of_Sangria "Pitcher Four of Sangria"
  with description "Ice cold refreshing pitcher of MadDog",
       name "pitcher4" "Pitcher4" "pitcher four of sangria" "Pitcher Four of Sangria",
       before
       [; Drink: "Wow, you can't believe you just drank another pitcher of that horrible stuff, will this stuff 
                ever go away"; ],
  has  edible;

Object -> Pitcher5ofSangria "Pitcher Five of Sangria"
  with description "Looks like it is the biggest pitcher of MadDog you have ever seen in your life",
       name "pitcher5" "Pitcher5" "pitcher five of sangria" "Pitcher Five of Sangria",
       before
       [; Drink: "You feel like you are ready to burst and that you don't ever want to see Sangria/MadDog again in your life,
                you are now ready to move on to the next bar."; ],
  has  edible;

Object -> noteD "Note-Dominics"
  with description "Drink Sangria and socialize and then move on to the next bar.",
       name "note" "Note",
       after
       [; Look: "Drink Sangria and socialize and then move on to the next bar"; ];

! This is where the game ends, you can end the game at any time during play by going home. 
! But if you go home before you make it to the final location you lose the game.

Object Home "Home"
has light,
with name "home" "HOME" "Home" "house" "HOUSE" "House",
description
"The game has ended! Hope you enjoyed playing... If you are not ending from GTC you lose!^(no exits here), 
if you went to the Nectarine and stayed for a while you loose!  Sorry I didn't add points and more player interaction
at this point, but that will come in a future version.  Hope you enjoyed playing!";

Object ConorONeils "ConorONeils"
has light,
with name "con" "CON" "ConorONeils" "conoroneils" "CONORONEILS",
description
"Here is one of the nicest Irish Pubs that you have ever seen in your life. You here some authentic irish folk music in the background that sounds very good.
 As you wander around the bar looking for the rest of the people .To the south you see the road to Dominics and to the North you see the road to the BlueMoonCafe and to the East you see the way home.
(go east: home,  go north: BlueMoon, go south: Dominics.)",
s_to Dominics, n_to BlueMoon, e_to Home;

Object -> BushMillsShot "BushMills Shot"
  with description "Looks like a classic shot of Irish Whiskey to me",
       name "BushMills Shot" "bushmills shot" "BM" "bm",
       before
       [; Drink: "That was great, where is Reasons when it is time for some fine Irish Whiskey"; ],
  has  edible;

Object -> BottleofLabatt "Bottle of Labatt Blue"
  with description "Looks tempting an ice cold pitcher of wine",
       name "blue" "labatt" "LB" "lb" "Labatt Blue" "labatt blue",
       before
       [; Drink: "Blue, what a taste"; ],
  has  edible;

Object -> BottleofMolsonIce "Bottle of Molson Ice"
  with description "Looks like an ice cold bottle of beer that needs to be drank",
       initial "Bottle of Molson Ice",
       name "Molson Ice" "MI" "mi" "molson ice",
       after
       [; Drink: "Ice cold and refreshing"; ],
  has  edible;

Object -> BottleofMolsonGolden "Bottle of Molson Golden"
  with description "Ice cold bottle of beer",
       name "molson" "golden" "MG" "mg" "Molson Golden" "molson golden",
       before
       [; Drink: "Your only thought at the moment is, an honest brew makes its own friends"; ],
  has  edible;

Object -> WoodPecker_Cider "WoodPecker Cider"
  with description "Nice ice cold bottle of green cider beer",
       name "cider" "Cider" "WoodPecker Cider" "woodpecker cider",
       before
       [; Drink: "Cider beer, wow that tasted great"; ],
  has  edible;

Object -> noteCON "Note-ConorONeils"
  with description "Drink and socialize and then move on to the next stop.",
       name "note" "Note",
       after
       [; Look: "Drink and socialize and then move on to the next stop"; ];      
           
Object BlueMoon "BlueMoon"
has light,
with name "blue" "BM" "bm" "bluemoon" "BlueMoon",
description
"Here is the third stop on the pub crawl, this place seems to be jam packed with people, lots of pool tables and lots of people.
This place seems to be a little crowded everyone wants to hurry up and drink and then leave. This is the place that Meredyth and 
her friends meet up with us.
(go east: home,  go north: ScoreKeepers, go south: ConorONeils.)",
s_to ConorONeils, w_to Nectarine, n_to ScoreKeepers, e_to Home;

Object -> Jager1 "Jager Shot"
  with description "ICE COLD jager shot",
       name "Jager Shot" "jager shot" "JS" "js",
       before
       [; Drink: "Damn that was smooth"; ],
  has  edible;

Object -> BottleofLabatt1 "Bottle of Labatt Blue"
  with description "Ice cold beer with the label half peeled off, but still appears to be quite tasty",
       name "blue" "labatt" "LB" "lb" "Labatt Blue" "labatt blue",
       before
       [; Drink: "That was great, nice cool and refreshing"; ],
  has  edible;

Object -> BottleofMolsonIce1 "Bottle of Molson Ice"
  with description "Ice cold beer, this appears to be the nectar of the gods",
       name "Molson Ice" "MI" "mi" "molson ice",
       before
       [; Drink: "Very smooth, very smooth"; ],
  has  edible;

Object -> BottleofMolsonGolden1 "Bottle of Molson Golden"
  with description "This looks as if it is one of those things that just needs to be drank by you",
       name "molson" "golden" "MG" "mg" "Molson Golden" "molson golden",
       before
       [; Drink: "Wow, more beer will it ever stop"; ],
  has  edible;

Object -> WoodPecker_Cider1 "WoodPecker Cider"
  with description "Cider beer, do you really need much more of a description than that!",
        name "cider" "Cider" "" "WoodPecker Cider" "woodpecker cider",
       before
       [; Drink: "Cider beer what a treat"; ],
  has  edible;

Object -> noteBM "Note-BlueMoon"
  with description "Drink and socialize and move on to the next stop, do not go to the nectarine.",
       initial "Hints for BlueMoon - you don't need to look at this.",
       name "note" "Note",
       after
       [; Look: "Drink and socialize and move on to the next stop, do not go to the nectarine"; ];

! Extra room for the game- no need to go there it is not required, but it is a way that you can lose the game 
! depending on what you do while you are in the room
! This is all for revision one

Object Nectarine "Nectarine"
has light,
with name "nectarine" "Nectarine",
description
"Here is a bar that is not on the list of places to go to.  You should not be here you should loose 
the game at this point... This bar seems to be very cool at first and then as you wander around you find 
out that all this place has is one big dance floor and a bunch of freaks wandering around that look pretty
 scary.  At this point in the Night you see this and all you can think of is how you want to run for your life.
before they can get there hands on you.  But while you are wandering you see Kevin (Ali's Friend) sitting over in the
corner watching all the guys dance. (go east: BlueMoon)",
e_to BlueMoon;

Object -> Jager2 "Jager Shot"
  with description "ICE COLD jager shot",
       name "Jager Shot" "jager shot" "JS" "js",
       before
       [; Drink: "Smooth."; ],
  has  edible;

Object -> JimBeam "Jim Beam"
  with description "ICE COLD Jim Beam",
       name "JB" "jb" "jim beam shot" "Jim Beam" "Jim Beam Shot",
       before
       [; Drink: "Very Smooth.."; ],
  has  edible;

Object -> rum151 "151 Shot"
  with description "ICE COLD 151 Shot",
       name "151" "151 Shot",
       before
       [; Drink: "Smooth.."; ],
  has  edible;

Object -> BottleofLabatt2 "Bottle of Labatt Blue"
  with description "Ice cold beer, something good in this scary place",
       name "blue" "labatt" "LB" "lb" "Labatt Blue" "labatt blue",
       before
       [; Drink: "Wow, the world is starting to spin, I have to get out of this scary place"; ],
  has  edible;

Object -> BottleofMolsonIce2 "Bottle of Molson Ice"
  with description "This appears to be a nice ice cold bottle of beer",
       name "Molson Ice" "MI" "mi" "molson ice",
       before
       [; Drink: "Excellent, ice beer.  Tasty"; ],
  has  edible;

Object -> BottleofMolsonGolden2 "Bottle of Molson Golden"
  with description "Ice cold bottle of beer",
       name "molson" "golden" "MG" "mg" "Molson Golden" "molson golden",
       before
       [; Drink: "Great, more canadian beer"; ],
  has  edible;

Object -> noteN "Note-Nectarine"
  with description "Leave this place and don't talk to anyone here.",
       name "note" "Note",
       before
       [; Look: "Leave this place and don't talk to anyone here"; ];

Object -> Kevin "Kevin"
has animate,
  with description "You see some guy sitting over in the corner checking out all the guys that walk by ",
       initial "Kevin seems to be mumbling to himself something about George",
       name "Kevin" "kevin", 
      life
       [; KISS: 
        if (self hasnt general) {
        give self general;
        move Rainbow_bracelet to player;
       "Kevin gives you the Rainbow Bracelet and now you loose, you are not allowed to play the Dan Ferrell pub crawl anymore and now you must throw away your computer ";
        } 
       ];

Object -> Rainbow_bracelet "Rainbow bracelet"
has concealed
  with description "Kevin has given you a bracelet and this causes you to loose the game.",
       name "Rainbow_bracelet" "bracelet";

! this room is done for revision one
! this room is pretty much like all the rest on the trip

Object ScoreKeepers "ScoreKeepers"
has light,
with name "sk" "SK" "scorekeepers" "ScoreKeepers",
description
"Here you are, the first place on your trip that actually makes you pay a cover charge and actually checks our ages. 
Sad to say at this point in time we realize that Barb does not have an ID with her (or at least she can't find her ID).
This place is filled with a whole lot of people having a good time, here you see Sara and a bunch of her friends out for
a bachlorette party alond with some other people from the Dearborn Campus.  This is also the place where Joel and his friends 
are suppose to meet you. At this point in the night things are getting a little hazy.  
(go east: home,  go north: GoodTimeCharlies, go south: BlueMoon.)",
s_to BlueMoon, n_to GoodTimeCharlies, e_to Home;

Object -> Jager5 "Jager Shot"
  with description "ICE COLD jager shot",
       name "Jager Shot" "jager shot" "JS" "js",
       before
       [; Drink: "That is the best thing I have ever had"; ],
  has  edible;

Object -> Tequila "Tequila"
  with description "ICE COLD jager shot",
       name "Tequila Shot" "tequila shot" "T" "t",
       before
       [; Drink: "This stuff has got to be made out of the best stuff on Earth"; ],
  has  edible;

Object -> Absinthe "Absinthe Shot"
  with description "Looks like a mystical shot of Absinthe",
       name "Absinthe" "a" "A" "absinthe" "Absinthe Shot",
       before
       [; Drink: "Wow, what an experience, it sort of tastes illegal"; ],
  has  edible;

Object -> BottleofLabatt3 "Bottle of Labatt Blue"
  with description "very nice beer, you feel like you have to tell Jim that you have found some more good beer",
       name "blue" "labatt" "LB" "lb" "Labatt Blue" "labatt blue",
       before
       [; Drink: "The world is starting to spin, it is time to slow down"; ],
  has  edible;

Object -> BottleofMolsonIce3 "Bottle of Molson Ice"
  with description "Ice cold beer in a ice cold green bottle",
       name "Molson Ice" "MI" "mi" "molson ice",
       before
       [; Drink: "This beer is starting to go down like water"; ],
  has  edible;

Object -> BottleofMolsonGolden3 "Bottle of Molson Golden"
  with description "Ice cold beer- very nice",
       name "molson" "golden" "MG" "mg" "Molson Golden" "molson golden",
       before
       [; Drink: "Smooth, very smooth"; ],
  has  edible;

Object -> noteSK "Note-ScoreKeepers"
  with description "Drink, talk to people and move to the next bar.",
       name "note" "Note",
       before
       [; Look: "Drink, talk to people and move to the next bar"; ];

Object GoodTimeCharlies "GoodTimeCharlies"
has light,
with name "gtc" "GTC" "goodtimecharlies" "GoodTimeCharlies",
description
"Here is Good Time Charlies the final stop on the pub crawl (or at least the final stop that you remember).  As you walk through the 
doors you see Molly playing waitress for the group and everyone screaming and yelling as if they are two year olds, but everyone is
having a good time. At this point you can vaguely tell that everyone has drank way to much and that you must end the drinking contest
so that everyone will stop yelling. (go east: home,  go north: JoelsCar, go south: ScoreKeepers.)",
s_to ScoreKeepers, n_to JoelsCar, e_to Home;

Object -> Jager8 "Jager Shot"
  with description "ICE COLD jager shot",
       name "Jager Shot" "jager shot" "JS" "js",
       before
       [; Drink: "I don't think I can take much more of this"; ],
  has  edible;

Object -> JackDanielsShot "Shot of Jack Daniels"
  with description "Wow, what a smell, what a shot, you have been looking forward to this all night",
      name "Jack Shot" "jack shot" "JD" "jd",
      before
       [; Drink: "Nice, very nice whiskey"; ],
  has  edible;

Object -> EverClear "EverClear"
  with description "Insanity in a shot glass is all you see",
       name "E" "Everclear shot" "EverClear" "everclear",
       before
       [; Drink: "This is insanity, not so smooth, you really shouldn't do that again"; ],
  has  edible;

Object -> BottleofLabatt4 "Bottle of Labatt Blue"
  with description "Dark brown bottle of ice cold Canadain beer",
       name "blue" "labatt" "LB" "lb" "Labatt Blue" "labatt blue",
       before
       [; Drink: "Wow, I think I am stuffed, I don't think anymore beer can fit in me"; ],
  has  edible;

Object -> BottleofMolsonIce4 "Bottle of Molson Ice"
  with description "Nice cold green bottle filled with some of the best tasting beer you have ever had",
       name "Molson Ice" "MI" "mi" "molson ice",
       before
       [; Drink: "wow, that was rough"; ],
  has  edible;

Object -> BuffaloWings "Buffalo Wings"
  with description "A plate of about twelve hot wings are sitting in front of you, they smell hot, they look hot, it is time to eat.",
       name "Wing" "food" "wing" "Wings" "wings",
       after
       [; Eat: "Food is my friend, that was great"; ],
  has  edible;

Object -> noteGTC "Note-GooDTimeCharlies"
  with description "here you drink some drinks and have a good time and talk and be social with people, when it is all
                 over you get in Joels car and go on home.",
       initial "Hints for Good Time Charlies - you don't need to look at this.",
       name "note" "Note",
       after
       [; Look: "here you drink some drinks and have a good time and talk and be social with people, when it is all
                 over you get in Joels car and go on home"; ];

! this room is done for Revision One
! This is Joels car nothing big happens here

Object JoelsCar "JoelsCar"
has light,
with name "jc" "JC" "JoelsCar" "car",
description
"Now that the night is over and everyone has gone home it is time to squeeze in the car with all the new people and go on
 home.  It was an excellent night.
(go east: home,  go north: RamsHorn, go south: GoodTimeCharlies.)",
s_to GoodTimeCharlies, n_to RamsHorn, e_to Home;

Object -> noteJC "Note-JoelsCar"
  with description "Nothing happens here, you just sit back and enjoy the ride.",
       initial "Hints for JoelsCar - you don't need to look at this.",
       name "note" "Note",
       after
       [; Look: "Nothing happens here, you just sit back and enjoy the ride"; ];
 
! this room is done for Revision One
! This is the rams horn stop at the end of the night, nothing big happens here

Object RamsHorn "RamsHorn"
has light,
with name "RH" "RamsHorn" "ramshorn" "Rams Horn" "rh",
description
"Here is Rams Horn, the place looks very famaliar almost as if you were here the week before, oh wait yes this was the place 
where the guy wanted to fight the whole restaurant after he knocked over the sign on the way out.  You are quickly placed at 
an empty table that is need of a good cleaning, but at this point in the night you are just happy that you can function without
help from others.  The waitress takes your order and now it is time to eat and talk with your new friends.
(go east: home,  go north: JoelsCar, go south: JoelsCar.)",
s_to JoelsCar, n_to JoelsCar, e_to Home;

Object -> HeartAttackPlatter "Heart Attack Platter"
  with description "Here is what you need to do at this place before you can move on to the next place.",
       initial "Big Plate of Potato Skins (Heart Attack Platter).",
       name "heart attack platter" "Heart Attack Platter" "hap" "HAP" "skins",
       after
       [; Eat: "Those were great, it kind of reminded me of the trips to Ramshorn with Tom"; ],
  has  edible;

Object -> Fries "Fries"
  with description "Here is what you need to do at this place before you can move on to the next place.",
       initial "Big plate of scary looking fries.",
       name "Fries" "fries",
       after
       [; Eat: "Not so good"; ],
  has  edible;

Object -> CheeseBurger "Cheeseburger"
  with description "Here is what you need to do at this place before you can move on to the next place.",
       initial "Cheeseburger (I think)",
       name "burger" "Burger" "Cheeseburger",
       after
       [; Eat: "I think I am going to be sick, gotta stop eating"; ],
  has  edible;


Object -> noteRH "Note-RamsHorn"
  with description "Here you don't have to do anything special, you can eat if you want to or you can just go, you can't lose
                or gain points here at this point in time.",
       initial "Hints for RamsHorn - you don't need to look at this.",
       name "note" "Note",
       after
       [; Look: "Here you don't have to do anything special, you can eat if you want to or you can just go, you can't lose
                or gain points here at this point in time"; ];