/*

	a polaroid one-step

	Marcus J. Ranum, 1990

*/


/* this hard-codes the number of the camera-object */
#define	CAMNUM	#142

/* describe */
CAMNUM.dsc = "the camera is a cheap-looking polaroid one-step. it appears to be full of film, and has a flash attachment. there are directions written on the back in small letters";

/* directions */
CAMNUM.txt = "the directions say: 'to use the camera, use it and then try \"photograph <personname>\" where the person is in the room. a picture will be added to your inventory.'";


/* snap a picture. */
func CAMNUM.photograph
{
	$here = #actor._loc;

	if($# < 1) {
		@.emote("looks around, fidding with the camera.");
		echo("you aren't sure who or what you want to take a picture of\n");
		return;
	}

	/* what to photograph ? */
	$at = match($1,$here._ply,"nam");

	if($at == NULL) {
		echo("I see no \"",$1,"\" here.\n");
		return;
	}

	/* make the photograph - don't waste film  :) */
	if($at.dsc == NULL) {
		echo("why waste your film on nothing special?\n");
		@.emote("considers photographing",$at.nam,"but decides not to.");
		return;
	}


	/* make a new object */
	$photo = @.create(str("a photograph of ",$at.nam));
	if($photo == NULL) {
		echo("out of film:",error($photo),"\n");
		return;
	}



	/* bind the description to the photo */
	$photo.dsc = str("a somewhat grainy photograph of ",$at.nam,", ",$at.dsc);

	$photo.txt = str("taken by ",#actor.nam," on ",strtime());

	@.emote("snaps a picture of",$at.nam,"in a brilliant >POP< of light");
}