Name: attacked_by - a living is attacked by another living

Syntax:
	int attacked_by(object attacker)

Description:
	This routine is called by the living attacking this living. Overwrite
	it if you want to know who the attacker is.

	Don't forget to call the inherited function!

Return value:
	Always return the original return value. It is used to avoid
	multiple attacks.

Examples:
	object my_attacker;
	attacked_by(obj) {
		my_attacker=obj;
		return ::attacked_by(obj);
	}

See also: living/query_attack, living/stop_fight, living/show_enemies