study.c

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

// study.c
#include <ansi.h>
#include <skill.h>

inherit F_CLEAN_UP;

void create() { seteuid(getuid()); }

int main(object me, string arg)
{
	object where = environment(me);
	object ob;
	string zhao_name, book_name;
	mapping skill;
	int my_skill, cost, times, i, success=0;

	if(!arg)
		return notify_fail("你要读什么？\n");
        if (where->query("pigging"))
                return notify_fail("你还是专心拱猪吧！\n");
        if (me->is_busy())
                return notify_fail("你现在正忙着呢。\n");

        if (where->query("sleep_room"))
                return notify_fail("卧室不能读书，会影响别人休息。\n");

       if( environment(me)->query("no_beg") &&
       environment(me)->query("no_fight") &&
       environment(me)->query("no_steal")) 
          return notify_fail(HIY"\n不要影响别人，还是找一个别的地方吧。\n"NOR);

	if( me->is_fighting() )
		return notify_fail("你无法在战斗中专心下来研读新知！\n");
	if(sscanf(arg, "%s %d", book_name, times)!=2 )
		return notify_fail("指令格式：study|du <书名> <次数>\n");
	if (times < 1 || times > 30)
		return notify_fail("读书次数最少一次，最多也不能超过三十次。\n");
        if (!me) return notify_fail("没这本书可读啊？\n");
        if (!present(book_name, me)) return notify_fail("没这本书可读啊？\n");
	if(!objectp(ob = present(book_name, me)) )
		return notify_fail("没这本书可读啊？\n");

	if( !mapp(skill = ob->query("skill")) )
		return notify_fail("你无法从这样东西学到任何东西。\n");

	if( !me->query_skill("literate", 1) )
		return notify_fail("你是个文盲，先学点文化(literate)吧。\n");

	message("vision", me->name() + "正专心地研读" + ob->name()
		+ "。\n", environment(me), me);
	if( (int)me->query("combat_exp") < skill["exp_required"] )
	{
                me->start_busy(1);
		write("你的实战经验不足，再怎么读也没用。\n");
		return 1;
	}

	notify_fail("以你目前的能力，还没有办法学这个技能。\n");
	if( !SKILL_D(skill["name"])->valid_learn(me) ) return 0;

	cost = skill["jing_cost"] + skill["jing_cost"] 
		* (skill["difficulty"] - (int)me->query("int"))/20;
	if (cost < 10) cost = 10; // minimum cost

	if( me->query_skill(skill["name"], 1) > skill["max_skill"] )
	{
                me->start_busy(1);
		return notify_fail("你研读了一会儿，但是发现上面所说的对你而言都太浅了，没有学到任何东西。\n");
//			write("你研读了一会儿，但是发现上面所说的对你而言都太浅了，没有学到任何东西。\n");
		return 1;
	}
	if( me->query_skill(skill["name"], 1) < skill["min_skill"] )
	{
                me->start_busy(1);
		return notify_fail("你研读了一会儿，但是发现上面所说的对你而言都太深奥了，毫无收获。\n");
//			write("你研读了一会儿，但是发现上面所说的对你而言都太深奥了，毫无收获。\n");
		return 1;
	}

	if( !me->query_skill(skill["name"], 1) ) me->set_skill(skill["name"], 0);

	if( (int)me->query("jing") < cost * times )
{
                me->start_busy(1);
	        return notify_fail("你的精不够用了。\n");
}
	my_skill = me->query_skill(skill["name"], 1);
if( (string)SKILL_D(skill["name"])->type()=="martial"
&&	my_skill * my_skill * my_skill / 10 > (int)me->query("combat_exp") )
		return notify_fail("也许是缺乏实战经验，你没法再学习这个问题了。\n");

	if( (int)me->query("jing") > cost * times )
	{
		if( (string)SKILL_D(skill["name"])->type()=="martial"
		&&	my_skill * my_skill * my_skill / 10 > (int)me->query("combat_exp") )
		{
                me->start_busy(1);
			printf("也许是缺乏实战经验，你对%s上面所说的东西总是无法领会。\n", ob->name());
		}
		else
		{
			if(zhao_name = SKILL_D(skill["name"])->query_skill_name(my_skill))
			printf("你研读了"+chinese_number(times)+"行有关%s的技巧，对「%s」这一招似乎有些心得。\n", 
				to_chinese(skill["name"]), zhao_name);
			else
			printf("你研读了"+chinese_number(times)+"行有关%s的技巧，似乎有点心得。\n", to_chinese(skill["name"]));
			for (i = 1; i <= times; i++)
			{
				me->improve_skill(skill["name"], (int)me->query_skill("literate", 1)/5+1);
			}
		}
	} else {
                me->start_busy(1);
		cost = me->query("jing");
		return notify_fail("你现在过于疲倦，无法专心下来研读新知。\n");
//		write("你现在过于疲倦，无法专心下来研读新知。\n");
	}

	me->receive_damage("jing", cost * times );

	return 1;
}

int help(object me)
{
   write( @HELP
指令格式: study|du <物品名称> <次数>

这个指令使你可以通过阅读秘笈或其他物品自学某些技巧,
但前提是: 你不能是个『文盲』。

see also : learn
HELP
   );
   return 1;
}