xuanya1.c

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

//Cracked by Kafei
// road: /zhongnan/xuanya1.c
// by sdong 08/98

inherit ROOM;
#include <ansi.h>
int do_climb(string arg);
int do_exercise(string arg);
int do_practice(string arg);
int do_study(string arg);

void create()
{
		  set("short",HIC"悬崖"NOR);

		  set("long",@LONG
你攀在悬崖上，这悬崖高达数十丈，高耸接云，有些地方直如墙壁一般陡峭，
悬崖四面都是险岩怪石，越往上就越难攀，四面光溜溜的崖陡如壁，寸草不生。望
下一瞧，只吓得魂飞魄散。原来上来时一步步的硬挺，想从原路下去时，本来的落
脚之点已给凸出的岩石挡住，再也摸索不到，若是涌身向下一跳，势必碰在山石上
撞死。几只巨大的黑雕盘旋在空中。
LONG);

	  set("cost",4);
set("outdoors", "quanzhen");
	  setup();
}

void init()
{
	add_action("do_climb", "climb");
	add_action("do_exercise",  "exercise");
	add_action("do_exercise",  "dazuo");
	add_action("do_exercise",  "respirate");
	add_action("do_exercise",  "tuna");
	add_action("do_practice",  "practice");
	add_action("do_practice",  "lian");
	add_action("do_study",  "study");
	add_action("do_study",  "du");
}

int do_exercise(string arg)
{
		  object me = this_player();
		  tell_object(me, "你爬在悬崖上，手脚并用，都觉得吃力，哪能腾出手来练功啊？\n");
		  return 1;
}

int do_practice(string arg)
{
		  object me = this_player();
		  tell_object(me, "你爬在悬崖上，手脚并用，都觉得吃力，哪能腾出手来练功啊？\n");
		  return 1;
}

int do_study(string arg)
{
		  object me = this_player();
		  tell_object(me, "你爬在悬崖上，手脚并用，都觉得吃力，哪能腾出手来读书啊？\n");
		  return 1;
}

int do_climb(string arg)
{
	object me = this_player();
	int gain,cost;

	if(me->is_busy())
		return notify_fail("你还在忙着呢。\n");

	if(me->query_skill("dodge") < 45 && arg == "up" )
		return notify_fail("四面光溜溜的崖陡如壁，你轻功不够，怎么也爬不上去。\n");

	cost = ( 300-me->query_dex()*me->query_skill("dodge")/20 )/10;
	if ( cost<10 )cost = 10;

	if( me->query("jing") < 30)
		return notify_fail("你累的实在爬不动了。\n");

	me->add("jing",-cost);

	if( arg != "up" && arg != "down" )
		return notify_fail("那个方向没法爬。\n");

	gain = me->query("con",1)*2;

	if ( me->query_skill("dodge") > 200 ) gain /= 2;

	me->improve_skill( "dodge",gain+random( gain ) );
	if( me->query_skill( "jinyan-gong",1) > 0 )
		me->improve_skill( "jinyan-gong",random( gain ) );


	if(arg == "up" )
	{
		message_vision( HIY"\n$N在悬崖上攀藤附葛，一步步的爬上去。\n"NOR, me);
		me->move(__DIR__"xuanya2");
		message_vision( HIY"\n$N爬了上来。\n"NOR, me);
		me->improve_skill( "dodge",(gain+random( gain ))/2 );
		me->add("jing",-cost);
		me->start_busy( 1 );
		return 1;
	}
	else if(arg == "down" )
	{
		message_vision( HIY"\n$N在悬崖上攀藤附葛，小心谨慎的爬下去。\n"NOR, me);
		me->move(__DIR__"hubing");
		message_vision( HIY"\n$N爬了下来。\n"NOR, me);
		return 1;
	}

	return notify_fail("那个方向没法爬。\n");
}