qiangdao2.c

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

// qiangdao.c 强盗
// lag.2000/3/17

inherit NPC;
#include <ansi.h>
void move();

void create()
{       object me;
        int myskill;
        me=this_player();
        myskill=me->query_skill("force");
        set_name(HIC "逍遥派叛徒首领" NOR, ({ me->query("id")+"-pantu"}));
        set("title",me->query("name")+"定下的");
        set("gender", "男性");
        set("age", 28);
        set("long", "他是一个逍遥派叛徒。\n");
        
        set("attitude", "peaceful");
        set("qi", me->query("qi"));
        set("max_qi", me->query("max_qi"));
        set("jing", me->query("jing"));
        set("neili", me->query("neili"));
        set("max_neili", me->query("max_neili"));
        set("max_jing", me->query("max_jing"));
        set("str", me->query("str"));
        set("dex", me->query("dex"));
        set("per", me->query("per"));
        set("killer",me->query("id"));
        set("combat_exp", me->query("combat_exp"));
// 加下面5句是让强盗自动走，增添玩家做机器人的困难！-糖圆SMILE
	set("chat_chance_combat", 60);  
	set("chat_msg_combat", ({
                (: perform_action, "blade.shishiruyi" :),
                (: perform_action, "blade.shishiruyi" :),
                (: perform_action, "blade.ruyi" :),
                (: perform_action, "blade.ruyi" :),
                (: perform_action, "dodge.lingbo" :),
                (: perform_action, "dodge.lingbo" :),
                (: exert_function, "strike.zhong" :),                
                (: exert_function, "strike.zhong" :),                
	}) );
             set("chat_chance", 60);
             set("chat_msg", ({
              (: random_move :)
        }) );


        set_skill("hand", myskill * 4 / 5);
        set_skill("dodge", myskill * 4 / 5);
        set_skill("unarmed", myskill* 4 / 5);
        set_skill("parry", myskill* 4 / 5);
        set_skill("force", myskill* 4 / 5);
        set_skill("blade", myskill* 4 / 5);
        set_skill("lingboweibu", myskill* 4 / 5);
        set_skill("ruyi-dao", myskill* 4 / 5);
        set_skill("liuyang-zhang", myskill* 4 / 5);
        set_skill("zhemei-shou", myskill* 4 / 5);
	map_skill("unarmed", "liuyang-zhang");
	map_skill("parry", "ruyi-dao");
	map_skill("blade", "ruyi-dao");
	map_skill("dodge", "lingboweibu");
	map_skill("force", "beiming-shengong");
	prepare_skill("hand","zhemei-shou");
	prepare_skill("strike","liuyang-zhang");	
        set_temp("apply/attack", 200);
        set_temp("apply/defense", 200);
        set_temp("apply/armor", 200);
        set_temp("apply/damage", 250);
        setup();
        carry_object("/clone/misc/cloth")->wear();
        carry_object("/clone/weapon/gangdao")->wield();

}

void init()
{
        remove_call_out("leave");
        call_out("leave",60);
}

void leave()
{
        object ob = this_object();
        if (!ob->is_fighting()) {
                message_vision(HIC "逍遥派叛徒首领钻进路边的杂草，不见了。\n" NOR,this_object());
                destruct(this_object());
                }
        else call_out("leave",30);
}

void die()
{
        object me = this_object()->query_temp("last_damage_from");
        object corpse;      
        int kar, exp, pot;
        kar = random(me->query("kar")) * 15;
//        shen1 =  300+random(100);
//        shen2 =  random(50);
        exp = 300 + kar;
        pot = 150 + random(exp);

        message_vision(HIR "\n逍遥派叛徒首领倒在地上，挣扎了几下就死了。\n" NOR,me);
        if (me->query("kill_xiaoyao") == 1 && this_object()->query_temp("owner/id") == me->query("id")) {
message("channel:chat",HIG"〖江湖任务〗"+me->query("name")+"成功的杀死逍遥派叛徒，为本派立下功劳。\n"NOR,users());
                  message_vision(HIC "\n由于$N成功的杀死一个强盗，被奖励：\n"
                + chinese_number(exp / 2) + "点实战经验，\n"
                + chinese_number(pot / 2) + "点潜能，\n"
                + chinese_number(2) + "点评价作为答谢。\n" NOR, me);
                me->add("combat_exp", exp / 2);
                me->add("potential", pot / 2);
                me->add("score",2);
                me->delete("quest");
                me->delete("kill_qiangdao");
                }

        corpse = new("/clone/misc/corpse");
        corpse->set("name",HIW "逍遥派叛徒的尸体" NOR);
        corpse->set("long","他是一个曾经无恶不做的逍遥派叛徒，\n然而，他已经死了，剩下一具丑陋的尸体。\n");
        corpse->move(environment(this_object()));
        corpse->set_max_encumbrance(1000);        
        me->add("MKS", 1);

        destruct(this_object());
}