Code: Select all

player_character you "you"
{
}

object carcass "carcass"
{
	article "a"
	noun "carcass"
	in you
	long_desc
		"Mmmm, carcass."
	size 1
}

object meat "cooked meat"
{
	article "some"
	adjective "cooked"
	noun "meat"
	long_desc
		"Mmmm, cooked meat."
	before
	{
		object DoGet
		{
			Deactivate(cook_daemon)
			return false
		}
	}
}

room STARTLOCATION "By the Fire Pit"
{
	e_to test_room
	initial_desc
		"This fire is always at least smouldering so long as everyone finds brush
		and waste in the perimeter to keep it going. This is where everyone comes
		to cook anything they can't cook elsewhere. It's rare you see anyone out
		here cooking anything though, as food as very scarce and when anyone gets
		good food they cook it however they can closer to their house so others
		won't bother them."
	long_desc
		"You are standing in front of a fire pit of cinder blocks with a
		makeshift grill composed of some metal grating and wire. There is no one
		else here at the moment."
	before
	{
		location MovePlayer
		{
			if cook_daemon is active
			{
				"Not while the carcass is cooking!"
				return true
			}
			return false
		}
	}
}

room test_room "Test Room"
	{
		long_desc
			"Just testing MovePlayer here."
		w_to STARTLOCATION

	}
daemon cook_daemon
{
	timer 0
}

event cook_daemon
{
	self.timer++
	select self.timer
		case 3
		{
			Indent(true)
			"The meat is smelling really good and making your stomach
			growl loudly."
			move meat to firepit
			meat is known
		}
		case 5
		{
			Indent(true)
			"You smell burnt meat. There wasn't much of it to begin
			with, so you discard the charred remains into the fire."
			remove meat
			event_flag = true
			Deactivate(cook_daemon)
		}
}

scenery firepit "firepit"
{
	nouns "firepit" "grill" "fire" "pit"
	in STARTLOCATION
	is platform
	is container
	holding 0
	capacity 2
	article "the"
	long_desc
		"The fire blazes along. There's a makeshift grill in one corner of it
		you can place things on to cook."
	before
	{
		xobject DoPutIn
		{
			if object ~= carcass
				"You have no desire to try to cook that."
			else
			{
				"You place the meat on what looks like the cleanest part of the
				grill."
				Activate(cook_daemon)
				return false
			}
		}
	}
	after
	{
		xobject DoPutIn ! since the only thing that works is the carcass
		{

			"\nYou hear a sizzling sound."
			remove carcass
		}
	}
}

scenery cinderblock "cinderblock"
{
	nouns "cinderblock" "block"
	in STARTLOCATION
	article "the"
	long_desc
		"The fire blazes along. There's a makeshift grill in one corner of it you
		can place things on to cook."
}

Code: Select all

!----------------------------------------------------------------------------
! Pit
!----------------------------------------------------------------------------

room pit " By the Fire Pit"
{
	s_to {currentpicture = "barbwire"
        return muddy_dirt
	}
	long_desc
	{
	if self is not visited
		{
			indent (true)
			"This fire is always at least smouldering so long as everyone finds brush and waste in the perimeter to keep it going. This is where everyone comes to cook anything they can't cook elsewhere. It's rare you see anyone out here cooking anything though, as food as very scarce and when anyone gets good food they cook it however they can closer to their house so others won't bother them."
		}
		currentpicture = "firepit"
		indent (true)
		"You are standing in front of a fire pit of cinder blocks with a makeshift grill composed of some metal grating and wire. There is no one else here at the moment."
	}
	each_turn
	if GameEvents[12] = 1
				{
					select RoomTurnCount
						case 3 : 
					{"The meat is smelling really good and making your stomach growl loudly."
						move meat to pit
					}
						case 5 : "You smell burnt meat. There wasn't much of it to begin with, so you discard the charred remains into the fire."
						move meat to cage
				}
}

scenery firepit "firepit"
{
	nouns "firepit" "grill" "fire" "pit"
	in pit
	is platform
	is container
	holding 0
	capacity 2
	article "the"
	long_desc
		{
		"The fire blazes along. There's a makeshift grill in one corner of it you can place things on to cook."
		}
		
		
		before {
                xobject DoPutIn {
                        if object ~= carcass
                                "You have no desire to try to cook that."
                        else
						{
							indent(true)
						     "You place the meat on what looks like the cleanest part of the grill."
						return false
						}
			}
				}
        after
        {
                xobject DoPutIn ! since the only thing that works is the carcass
                {
					"You hear a sizzling sound."
					GameEvents[12] = 1
					remove carcass
                }
        }
}

scenery cinderblock "cinderblock"
{
	nouns "cinderblock" "block"
	in pit
	article "the"
	long_desc
		{
		"The fire blazes along. There's a makeshift grill in one corner of it you can place things on to cook."
		}	     
}

Code: Select all

By the Fire Pit
  
  This fire is always at least smouldering so long as everyone finds brush and waste in the perimeter to keep it going. This is where 
everyone comes to cook anything they can't cook elsewhere. It's rare you see anyone out here cooking anything though, as food as 
very scarce and when anyone gets good food they cook it however they can closer to their house so others won't bother them.

  You are standing in front of a fire pit of cinder blocks with a makeshift grill composed of some metal grating and wire. There is no one 
else here at the moment.

>put carcass on grill

  You place the meat on what looks like the cleanest part of the grill.
You hear a sizzling sound.

>look at grill
The fire blazes along. There's a makeshift grill in one corner of it you can place things on to cook.

>wait
Time passes...
The meat is smelling really good and making your stomach growl loudly.

>take meat
You haven't seen anything like that.

>take carcass
You don't see that.

>SHIT
You don't need to use the word "shit."