求教一个PERFORM

碧落姐姐你好，我想模仿海洋的泰山剑法岱宗如何一招，计算可以正常显示，可是结束了计算之后不能使出一击必中，先将代码粘贴如下，请姐姐帮忙看看
#include <ansi.h>
inherit F_DBASE;
inherit F_SSERVER;

int perform(object me, object target)
{
        object weapon;
        int skill;
        if( !target ) target = offensive_target(me);

        if( !target
        ||      !target->is_character()
        ||      !me->is_fighting(target) )
                return notify_fail("「岱宗如何」只能对战斗中的对手使用。\n");

        if( me->query_temp("ruhe") )
                return notify_fail("你已经在以「岱宗如何」计算如何出招了！\n");

        weapon = me->query_temp("weapon");
        if( !objectp(weapon) || weapon->query("skill_type") != "sword" )
                return notify_fail("你手中无剑，即使以「岱宗如何」计算攻守，也无法出击。\n");

        if( me->query_skill("sword") < 100 )
                return notify_fail("你在剑法上的造诣不足以使出「岱宗如何」！\n");

        if( me->query("neili") <= 300 )
                return notify_fail("你的内力不够！\n");
        if( me->query("jing") <= 200 )
                return notify_fail("你的精不够！\n");

        skill = me->query_skill("taishan-sword");

        message_vision(YEL"\n只见$N右手"+weapon->query("name")+YEL"斜指而下，左手五指正在屈指而数，正是「岱宗如何」的要旨。\n" NOR, me, target);
        me->set_temp("ruhe_count", 1);       
        me->add_temp("apply/attack", skill*2);
        me->add_temp("apply/dodge", skill);
        me->add_temp("apply/parry", skill);
        me->set_temp("ruhe", 1);

        call_out("checking", 1, me, target);

        me->start_call_out( (: call_other, __FILE__, "remove_effect", me :), skill /7);
       
        me->add("neili", -150);
        me->add("jing", -150);
        return 1;
}


void checking(object me, object target)
{

        object weapon;
        int skill;
        string *msg;
if (!me)
return;
        skill = me->query_skill("taishan-sword");
        weapon = me->query_temp("weapon");

        if ( me->query_temp("ruhe_finish")  ) {
                me->set_temp("ruhe_hit",1);
                message_vision(HIW"\n$N左手捏起剑诀，已经结束「岱宗如何」的计算。\n" NOR, me);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
                me->delete_temp("ruhe_hit");
                me->delete_temp("ruhe_count");
                me->delete_temp("ruhe_finish");
        }
        else if ( me->query_temp("ruhe")  ) {

        if (!objectp(weapon = me->query_temp("weapon"))
        || (string)weapon->query("skill_type") != "sword") {
                tell_object(me, "\n你手中无剑，继续算下去也是枉然，?得停止「岱宗如何」的计算。\n" NOR);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
                return;
           }

           else if ( weapon->query("weapon_prop") == 0 ) {
                tell_object(me, "\n你的"+weapon->name()+"已毁，继续算下去也是枉然，?得停止「岱宗如何」的计算。\n" NOR);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
                return;
           }
           else if ( (int)me->query("jing") < 200  ) {
                tell_object(me, "\n你暗觉精神不继，难以继续以「岱宗如何」计算，?好停止计数。\n\n" NOR);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
                return;
           }
           else if ( me->query_skill_mapped("sword") != "taishan-sword" ) {
                tell_object(me, "\n你转而施展其他剑法，不能再以「岱宗如何」计算。\n\n" NOR);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
                return;
           }
           else if (!me->is_fighting()) {
                tell_object(me,  "\n你现在没有和人过招，自然也不用以「岱宗如何」计算了。\n\n" NOR);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
                return;
           }
           else {
        msg = ({
                "$N左手从一数到五，握而成拳。\n",
                "$N将拇指伸出，次而食指，终至五指全展，跟着又屈拇指而屈食指，再屈中指。\n",
                "$N左手不住屈指计算，右手"+weapon->name()+"轻轻摆动。\n",
                "$N左手五指不住伸屈，似乎在计算数目。\n",
                });
        message_vision(msg[random(sizeof(msg))], me,target);
        me->add_temp("ruhe_count",1);       
        me->add("jing", -20);       
        call_out("checking", 1, me, target);
                }
        }
           else return;

}  

void remove_effect(object me, object target)
{
        int skill;
        skill = me->query_skill("taishan-sword");
        if ( me->query_temp("ruhe") ) {
                me->set_temp("ruhe_hit",1);
                message_vision(HIW"\n$N左手捏起剑诀，已经结束「岱宗如何」的计算。\n" NOR, me);
                me->add_temp("apply/attack", -skill*2);
                me->add_temp("apply/dodge", -skill);
                me->add_temp("apply/parry", -skill);
                me->delete_temp("ruhe");
        }
}

void hit_him(object me, object target)
{
        string msg;
        int skill = me->query_skill("sword", 1);

        if(me->is_fighting(target) && target->is_fighting(me) &&
                environment(me) == environment(target))
        {
                msg = HIY"$N使出泰山剑法中一击必中的"+HIR "岱宗何如" +HIY"，无论$n窜高跃低，变换方位，均无从闪避，只觉得眼前一花，一股"HIR"血箭"HIY"喷涌而出。\n" NOR;
                message_combatd(msg, me, target);
                target->receive_damage("qi",300+skill*2+me->query_skill("force",1),me);
                target->receive_wound("qi",300+skill*2+me->query_skill("force",1),me);
        }
        return ;
}

说明白点, 你希望哪句出现效果, 但是没出现, 只出现了哪句

我希望void hit_him(object me, object target)
{
        string msg;
        int skill = me->query_skill("sword", 1);

        if(me->is_fighting(target) && target->is_fighting(me) &&
                environment(me) == environment(target))
        {
                msg = HIY"$N使出泰山剑法中一击必中的"+HIR "岱宗何如" +HIY"，无论$n窜高跃低，变换方位，均无从闪避，只觉得眼前一花，一股"HIR"血箭"HIY"喷涌而出。\n" NOR;
                message_combatd(msg, me, target);
                target->receive_damage("qi",300+skill*2+me->query_skill("force",1),me);
                target->receive_wound("qi",300+skill*2+me->query_skill("force",1),me);
        }
        return ;
}这一段出效果。现在是void remove_effect(object me, object target)结束了perform 就结束了，谢谢姐姐了

你搜一下这个pfm, 根本没有调用hit_him()的地方啊

这个pfm是这样的
施展以后, 增加buff, 1秒后开始checking(), 如果一堆条件满足就继续1秒后checking(), 不满足就buff取消.

要不你把 hit_him(me, target); 放在第2个 call_out("checking", 1, me, target);前面?

雁北飞 发表于 2014-5-14 17:41
我希望void hit_him(object me, object target)
{
        string msg;

lz可以把hit_him函数if里面的4条语句放到checking函数最后的call_out前面，hit_him可以不需要了

另外我没发现checking函数的第一个if能起到作用，其他地方没有设定ruhe_finish的，也就是说只要还在战斗，checking就不会结束