long.c

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

//long.c

#include <ansi.h>

inherit NPC;
//inherit F_MASTER;

void create()
{
        set_name("龙亦凡", ({ "long", "dragon" }));
        set("long", "他就是天下闻之色变的侠客岛岛主，号称“不死神龙”。\n"
                   +"他须眉全白，脸色红润，有如孩童。看不出他的实际年纪。\n"
                   );
        set("title", "侠客岛主");
        set("gender", "男性");
        set("age", 75);
        set("nickname", HIR "不死神龙" NOR);
        set("shen_type",1);
        set("attitude", "peaceful");

        set("str", 60);
        set("int", 69);
        set("con", 60);
        set("dex", 68);

        set("qi", 33900);
        set("max_qi", 33900);
        set("jing", 33900);
        set("max_jing", 33900);
        set("neili", 61500);
        set("max_neili", 61500);
        set("jiali", 50);

        set("combat_exp", 8500000);
        set("score", 200000);
        set_skill("force", 370);
        set_skill("unarmed", 300);
        set_skill("dodge", 350);
        set_skill("parry", 350);
        set_skill("hand",370);
        set_skill("staff", 370);
        set_skill("taixuan-gong", 600);
//      set_skill("yanyangong", 200);
        set_skill("jinwu-daofa", 150);
//      set_skill("xiake-zhangfa", 100);
        set_skill("lingxu-bu", 150);

      map_skill("force", "taixuan-gong");
        map_skill("dodge", "taixuan-gong");
        map_skill("parry", "taixuan-gong");
        map_skill("unarmed", "taixuan-gong");
	set("chat_chance_combat", 80);
       set("chat_msg_combat", ({
                (: perform_action, "parry.po" :),
                (: perform_action, "parry.jing" :),
                (: perform_action, "parry.xuan" :),
                (: perform_action, "parry.po" :),
                (: perform_action, "parry.taixuan" :),
                
        }) );
	set_temp("apply/attack", 200);
	set_temp("apply/defense", 200);
	set_temp("apply/armor", 1000);
	set_temp("apply/damage", 600);
        create_family("侠客岛",1, "岛主");
        set("inquiry",([
           "腊八粥" :   "腊八粥只赠有缘人，不知你是否满足条件。？\n",
           "铜牌"   :   "我这可没有这玩艺，你如想要的话，可找别人问一问。\n",
        ]) );

        setup();
//        carry_object("/clone/weapon/gangdao")->wield();
        add_money("gold",5);
}

void attempt_apprentice(object ob)
{
        message_vision("龙岛主拍拍$N的头，微微摇了摇头。\n",ob);
//        command("recruit " + ob->query("id"));
        return;
}

int accept_object(object who, object ob)
{
        object obn;
        object room;
        object key;

        if( !who || environment(who) != environment() ) return 0;
        if ( !objectp(ob) ) return 0;
        if ( !present(ob, who) ) return notify_fail("你没有这件东西。\n");

        if( (string)ob->query("name") != "赏善铜牌" )
        {
              message_vision("我不需要这件东西。\n");
              return 0;
        }
        if ( (string)ob->query_temp("own") != (string)who->query("name") )
        {
              message_vision("这不是你的牌子。");
              return 0;
        }
        command(" say  原来是 "+(string)who->query("name")+"大侠"+"欢迎光临本岛。");

        obn=new("/d/xiakedao/obj/labazhou");
        obn->move(who);
        command(" say 这是本岛特产腊八粥，外边可不易喝到，其中最主要的一味是<断肠蚀骨腐心草>，"
           + "瞧" +  RANK_D->query_respect(who) + "也是有缘之人，快乘热喝，这样效力方著。"
          );
        message_vision("龙岛主给了你一碗腊八粥",who);
        if( (int)who->query_temp("zhou") == 2)
        {
             command(" say 看来居士福缘深厚，有机会一睹武林绝技，请进吧！");
             who->set_temp("zhou", 0);
             message_vision("只听得一阵隆隆的响声由远及近。\n", this_player());
             message_vision("只见岛主身后的石板缓缓移了开来，露出一条长长的甬道。\n", this_player());
             environment(who)->set("exits/enter", "/d/xiakedao/mishi");
             room=environment(who);
             remove_call_out("close");
             call_out("close", 15, room);
             key = new("/d/xiakedao/obj/key");
     message_vision("这是我身后石门的钥匙，也是侠客岛上的凭证，希望你妥善保管，不可随意丢弃，" +
                    "更不可交付他人，离岛时应与归还。\n", who);
             key->move(who);
             return 1;
        }
        who->set_temp("zhou", 1);
        return 1;
}
void close(object room)
{
        message("vision","轰隆隆的响声响过之后，石板又合上了。\n", room);
        room->delete("exits/enter");
}