haojie.c

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

// haojie.c
#include <ansi.h>;
inherit NPC;

int ask_back();
void create()
{
	set_name("太湖豪杰", ({ "hao jie", "jie" }));
	set("gender", "男性");
	set("age", 25);
	set("long", "这是归云庄属下的在太湖劫富济贫的太湖豪杰。\n");
	set("combat_exp", 100000);
        set_skill("dodge", 50);
        set_skill("lingxu-bu", 50);
        set_skill("unarmed", 50);
        set_skill("parry", 50);
        set_skill("changquan", 50);
        map_skill("unarmed", "changquan");
        map_skill("parry", "changquan");
        map_skill("dodge", "lingxu-bu");
	set("shen_type", 1);
	set("chat_msg", ({
		"太湖豪杰道：“要返航，就告诉我....\n",
	}));
	set("inquiry", ([
		"返航": (:ask_back:),
	]));
	setup();

	carry_object("/clone/misc/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( !ob || environment(ob) != environment() ) return;
	tell_object(ob,"太湖豪杰道：“这位"+RANK_D->query_respect(ob)+"，要返航，就告诉我....”\n");
}

int ask_back()
{
	object ob = this_player();
	environment(ob)->delete("exits/out");
	message_vision("船上群盗齐声应道：扯帆，回去庆功喽！\n", ob);
	message_vision("船夫升起帆，船就向归云庄航行。\n", ob);
	tell_object(ob, CYN "你率船在湖上破浪前行，威风凛凛.......\n" NOR ) ;
	call_out("rguiyun", 10 , ob );
	return 1 ;
}
void rguiyun( object ob )
{
	object ship, matou;
	if(!( ship = find_object("/d/guiyun/ship")) )
		ship = load_object("/d/guiyun/ship");
	if(!( matou = find_object("/d/guiyun/matou")) )
		matou = load_object("/d/guiyun/matou");
	tell_object(ob , "战船在一阵阵风浪声中靠上了码头。\n" ) ;
	ship->set("exits/out", "/d/guiyun/matou" );
}