// zhen.c 太極拳「擠」字訣// snowman#include <ansi.h>inherit F_SSERVER;string *taiji_msg = ({"攬雀尾","單鞭","提手上勢","白鶴亮翅","摟膝勾步","白蛇吐信","高探馬","伏虎式","攬月勢","金雞獨立","玉女穿梭","進步七星","彎弓射虎","抱虎歸山",});int perform(object me, object target){        int damage, force;        string msg, *limbs;        if( !target ) target = offensive_target(me);        if( !target || !target->is_character() || !me->is_fighting(target) || !living(target))                return notify_fail("「擠」字訣只能對戰斗中的對手使用。\n");//        if(!me->query_temp("taiji"))//                return notify_fail("太極拳要旨是似松非松，你沒有運用「太極」，又如何能使用「擠」字訣？\n");        if( (int)me->query("neili", 1) < 500 )                return notify_fail("你現在真氣不夠，強行使用「擠」是發揮不了它的威力的！\n");        if( (int)me->query("jing", 1) < 100 )                return notify_fail("你現在精力不夠，強行使用「擠」是發揮不了它的威力的！\n");                             if( me->query_temp("weapon"))                return notify_fail("你先放下手中的武器再說吧？！\n");                             limbs = target->query("limbs");        msg = CYN "\n$N使一招太極拳「"+taiji_msg[random(sizeof(taiji_msg))]+"」，右腳實，左腳虛，運起"RED"「擠」"CYN"字訣，粘連粘隨，右掌已搭住$p"+limbs[random(sizeof(limbs))]+"！\n"NOR;                force = me->query_skill("force") + target->query_skill("force");        if(random(me->query_skill("unarmed")) > target->query_skill("unarmed")/2){                me->start_busy(3);//                if(!target->is_busy()) target->start_busy(random(2));                                damage = (int)me->query_skill("force");                                if(me->query("neili") > target->query("neili")*2) damage *= 2;                else if(me->query("neili") > target->query("neili")*3/2) damage += random(damage);                else if(me->query("neili")*2 < target->query("neili")) damage /= 2;                else if(me->query("neili") < target->query("neili")) damage -= random(damage);                else damage = damage/2 + random(damage);                if(damage> 1000) damage = 1000;                 target->receive_damage("jing", damage/3);                target->receive_damage("qi", damage);                me->add("neili", -(damage/4));                me->add("jing", -20);                msg += HIR"跟著$P橫勁發出，$p給這么一擠，身子被自己的勁力帶得不由主的向前一沖，跨出數步！\n"NOR;                       }         else{                me->start_busy(3);                me->add("jing", -10);                me->add("neili", -150);                msg += HIY"$p見此情景，一聲驚噫，連忙收回自己的勁力，閃身避讓！\n"NOR;             }        message_vision(msg, me, target);        return 1;}