qqren.c

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

// qqren.c 裘千仞

inherit NPC;
int ask_qiubai();
inherit F_MASTER;
#include "tz_job1.c"

void create()
{
    set_name("裘千仞", ({ "qiu qianren", "qiu", "qianren", "ren"}));
    set("nickname", "铁掌水上漂");
	set("long", 
        "他就是威震川湘的铁掌帮的帮主-铁掌水上漂裘千仞。\n"
        "他是一个白须老头，身穿黄葛短衫，右手挥着一把大蒲扇。\n");
	set("gender", "男性");
	set("age", 60);
    set("attitude", "peaceful");
	set("shen_type", -1);
        set("str", 55);
	set("int", 50);
	set("con", 58);
        set("dex", 55);
	
	set("max_qi", 24000);
	set("max_jing", 23000);
	set("neili", 34000);
	set("max_neili", 34000);
	set("jiali", 200);
	set("combat_exp", 1800000);
	set("score", 400000);
	set_skill("hammer",180);
	set_skill("tiexue-hammer",220);
	set_skill("force", 160);
	set_skill("guiyuan-tunafa", 220);
	set_skill("dodge", 160);
	set_skill("shuishangpiao", 220);
	set_skill("strike", 280);
	set_skill("tiezhang-zhangfa", 250);
	set_skill("parry", 180);
	set_skill("literate", 100);
	set_skill("axe", 280);
	set_skill("duanyun-fu", 220);
	map_skill("hammer", "tiexue-hammer");
	set_skill("duanyun-fu", 300);
	set_skill("tongbi-zhang", 300);
	map_skill("force", "guiyuan-tunafa");
	map_skill("dodge", "shuishangpiao");
	map_skill("unarmed", "tiezhang-zhangfa");
	map_skill("strike", "tiezhang-zhangfa");
	map_skill("parry", "tiezhang-zhangfa");
	prepare_skill("strike", "tiezhang-zhangfa");
        set("chat_chance_combat", 90);
        set("chat_msg_combat", ({
                (: perform_action, "strike.dao" :),
                (: perform_action, "strike.ying" :),
                (: perform_action, "strike.yin" :),
                (: perform_action, "strike.tianlei" :),
                (: perform_action, "strike.tiezhangxianglong" :),
                  (: perform_action, "strike.zhangdao" :),

        }) );


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

    set("inquiry", ([
"name" : "老夫便是“铁掌水上漂”裘千仞，你问老夫姓名有什么事么？\n",
"here" : "这里就是铁掌帮的总坛所在，你如没事，不要四处乱走，免招杀身之祸！！！\n",
"上官剑南" : (: ask_qiubai :),
                       "工作" : (: ask_job1 :),
                       "工具" : "你去工具房找要吧！", 
                       "work" : (: ask_job1 :),
                       "tools" : "你去工具房找要吧！", 

    ]));

	setup();
	carry_object(__DIR__"obj/black-cloth")->wear();
carry_object(__DIR__"obj/axe");
}
void init()
{
        object me, ob;
        ::init();
        ob = this_player();
        me = this_object();
 
       add_action("do_task","task"); 
     
}
void attempt_apprentice(object me)
{
        if ((int)me->query("shen") > -10000) {
                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);
}
int ask_qiubai()
{
say("他是我师父。我在十三岁那年曾救过他，之后他感恩图报，将全\n"
    "身武功倾囊相受。可惜十年前，他在湖北遭人围攻而死！唉！\n");
return 1;
}