oldman.c

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

// oldman.c
// by victori
#include <ansi.h>
inherit NPC;
inherit F_DEALER;
int ask_me();

void create()
{
	set_name("白髯老者", ({ "old man", "oldman"}) );
	set("gender", "男性" );
	set("age", 64);
	set("long",
		"一个须发皆白的老者，精神矍铄，满面红光。\n");
	set("max_qi", 2000);
	set("max_jing", 2000);
	set("max_neili", 2000);
	set("jiali", 50);
	set("combat_exp", 400000);
	set("attitude", "friendly");
	set("title", "毒叟");
	set_skill("dodge", 120);
	set_skill("unarmed",120);
	set_skill("parry", 120);
	set_skill("force",120);
	set_skill("hammer", 120);
	set_skill("duji", 120);
	set_skill("sword",120);
	set_skill("literate", 50);
	set_skill("wudu-yanluobu", 120);
	set_skill("qianzhu-wandushou", 120);
	set_skill("wudu-shengong", 120);

        map_skill("force", "wudu-shengong");
        map_skill("dodge", "wudu-yanluobu");
        map_skill("unarmed", "qianzhu-wandushou");
        map_skill("parry", "qianzhu-wandushou");
	set("vendor_goods", ({
//	       __DIR__"obj/jiedudan",
	}));
	setup();
	carry_object("/clone/misc/cloth")->wear();
       add_money("silver",30);
set("inquiry", ([
"寄存": (: ask_me :),
"毒虫": (: ask_me :),
"照看": (: ask_me :),
]) );
}

void init()
{	
	object ob;

	::init();
	if( interactive(ob = this_player()) && !is_fighting() ) {
		remove_call_out("greeting");
		call_out("greeting", 1, ob);
	}
}

void greeting(object ob)
{
	if( !ob || environment(ob) != environment() ) return;
	switch( random(3) ) {
		case 0:
			say( "白髯老者掀髯笑道：这位" + RANK_D->query_respect(ob)
				+ "，是来领你养的毒虫的吗？\n");
			break;
		case 1:
			say( "白髯老者得意的道：老朽没有别的嗜好，就是从小喜欢摆弄毒虫，\n这位" + RANK_D->query_respect(ob)
				+ "要是有事外出，身边的毒虫不妨交我照看。\n");
			break;
		case 2:
			say( "白髯老者嘿嘿奸笑道：这位" + RANK_D->query_respect(ob)
				+"不如将毒虫寄存在老朽这里吧，这里暂时不收钱的。\n");
			break;
	}
}
int ask_me()
{
        object me;
        me = this_player();
        if ((string)me->query("family/family_name") != "五毒教"){
        command("say 这位"+ RANK_D->query_respect(me)
               + "不是本教弟子，怎么跑到这里来了？\n");
        return 1;
         }
        command("say 老朽对养虫之道多有研究，把你的毒虫寄存(cun)在我这吧。\n每次只收黄金一两，领回(qu)时一次付清，不过是虫子的饭钱而已。");
        return 1;

}