// jinhua.c#include <ansi.h>inherit NPC;void create(){	set_name("金花", ({ "jin hua","hua","jin"}) );	set("gender", "女性" );	set("age", 24);	set("long", "一個年少貌美的姑娘。\n");	set("shen_type", 1);	set("combat_exp", 800);	set("str", 18);	set("dex", 18);	set("con", 18);	set("int", 18);	set("gold_times", 1);	set("attitude", "friendly");	set("chat_chance",20);	set("chat_msg",({	    "金花哭泣著：我的命怎么這么苦喲￣\n",	    "金花抹著眼淚：娘呀，我好想你呀！\n",	    "金花嘆口氣說道：不知今生今世能否再見到我娘￣\n"	   }) );       set("inquiry",([	   "張媽" : "金花睜大了眼睛：你知道我娘？你可有她給你的信物？快給我看看！\n",	   "繡花鞋" : "金花吃驚地看著你：你真有繡花鞋嗎？快給我看看！\n",	   ]) );       setup();}void init(){	object ob;	ob = this_player();	::init();	if( interactive(ob) && !is_fighting() )	       {			remove_call_out("greeting");			call_out("greeting", 1, ob);		}}void greeting(object ob){	if( !ob || environment(ob) != environment() ) return;	say("金花一見有人進來急忙說：這位" + RANK_D->query_respect(ob)	  +"，我娘是『白駝山莊』的老傭人。你可有她的消息？\n");}int accept_object(object who, object ob){	object obn;	if( !who || environment(who) != environment() ) return 0;	if ( !objectp(ob) ) return 0;	if ( !present(ob, who) ) return notify_fail("你沒有這件東西。\n");	if (query("gold_times") < 1) return notify_fail("金花有繡花鞋了。\n");	if (  (string)ob->query("id") != "flower shoe")		    return notify_fail("金花不需要這件東西。\n");       write( HIY "金花雙手捧著繡花鞋，淚如雨下：\n       娘，您還健在，您還掛著女兒啊！我還以為￣￣嗚￣\n" NOR );       message_vision("金花抹了把眼淚，不好意思笑笑說：這位"	+RANK_D->query_respect(who)+"見笑了。\n	    我也沒什么東西報答你，我只知道山賊頭有個錢箱藏在床下。\n	    我這就給你搬出來。\n",who);       message_vision("$N幫金花從床下搬出來一只錢箱，$N迫不及待地打開一看￣\n	 哇￣￣￣好多好多的金子喲！$N毫不客氣地把金子全裝進衣服里，\n	 那知金子太沉把衣服撐出條大口子，金花在一旁看著直樂，\n	 $N不那么自然地搔搔頭，也跟著‘嘿嘿’傻笑。\n", who);	obn = new("/clone/money/gold");	obn->set_amount(1);	obn->move(who);	set("gold_times",0);//      destruct(ob);      return 1;}