最后一个更新，果然等的人心烦。

孟钊(mengzhao@tj)

{
   
      tell_object(me, HIR "你只觉丹田如被火炙，内力乱流，烧得你整个身子发烫！\n" NOR );
      tell_room(environment(me), HIR + me->name()+"突然大叫一声，两眼翻白，摔倒在地不住地哀号！\n" NOR,
                ({ me }));     
      if( me->query("max_neili", 1) < 1 ) {
                me->set_temp("last_damage_from", "被化功大法化尽丹元");
                me->die();
                return 0;
        }
      me->receive_damage("qi", 25);
      me->receive_wound("jing", 5);
      me->add("max_neili", - (2 + random(3)));   
        me->add_busy(2);
        if( duration < 2 ) return 0;
      me->apply_condition("huagong", duration - 1);
   return CND_CONTINUE;
}

孟钊(mengzhao@tj)

找到一点和星宿有关的东西，猜猜看会不会改成这样。
{
        int qi;

        if( !living(me) ) {
                tell_object(me, RED "你觉得浑身上下象有无数把小刀在乱插，钻心地疼痛！\n" NOR );
                message("vision",HIR+me->name()+HIR"身上衣衫火苗乱窜，一股股焦糊味冒了出来，烧得"
                        +me->name()+HIR"呲牙咧嘴，双手胡乱扑打着。\n"NOR,environment(me), me);
        }

        if(me->query("eff_qi") < 300) {
                tell_object(me, RED "你觉得浑身上下象有无数把小刀在乱插，钻心地疼痛！你快忍受不下去了。\n" NOR );
                message("vision", HIR+me->name()+HIR"身上火苗逐渐减小，但肌肤被烧成了黑碳颜色。"
                        +me->name()+HIR"双手在空中无力地挥舞，看来快不行了。\n"NOR,environment(me), me);
        }

        qi = me->query("max_qi")/20;
        if (qi > 300) qi = 300;
        if (qi < 50)  qi = 50;
        me->receive_damage("qi",qi, "被火烧成焦碳而");
        me->receive_wound("qi",qi, "被火烧成焦碳而");
        me->apply_condition("hyd_condition", duration - 1);

        if( (int)me->query_temp("hyd/dec") != 1 ) {
                me->set_temp("hyd/dec",1);
                me->set_temp("hyd/dodge" , me->query_skill("dodge")/3 );
                me->add_temp("apply/dodge", -me->query_temp("hyd/dodge"));
                call_out("remove_effort",30+random(30),me);
        }

        if( random(10)>5 )
                me->add_busy(5);

        if( duration < 1) return 0;
        return CND_CONTINUE;
}

孟钊(mengzhao@tj)

{
int resist = me->query_skill("poison",1);

if( !living(me) ) message("vision", me->name() + "痛苦地哼了一声。\n", environment(me), me);
else {
tell_object(me, HIB "忽然一阵刺骨的奇寒袭来，你中的星宿掌毒发作了！\n" NOR );
message("vision", me->name() + "的身子突然晃了两晃，牙关格格地响了起来。\n",
environment(me), me);
}
me->receive_wound("qi", 200 - resist - random(me->query_con()), "星宿毒发气血受损");
me->receive_wound("jing", 100 - random(me->query_con()), "星宿毒发精血受损");
me->add_busy(2);
if (duration < random(3)) return 0;
if (random(duration) > 200) {
if(random(me->query_kar()) < 2) {
me->set_temp("last_damage_from", "星宿毒发");
me->die();
return 0;
}

孟钊(mengzhao@tj)

{
        if(!environment(me)) return CND_CONTINUE;
        me->receive_wound("qi",100);
        me->receive_wound("jing",100);
        me->add_busy(2);
        me->set_temp("last_damage_from","冰蚕毒发作");
        if( !living(me) ) message("vision", HIW+me->name() + HIW"的头上、衣服上、手脚上，都上一层薄薄的白霜。\n"NOR, environment(me), me);
        else {
                tell_object(me,HIB"你突然觉得食指尖上微微一痒，一股寒气优似冰箭，循着手臂，迅速无伦的射入胸膛。\n"NOR);
                tell_room(environment(me),HIW+me->name() + HIW"的头上、衣服上、手脚上，都上一层薄薄的白霜,冻得全身不停的哆嗦！\n"NOR,({me}));
                //message("vision", me->name() + "的头上、衣服上、手脚上，都上一层薄薄的白霜,冻得全身不停的哆嗦！\n", environment(me), me);
        }
        if(duration < 1) return 0;
        me->apply_condition("bingcan_poison",duration - 1);
        return CND_CONTINUE;
}

孟钊(mengzhao@tj)

我感觉增强毒的话，第一个很酷啊
被化功大法化尽丹元

慕容秋雷(qiulei@tj)

被化功大法化尽丹元
这个也太毒了吧。内力都变0了？？

古擎风(qinyun@tj)

这是老版的？  我记得以前XX很好玩的。

垃圾虫(zerg@tj)

这是哪里找来的啊？                 

袭人(xiren@tj)

朋友，给条活路吧         

孟钊(mengzhao@tj)

zerg@tj 发表于 2017-12-5 08:27
这是哪里找来的啊？

单机版的书剑代码里面看到的。