qianke.c

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

/*  <SecCrypt CPL V3R05>  */
 
//  created  7/6/1997  by  snowcat
#include  <ansi.h>

inherit  NPC;

object  room  =  0;

void  create()
{
    set_name("签客",  ({"qian  ke",  "ke"  }));
    set("gender",  "男性");
    set("age",  30);
    set("per",  30);
    set("long",  "一位精瘦的签客。\n");
    set("combat_exp",  5000);
    set_skill("force",  50);
    set_skill("unarmed",  50);
    set_skill("dodge",  50);
    set_skill("parry",  50);
    set("gin",  500);
    set("max_gin",  500);
    set("kee",  500);
    set("max_kee",  500);
    set("sen",  500);
    set("max_sen",  500);
    set("force",  150);
    set("max_force",  150);
    set("mana",  150);
    set("max_mana",  150);
    set("force_factor",  10);
    setup();
    carry_object(__DIR__"obj/magua")->wear();
}

void  init()
{
    ::init();
    add_action("do_fight",  "fight");
    add_action("do_kill",  "kill");
    add_action("do_steal",  "steal");
    add_action("do_cast",  "cast");
    add_action("do_exert",  "exert");
    if  (room  ==  0)
        room  =  environment  (this_object());
}

void  refuse_message  (object  me,  object  who)
{
    message_vision  ("$N向$n摇了摇头。\n",me,who);
}

int  do_fight(string  arg)
{
    object  who  =  this_player();
    object  me  =  this_object();

    if  (arg  &&  present(arg,environment(who))==me)
    {
        message_vision  ("$N看样子输红了眼，想找$n打架。\n",who,me);
        refuse_message  (me,who);
        return  1;
    }
    return  0;
}

int  do_kill(string  arg)
{
    object  who  =  this_player();
    object  me  =  this_object();

    if  (arg  &&  present(arg,environment(who))==me)
    {
        message_vision  ("$N看样子输红了眼，想杀$n。\n",who,me);
        refuse_message  (me,who);
        return  1;
    }
    return  0;
}

int  do_cast(string  arg)
{
    object  who  =  this_player();
    object  me  =  this_object();

    message_vision  ("$N看样子输红了眼，想念咒语。\n",who,me);
    refuse_message  (me,who);
    return  1;
}

int  do_exert(string  arg)
{
    object  who  =  this_player();
    object  me  =  this_object();

    message_vision  ("$N看样子输红了眼，想施内功。\n",who,me);
    refuse_message  (me,who);
    return  1;
}

int  do_steal(string  arg)
{
    object  who  =  this_player();
    object  me  =  this_object();

    message_vision  ("$N看样子输红了眼，鬼鬼祟祟地想偷什么。\n",who,me);
    refuse_message  (me,who);
    return  1;
}