bigmonkey.c

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

// bigmonkey.c

inherit NPC;

void create()
{
    set_name("大白猿", ({ "yuan", "dabai yuan", "big monkey" }) );
    set("gender", "雄性");
    set("race", "野兽");
    set("age", 65);
    set("long",
        "这是一只大白猿，奇怪的是从它身上闻得到一阵腐臭之气，原来白猿肚上脓血
模糊，生著一个大疮。\n");
    set("combat_exp", 50000);
    set("shen_type", 1);
    set("attitude", "peaceful");
    set("limbs", ({ "猿齿", "前爪", "后爪", "尾巴" }) );
    set("verbs", ({ "bite", "claw" }) );

    set("water", 200);
    set("food", 200);

    set("apply/attack", 100);
    set("apply/defense", 100);

    set_skill("unarmed", 25);
    set_skill("parry", 20);
    set_skill("dodge", 20);
    set("bag_count",1);

    setup();
}
void init()
{
    add_action("do_lifeheal", "lifeheal");
}
int do_lifeheal(string arg)
{
    object weapon, bag, me = this_player();
    if (query("bag_count")<1)
    {
        write("白猿一把跳开，不想让你医治！\n");
        return 1;
    }
    if( !arg || arg != "yuan")
    {
        write("你想干什么呀?\n");
        return 1;
    }
    if (!present("fish bone", me))
    {
        write("怎麽，管开刀不管缝肚皮啊！\n");
        return 1;
    }
    if (!objectp(weapon = me->query_temp("weapon")) ||
        ((string)weapon->query("skill_type") != "sword" &&
         (string)weapon->query("skill_type") != "blade"))
         return notify_fail("你没有工具怎麽给它做手术！\n");

    message_vision(
"$N割开右边及上端的缝线，再斜角切开早已联结的腹皮，只见它肚子
里藏著一个油布包裹。$N将油布包放在一边，以鱼骨做针，在它腹皮
上刺下一个个小孔，再将树皮撕成细丝，穿过小孔打结，勉强将白猿
的腹肌缝好，在创口敷上草药。\n", me);
        bag = new("/d/mingjiao/obj/bag");
        bag -> move (environment(me));
        add("bag_count",-1);
        return 1;
}