wang.c

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

// wang.c 王重阳
// By Lgg,1998.10

#include <ansi.h>

inherit NPC;

string ask_jiuyin();
string ask_zhipu();
string ask_duan();

void create()
{
        set_name("王重阳", ({"wang chongyang", "wang"}));
        set("gender", "男性");
        set("age", 66);
        set("class", "taoist");
        set("title",HIW"中神通"NOR);
        set("long",
                "他就是全真教的开山祖师、首代掌教王重阳王真人。他白须飘\n"
                "飘，宽袍缓袖，眉目清癯，颇有些仙风道骨的味道。他本来一\n"
                "腔热血欲报效国家力抗金兵，可惜朝廷腐败，于是心灰意冷，\n"
                "又从道德经中悟得了天地滋生的大道，手创全真教。\n");
        set("attitude", "peaceful");
        set("shen_type",1);
        set("str", 75);
        set("int", 75);
        set("con", 75);
        set("dex", 75);
        set_temp("no_kill",1);
        set("chat_chance_combat", 80);
        set("chat_msg_combat", ({
                (: perform_action, "sword.ding" :),
                (: perform_action, "sword.qixing" :),
                (: perform_action, "sword.qixinggongyue" :),
                (: perform_action, "sword.jianqi" :),
                (: perform_action, "sword.sanqing" :),
                (: perform_action, "sword.tonggui" :),                
                (: perform_action, "finger.sandie" :),
                (: perform_action, "finger.sandie" :),
                (: perform_action, "strike.ju" :),                
                (: perform_action, "strike.lianhuan" :),                
                (: exert_function, "powerup" :),                
                (: exert_function, "xiantiandafa" :),                
        }));

        set("qi", 25500);
        set("max_qi", 25500);
        set("jing", 25500);
        set("max_jing",25500);
        set("neili", 69000);
        set("max_neili", 69000);
        set("jiali", 100);
        set("szj/passed",1);
        set("double_attack",1);
        set("breakup", 1);
        set("szj/over200", 1);
        set("jiuyin/full", 1);
        set("jiuyin/shang", 1);
        set("jiuyin/xia", 1);
         set_temp("apply/attack", 150);
        set_temp("apply/defense", 150);
        set_temp("apply/armor", 500);
        set_temp("apply/damage", 300);
        set("combat_exp", 6600000);
        set("score", 500000);
	set_skill("kurong-changong", 500);
        set_skill("finger", 550);
        set_skill("yiyang-zhi", 550);
        set_skill("force", 500);
        set_skill("xiantian-qigong", 500);    //先天气功
        set_skill("sword", 550);
        set_skill("quanzhen-jian",500);  //全真剑
        set_skill("dodge", 560);
        set_skill("jinyan-gong", 500);   //金雁功
        set_skill("parry", 500);
        set_skill("unarmed",500);
        set_skill("haotian-zhang", 500);    //昊天掌
        set_skill("array",500);
        set_skill("qixing-array",500);
        set_skill("literate",520);
        set_skill("strike",550);
        set_skill("taoism",540);
        set_skill("finger",500);
        set_skill("sun-finger",500);  //一阳指
        map_skill("force", "xiantian-qigong");
        map_skill("sword", "quanzhen-jian");
        map_skill("dodge", "jinyan-gong");
	map_skill("finger", "yiyang-zhi");
	map_skill("parry", "yiyang-zhi");
        map_skill("strike", "haotian-zhang");
	map_skill("finger", "yiyang-zhi");
	map_skill("parry", "yiyang-zhi");
        prepare_skill("finger","yiyang-zhi");
        prepare_skill("strike","haotian-zhang");

        create_family("全真教", 1, "掌教");

        setup();

        carry_object("/clone/weapon/changjian")->wield();
        carry_object("/d/quanzhen/npc/obj/greenrobe")->wear();

}

int heal_up()
{
	if( environment() && !is_fighting() ) {
		call_out("leave", 1);
		return 1;
	}
	return ::heal_up() + 1;
}

void leave()
{
	object owner;
	message("vision",HIG"比武结束！\n\n"
		+ name() + HIG"身形一闪，消失不见了。\n" NOR, environment(),
		this_object() );
	destruct(this_object());
}
void unconcious()
{
die();
}
void die()
{
        object ob, me, corpse;
        
        ob = this_object();
        me = query_temp("last_damage_from");
        if (!me) return;
if (me==ob) 
{
me->set("qi",1);
me->set("eff_qi",1);
me->set("jing",1);
me->set("eff_jing",1);
}
if (!me->query_skill("jiuyin-zhengong",1)
&& me->query_temp("hsljn"))
{
me->set_temp("hslj/5",1);
message("channel:chat", "【华山论剑】听说"+me->name() + "打败了"+ob->query("title")+ob->query("name")+"!"NOR"\n", users());
        me->add("combat_exp",300);
        me->add("potential",100);
}
        destruct(ob);
        return;
}