xsjob.c

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

//Cracked by Kafei
// by aln 2 / 98
// modified by aln 4 / 98

inherit F_CLEAN_UP;

#include <ansi.h>
#include <condition.h>

int update_condition(object me, int duration)
{
        object room, obj;
        string str;
        int lvl, cost, bonus;
        mapping learned;
int i;
        if( !(room = environment(me)) ) return 0;

        if( base_name(room) != "/d/xueshan/dadian" ) 
		{
			tell_object(me,"你不在雪山寺的大殿，不能讲经！");
        me->apply_condition("xsjob2", 2 + random(6));
me->delete_temp("xsjob2");
			return 0;
		}

        lvl = (int)me->query_skill("lamaism", 1);
        cost = 30000 / (30 + lvl);

		if( me->query("jing",1) < cost)
		{
			tell_object(me,"你诵经过度，精力不足，无法继续！");
			return 1;
		}

        me->receive_damage("jing", cost + random(cost));

        if( me->is_fighting() || me->is_busy() || !living(me) )
                return 1;

        if( duration < 1 ) {
                message_vision(HIR"\n一名小僧过来对$N说道：大师辛苦了，您休息一下吧。\n"NOR, me);
        me->apply_condition("xsjob2", 2 + random(6));
me->delete_temp("xsjob2");
                return 0;
        }

i=random(lvl);
if (i<40) i=40;
if (i>150) i=150;
if (!me->query_condition("xsjob2"))
{
        me->add( "potential", (i*1/2)+10 );
        me->add( "combat_exp", (i*2/3)+20 );
        me->improve_skill("lamaism", i/2);
        switch(random(13)) {
              case 0:
	        str = "一切诸如来，从於本因地，皆以智慧觉，了达於无明。";
                break;
	      case 1:
		str = "知彼如空华，即能免流转。又如梦中人，醒时不可得。";
                break;
              case 2:
		str = "觉者如虚空，平等不转动。觉遍十方界，即得成佛道。";
                break;
              case 3:
		str = "众幻灭无处，成道亦无得。本性圆满故，菩萨於此中，能发菩提心。末世诸众生， 修此免邪见。";
                break;
              case 4:
		str = "普贤汝当知，一切诸众生，无始幻无明。皆从诸如来，圆觉心建立。";
                break;
              case 5:
		str = "犹如虚空华，依空而有相。空华若复灭，虚空本不动。幻从诸觉生";
                break;
              case 6:
		str = "幻灭觉圆满，觉心不动故。若彼诸菩萨，及末世众生，常应远离幻。";
                break;
              case 7:
		str = "诸幻悉皆离。如木中生火，木尽火还灭。觉则无渐次，方便亦如是。";
                break;
              case 8:
		str = "净业汝当知，一切诸众生，皆由执我爱。无始妄流转，";
                break;
              case 9:
		str = "未除四种相，不得成菩提。爱憎生於心，谗曲存诸念。";
                break;
              case 10:
		str = "是故多迷闷，不能入觉城。若能归悟刹，先去贪嗔痴，";
                break;
              case 11:
		str = "法爱不存心，渐次可成就。我身本不有，憎爱何由生？";
                break;
              case 12:
		str = "此人求善友，终不堕邪见。所求别生心，究竟非成就。";
                break;
	}

        message_vision(HIY"\n$N敲击木鱼高声诵吟：" + str + "\n\n"NOR, me);
}
        me->start_busy(5 + random(cost/15));

        me->apply_condition("xsjob", duration - 1);
        return 1;
}