huang.c

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

#include <ansi.h>
inherit NPC;
inherit F_MASTER;
#define __THD__ "/d/taohua/"

void consider();
string ask_me();
int ask_marry();
int ask_test1();
int ask_test2();
int ask_test3();
int ask_nvxu();

int ask_zhou();

void create()
{
    set_name("黄药师", ({"huang yaoshi", "huang", "yaoshi"}));
    set("title", "桃花岛主");
    set("nickname", HIY "东邪" NOR );
    set("gender", "男性");
    set("age", 42);
        set("long", 
                "他就是桃花岛的岛主，江湖上人人闻名变色的东邪黄药师。\n"
                "他身穿一件青色长袍，腰带上斜插着一只玉箫。\n"
                "他形相清癯，丰姿隽爽，萧疏轩举，湛然若神。\n");
    set("attitude", "peaceful");
    set("class", "scholar");
	
    set("str", 51);
    set("int", 50);
    set("con", 56);
    set("dex", 50);
    set("per", 50);

    set("chat_chance", 1);
    set("chat_msg", ({
        "黄药师叹了口气道：“唉 …… 蓉儿这苦命的孩子，从小就没了娘 ……”\n",
        "黄药师低头沉思，悠然不语。\n",
    }));
/*    set("inquiry", ([
        "黄蓉"     : "你敢直称我女儿的闺名？ \n",
        "九阴真经" : "如果你能帮我取得真经上册，我一定重重谢你。\n",
    ]));*/

    set("qi", 15000);
    set("max_qi", 15000);
    set("jing", 13000);
    set("max_jing", 13000);
    set("neili", 53500);
    set("max_neili", 53500);
    set("jiali", 100);

    set("book_count", 1);
    set("combat_exp", 5500000);
    set("score", 0);
	 
    set_skill("leg", 300);             // 基本内功
    set_skill("force", 200);             // 基本内功
    set_skill("bibo-shengong", 300);     // 碧波神功
    set_skill("claw", 200);              // 基本爪法
    set_skill("hand", 200);              // 基本手法
    set_skill("finger", 200);            // 基本指法
    set_skill("tanzhi-shentong", 300);   // 弹指神通
    set_skill("unarmed", 200);           // 基本拳脚
    set_skill("strike", 200);            // 基本拳脚
    set_skill("luoying-zhang", 300);     // 落英神剑掌
    set_skill("xuanfeng-leg", 300);      // 旋风扫叶腿
    set_skill("dodge", 200);             // 基本躲闪
    set_skill("anying-fuxiang", 300);    // 暗影浮香
    set_skill("parry", 200);             // 基本招架
    set_skill("sword", 200);             // 基本剑法
    set_skill("luoying-shenjian", 300);  // 落英神剑
    set_skill("yuxiao-jian", 300);       // 玉箫剑法
    set_skill("lanhua-shou", 300);       // 兰花拂穴手
    set_skill("qimen-wuxing",350);       // 奇门五行
    set_skill("count",300);              // 阴阳八卦
    set_skill("literate",300);           // 读书识字
	
    map_skill("strike"  , "luoying-zhang");
    map_skill("force"  , "bibo-shengong");
    map_skill("finger" , "tanzhi-shentong");
    map_skill("hand"   , "lanhua-shou");
    map_skill("unarmed", "xuanfeng-leg");
    map_skill("leg" , "xuanfeng-leg");
    map_skill("dodge"  , "anying-fuxiang");
    map_skill("sword"  , "yuxiao-jian");
    map_skill("parry"  , "luoying-zhang");    	
//	prepare_skill("finger", "tanzhi-shentong");
//	prepare_skill("hand", "lanhua-shou");
    	prepare_skill("strike", "luoying-zhang");
	prepare_skill("leg", "xuanfeng-leg");

        set("chat_chance_combat", 90);
        set("chat_msg_combat", ({
                (: exert_function, "play" :),
                (: exert_function, "qimenzhen" :),
                (: exert_function, "roar" :),
                (: perform_action, "dodge.taohaimangmang" :),
                (: perform_action, "hand.fuxue" :),
                (: perform_action, "strike.shenjian" :),                
                (: perform_action, "strike.xuan" :),                
                (: perform_action, "strike.pikong" :),                
                (: perform_action, "leg.wuying" :),                
                (: perform_action, "leg.wuyin" :),                
                (: perform_action, "leg.kuangfeng" :),                
                (: perform_action, "leg.kuangfeng" :),                
                (: perform_action, "finger.huayu" :),                
                (: perform_action, "finger.jinglei" :),                
                (: perform_action, "finger.lingxi" :),                
        }));
    set("inquiry", ([
                "name": "难道天底下就没人知道我东邪黄药师的名字了吗？",
                "rumors": "听说全真教那帮牛鼻子在到处找周伯通，哼！",
                "东邪": "那都是江湖上那班满嘴仁义道德的家伙给我起的绰号。",
                "西毒": "以前的西毒是欧阳锋那只臭蛤蟆，除了会耍两手蛇外，没什么真功夫。",
                "欧阳锋": "那只臭蛤蟆，除了会耍两手蛇外，没什么真功夫。",
                "南帝": "以前的南帝是大理的王爷段智兴，现在出家做和尚，改叫一灯啦。",
                "一灯": "以前是大理的王爷段智兴，现在出家做和尚，改叫一灯啦。",
                "段智兴": "以前是大理的王爷，现在出家做和尚，改叫一灯啦。",
                "北丐": "以前的北丐是洪七公那个老叫化，几手降什么十八掌倒还使得。",
                "洪七公": "那个老叫化是丐帮帮主，几手降什么十八掌倒还使得。",
                "中神通": "以前的中神通是全真教的臭道士王重阳，要不是老夫一时失手，武林第一的称号也不会被他抢走。",
                "王重阳": "是全真教的臭道士，要不是老夫一时失手，武林第一的称号也不会被他抢走。",
                "周伯通": "这个大傻瓜，被我骗了都不知道，你如果想找他，嘿嘿嘿....",
                "老顽童": "这个大傻瓜，被我骗了都不知道，你如果想找他，嘿嘿嘿....",
                "黄蓉": "唉，从小就对她娇生惯养，现在她调皮任性，我也没办法了。",
                "蓉儿": "唉，从小就对她娇生惯养，现在她调皮任性，我也没办法了。",
                "郭靖": "别提我这个傻女婿了。",
                "女婿": (: ask_nvxu :),
                "乘风": "是我的四弟子，现在住在归云庄。",
                "陆乘风": "是我的四弟子，现在住在归云庄。",
                "黄药师": "就是老夫我。怎么，不服吗？咱俩练练？",
                "九宫": "九宫之义，法以灵龟。二四为肩，六八为足；左三右七，戴九履一；五居中间。",
                "八卦": "乾三连，坤六段；离中虚，坎中满；震仰盂，艮覆碗；兑上缺，巽下断。",
                "五行": "金生水，水生木，木生火，火生土，土生金。金克木，木克土，土克水，水克火，火克金。",
                "易经": "是一本讲解伏羲六十四卦的奇书，一般人难得看懂。",
                "周易": "是一本讲解伏羲六十四卦的奇书，一般人难得看懂。",
                "九阴真经": "你打听这个干什么？！",
                "和尚": "老夫我对和尚就是瞧不惯！",
                "求婚": (: ask_marry :),
                "第一关": (: ask_test1 :),
                "test1": (: ask_test1 :),
                "第二关": (: ask_test2 :),
                "test2": (: ask_test2 :),
                "第三关": (: ask_test3 :),
                "test3": (: ask_test3 :),
        "秘籍" : (: ask_me :),
        "旋风扫叶腿法" : (: ask_me :),
      	"周伯通": (: ask_zhou :),
    ]));


    create_family("桃花岛", 1, "岛主");
    setup();
	
             set_temp("apply/attack", 50);
        set_temp("apply/defense", 50);
        set_temp("apply/armor", 500);
        set_temp("apply/damage", 200);
    carry_object(__DIR__"obj/yuxiao");
    carry_object(__DIR__"obj/bupao")->wear();
//    carry_object("clone/book/jiuyin2");
    
}

void attempt_apprentice(object ob)
{
        string old_name, new_name;
    if (ob->query_int() < 30) {
        command("say 我不收资质差的弟子，您请回吧！");
		return;
    }
        if (ob->query("gender") != "男性" && ob->query("gender") != "女性") {
                command("say 你不男不女的算什么东西？快滚！");
                return;
        }
        if (ob->query("shen") <= -200000) {
                command("say 我生平最讨厌两种人，你们这种无恶不作的邪魔外道就是其一，哼！");
                return;
        }
        if (ob->query("shen") >= 200000) {
                command("say 我生平最讨厌两种人，你们这种自命大侠的沽名钓誉之徒就是其一，哼！");
                return;
        }
        if (ob->query_int() < 28) {
                command("say 看你这副模样，比我那傻女婿还笨，还想拜我为师？");
                return;
        }
        if (!ob->query_skill("literate")) {
                command("say 你这个文盲也想来学功夫？先去学点文化吧。");
                return;
        }


        if (ob->query("class") == "bonze") {
                if (ob->query("family/family_name") == "少林派")
                        command("say 你们自命天下武功出少林，我这里的庙小，可不敢收你。");
                else
                        command("say 我东邪最讨厌和尚，看到光头就有气，所以连尼姑、喇嘛一起都不收。");
                return;
        }

    if ((int)ob->query_skill("bibo-shengong",1) < 50 ) {
        command("say 你的本门内功心法太低了,还是努努力先提高一下吧!");
		return;
    }
    if ((int)ob->query("shen") >100000 || (int)ob->query ("shen") < -100000 ) {
        command("say 我桃花岛与世隔绝，向来不与您这种成名人物打交道，您请回吧！");
		return;
	}

    command("say 很好，很好。");
    command("recruit " + ob->query("id"));
                command("chat 哈哈哈哈！！！！");
                command("chat 想不到我东邪误逐弟子之后，还能得此良才美质，真是可喜可贺。");
                command("recruit " + ob->query("id"));
                old_name = ob->query("name");
                new_name = old_name[0..3] + "风";
                ob->set("name", new_name);
                say(old_name + "拜入黄药师门下，位列二代弟子“风”字辈，起名为" + new_name + "。\n");

}

int recognize_apprentice(object ob)
{
	mapping myfam;
       	myfam = (mapping)ob->query("family");
        if ( myfam["family_name"] == "桃花岛") return 1 ;
	if ((int)ob->query_temp("tmark/黄") == 1 )
        message_vision("黄药师看了看$N，说道：咱们现在是谁也不欠谁,\n"
                          "你不要再找我学习技艺了。\n", ob);
	if (!(int)ob->query_temp("tmark/黄"))
		return 0; 
	ob->add_temp("tmark/黄", -1);
	return 1;
}

int accept_object(object who, object ob)
{
	
	if ( (string) ob->query("id") =="jiuyin zhenjing1" ) {
 		if (!(int)who->query_temp("tmark/黄")) who->set_temp("tmark/黄", 0);
		message_vision("黄药师看了看$N送来的秘籍，点了点头，说道：\n"
                               "难得你将真经送回。你送我的东西我就收下了。\n"
                               "作为补偿,你可以从我这里学点功夫。\n", who);
		who->add_temp("tmark/黄", 120);
		return 1;
	}
	return 0;
}
string ask_me()
{
	object ob;
	
	if (this_player()->query("family/master_id")!="huang yaoshi")
		return RANK_D->query_respect(this_player()) + 
		"非我弟子，不知此话从何谈起？";
	if (query("book_count") < 1)
		return "你来晚了，本派的秘籍不在此处。";
	add("book_count", -1);
	ob = new("/clone/book/xuanfeng_book");
	ob->move(this_player());
	command("rumor "+this_player()->query("name")+"拿到旋风扫叶腿法啦。\n");
	return "好吧，这本「旋风扫叶腿法」你拿回去好好钻研。";
}
//void die()
//{
//message("channel:rumor", MAG"【谣言】某人："+this_player()->query("name")+"抢了九阴真经下卷啦。\n"NOR, users());
//	::die();
//}
int ask_zhou()
{
	command("say 这家伙有九阴真经的上卷，就是死也不肯交出来。");
	command("sneer");
	command("say 我将他困在岛上，看他能撑到几时！");
	this_player()->set_temp("jiuyin/huang", 1);
	return 1;
}
void init()
{
        object ob = this_player();

        add_action("do_answer","answer");
        add_action("do_answer","huida");
        ::init();

}


int ask_marry()
{
        object nvxu, user;
        object ob = this_player();
        string id;
        int user_load = 0, user_exist = 1;