// yue.c 岳小玫// lag 2000.5.9#include <ansi.h>inherit NPC;int ask_job();int ask_fail();void create(){        set_name("岳小玫", ({ "yue xiaomei", "yue" }));        set("nickname", HIC "星月傳奇小嬌倩" NOR);        set("gender", "女性");        set("age", 20);        set("attitude", "friendly");        set("shen_type", 1);        set("str", 30);        set("int", 30);        set("con", 30);        set("dex", 30);        set("per", 55);                set("qi", 6000);        set("max_qi", 6000);        set("jing", 6000);        set("max_jing", 6000);        set("neili", 6000);        set("max_neili", 6000);        set("jiali", 50);        set("combat_exp", 8000000);        set("score", 300000);        set_skill("force", 300);        set_skill("sword", 300);        set_skill("parry", 300);        set_skill("dodge", 300);        set_skill("finger", 300);        set_skill("literate", 300);        set("inquiry", ([                "任務" : (: ask_job() :),                "失敗" : (: ask_fail() :),          ])),        set("env/important", 1);            setup();          carry_object("/d/city/obj/cloth")->wear();}int ask_job(){        object me = this_player();        object ob;        mapping quest;        mapping skl;         string *sname, place;                int i, skill = 0;        quest = (__DIR__"lagjob")->query_quest();        skl = me->query_skills();        if ( !skl ) {                tell_object(me, "你去學一些本事先吧！\n");                return 1;                }        sname  = sort_array( keys(skl), (: strcmp :) );        for(i=0; i<sizeof(skl); i++)                 if (skl[sname[i]] >= skill && sname[i] != "literate" && sname[i] != "taoism")                        skill = skl[sname[i]];                                if (skill < 80) skill = 80;//   if(me->query("potential") > 200000)//{//message_vision("岳小玫對$N說道：“你的潛能太多了，我不能給你任務！”\n",me);//return 1;//}           if (me->query("combat_exp") < 80000) {                command("say " + RANK_D->query_respect(me) + "殺強盜可不是一件容易的事情，你還是練高經驗再來吧");                return 1;}//        if (me->query("combat_exp") > 6000000) {//                command("admire "+(string)me->query("id"));//                command("say " + RANK_D->query_respect(me) + "是人間奇才,我哪里敢勞動您的大架呢！");//                return 1;//        }        if (me->query("potential") < 200 || me->query("combat_exp") < 30000) {                command("say 你連本錢都沒有，我怎么放心要你去殺強盜呢？");                return 1;        }        if (me->query("kill_qiangdao") == 1) {                command("kick " + me->query("id"));                command("say 我不是給了你任務了嗎？");                return 1;                }//		me->map_skill("unarmed");        else {                command("nod" + me->query("id"));                command("say " + RANK_D->query_respect(me) + "能為俠侶情緣出力，真是太好了。");                command("say " + me->query("id") + " 強盜在『" + quest["short"]             + "』，快去吧！\n" NOR);                me->set("kill_qiangdao", 1);                me->set("quest/quest_type", "殺");                me->set("quest/quest", "強盜");                me->set("task_time", time() + 300);                ob = new(__DIR__"qiangdao",1);                if (me->query("combat_exp") > 2000000) {                ob = new(__DIR__"qiangdao2",1);                }                ob->move(quest["place"]);                ob->set_temp("owner/id",me->query("id"));                ob->set("combat_exp", me->query("combat_exp")+random(100000));                ob->set("max_force", me->query("max_force"));                ob->set("eff_qi", me->query("max_qi") );                ob->set("max_jing", me->query("max_jing") );                ob->set("qi", me->query("max_qi") );                ob->set_skill("dodge", skill);                ob->set_skill("force", skill);                ob->set_skill("parry", skill);                                ob->set("force_factor", random(10));                   return 1;               }                              }int ask_fail(){        object me = this_player();                if (me->query("kill_qiangdao") == 1) {                command("haha");                command("say 你這身手也敢來懲奸除惡，都怪小玫我當初看錯了人,扣你150點POT.");              command("chat " + me->query("name") + "沒有真功夫，致使強盜危害一方。現在發配" + me->query("name") + "去邊疆！"); //               command("rumor* sigh");                me->move("/d/xingxiu/beijiang");                me->add("potential",-50);                call_out("delete", 1);                return 1;                }}int delete(){        this_player()->delete("kill_qiangdao");        this_player()->delete("kill_qiangdao");        return 1;}