jian.c

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

// sample master.c code
// xiake island master.c

inherit NPC;
inherit F_MASTER;

void consider();
string ask_me();
void create()
{
	set_name("简长老", ({"jian zhanglao", "jian", "zhanglao"}));
	set("title", "丐帮九袋长老");
	set("nickname", "执法长老");
	set("gender", "男性");
	set("age", 50);
set("beggarlvl",9);
	set("long", 
		"简长老是丐邦的执法长老，代帮主执掌法刀以及青竹令等。\n"
		"他向来嫉恶如仇，弟子中有谁犯过，出手决不容情。\n");

	set("attitude", "peaceful");
        set("class", "beggar");
//        set("no_get", "1");
	
	set("str", 24);
	set("int", 20);
	set("con", 24);
	set("dex", 20);

	set("qi", 900);
	set("max_qi", 900);
	set("jing", 100);
	set("max_jing", 100);
	set("neili", 1500);
	set("max_neili", 1500);
	set("jiali", 100);
	set("inquiry", ([
                "青竹令" :     (: ask_me :)
	]));
	
	set("combat_exp", 100000);
	set("score", 20000);
		set_skill("fengmo-zhang",150);
	set_skill("liuhe-zhang",150);
	set_skill("strike",90);

	set_skill("force", 95); // 基本内功
	set_skill("huntian-qigong", 90); // 混天气功
	set_skill("unarmed", 90); // 基本拳脚
	set_skill("xianglong-zhang", 85); // 降龙十八掌
	set_skill("dodge", 90); // 基本躲闪
	set_skill("xiaoyaoyou", 95); // 逍遥游
	set_skill("parry", 85); // 基本招架
	set_skill("staff", 90); // 基本棍杖
	
	map_skill("force", "huntian-qigong");
	map_skill("unarmed", "xianglong-zhang");
	map_skill("dodge", "xiaoyaoyou");
	
	create_family("丐帮", 18, "九袋长老");
	setup();
}

init()
{
        object ob;
	mapping myfam;
        
        ::init();
        if (interactive(ob = this_player()) && !is_fighting()) {
		myfam = (mapping)ob->query("family");
		if ((!myfam || myfam["family_name"] != "丐帮") &&
			(!wizardp(ob))) {
			remove_call_out("saying");
			call_out("saying",2,ob);
		}
        }
}

void saying(object ob)
{
        if (!ob || environment(ob) != environment())
                return;

	message_vision("\n简长老看了$N一眼，冷冷地说到：“洪帮主他老人家说我不该"
	    "随意责打丐帮弟子，\n你又不属我丐帮，我打你总可以吧？”\n"
	    "说完右腿一抬，$N顺势应了一招青城派的「屁股向后，平沙落雁式」"
	    "－－叭叽\n\n", ob);
	remove_call_out("kicking");
	call_out("kicking",1,ob);
	
}

void kicking(object ob)
{
        if (!ob || environment(ob) != environment())
                return;
    if (environment(ob)->query("short")=="暗道"){
	ob->move("/d/city/pomiao");
	 message("vision","只听“嘭”地一声，紧接着" +  ob->query("name") +
		"从小门里飞了出来，屁股上有一个清楚的鞋印。\n", environment(ob), ob);
}
}

void attempt_apprentice(object ob)
{
	command("say 老夫不收徒弟，" + RANK_D->query_respect(ob) + "还是请回吧。");
}
string ask_me()
{
	mapping fam;
	object ob,me=this_player();
	string *sname;
	int i;

	if (!(fam = me->query("family")) || fam["family_name"] != "丐帮")
		return RANK_D->query_respect(me) +
		"与本派素无来往，不知此话从何谈起？";

        ob = new(__DIR__"obj/qingzhu-ling");
        ob->move(me);
        message_vision("$N获得一面青竹令。\n",me);

        return "好吧，凭这面青竹令，你可自由向你的同门大师兄挑战。";

}
int accept_object(object ob, object obj)
{
	object me = this_object();

        mapping my_fam  = me->query("family");

       if (!my_fam || (my_fam["family_name"] != "丐帮"))
                return notify_fail("你哪里来的青竹令？\n");

	if ( ob->query_temp("have_cloth") && present("po bu", ob) )
	{
		command("say 既然升袋，就当牢记帮规，为民除害！");
message_vision("$N把破布钉在$n的破衣服上，俨然一个新口袋。\n", me, ob);
		ob->delete_temp("have_cloth");
		ob->set("title",ob->query("newtitle"));
		if (ob->query("title") == "丐帮一袋弟子")
		{
		if (ob->query("beggarlvl") <= 1 )
			{
			ob->add("combat_exp",250);
			ob->set("beggarlvl",2);
                        }
			ob->set("beggarlvl",2);
		}
		if (ob->query("title") == "丐帮二袋弟子")
		{
		if (ob->query("beggarlvl") <= 2 )
			{
			ob->add("combat_exp",500);
			ob->set("beggarlvl",3);
                        }
			ob->set("beggarlvl",3);
		}
		if (ob->query("title") == "丐帮三袋弟子")
		{
		if (ob->query("beggarlvl") <= 3 )
			{
			ob->add("combat_exp",1000);
			ob->set("beggarlvl",4);
                        }
			ob->set("beggarlvl",4);
		}
		if (ob->query("title") == "丐帮四袋弟子")
		{
		if (ob->query("beggarlvl") <= 4 )
			{
			ob->add("combat_exp",1500);
			ob->set("beggarlvl",5);
                        }
			ob->set("beggarlvl",5);
		}
		if (ob->query("title") == "丐帮五袋弟子")
		{
		if (ob->query("beggarlvl") <= 5 )
			{
			ob->add("combat_exp",2000);
			ob->set("beggarlvl",6);
                        }
			ob->set("beggarlvl",6);
		}
		if (ob->query("title") == "丐帮六袋弟子")
		{
		if (ob->query("beggarlvl") <= 6 )
			{
			ob->add("combat_exp",3000);
			ob->set("beggarlvl",7);
                        }
			ob->set("beggarlvl",7);
		}
		if (ob->query("title") == "丐帮七袋弟子")
		{
		if (ob->query("beggarlvl") <= 7 )
			{
			ob->add("combat_exp",4000);
			ob->set("beggarlvl",8);
                        }
			ob->set("beggarlvl",8);
		}
		if (ob->query("title") == "丐帮八袋弟子")
		{
		if (ob->query("beggarlvl") <= 8 )
			{
			ob->add("combat_exp",5000);
			ob->set("beggarlvl",9);
                        }
			ob->set("beggarlvl",9);
		}
		if (ob->query("title") == "丐帮九袋长老")
		{
		if (ob->query("beggarlvl") <= 9 )
			{
			ob->add("combat_exp",10000);
			ob->set("beggarlvl",9);
                        }
			ob->set("beggarlvl",9);
		}
ob->save();
		remove_call_out("destroying");
		call_out("destroying", 1, me, obj);
		return 1;
	}
}
void destroying(object me, object obj)
{
	destruct(obj);
	return;
}