light_sense.c

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

// light_sense.c 光识神通
// Modified by Venus Oct.1997
// astral_vision.c

#include <ansi.h>

inherit F_SSERVER;

int conjure(object me, object target)
{
    object *ob;
    int i, skill, damage;
    if(me->query("jing")<10)
   return notify_fail("你的精神不足！\n");
    if( (int)me->query("jingli") < 50 )
   return notify_fail("你的精力不够。\n");
    skill = me->query_skill("magic");
    damage=0;
    me->add("jingli", - 50);
    me->receive_damage("jing", 10);
    if( random(me->query("jingli"))<150)
   {tell_room(environment(me),me->query("name")+"叽叽咕咕念了几句，
但什么也没发生……\n",me);
    tell_object(me,"你失败了。\n");
   return 1;
   }
    message_vision(HIB "$N升入半空中，施展出“光识”之术！！"NOR+
    "。\n", me);
    tell_room(environment(me),me->query("name")+"全身射出刺眼的光芒。。。\n"
);
    ob = all_inventory(environment(me));
    if(sizeof(ob)==0) return 1;
    for(i=0; i<sizeof(ob); i++)
   {
    if( !living(ob[i]) || ob[i]==me||!(ob[i]->is_ghost())) continue;
    damage = (int)(skill+(ob[i]->query("qi"))*(me->query("max_jingli"))/3);
   if( damage > 0 ) {
      ob[i]->receive_damage("jing", damage);
      ob[i]->receive_damage("qi", damage);
      ob[i]->receive_wound("jing", damage/2);
      ob[i]->receive_wound("qi", damage/2);
      tell_room(environment(me),ob[i]->query("name")+"的全身冒
出了滚滚浓烟！象个点燃的火把！\n",ob[i]);
      tell_object(ob[i], "你觉得浑身象被撕碎了般的剧痛。。\n")
;
      if( !ob[i]->is_killing(me) ) ob[i]->kill_ob(me);
     }
   }
    if( me->is_fighting() ) me->start_busy(3);
    return 1;
}