ding.c

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

// ding.c 丁春秋
#include <ansi.h>
inherit NPC;
inherit F_MASTER;
int ask_job();
int ask_fail();


string ask_me();
string ask_du1();
string ask_du2();
string ask_du3();
string ask_du4();
string ask_du5();
void create()
{
	set_name("丁春秋", ({ "ding chunqiu", "ding" }));
	set("nickname", "星宿老怪");
	set("long", 
		"他就是星宿派开山祖师、令正派人士深恶痛绝的星宿老怪丁春秋。\n"
		"可是他看起来形貌清奇，仙风道骨。\n");
	set("gender", "男性");
	set("age", 60);
	set("attitude", "friendly");
	set("class", "scholar");
	set("shen_type", -1);
	set("shen", -150000);
	set("str", 65);
	set("int", 60);
	set("con", 68);
	set("dex", 68);
	set("per", 68);
	
	set("max_qi", 18000);
	set("max_jing", 18000);
	set("neili", 24000);
	set("max_neili", 24000);
	set("max_neili", 24000);
	set("jiali", 100);
	set("combat_exp", 5500000);
	set("score", 400000);

	set_skill("unarmed", 250);
	set_skill("force", 250);
	set_skill("huagong-dafa", 300);
	set_skill("throwing", 250);
	set_skill("feixing-shu", 300);
	set_skill("dodge", 250);
	set_skill("zhaixinggong", 300);
	set_skill("strike", 200);
	set_skill("chousui-zhang", 300);
	set_skill("claw", 250);
	set_skill("sanyin-wugongzhao", 300);
	set_skill("parry", 200);
	set_skill("staff", 200);
	set_skill("poison", 300);
	set_skill("tianshan-zhang", 300);
	set_skill("chanhun-suo", 300);
	set_skill("whip", 300);
	set_skill("literate", 150);

	map_skill("whip", "chanhun-suo");
	map_skill("force", "huagong-dafa");
	map_skill("dodge", "zhaixinggong");
	map_skill("strike", "chousui-zhang");
	map_skill("claw", "sanyin-wugongzhao");
	map_skill("parry", "chousui-zhang");
	map_skill("unarmed", "chousui-zhang");
	map_skill("staff", "tianshan-zhang");
	prepare_skill("strike", "chousui-zhang");
	prepare_skill("claw", "sanyin-wugongzhao");
        set("chat_chance_combat", 90);
        set("chat_msg_combat", ({
                (: perform_action, "strike.zhaohuo" :),
                (: perform_action, "strike.biyan" :),
                (: perform_action, "strike.fushidu" :),
                (: perform_action, "strike.sandu" :),
                (: perform_action, "strike.huoqiang" :),
                (: perform_action, "strike.throw" :),
                (: perform_action, "strike.yinhuo" :),
                (: perform_action, "strike.zhaohuo" :),
                (: perform_action, "strike.huoqiu" :),
(: perform_action, "whip.duo" :),
(: perform_action, "whip.huixuan" :),
(: perform_action, "whip.suo" :),
         }) );
	set("book_count", 1);
	set("zhen_count", 8);
	set("san_count", 3);
	set("wx_count", 6);
	set("xcs_count", 4);
	set("inquiry", ([
		"毒经" : (: ask_me :),
		"星宿毒经" : (: ask_me :),
		"碧磷针" : (: ask_du1 :),
		"三笑逍遥散" : (: ask_du2 :),
		"逍遥三笑散" : (: ask_du2 :),
		"无形散" : (: ask_du3 :),
		"雪蚕丝" : (: ask_du4 :),
		"铜钹" : (: ask_du5 :),
                "job" : (: ask_job() :),
                "失败" : (: ask_fail() :),
                "抢劫" : (: ask_job() :)
	]));

        set_temp("apply/attack", 200);
        set_temp("apply/defense", 200);
        set_temp("apply/armor", 500);
        set_temp("apply/damage", 300);


	create_family("星宿派", 1, "开山祖师");
	set("class", "taoist");

	setup();
      carry_object(__DIR__"chanhunsuo")->wield();
}

void init()
{
        add_action("do_flatter", "flatter");
}

void attempt_apprentice(object me)
{
        if ((int)me->query("shen") > -100) {
                command("say 老仙越看你越象白道派来卧底的。");
                return;
        }
        if ((int)me->query("combat_exp") < 10000) {
                command("say 你这点微末道行如何能学到老仙的神妙功夫。");
                return;
        }
        if( me->query_temp("pending/flatter") ) {
                command("say 你如此不把老仙放在眼里，老仙怎会收你？");
                return;
        } else {
                command("say 我星宿老仙比起古往今来的圣人怎么样啊？");
                message_vision("星宿老怪微闭双眼，手捻长须，一副等人拍马(flatter)的样子。\n",
                this_player());
                me->set_temp("pending/flatter", 1);
        }
}

int do_flatter(string arg)
{
        if( !this_player()->query_temp("pending/flatter") )
                return 0;
        if( !arg ) return notify_fail("你说老仙什么？\n");
        this_player()->set_temp("pending/flatter", 0);
        message_vision("$N大声说道：" + arg + "\n", this_player());
        if( strsrch(arg, "星宿老仙") >=0 && (strsrch(arg, "德配天地") >=0
         || strsrch(arg, "威震寰宇") >=0 || strsrch(arg, "古今无比") >=0 )) {
                command("smile");
                command("say 这还差不多。\n");
                command("recruit " + this_player()->query("id"));
        } else {
                command("say 你如此不把老仙放在眼里，老仙怎会收你？");
        }
        return 1;
}

int recruit_apprentice(object ob)
{
        if( ::recruit_apprentice(ob) )
                add("apprentice_available", -1);
}

// 星宿老仙，德配天地，威震寰宇，古今无比

string ask_me()
{
	mapping fam; 
	object ob;
	
	if (!(fam = this_player()->query("family")) || fam["family_name"] != "星宿派")
		return RANK_D->query_respect(this_player()) + 
		"与本派素无来往，不知此话从何谈起？";
	if (query("book_count") < 1)
		return "你来晚了，本派的内功心法不在此处。";
	add("book_count", -1);
	ob = new("/clone/book/dujing_2");
	ob->move(this_player());
	return "好吧，这本「星宿毒经」你拿回去好好钻研。";
}
string ask_du3()
{
	mapping fam; 
	object ob;
	
	if (!(fam = this_player()->query("family")) || fam["family_name"] != "星宿派")
		return RANK_D->query_respect(this_player()) + 
		"与本派素无来往，不知此话从何谈起？";
	if (this_player()->query_skill("poison",1)<50)
		return "你的毒技火候未到，用不了这种东西。";
	if (this_player()->query_temp("xxi3"))
		return "我刚给过你这种东西了。";

	if (query("wx_count") < 1)
		return "你来晚了，无形散都发完了。";
	add("wx_count", -1);
	ob = new("/d/xingxiu/npc/jobobj/wuxing");
	ob->move(this_player());
	this_player()->set_temp("xxi3",1);
	return "好吧，那你就先用这个无形散吧。";
}

string ask_du4()
{
	mapping fam; 
	object ob;
	
	if (!(fam = this_player()->query("family")) || fam["family_name"] != "星宿派")
		return RANK_D->query_respect(this_player()) + 
		"与本派素无来往，不知此话从何谈起？";
	if (this_player()->query_skill("poison",1)<50)
		return "你的毒技火候未到，用不了这种东西。";
	if (query("xcs_count") < 1)
		return "你来晚了，雪蚕丝都发完了。";
	if (this_player()->query_temp("xxi4"))
		return "我刚给过你这种东西了。";

	add("xcs_count", -1);
	ob = new("/d/xingxiu/npc/jobobj/xuecan-si");
	ob->move(this_player());
	this_player()->set_temp("xxi4",1);
	return "好吧，那你就先用这些雪蚕丝吧。";
}
string ask_du5()
{
	mapping fam; 
	object ob;