yuexm.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// 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;
}