// thousand_hand.c#include <ansi.h>inherit NPC;string	summon_more( object who);void create(){	set_name( "湖上草", ({ "cao", "girl" }) );	set("long", "這是千金樓湖上八嬌之一．湖上草，碧翠浪通津。修帶不為歌舞緩，濃鋪堪作醉人茵，無意襯香衾。晴霽后，顏色一般新。游子不歸生滿地，佳人遠(yuǎn)意正青春，留詠?zhàn)潆y伸。\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(100));	setup();        carry_object(__DIR__"obj/cao")->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道了個(gè)萬福：\n",this_object(),me);        command("smile");	command("say 哇．．我最喜歡吃的耶！太謝謝你了！這個(gè)給你！\n");	pai = new(__DIR__"obj/caopai");	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道了個(gè)萬福：\n",this_object(),me);        command("say 多謝這位" + RANK_D->query_respect(me) +"，頭一次見到象您這么大方的！");        return 1;}