cong_bq.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 76 行

// NPC: /d/huashan/npc/cong_bq.c
// Date: Look 99/03/25

inherit NPC;

void create()
{
        set_name("从不弃",({"cong buqi", "cong", "buqi" }));
        set("title","华山派第十三代剑宗小弟子");
        set("nickname","恶剑客");
        set("long", "一个流里流气的市井小人，一双手格外粗大。\n");
        set("age", 40);
        set("attitude", "peaceful");
        set("shen_type", -1);
        set("str", 30);
        set("int", 30);
        set("con", 30);
        set("dex", 30);
        
        set("max_qi",2500);
        set("qi", 2500);
        set("max_jing", 3400);
        set("jing",3400);
        set("eff_jingli", 1700);
        set("jingli", 1700);
        set("max_neili", 9500);
        set("neili", 9500);
        set("jiali", 50);
        set("combat_exp", 800000);
        set("score", 30000);
        set("chat_chance_combat",40);
        set("chat_msg_combat", ({
        (: perform_action, "strike.wuji" :),
        (: perform_action, "sword.kuangfeng" :),
        }));
        set_skill("strike", 140);
        set_skill("hunyuan-zhang", 140);
        set_skill("sword",  140);
set_skill("huashan-neigong",  200);
        set_skill("dodge",  140);
        set_skill("force",  140);
        set_skill("parry",  140);
        set_skill("zixia-shengong", 100);
        set_skill("kuangfeng-jian",  260);
        set_skill("huashan-shenfa",  160);

        map_skill("dodge", "huashan-shenfa");
        map_skill("force","zixia-shengong");
        map_skill("sword","kuangfeng-jian");
        map_skill("parry","huashan-jianfa");
        map_skill("strike","hunyuan-zhang");
        prepare_skill("strike","hunyuan-zhang");
        create_family("华山派",13,"弟子");

        setup();
	 carry_object("clone/weapon/gangjian")->wield();
	 carry_object("clone/misc/cloth")->wear();
}

void init()
{
        object me, ob;
        ::init();

        ob = this_player();
        me = this_object();

        if (interactive(ob) && !environment(ob)->query("no_fight"))
        {
                       command("say 敢进入我剑宗禁地,只有死！！！\n");
                       me->set_leader(ob);
                       remove_call_out("kill_ob");
                       call_out("kill_ob", 1, ob); 
        }
}