lin.c

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

// lin.c 林朝英
// 1998.9 by Lgg

#include <ansi.h>

inherit NPC;

string ask_yunv();

void create()
{
        set_name("林朝英", ({"lin chaoying", "lin"}));
        set("gender", "女性");
        set("age", 42);
        set("long",
                "她就是古墓派的开山祖师林朝英，虽然已经是四十许人，望之却\n"
                "还如同三十出头。当年她与全真教主王重阳本是一对痴心爱侣，\n"
                "只可惜有缘无份，只得独自在这古墓上幽居。\n");
        set("attitude", "friendly");

        set("per", 30);
        set("str", 87);
        set("int", 82);
        set("con", 85);
        set("dex", 82);

        set("chat_chance_combat", 99);
        set("chat_msg_combat", ({
                (: exert_function, "recover" :),
                (: perform_action, "sword.he" :),
                (: perform_action, "sword.he" :),
                (: perform_action, "sword.hubo" :),
                (: perform_action, "sword.hubo" :),
                (: perform_action, "sword.suxing" :),
                (: perform_action, "unarmed.youju" :),
                (: perform_action, "unarmed.wuqing" :),
        }) );
        set("chat_chance", 99);
        set("chat_msg", ({
                (: perform_action, "sword.he" :),
                (: perform_action, "sword.he" :),
                (: perform_action, "sword.hubo" :),
                (: perform_action, "sword.hubo" :),
                (: perform_action, "sword.suxing" :),
                (: perform_action, "unarmed.youju" :),
                (: perform_action, "unarmed.wuqing" :),
        }));

        set("qi", 26000);
        set("max_qi", 26000);
        set("jing", 30400);
        set("max_jing", 32400);
        set("neili", 59000);
        set("max_neili", 59000);
        set("jiali", 100);

        set("combat_exp", 6600000);
        set("score", 0);

        set_skill("force", 250);
        set_skill("throwing", 300);
        set_skill("whip", 300);
        set_skill("yinsuo-jinling", 320);
        set_skill("yunv-xinfa", 320);    //玉女心法
        set_skill("sword", 250);
        set_skill("yunv-jian", 320);     //玉女剑
        set_skill("quanzhen-jian",240);  //全真剑
        set_skill("dodge", 260);
        set_skill("yunv-shenfa", 320);   //玉女身法
        set_skill("parry", 250);
        set_skill("unarmed",250);
        set_skill("qufeng",320);         //驱蜂之术
        set_skill("meinv-quan", 320);    //美女拳法
        set_skill("literate",220);
        set_skill("taoism",180);
        set_skill("strike",320);
        set_skill("tianluo-diwang",320);         //驱蜂之术

        map_skill("force", "yunv-xinfa");
        map_skill("sword", "yunv-jian");
        map_skill("dodge", "yunv-shenfa");
        map_skill("parry", "meinv-quan");
        map_skill("unarmed", "meinv-quan");

        create_family("古墓派", 1, "开山祖师");


        set("book_count",1);
        set("inquiry", ([
                "王重阳" :  "大胆后辈小子，也敢直呼重阳祖师之名？\n",
                "重阳祖师" : "重阳是全真教的掌教，自号“活死人”。\n",
                "古墓派" :  "是啊，这里就是我一手创下的古墓派\n",
                "玉女心经" : (: ask_yunv :),
        ]) );

        setup();

        carry_object("/clone/weapon/changjian")->wield();
        carry_object(__DIR__"obj/qingyi")->wear();

}

void attempt_apprentice(object ob)
{
        if (ob->query_int() < 30) {
                command("say 我古墓派的功夫最讲一个悟字，你的资质不够。");
                return;
        }
        if ((int)ob->query_skill("yunv-xinfa",1) < 70 ) {
                command("say 你的玉女心法火候不足,难以领略更高深的武功。");
                return;
        }
        command("say 好吧，看你也是性情中人，我就收下你这个徒弟了。");
        command("recruit " + ob->query("id"));
}

string ask_yunv()
{
        mapping fam;
        object ob;
        int lvl_yunv;

        if (!(fam = this_player()->query("family"))
            || fam["family_name"] != "古墓派")
                return RANK_D->query_respect(this_player()) +
                "与本派毫无瓜葛，何以问起本派的心经？";
        if (!(lvl_yunv = this_player()->query_skill("yunv-xinfa",1))
            || lvl_yunv < 55)
                return RANK_D->query_respect(this_player()) +
                "的玉女心法火候不足，我不能将玉女心经交给你";
        if (query("book_count") < 1)
                return "你来晚了，本派的玉女心经已经被人取走了。";
        add("book_count", -1);
        ob = new("/clone/book/yunvjing2");
        ob->move(this_player());
        return "好吧，这本「玉女心经」你拿回去好好研读。";
}