//yan.cinherit NPC;void create(){        object ob;        set_name("程英", ({ "cheng ying","cheng" }) );//        set_name("顏程英", ({ "yan ruofeng","yan","ruofeng" }) );        set("gender", "女性" );        set("age",18);        set("long", @TEXT程英是黃藥師從小收養的孤女。由黃藥師親手教得了一手人人稱絕的烹調手法，因此桃花島的膳食就由她負責。TEXT );        set("per", 30);        set("class", "scholar");        set("combat_exp", 10000);        set_skill("unarmed",30);        set_skill("luoying-zhang",30);        set_skill("dodge", 30);        set_skill("anying-fuxiang" , 30);        set_skill("force",30);        map_skill("dodge", "anying-fuxiang");        map_skill("unarmed","luoying-zhang");        set("force", 500);        set("max_force", 500);        set("force_factor",0);        set("chat_chance", 7);        set("chat_msg", ({        "程英微笑著說道：我們桃花島景色優美，歡迎來作客！\n",        "程英高興的說：有幸見到您真高興！\n",        "程英微笑著說道：您餓不餓？我桃花島的烹調功夫可算天下第一呀。\n",        }) );        create_family("桃花島", 3, "弟子");        setup();        carry_object("/clone/misc/cloth")->wear();}void init(){        object ob;        ::init();        if( interactive(ob = this_player()) && !is_fighting() ) {                remove_call_out("greeting");                call_out("greeting", 1, ob);        }}void greeting(object ob){        object teatp,foodtp;        if( !ob || environment(ob)!=environment() )                return;        if ( ob->query_temp("taohua/茶飯") )                say("程英微笑著說： 這位"                    +RANK_D->query_respect(ob)+"，你好！歡迎來到桃花島！\n");        else        {                tell_room(environment(this_object()),                        "程英奉上茶飯，微笑著說道：這位" + RANK_D->query_respect(ob)                        + "，你好！歡迎來到桃花島。請用飯！\n");                teatp = new("/d/taohua/obj/cha");                teatp ->move(ob);                foodtp= new("/d/taohua/obj/gao");                foodtp->move(ob);                command ("say 這是我親手做的，請您品嘗！\n");                ob->set_temp("taohua/茶飯", 1);        }}