//camera.c		by Crab, Dec 15, 96

#include <ansi.h>
#include <room.h>
#include <weapon.h>

inherit HAMMER;

#include "desc.h"

string *makes = ({
"傻瓜相机", 
"莱卡Ｒ７", 
"尼康ＦＭ２", 
"美能达Ｘ７００", 
"佳能ＡＬ１", 
"奥林巴斯ＯＭ４", 
"潘太克斯Ｐ３０Ｎ", 
"美能达ＸＤ", 
"尼康Ｆ５", 
"莱卡Ｍ１", 
"尼康Ｆ９０", 
"美能达７００Ｓｉ", 
"佳能ＥＯＳ１", 
"奥林巴斯ＬＳ１", 
"康太克斯ＲＴＳ３", 
"美能达９ｘｉ", 
  });
 
 string *makes_en = ({
"papaya camera",
"Leica R7",
"Nikon FM2",
"Minolta X700",
"Canon AL1",
"Olympus OM4",
"Pentax P30N",
"Minolta XD", 
"Nikon F5", 
"Leica M1", 
"Nikon F90", 
"Minolta 700Si",
"Canon EOS1",
"Olympus LS1",
"Contax RTS3",
"Minolta 9xi",

  });

void create()
{
	int row=random(sizeof(makes));
	 string name =  makes[row];
	 	 string name_en =  makes_en[row];
	 	 
	set_name(HIC+name+NOR, ({name_en,"camera"}));
	set_weight(500);
	if (clonep())
		set_default_object(__FILE__);
	else {
		set("unit", "架");
		set("value", 100000);
		set("material", "steel");
		set("wield_msg", "$N急急忙忙地举起$n。\n");
		set("unwield_msg", "$N将手中的$n放回包里。\n");
	}
  	init_hammer(10);
	setup();
}

void init()
{
		add_action("do_shoot","shoot");
}


string per_status_msg(int per, string gender)
{                                                                               
	if ( gender == "男性" ) {                                               
    	if ( per>=25 )                                                  
        	return ( per_msg_male1[random(sizeof(per_msg_male1))]); 
		else if ( per>=20 )
        	return ( per_msg_male2[random(sizeof(per_msg_male2))]); 
		else if ( per<20 )
        	return ( per_msg_male3[random(sizeof(per_msg_male3))]); 
    }                                                               
	if ( gender == "女性" ) {
		if ( per>=25 )
        	return ( per_msg_female1[random(sizeof(per_msg_female1))]); 
		else if ( per>=20 )
			return ( per_msg_female2[random(sizeof(per_msg_female2))]);
		else if ( per<20 )
        	return ( per_msg_female3[random(sizeof(per_msg_female3))]);                                                                             
    }                                                               
}                                                                               


int do_shoot(string arg)
{
	object me, obj;
	object pic, env;
	int i;
	mixed *inv;
    mapping exits;
	string objname, objid, str, pro, *dirs;

	me = this_player();

  set("value",0);
  if (me->query("sen")>10)
  {
    me->add("sen",-10);
  }
  else
  {
    me->unconcious();
    return 1;
  }

	if (!arg)
	{
		env = environment(me);
		str = objname = env->query("short");
		if( !env ) str = "照片上灰蒙蒙地一片，不知道是本来就是这样还是冲坏了。\n";
		else
		{
			str = sprintf( "%s的照片\n\n    %s%s\n",env->query("short"), env->query("long"),
					env->query("outdoors")? NATURE_D->outdoor_room_description() : "" );

			inv = all_inventory(env);
			for(i=0; i<sizeof(inv); i++) {
				if( inv[i]==me ) continue;
				if ( inv[i]->is_character() )
				{
					if( !me->visible(inv[i]) ) {
					  if(!wizardp(inv[i])) 
					    str += "  " + BLU + inv[i]->name() + NOR;
                                          else continue;
                                        }
					else str += "  " + inv[i]->name();

					str += msg_expression[random(EXP_NUM)] + "\n";
				}
				else str += YEL+"  [ " + inv[i]->name() +" ]\n" +NOR;
			}
		}

		str += "\n" + me->query("name")+"摄于"+NATURE_D->game_time() + "。\n";
		message_vision("$N轻轻按下了快门…" HIY
				"\n伴随着一道眩目的亮光和咔嚓一声响……\n人脏俱获，铁证如山，跑不掉了！！\n" NOR, me);

		pic=new(__DIR__"photo");
		pic->set_name( objname + "的照片", ({ "photo" }) );
		pic->set("long", str);

		if( !pic->move(me) )
			pic->move(env);

       	return 1;
    }

	if( !objectp(obj = present(arg, environment(me)) ) )
		return notify_fail("你想拍什么？\n");

	if( !(obj -> is_character()) )
		return notify_fail("你想拍谁？\n");

	objname = obj->query("name");
	objid = obj->query("id");
	str = objname+"的照片\n\n";

	switch (random(6))
	{
	case 0:
		str="一张严重曝光过度的照片，好一个“白茫茫一片大地真干净”。\n";
		str += "\n" + me->query("name")+"摄于"+NATURE_D->game_time() + "。\n";
        break;
	case 1:
		str="一张严重曝光不足的照片，角落里隐隐约约写着“黑夜里乌鸦在飞”。\n";
		str += "\n" + me->query("name")+"摄于"+NATURE_D->game_time() + "。\n";
        break;
	case 2:
    case 3:
	case 4:
    case 5:
		str += obj->name() + msg_expression[random(EXP_NUM)] + "\n";
		str += obj->long();
	   	pro = (obj==me) ? gender_self(obj->query("gender")) : gender_pronoun(obj->query("gender"));

		if( (string)obj->query("race")=="人类"
		&&	intp(obj->query("age")) )
			str += sprintf("%s看起来约%s多岁。\n", pro, 
			chinese_number( ( ( obj->query("always_young") && (obj->query("age")>obj->query("fake_age")) )?
				obj->query("fake_age"):obj->query("age")) / 10 * 10) );

		str += pro + per_status_msg((int)obj->query("per"), obj->query("gender"));

		inv = all_inventory(obj);
		if( sizeof(inv) ) {
			inv = map_array(inv, "i_look", this_object(), obj->is_corpse()? 0 : 1 );
			inv -= ({ 0 });
			if( sizeof(inv) )
				str += sprintf( obj->is_corpse() ? "%s的遗物有：\n%s\n" : "%s身上带着：\n%s\n",
					pro, implode(inv, "\n") );
		}
		str += "\n" + me->query("name")+"摄于"+NATURE_D->game_time() + "。\n";
		break;
    }

	message_vision("$N轻轻按下了快门……"+HIY+"\n伴随着一道眩目的亮光和咔嚓一声响，\n"
			"$n突然觉得身子轻飘飘地，脑袋里空空荡荡，好象魂已经出窍了！\n" NOR,	me, obj);

	pic=new(__DIR__"photo");
	pic->set_name( objname + "的照片", ({ objid+"'s photo", "photo" }) );
	pic->set("long", str);

	if( !pic->move(this_player()) )
		pic->move(environment(this_player()));

	return 1;
}


string i_look(object obj, int flag)
{
	string str;

	str = obj->short();
	if( obj->query("equipped") )
		str = HIC "  □" NOR + str;
	else if( !flag )
		str = "    " + str;
	else
		return 0;

	return str;
}