zhang.c

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

// zhang.c
#include <ansi.h>

inherit NPC;
inherit F_UNIQUE;
inherit F_MASTER;
int do_join(string arg);

void create()
{
	set_name("张淡月", ({ "zhang danyue", "zhang"}));
	set("title", HIY"神龙教"BLU"黑龙使"NOR);
	set("long", "这是一个黑衣大汉, 脸色大变, 身子发颤, 似乎恐惧已极.\n" );
	set("gender", "男性");
	set("age", 44);
	set("str", 35);
	set("dex", 20);
	set("max_qi",3000);
        set("qi",3000);
	set("max_jing",1000);
        set("jing",1000);
	set("combat_exp", 500000);
	set("score", 40000);
	set("shen_type", -1);
	set("attitude", "peaceful");

	set_skill("force", 90);
	set_skill("huntian-qigong", 85);
	set_skill("dodge", 90);
	set_skill("xiaoyaoyou", 85);
	set_skill("unarmed", 85);
	set_skill("xianglong-zhang", 85);
	set_skill("shedao-qigong", 90);
	set_skill("shenlong-xinfa", 90);
	set_skill("parry", 70);
	set_skill("staff", 90);
	set_skill("literate", 70);

	map_skill("force", "shenlong-xinfa");
	map_skill("dodge", "xiaoyaoyou");
	map_skill("unarmed", "xianglong-zhang");
	map_skill("parry", "xianglong-zhang");

	create_family("神龙教",2,"弟子");

	set("neili", 1000); 
	set("max_neili", 1000);
	set("jiali", 100);
        set("inquiry", ([
		"神龙教" :  "一般人是入不了我神龙教的(join shenlongjiao).\n",
		"入教" :  "一般人是入不了我神龙教的(join shenlongjiao).\n",
		"洪安通" :  "教主脾气不好,要讨他欢心才好。\n",
		"教主" :  "教主脾气不好,要讨他欢心才好。\n",
		"口号" : "万年不老!永享仙福!寿与天齐!文武仁圣!\n",
	]) );
	setup();
	carry_object("/clone/misc/cloth")->wear();
	add_money("silver", 10);
}

void init()
{
	object ob;

	::init();
	if( interactive(ob = this_player()) && !is_fighting() ) {

		remove_call_out("greeting");
		call_out("greeting", 50, ob);
	}
	add_action("do_join","join");
}

void greeting(object ob)
{
	object obj;
       if (ob)
{
        if (interactive(ob))
        {
	if (obj = present("usedgao", ob))          
	   set("combat_exp",100000);
	   set("qi",100);
	   set("jing",100);
	}
}
	return;
}

void attempt_apprentice(object ob)
{
	command("say 你走开! 别烦我! ");
	return;
}
#include "/kungfu/class/shenlong/shenlong.h";