// play.c 奏“碧海潮生”曲#include <ansi.h>inherit F_CLEAN_UP;int exert(object me, object target){	object *ob;	object weapon;	int i, skill, damage;	if( environment(me)->query("no_fight") )		return notify_fail("在這里不能攻擊他人。\n");//	if (!weapon = me->query_temp("weapon"))//		return notify_fail("你要用什么來吹奏？\n");//       if (!weapon->id("xiao"))//		return notify_fail("你手里的兵器不是簫！\n");	if( (int)me->query("neili") < 400 )		return notify_fail("你的內力不夠。\n");	skill = me->query_skill("force");	me->add("neili", -150);	me->receive_damage("qi", 15);	me->start_busy(3);	message_vision(HIY"$N拿出一只簫，將簫湊到嘴邊，開始幽幽咽咽地吹奏起“碧海潮生曲”來，曲調如泣如述，柔糜萬端。\n"NOR, me);	ob = all_inventory(environment(me));	for (i = 0; i < sizeof(ob); i++) {		if (!living(ob[i]) || ob[i] == me) continue;		if( !living(ob[i]) || ob[i]==me ) continue;                if( !ob[i]->is_fighting(me) ) continue;                if( ob[i]==me ) continue;		if (skill / 2 + random(skill / 2) < (int)ob[i]->query("con") * 2) continue;		if (!userp(ob[i]) || ob[i]->query("age") >= 16) {			damage = skill - ((int)ob[i]->query("max_neili") / 8) + 10;			if( damage > 0 ) {				ob[i]->receive_damage("jing", damage * 2, me);				if( (int)ob[i]->query("neili") < skill * 2)					ob[i]->receive_wound("jing", damage, me);				tell_object(ob[i], "你覺得面紅耳赤，百脈賁張，心旌搖動，呼吸也變得急促而且困難了。\n");		if( !me->is_killing(ob[i]) )			me->fight_ob(ob[i]);		if( !ob[i]->is_killing(me) )			ob[i]->fight_ob(me);			}		}		else			tell_object(ob[i], "你的年紀尚小，聽了一陣，沒有什么特別的感受。\n");	}	return 1;}