// thousand_hand.c#include <ansi.h>inherit NPC;string	summon_more( object who);void create(){	set_name( "湖上女", ({ "nu", "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_combat", 1);	set("chat_msg_combat", ({		(: summon_more(this_object()) :),	}) );	set_skill("unarmed", 1+random(200));	setup();        carry_object(__DIR__"obj/nu")->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(random(50)>40 && !this_object()->query("given"))	{        message_vision("$N向$n道了個萬福：\n",this_object(),me);        command("smile");	command("say 你還滿聰明的！這個給你！\n");	pai = new(__DIR__"obj/nupai");	if(pai)	pai->move(me);        message_vision("$N拿出女玉璧給$n。\n",this_object(),me);	this_object()->set("given",1);	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;}