Constant Story "Old Man Simmons";
Constant Headline "^Created by Mark Leich^";

Include "parser";
Include "verblib";
Include "grammar";

[ Initialise;
    location = street;
    print "^^^^^The silence in the air is almost painful as you stand in the middle of the road on a brisk moonless night.  Tonight you must cary out your mission.  Tonight you must put a flamming bag of poo on Old Man Simmons' porch.^^";
];


!Being Street Room
Object  street "Street"
 has    light
 with   name "road" "street",
        description "You are standing in the middle of a road.  Street lights give a poor illumination over the surounding area.  On the side of the road you can see some short, overgrown bushes.  To the north is the road to Old Man Simmons mansion.  The road extends east and west.  To the south is a dense area of forest that you cannot enter.",
 w_to park, e_to outside_store, n_to [;   if(poop has general)print "You need a Paper bag, some Poop, and a Lighter before going up there.^";
							else return house;
						 ];

Object bush "Bush" street
 has scenery static general  
 with  name "bush" "bushes" "shrub" "tree" "overgrown",
	 description [;
				if(paper_bag hasnt general) print "They are overgrown bushes.^";
				else print "You look closer at the bushes and notice what appears to be a brown bag protruding from underneath.^";
			 ];
Object paper_bag "Paper Bag" street
 has scenery general supporter   !supporter allows poop to go in bag. General for when bag get picked up
 with name "brown" "paper" "bag",
	 description [;
				if(poop hasnt general) print "It's a Bag o' Poop!^";
				else print "What luck. It's a brown paper bag.^";
			 ],
	 Before[;
			Take: if(self has general){
					give self ~general;
					move paper_bag to player;
					print "You take the paper bag.  This is just what you were looking for.^";
					rtrue;};
		 ];
!End Street



!Begin Park
Object  park "Park"
 has    light
 with   name "park" "playground",
        description "You find yourself in a park.  The park is a run down area scattered with burntout trees.  You see a dog giving himself an evening walk around the park.",
 e_to street;

Object dog "Dog" park
 has scenery general animate !general for before dog vomits
 with   name "dog" "puppy" "hound" "mut",
	  description[;
				if(self hasnt general) print "The dog looks.... tired.^";
				else print "The dog is walking around the park aimlessly.^";
			 ],
 	   life[;
			ThrowAt,Give: 
				if(noun == chili_cup && self has general){
					move chili_cup to dog;
					print "You feed the dog the chili.  Now it's only a matter of time before the dog delivers the product you are looking for.^^You follow the dog around for several miniutes when the dog begins to cough.  The dog suddenly throws up before falling over next to his pile of vomit.  He looks tired.^^  In the vomit you see something shiny.";
					give self ~general;
					rtrue;}	
		 ];

Object vomit "Vomit" park
 has scenery
 with   name "puke" "vomit" "shiny",
	  description [;
				if(dog hasnt general && lighter has general){
					print "You look closer at the vomit and you see a lighter!";
				}
				else if(dog hasnt general && lighter hasnt general){
					print "What, you want more?";
				}
			  ];

Object lighter "Lighter" park
 has scenery general !general for before lighter picked up
 with name "lighter",
	description [;
				if(dog hasnt general) print "It's a blue lighter.^";
			],
	before[;
			Take: if(dog hasnt general && self has general){
					print "You pick up the lighter and under it you find a key!  You take both.";
					move lighter to player;
					move old_key to player;
					give self ~general;
					give old_key ~general;
					rtrue;
				}
		];

Object old_key "Old Key" street
 has scenery general
 with   name "key",
	  description "It's a small key.";

!End Park


!Begin Outside Store
Object  outside_store "Outside Chip's chili"
 has    light
 with   name "outside" "store",
        description "You are faced with the favorite fast food joint of every child: Chip's chili. 'America's Favorite!' To the north is the entrance to the store. To the west is that road you came from.^^",
 w_to street, n_to chips;

!End Outside Store



!Begin inside chili joint
Object  chips "Chip's chili"
 has    light
 with   name "chip",
        description [;
				if(chili_cup has general) print "Your eyes tear up as you enter the room.  The place is deserted.  There isn't even a sign of a worker here tonight.  Chili stains the walls, floors, and tables.  You see a cup of chili on one of the tables.  To the north is a bathroom door.  To the south is the door you came in.^^";
				else print "Your eyes tear up as you enter the room.  The place is deserted.  There isn't even a sign of a worker here tonight.  Chili stains the walls, floors, and tables.  To the north is a bathroom door.  To the south is the door you came in.^^";
			  ],
 s_to outside_store, n_to [; 
					if(old_door has locked) print "^The door is locked^";
					else if(old_door hasnt open) print "^The door is closed^";
					else return bathroom;
				  ];

Object chili_cup "Cup o' chili" chips
 has scenery general !general is before cup picked up
 with   name "cup" "chili",
 	  descriptin "It's a cup of Chip's Infamous chili. The label reads 'Caution! May iritate eyes or skin.'",
	  before[;
			Take: if(self has general){
				  give self ~general;
				  print "You carfully remove the substance from the table.^";
				  move chili_cup to player;
				  rtrue;
				}
		  ];



Object old_door "Bathroom Door"
  has	concealed static door openable lockable locked
  with   name "old" "door",
	description "Door to Bathroom.",
	when_open "The door is open.",
	when_closed "The door is closed.",
	door_to [; 
		if (self in chips) return bathroom; 
		return chips;],
	door_dir[; if (self in bathroom) return s_to; return n_to;],
	with_key old_key,
	found_in chips bathroom;

Object  bathroom "Bathroom"
 has    light
 with   name "bathroom",
        description "You are pretty sure that something died in here.  This tiny bathroom features a toilet and a sink.  The door is to the south.",
 s_to [; if(old_door hasnt open) print "The door is closed^";
	   else return chips;
	];

Object poop "Poop" bathroom
 has scenery general
 with   name "poop" "shit" "crap" "turd",
 	  description "Wow! What a pile!^",
	  before[;
			Take: if(paper_bag in player && self has general){
				move poop to paper_bag;
				give self ~general;
				print "With great concentration you scoop the poop into your paper bag.^^Your paper bag now conatains Poop!";
				}
			      else if(self has general) print "What, are you going to pick it up with your hands?^";
		  		rtrue;
		  ];


Object  toilet "Toilet" bathroom
 has scenery 
 with   name "toilet" "crapper" "john",
	  description[;
				if(poop has general) print "The toilet has been destroyed.  It has been years since anyone has seen this white porcelain.  The seat is missing and it looks like fresh water stopped running through it ages ago.  Inside lurks must be the king of turds.^";
				else print "The toilet has been destroyed.  It has been years since anyone has seen this white porcelain.  The seat is missing and it looks like fresh water stopped running through it ages ago.  All thats inside is years of built up skid marks.^";
			 ];

Object sink "Sink" bathroom
 has scenery
 with   name "sink",
	  description "It's sink, though it looks like it has doubled for a second toilet.^";


!end inside chili joint


!Ending segment
Object  house "Old Man Simmons' House"
 has    light
 with   name "house" "old" "man" "simmons",
        description [;print "Before you is the house of the evil Old Man Simmons. You quickly put the Bag o' Poo on the porch and set it on fire with your lighter.  You ring the door bell and run away into the night.^^^";
				deadflag =2;
			  ],
 s_to street;