yideng.c

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

// yideng.c
#include <ansi.h>
inherit NPC;
inherit F_MASTER;

void consider();

void create()
{
    set_name("一灯大师", ({"yideng dashi", "dashi", "yideng"}));
    set("nickname", HIG "南帝" NOR );
    set("gender", "男性");
    set("age", 52);
    set("long", 
        "他就是号称「南帝」的一灯大师，俗名段智兴，现已逊位为僧。\n"
        "大师一生行善，积德无穷。\n");
    set("attitude", "peaceful");
    set("class", "scholar");
	
    set("str", 61);
    set("int", 60);
    set("con", 66);
    set("dex", 60);

    set("qi", 23000);
    set("max_qi", 23000);
    set("jing", 15000);
    set("max_jing", 13000);
    set("neili", 60500);
    set("max_neili", 60500);
    set("jiali", 100);
	
    set("combat_exp", 6500000);
    set("score", 0);
	 
        set_skill("unarmed", 250);
        set_skill("force", 250);
        set_skill("dodge", 250);
        set_skill("parry", 250);
        set_skill("cuff", 250);
        set_skill("strike", 250);
        set_skill("sword", 250);
        set_skill("staff", 250);
        set_skill("finger", 320);
        set_skill("buddhism", 300);
	set_skill("kurong-changong", 300);
        set_skill("tiannan-step", 300);
        set_skill("jinyu-quan", 300);
        set_skill("wuluo-zhang", 300);
        set_skill("duanjia-sword", 300);
        set_skill("yiyang-zhi", 350);
        set_skill("sun-finger", 320);
	set_skill("literate", 300);

	map_skill("force", "kurong-changong");
	map_skill("dodge", "tiannan-step");
	map_skill("cuff", "jinyu-quan");
	map_skill("strike", "wuluo-zhang");
	map_skill("sword", "duanjia-sword");
	map_skill("staff", "duanjia-sword");
	map_skill("unarmed", "yiyang-zhi");
	map_skill("finger", "yiyang-zhi");
	map_skill("parry", "yiyang-zhi");

//	prepare_skill("cuff", "jinyu-quan");
//	prepare_skill("strike", "wuluo-zhang");
        set("chat_chance_combat", 90);
        set("chat_msg_combat", ({
                (: perform_action, "finger.sandie" :),
                (: perform_action, "finger.dian" :),
                (: perform_action, "finger.jian" :),
                (: perform_action, "finger.qian" :),
                (: exert_function, "powerup" :),
                (: exert_function, "ku" :),
                (: exert_function, "rong" :),
        }) );
        set_temp("apply/attack", 200);
        set_temp("apply/defense", 200);
        set_temp("apply/armor", 200);
        set_temp("apply/damage", 200);

    create_family("大理段家", 16, "弟子");
    setup();

    carry_object("/clone/misc/cloth")->wear();
}
void attempt_apprentice(object ob)
{       
        string oldtitle;
	oldtitle = ob->query("title");
        if (!oldtitle) return;

        if( ob->query("family/family_name") != "大理段家")
           {
		command("say 老衲已经出世，不再涉足江湖俗务，不能收徒了。\n");
                      return;
            }

	if (strsrch(oldtitle, "大理镇南王府武将")< 0)
  	{
   	if (strsrch(oldtitle, "大理镇南王府家奴")< 0)
        {
		command("shake "+this_player()->query("id"));
		command("say 老衲已经出世，不再涉足江湖俗务，不能收徒了。\n");
		return;
	}
	}
       if ((int)ob->query("shen") < 10000) {
		command("say 学武之人，德义为先，功夫的高低倒还在其次，未练武，要先学做人。");
		command("say 在德行方面，" + RANK_D->query_respect(ob) +
			"是否还做得不够？");
		return;
	}
          if (ob->query_temp("give_bunan") != 1)
       {
                command("sigh "+this_player()->query("id"));
		command("say 老衲虽然已经出世，"+ RANK_D->query_respect(ob) +
            "是否能帮老衲看看英姑现在近况如何。\n");
		return;
       }
        command("chat 想不到老衲在垂死之年，又觅得一个可塑之才，既已入府，便当尽忠报主。");
	command("recruit " + ob->query("id"));
        ob->set("title","大理镇南王府皇卿");

	
}
int accept_object(object who, object ob)
{
   if (ob->query("id")=="bu nan")
   {
      who->set_temp("give_bunan",1);
      command("say 英姑，原来你还想不通...唉...");
      return 1;
   }
else
	message_vision("一灯皱眉对$N说：施主请回吧。\n", who);
        return 0;
}