sgjn.c

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

// qqren.c 上官剑南
#include <ansi.h>
inherit NPC;
inherit F_MASTER;
int ask_qiubai();
int ask_wumu();
int ask_dongxi();
int ask_xinyuan();
int ask_jueji();
int ask_baowu();

object who = this_player();


void create()
{
    set_name("上官剑南", ({ "shangguanjiannan", "shang", "shangguan", "jiannan"}));
    set("nickname", "铁掌水上漂");
	set("long", 
        "这位上官帮主乃是一位侠义之士，铁掌帮自他接任后，力加整顿，多行侠\n"
        "义之事，不过数年声势大振，在江湖上侵寻已可以与北方的丐帮分庭抗礼了。只是后来忽\n"
        "然消声匿迹，不知所踪了。\n");
	set("gender", "男性");
	set("age", 80);
    set("attitude", "peaceful");
	set("shen_type", 1);
        set("str", 75);
	set("int", 70);
	set("con", 78);
        set("dex", 74);
	
	set("max_qi", 36000);
	set("max_jing", 36000);
	set("neili", 56000);
	set("max_neili", 56000);
	set("jiali", 200);
	set("combat_exp", 9500000);
	set("score", 500000);

	set_skill("force", 280);
	set_skill("guiyuan-tunafa", 320);
	set_skill("dodge", 300);
	set_skill("strike", 300);
	set_skill("hammer", 300);
	set_skill("axe", 300);
	set_skill("shuishangpiao", 320);
	set_skill("strike", 250);
	set_skill("tiezhang-zhangfa", 320);
	set_skill("parry", 200);
	set_skill("literate", 100);
	set_skill("tiexue-hammer",320);
	set_skill("duanyun-fu", 320);
	set_skill("tongbi-zhang", 320);
		
	map_skill("force", "guiyuan-tunafa");
	map_skill("dodge", "shuishangpiao");
	map_skill("unarmed", "tiezhang-zhangfa");
	map_skill("strike", "tiezhang-zhangfa");
	map_skill("parry", "duanyun-fu");
	map_skill("axe", "duanyun-fu");
	prepare_skill("strike", "tiezhang-zhangfa");
        set("chat_chance_combat", 90);
        set("chat_msg_combat", ({
                (: perform_action, "axe.cuo" :),
                (: perform_action, "axe.duan" :),
                (: perform_action, "axe.hongtianza" :),
                (: perform_action, "axe.tiaoyan" :),
                (: perform_action, "strike.dao" :),
                (: perform_action, "strike.ying" :),
                (: perform_action, "strike.yin" :),
                (: perform_action, "strike.tianlei" :),
                (: perform_action, "strike.tiezhangxianglong" :),
                  (: perform_action, "strike.zhangdao" :),

        }) );

            set("inquiry", ([
"name" : "老夫复姓上官，名剑南。乃是铁掌帮的第十三代帮主。\n",
"here" : "裘千仞为了将我囚禁起来，特地派人在山腹中凿了这间石室！哼！\n",
"忘恩负义的东西" : (: ask_dongxi :),
"武穆遗书" : (: ask_wumu :),
"心愿" : (: ask_xinyuan :),
"绝技" : (: ask_jueji :),
"宝物" : (: ask_baowu :),
        ]));
        set("chat_chance", 1);
        set("chat_msg", ({
"上官剑南怒道：如若老夫得以重见天日，定要将那忘恩负义的东西碎尸万段！！！\n",
"上官剑南叹道：唉！不知那武穆遗书现在何处，真让人担心呀！唉！！\n",
        }) ); 

    create_family("铁掌帮", 13, "帮主");


	setup();
carry_object(__DIR__"obj/axe")->wield();
	carry_object(__DIR__"obj/black-cloth")->wear();
}

/*void attempt_apprentice(object me)
{
        if ((int)me->query("shen") < 50000) {
                command("hehe");
                command("say 我上官剑南可不收心地不纯的人做徒弟。");
                return;
        }
                command("say 好吧，我就收下你了。希望你苦练铁掌神功，将之发扬光大。");
                command("recruit " + me->query("id"));
}*/

//int recruit_apprentice(object ob)
//{
//        if( ::recruit_apprentice(ob) )
//                add("apprentice_available", -1);
//}
void attempt_apprentice(object ob)
{
         if ((int)ob->query("shen") <=10000) {
                command("shake");
                command("say 你目露凶光，满脸阴鸷之气，非老朽中意之人，你还是回去吧！");
                return;
        }
         if ((int)ob->query_skill("guiyuan-tunafa", 1) < 140) {
                command("shake");
                command("say 铁掌帮的武功乃是以归元吐呐法为基础的！");
                command("say 你的基本功还未练好，现在我没什么可以教你的！");
                command("sigh");
                return;
        }
          if ((int)ob->query_skill("tiezhang-zhangfa", 1) < 140) {
                command("shake");
                command("say 铁掌掌法乃我帮镇帮绝技！");
                command("say 你的基本功还未练好，现在我没什么可以教你的！");
                return;
        }
          if ((int)ob->query_temp("mark/还书")) {
                command("say 好吧，我就收下你了。希望你不要让我失望！");
                command("recruit " + ob->query("id"));
                command("say 现在你既入我的门下，就当刻苦练习铁掌绝技。我帮\n"
                        "开山建帮，数百年来扬威中原，靠的就是这套掌法。威猛虽不及降龙\n"
                        "十八掌，可是掌法精奇巧妙，犹在降龙十八掌之上。");
                command("haha");
                command("look " + ob->query("id"));
                command("hmm");
                command("say 你的铁掌掌法练得已算不错，但仍未得神髓。铁掌的\n"
                        "威力所在，乃是要与归元吐呐法相结合，于战斗中，可以使出一招绝\n"
                        "技，唤做——天雷气，威力绝伦，无坚不摧。");
                command("pat " + ob->query("id"));
                command("say 现在为师就将此绝技传授于你！");
                }
                else
                {
                command("say 老夫一直很惦记武穆遗书，你能否去把它找来给我！\n");
                return;
        }
}
int recruit_apprentice(object ob)
{
        if( ::recruit_apprentice(ob) )
                add("apprentice_available", -1);
            ob->set("title", HIM"铁掌帮上官帮主弟子"NOR);
        ob->set("class","brigand");
}
int ask_dongxi()
{
command("say 唉！裘千仞本是我最得意的弟子，他当年曾救我一命，因此我也毫无保留\n"
"的倾囊以授，盼他在我百年后能传我衣钵。怎奈他年轻气盛，基础还未打好，就要学铁掌\n"
"的绝技，我因他基础未固，所以未加传授。他因此怀恨在心，以为老夫藏私。遂趁老夫酒\n"
"醉之际，将我双腿打断，用铁链穿过琵琶骨，关在这间石室之中，逼老夫将绝技传授于他！\n");
command("sigh");
return 1;
}

int ask_jueji()
{
command("say 这项绝技名叫--天雷气，于战斗中perform tianlei，即可释放出无坚不摧\n"
"的罡气，当者非死即伤，十分霸道！\n");
return 1;
}

int ask_wumu()
{
    object ob;
    ob = this_player();

if ( !present("zitie", ob)) 
{
command("say 嘿嘿，武穆遗书的下落乃是关系到民族兴亡的大事，我如何能放心告诉你？\n");
return 1;
}
else 
{
command("look " + ob->query("id"));
command("say 这位" + RANK_D->query_respect(ob) + "既然身揣《满江红》的字帖，定是我辈中人了，好吧，老夫就\n"
"将武穆遗书的事告诉你吧！\n");
command("say 武穆遗书乃是岳武穆死后留下的一部兵法，其中记载了行军打仗的要诀。\n"
"老夫当年曾是韩世忠将军的部下，岳将军死后，我一气之下，落草为寇，后来入了铁掌帮。\n"
"几年后我听说这部遗书藏在皇宫之中，就尽点帮中高手，将它偷了回来。本想将之交给一\n"
"个忠心爱国的将领。唉！怎奈我忽然身遭巨变，这个心愿也未能达成。\n");
this_player()->set_temp("marks/遗书1", 1);
return 1;
}
}

int ask_xinyuan()
{
if ((int)this_player()->query_temp("marks/遗书1")) {
command("say 老夫当年曾画过一张山水画，其中暗藏着放遗书的地点，我将这副画放在了\n"
"牛家村,如果你能找到这副画，就可以按画中所指，去拿武穆遗书了。\n");
this_player()->set_temp("find_shanshui", 1);
return 1;
}
else{
command("say 老夫却有个未了的心愿，但不能告诉你！\n");
return 1;
}
}

int accept_object(object who, object ob)
{
        //object who;
        who = this_player();

        if ((string)ob->query("name")=="「武穆遗书」") {
             
                command(
"say 啊！这正是我要找的武穆遗书，这本宝书能重见天日，真是上苍有眼啊！\n"
"你帮我找回这本书，我不会亏待你的！\n");

                this_player()->set_temp("mark/还书", 1);
        return 1;
                }
else return 0;          

}

int ask_baowu()
{
        object me  = this_player();
        mapping fam = me->query("family");

        if(!fam || fam["family_name"] != "铁掌帮"){
                command("say "+RANK_D->query_respect(me) + "与本派素无来往，不知此话从何谈起？");
                return 0;
                }

         if(fam["master_name"] != "上官剑南" ){
                command("say 你是什么东西，给我滚出去! ");
                write(HIY"一股巨大的气流，迎面扑来，把你推出了石室"NOR);
                me->move("/d/tiezhang/wmfeng");
                return 1;
                }
         else{
         command("say 这个秘密我只告诉你，附耳过来。");
         write("宝物在第二指节的洞穴里。\n");
         me->set_temp("marks/baowu", 1);
         return 1;
         }
}