// transfer.c

#include <ansi.h>

inherit SSERVER;

int exert(object me, object target)
{
	int force, trans;

	if( !target || target==me || !living(target) )
		return notify_fail("璶盢痷肚倒街\n");

	if( (string)me->query_skill_mapped("force") != target->query_skill_mapped("force") )
		return notify_fail(target->name() + "┮ㄏノず\㎝ぃ\n");

	if( (int)me->query("force") <= (int)me->query("max_force") )
		return notify_fail("痷ぃì\n");

	force = me->query("force") - me->query("max_force");

	if( force/2 < 1 ) return notify_fail("痷ぃì\n");
	me->add("force", - force / 2 );
	message_vision("$N盢も磝禟$n璉み笲盢砰ず痷肚癳筁\n", me, target);
	if( random(force/3) > (int)me->query_skill("force") )
		return notify_fail("ア毖\n");
	target->add("force", force/3);
	write("Ok.\n");
	tell_object(target, HIY "谋眔荐眖" + me->name() + "も磝肚筁ㄓ\n" NOR);
	return 1;
}
