// thousand_hand.c#include <ansi.h>inherit NPC;string	summon_more( object who);void create(){	set_name( "湖上花", ({ "hua", "girl" }) );	set("long", "這是千金樓湖上八嬌之一．湖上花，天水浸靈芽。淺蕊水邊勻玉粉，濃苞天外剪明霞，日在列仙家。開爛熳，插鬢若相遮。水殿春寒幽冷艷，玉軒晴照暖添華，清賞思何賒。\n");	set("attitude", "friendly");	set("title", HIM "湖上八嬌" NOR);	set("max_gin", 500);	set("max_kee", 500);	set("max_sen", 500);	set("age", 17);        set("gender", "女性" );	set("str", 35);	set("cor", 30);	set("cps", 25);	set("per", 40);	set("combat_exp", 50000);        set("chat_chance", 1);        set("chat_msg", ({"湖上花輕皺黛眉道：我的黑玉發簪不見了\n",        }) );	set("chat_chance_combat", 1);	set("chat_msg_combat", ({		(: summon_more(this_object()) :),	}) );	set_skill("unarmed", 1+random(100));	setup();        carry_object(__DIR__"obj/hua")->wear();        if (random(2)==0)        add_money("gold", 1);}string summon_more(object who){	int i;	object *enemy;	object another;	seteuid(getuid());	another = new(__DIR__"jianu");	another->move(environment(who));	message_vision(another->name()+ "走了過來。\n"		, this_object() );	enemy = who->query_enemy();	i = sizeof(enemy);	while(i--) {		if( enemy[i] && living(enemy[i]) ) {			another->kill_ob(enemy[i]);			enemy[i]->kill_ob(another);			another->set_leader(enemy[i]);		}	}	return "1";}int accept_object(object me, object obj){	object pai;        if( (string) obj->query("name") == "黑玉發簪")	{        message_vision("$N向$n道了個萬福：\n",this_object(),me);        command("smile");	command("say 哇．．太謝謝你了！這個給你！\n");	pai = new(__DIR__"obj/huapai");	if(pai)	pai->move(me);        message_vision("$N拿出花玉璧給$n。\n",this_object(),me);	return 1;		}	if( !obj->value() &&  !obj->query("value")) return 0;        command("smile");	message_vision("$N向$n道了個萬福：\n",this_object(),me);        command("say 多謝這位" + RANK_D->query_respect(me) +"，頭一次見到象您這么大方的！");        return 1;}