ma.c

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

// ma.c 马超兴

#include <ansi.h>

inherit NPC;
inherit F_MASTER;
//inherit F_UNIQUE;
//int do_join(string arg);
int ask_weiwang();
string ask_me();

void create()
{
	set_name("马超兴", ({ "ma chaoxing", "ma"}));
	set("title", HIR "天地会"HIW"家后堂香主"NOR);
	set("gender", "男性");
	set("long", "\n他就是天地会家后堂香主，矮矮胖胖的个，善使一柄大刀。\n");
	set("class", "fighter");
	set("age", 45);

	set("int", 30);
	set("qi", 8500);
	set("max_qi", 8500);
	set("jing", 5000);
	set("max_jing", 5000);
	set("shen_type", 1);

	set("combat_exp", 1250000);
	set("attitude", "friendly");

	set_skill("force", 80);
	set_skill("unarmed",80);
	set_skill("parry", 80);
	set_skill("dodge", 80);
	set_skill("sword", 70);
	set_skill("blade", 100);
	set_skill("whip", 90);
	set_skill("yunlong-shengong", 90);
	set_skill("yunlong-shenfa", 90);
	set_skill("wuhu-duanmendao", 90);
	set_skill("houquan", 90);
	set_skill("yunlong-jian", 90);
	set_skill("yunlong-bian", 90);
	set_temp("apply/attack", 25);
	set_temp("apply/defense", 25);
	set_temp("apply/damage", 25);

	map_skill("force", "yunlong-shengong");
	map_skill("dodge", "yunlong-shenfa");
	map_skill("parry", "wuhu-duanmendao");
        map_skill("blade","wuhu-duanmendao");
	map_skill("sword", "yunlong-jian");
	map_skill("whip", "yunlong-bian");
        map_skill("unarmed","houquan");

	create_family("云龙门",2, "弟子");
//	set("class", "yunlong-xinfa");
	set("book_count", 1);
        set("inquiry", ([
		"陈近南" :  "\n江湖威望值达到70就可以拜总舵主为师。\n",
		"天地会" :  "\n只要是英雄好汉，都可以入我天地会(join tiandihui)。\n",
		"入会" :  "\n只要入了我天地会，可以向会中各位好手学武功。\n",
                "反清复明" : "去药铺和棺材店仔细瞧瞧吧！\n",
                "威望" :  (: ask_weiwang :),
                "江湖威望" : (: ask_weiwang :),
		"云龙经" : (: ask_me :),
	]) );
	set("chat_chance_combat", 50);  
	set("chat_msg_combat", ({
		(: command("smile") :),
		(: command("haha") :),
		(: command("chat 这位" + RANK_D->query_respect(this_player())+",你我无冤无仇，何必如此?\n") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("unwield changjian") :),
		(: command("wield changjian") :),
		(: command("wield changjian") :),
		(: command("wield changjian") :),
		(: command("wield changjian") :),
		(: command("wield bian") :),
		(: command("wield bian") :),
		(: command("wield bian") :),
		(: command("wield bian") :),
                (: perform_action, "sword.xian" :),
                (: perform_action, "whip.chan" :),
                (: perform_action, "whip.chan" :),
                (: perform_action, "blade.duan" :),
                (: perform_action, "blade.duan" :),
                (: perform_action, "blade.duan" :),
                (: perform_action, "unarmed.zhen" :),
                (: perform_action, "unarmed.zhen" :),
                (: exert_function, "recover" :),
                (: exert_function, "recover" :),
		(: command("unwield bian") :),
		(: command("unwield bian") :),
		(: command("unwield bian") :),
		(: command("unwield bian") :),
		(: command("wield blade") :),
		(: command("wield blade") :),
		(: command("wield blade") :),
		(: command("wield blade") :),
		(: command("unwield blade") :),
		(: command("unwield blade") :),
		(: command("unwield blade") :),
		(: command("unwield blade") :),
		(: command("unwield blade") :),
		(: command("unwield blade") :),
                      }) );
	setup();
	carry_object("/d/shaolin/obj/changbian")->wield();
	carry_object("/clone/weapon/changjian");
	carry_object("/d/city2/obj/dadao");
	carry_object("/clone/misc/cloth")->wear();
        add_money("silver",20);
}

void init()
{
	::init();
	remove_call_out("greeting");
	call_out("greeting", 1, this_player());
	add_action("do_join","join");
	add_action("do_skills","skill");
	add_action("do_skills","cha");
}

int ask_weiwang()
{
	command("tell "+this_player()->query("id")+" 你现在的江湖威望是 " +(string)(this_player()->query("weiwang")));
	say("\n马超兴说道：如果你威望值很高，有些人见了你不但不会杀你，还会教你武功，送你宝贝。\n"
	+"而且你还可以加入帮会，率领会众去攻打目标，就连去钱庄取钱也会有利息 。。。。。\n");
	say("马超兴又说：杀某些坏人或救某些好人可以提高江湖威望。\n");
	return 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/yljing1");
        ob->move(this_player());
        return "好吧，这本「云龙经」你拿回去好好钻研。";
}

void attempt_apprentice(object ob)
{
/*
	if((string)ob->query("gender")=="女性")
	{
		command("say 女人的名字是弱者，我云龙门顶天立地，怎会收你呢？！");
		return;
	}
*/
	if((string)ob->query("gender")=="无性")
	{
		command("say 云龙门顶天立地，怎会收你这样的废人？！");
		return;
	}
	if (ob->query("party/party_name") != HIR "天地会" NOR )
	{
		command("say 你不是本会弟兄，我不能收你！");
		return;
	}
	if ((int)ob->query_skill("shenlong-xinfa",1) < 60 )
	{
		command("say 你的本门内功心法太低了,还是努努力先提高一下吧!");
		command("say 好吧，既然" + RANK_D->query_respect(ob) + "也是" +
		"我辈中人，今天就收下你吧。");
		command("recruit " + ob->query("id"));
		if((!(string)ob->query("class")) || ((string)ob->query("class") != "fighter"))
		ob->set("class","fighter");
	}
}
void greeting(object ob)
{
	if(random(5)<2) say( "马超兴笑道：这位)
		朋友，可有什么不平之事么？\n");
}

int do_skills(string arg)
{
	object ob ;
	ob = this_player () ;
	if( !arg || arg!="ma" )
		return 0;
	if(wizardp(ob))  return 0;
	if (ob->query("party/party_name") != HIR "天地会" NOR )
	{
		message_vision("$N摇了摇头。\n",this_object());
		command("tell "+ob->query("id")+" 不是天地会弟子不能察看。\n"); 
		return 1;
	}
	command("tell "+ob->query("id")+" 我所有的基本武功如下：\n"+
	"  基本刀法 (blade)                         - 深不可测 100/    \n"+
	"  基本轻功 (dodge)                         - 登峰造极  80/    \n"+
	"  基本内功 (force)                         - 登峰造极  80/    \n"+
	"  基本招架 (parry)                         - 登峰造极  80/    \n"+
	"  基本剑法 (sword)                         - 出神入化  70/    \n"+
	"  基本拳脚 (unarmed)                       - 登峰造极  80/    \n"+
	"  基本鞭法 (whip)                          - 出神入化  70/    \n"+
	"□五虎断门刀 (wuhu-duanmendao)             - 登峰造极  80/    \n"+
	"□猴拳 (houquan)                           - 出类拔萃  50/    \n"+
	"□云龙鞭 (yunlong-bian)                    - 出类拔萃  50/    \n"+
	"□云龙剑法 (yunlong-jian)                  - 出类拔萃  50/    \n"+
	"□云龙身法 (yunlong-shenfa)                - 出神入化  70/    \n"+
	"□云龙神功 (yunlong-shengong)              - 出神入化  70/    \n");
	 return 1;
}
#include "/kungfu/class/yunlong/tiandihui.h";