roar.c

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

// roar.c 五雷啸

#include <ansi.h>

inherit F_CLEAN_UP;

int exert(object me, object target)
{
    object *ob;
    int i, skill, damage;

    if( (int)me->query("neili") < 400 )
   return notify_fail("你的内力不够。\n");

    if( environment(me)->query("no_fight") )
   return notify_fail("在这里不能攻击他人。\n");
	if( !me->is_fighting())
		return notify_fail("你不在打架，用这个做什么?\n");

    skill = me->query_skill("force");

    me->add("neili", -150);
    me->receive_damage("qi", 10);

    me->start_busy(5);
    message_combatd(
   HIY "$N深深地吸一囗气，发出一声惊天动地的长啸ⅵ\n" NOR, me);

    ob = all_inventory(environment(me));
    for(i=0; i<sizeof(ob); i++) {
   if( !living(ob[i]) || ob[i]==me ) continue;
                if( !ob[i]->is_fighting(me) ) continue;
                if( ob[i]==me ) continue;
	        if( !ob[i]->is_character() || ob[i]->is_corpse() ) continue;

   if( skill/2 + random(skill/2) < (int)ob[i]->query("con") * 2 ) continue;

   damage = skill - ((int)ob[i]->query("max_neili") / 10);
   if( damage > 0 ) {
      ob[i]->receive_damage("jing", damage * 2 );
      if( (int)ob[i]->query("neili") < skill * 2 )
     ob[i]->receive_wound("jing", damage);
      tell_object(ob[i], "你觉得眼前一阵金星乱冒，耳朵痛得像是要裂开一样ⅵ\n");
		if( !me->is_killing(ob[i]) )
			me->fight_ob(ob[i]);

		if( !ob[i]->is_killing(me) )
			ob[i]->fight_ob(me);
   }


    }

    return 1;
}