// san.c 一拍兩散/*玄寂適才所出那一掌，實是畢生功力之所聚，叫作“一拍兩散”，所謂“兩散”，是指拍在石上，石屑四“散”、拍在人身，魂飛魄“散”。這路掌法就只這么一招，只因掌力太過雄渾，臨敵時用不著使第二招，敵人便已斃命，而這一掌以如此排山倒海般的內力為根基，要想變招換式，亦非人力之所能。*/#include <ansi.h>inherit F_DBASE;inherit F_SSERVER;void remove_effect(object me, int amount);int perform(object me, object target){        int org_jiali, jiali;        if( !target ) target = offensive_target(me);        if( !target        ||      !target->is_character()        ||      !me->is_fighting(target) )                return notify_fail("一拍兩散只能對戰斗中的對手使用。\n");        if( me->query_temp("weapon") )                return notify_fail("你只能在空手時使用一拍兩散！\n");        if( me->query_skill_mapped("force") != "hunyuan-yiqi" )                return notify_fail("你所用的并非混元一氣功，無法施展一拍兩散！\n");        if( me->query_skill("hunyuan-yiqi", 1) < 180)                return notify_fail("你的混元一氣功火候未到，無法施展一拍兩散！\n");        if( me->query_skill("banruo-zhang", 1) < 200 )                return notify_fail("你的般若掌火候未到，無法施展一拍兩散！\n");        if( me->query("max_neili") <= 1000 )                return notify_fail("你的內力修為不足，勁力不能運發，無法施展一拍兩散！\n");        if( (int)me->query("neili") < 1000  )                 return notify_fail("你的內力不夠。\n");        if( (int)me->query("jing") < 100  )                return notify_fail("你的精力不夠。\n");                org_jiali = me->query("jiali");        // I tried the original code with no restriction, a 4Kneili player        // can make 15K damage in this 1 hit.  With the limit, a 4K        // neili player can still make 4K damage sometimes. -Chu        jiali = me->query("neili")/5;          if (jiali > 600) jiali = 600;        jiali = jiali/2 + random(jiali/3);        me->add_temp("attack",100);        me->add_temp("damage",200);        me->set("jiali", jiali);        me->set("neili", me->query("neili")/3);        message_vision(        HIW "\n$N雙手合十道：阿彌陀佛，罪過罪過！雙掌自外向里轉了個圓圈，緩緩向$n推了過來。！\n"        +"$N掌力未到，$n已感胸口呼吸不暢，頃刻之間，$N的掌力如怒潮般洶涌而至！！！\n" NOR, me,target);        COMBAT_D->do_attack(me, target, me->query_temp("weapon"));        COMBAT_D->do_attack(me, target, me->query_temp("weapon"));        COMBAT_D->do_attack(me, target, me->query_temp("weapon"));        COMBAT_D->do_attack(me, target, me->query_temp("weapon"));        COMBAT_D->do_attack(me, target, me->query_temp("weapon"));        me->add_temp("attack",-100);        me->add_temp("damage",-200);        me->set("jing", me->query("jing")/5);        me->set("neili", me->query("neili")/3);        me->set("jiali", org_jiali);        me->start_busy(1+random(3));//        target->kill_ob(me);        return 1;}