// Jay 3/17/96#include <ansi.h>inherit NPC;inherit F_UNIQUE;void create(){        set_name("李文秀", ({ "li wenxiu", "li", "wenxiu"}));        set("gender", "女性");        set("title", "草原上的天鈴鳥");        set("unique", 1);        set("age", 18);        set("long", "她是白馬李三的女兒，從小便生長在這大草原上。因為歌兒唱得好，被人們稱之為草原上的天鈴鳥。她容貌嬌美，神色中還散發著一股勃勃英氣。\n");        set("attitude", "friendly");        set("combat_exp", 510000);        set("shen", 5000);        set("env/wimpy", 30);        set("str", 19);        set("int", 24);        set("con", 22);        set("dex", 26);        set("max_qi", 1050);        set("max_jing", 900);        set("neili", 1250);        set("max_neili", 1250);        set("jiali", 20);        set_skill("cuff", 100);        set_skill("taiji-quan", 105);        set_skill("xinyuegong", 110);        set_skill("force", 100);        set_skill("taiji-shengong", 100);        set_skill("parry", 100);        set_skill("hammer", 100);        set_skill("dodge", 100);        map_skill("force", "taiji-shengong");        map_skill("hammer", "xinyuegong");                map_skill("dodge", "xinyuegong");        map_skill("parry", "xinyuegong");        map_skill("cuff", "taiji-quan");                prepare_skill("cuff", "taiji-quan");        set("inquiry", ([            "哈薩克人" : "哈薩克人熱情好客，最愛喝又香又烈的美酒。\n",            "計老人" : "計爺爺把我從小養大，他是我唯一的親人。我們的帳篷就在草原的東北角上。\n",            "蘇普" : "蘇普是我的好朋友，他。。。他現在和阿曼在一起。\n",            "白馬李三" : "我爹爹已經死了，被漢人強盜殺死的。\n",            "金銀小劍三娘子" : "我媽媽也死了，和我爹爹一起被害死的。\n",            "漢人強盜" : "我不知道他們為什么要殺死我爸爸媽媽，他們還要殺死我。\n",        ]) );        set("chat_chance", 10);        set("chat_msg", ({            "李文秀輕輕地唱了起來：「啊，親愛的牧羊少年，請問你多大年紀？」\n",            (: random_move :),              "李文秀輕聲唱道：「你半夜里在沙漠獨行，我和你作伴愿不愿意？」\n",             (: random_move :),            "李文秀接著唱道：「啊，親愛的你別生氣，誰好誰壞一時難知。」\n",             (: random_move :),            "李文秀的歌聲又響了起來：「要戈壁沙漠便為花園，只須一對好人聚在一起。」\n",                   }) );        setup();        carry_object(__DIR__"obj/chui")->wield();        carry_object(__DIR__"obj/qun")->wear();}void init(){        object ob = this_player();          if(environment(this_object())->query("short")=="黑石圍子"){                set("chat_chance", 0);                remove_call_out("back");                call_out("back", 180, this_object());                }        if(interactive(ob) && !is_fighting() && ob->query_temp("li_meet") == 1           && environment(this_object())->query("short") == "黑石圍子") {                command("hi "+ (string)ob->query("id"));                command("say 你怎么這么久才來啊？");                remove_call_out("greeting");                call_out("greeting", 3, ob);                }           if(interactive(ob) && !is_fighting() && ob->query_temp("li_meet") == 3) {                command("xixi " + ob->query("id"));                command("say 怎么樣？我沒騙你吧？ ");                }        add_action("do_yes","yes");}void greeting(object ob){        if( !ob || environment(ob) != environment() ) return;                               message_vision("$N拿起手絹又看了看，接著對$n神秘地一笑。\n",this_object(), ob);        ob->add_temp("li_meet", 1);                        command("whisper "+ob->query("id")+" 手絹上這地方我知道，你想不想(yes)去看看？");}int do_yes(){   object me = this_player();   if(me->query_temp("li_meet") != 2) return 0;   message_vision(CYN"$N連忙對$n點了點頭，答道：麻煩姑娘了。\n"NOR,me, this_object());   me->set_leader(this_object());   message_vision("$N決定開始跟隨$n一起行動。\n",me, this_object());   this_object()->set_temp("go", 1);	   call_out("going", 4, this_object(), me);   return 1;}void going(object ob, object me){   ob->force_me("xixi " + me->query("id"));   message_vision("$N和$n一起往大戈壁沙漠走去。\n",me, ob);	   ob->force_me("go north");   ob->force_me("go north");   destruct(ob);}int accept_object(object who, object ob){        if( !who || environment(who) != environment() ) {return 0;}        if ( !objectp(ob) ) {return 0; }        if ( !present(ob, who) ) return notify_fail("你沒有這件東西。");        if (userp(ob)) {               command("? " + who->query("id"));               command("say 你干嘛把別人打暈啊？");               return notify_fail("糟糕，穿邦了！\n");               }        if ((string)ob->query("id") == "shou juan"){                command("ah "+(string)who->query("id"));                command("say 這是我的手絹，你是怎么得到的？\n");                if(!ob->query("blooded")) who->set_temp("no_quest", 1);                 set("chat_chance", 0);                                              remove_call_out("ask_meet");                call_out("ask_meet", 4, this_object(), who, ob);            return 1;        }                command("smile "+ (string)who->query("id"));        command("say 謝謝你啦，可我不能拿你的東西。");        return 0;}void ask_meet(object me, object who, object ob){    if(interactive(who) && !is_fighting()) {      if(!who->query_temp("no_quest")){            command("耶，這手絹上的地圖。。。");        command("say 這樣吧，你一會兒去黑石圍子等我，我現在要先回家啦。");              who->set_temp("li_meet", 1);        message_vision("$N微微一笑，轉身離開了。\n",me);        tell_room(environment(me), me->query("name")+"急急忙忙地走了過來。\n", ({me}));	        me->move("/d/hj/room-ji1");        remove_call_out("do_send");        call_out("do_send", 60+random(100), me);        me->set("chat_chance", 50);        return;        }      else{        who->delete_temp("no_quest");        command("say 謝謝你啦，這是一點小禮物，你就收下吧。");        new("/d/hj/obj/hebao")->move(who);        message_vision("$N微微一笑，交給$n一個小荷包，接著轉身離開了。\n",me, who);        destruct(ob);        me->set("chat_chance", 50);        return;        }    }    destruct(ob);    me->set("chat_chance", 50);}void back(object me){        command("say 漢人真是不守信用。");              message_vision("$N很生氣地嘟了嘟嘴，轉身離開了。\n",me);        destruct(me);        return; }int do_send(object me){    object where;    where = environment(me);     if(where->query("short") == "黑石圍子") return 0;    else {       tell_room(environment(me), me->query("name")+"急急忙忙地離開了。\n", ({me}));	       me->move("/d/hj/hswz");       tell_room(environment(me), me->query("name")+"急急忙忙地走了過來。\n", ({me}));	       return 1;       }}