youxun.c

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

// youxun.c
// pal 1997.05.28

#include <ansi.h>

inherit NPC;
inherit F_UNIQUE;

int ask_news();
int ask_meeting();

void create()
{
        set_name("游讯", ({ "you xun", "you", "xun" }) );
        set("nickname", "滑不留手");
        set("gender", "男性" );
        set("age", 42);
        set("long",
                "他就是专门打探、贩卖消息的游讯。\n");
        set("combat_exp", 100000);
        set("attitude", "friendly");

	set("max_jing",500);
	set("max_qi",500);
	set("str", 25);
	set("int", 25);
	set("con", 25);
	set("dex", 30);

        set("inquiry", ([
		"name" : "小的就是游讯，不知您要打听点什么？",
		"hop"  : "您是问清妩呀，她是一位年轻女子, 略有几分姿色. 就是脑门大了点。",
		"wind" : "您是问风云呀，他是金庸群侠传第一代大侠，想当年一剑平天下，何等威风。\n如今功成身退，归隐山谷，据说正潜心于一些幕后设计。",
                "tellmewhy" : "您是问小志呀，他最近被应科的一位小妹妹迷住了，也不成心编程，\n一代大虾为情所困，唉......\n",
		"欧冶子"  : "您问可以帮玩家造兵器的欧冶老爷子呀！据说他现在带着徒弟到西域去\n居住了，有人说他现在本事更大了，也不知真假\n",
		"news" : (: ask_news :),
		"meeting" : (: ask_meeting :),
		"新闻" : (: ask_news :),
		"比武大会" : (: ask_meeting :),
        ]) );

        set_skill("literate", 100);
        set_skill("dodge", 500);
        set_skill("unarmed", 300);
        setup();
        add_money("gold", 5);
	carry_object("d/city/obj/cloth")->wear();
}

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( environment(ob) != environment() ) return;
	command("hi "+ob->query("id"));
}

int ask_news()
{
	int rows;
	string temp;

	temp = read_file(__DIR__"news.txt", 2, 1);
	rows = atoi(temp);
	temp = read_file(__DIR__"news.txt", 3, rows);
	temp = "游讯说道：\n"+temp+"\n";
	write(temp);

	return 1 ;

}

int ask_meeting()
{
	int rows;
	string temp;

	temp = read_file(__DIR__"meeting.txt", 2, 1);
	rows = atoi(temp);
	temp = read_file(__DIR__"meeting.txt", 3, rows);
	temp = "游讯说道：\n"+temp+"\n";
	write(temp);

	return 1 ;

}