huo.c

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

// huo.c 霍青桐

#include <ansi.h>

inherit NPC;
inherit F_MASTER;

void create()
{
	set_name("霍青桐", ({ "huo qingtong", "huo","qingtong" }));
	set("long", 
"这女郎秀美中透着一股英气，光采照人，当真是丽若春梅绽雪，神如
秋蕙披霜，两颊融融，霞映澄塘，双目晶晶，月射寒江。腰插匕首，
长辨垂肩，一身鹅黄衫子，头戴金丝绣的小帽，帽边插了一根长长的
翠绿羽毛，革履青马，旖旎如画。\n");
	set("nickname", HIG"翠羽"HIY"黄衫"NOR);
	set("gender", "女性");
	set("class", "swordsman");
	set("age", 18);
	set("attitude", "friendly");
	set("shen_type", 1);
	set("per", 30);
	set("str", 30);
	set("int", 30);
	set("con", 30);
	set("dex", 30);
	
	set("max_qi", 2000);
	set("max_jing", 1000);
	set("neili", 1000);
	set("max_neili", 1000);
	set("jiali", 100);
	set("combat_exp", 600000);

	set_skill("literate", 120);
	set_skill("force", 120);
	set_skill("dodge", 120);
	set_skill("parry", 120);
	set_skill("sword", 120);
	set_skill("hand", 120);
	set_skill("claw", 120);
	set_skill("yunlong-xinfa", 120);
	set_skill("yunlong-shengong", 120);
	set_skill("yunlong-jian", 120);
	set_skill("yunlong-shenfa", 120);
	set_skill("yunlong-shou", 120);
	set_skill("yunlong-zhua", 120);

	map_skill("dodge", "yunlong-shenfa");
	map_skill("force", "yunlong-shengong");
	map_skill("hand", "yunlong-shou");
	map_skill("parry", "yunlong-shou");
	map_skill("claw", "yunlong-zhua");
	map_skill("sword", "yunlong-jian");

	prepare_skill("hand","yunlong-shou");
	prepare_skill("claw","yunlong-zhua");
	set("env/wimpy", 60);
	set_temp("is_riding", HIC"青骢马"NOR);
	set("env/wimpy", 40);

 	setup();
	carry_object(__DIR__"obj/cuiyu")->wear();
	carry_object(__DIR__"obj/huangshan")->wear();
	carry_object(__DIR__"obj/shortsword")->wield();
	carry_object(__DIR__"obj/horse");
}

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)
{
	command("ride horse");
}