#include <lib.h>
#include <position.h>
#include "include/target.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("target");
    SetRules("LVS", "only LVS","LVS only");
    SetErrorMessage("Target whom?");
    SetHelp("Syntax: <target LIVING>\n"
      "        <target all of LIVING>\n"
      "        <target all>\n\n"
      "This command initiates exclusive combat with a living "
      "being or group of living beings using any wielded weapons "
      "or your bare hands.  Anyone else in the room at the time "
      "you issue this command will be ignored by you, even if "
      "they attack you. \n\n"
      "See also: attack, wimpy, ignore");
}

mixed can_target_liv(object target) {
    int pos = this_player()->GetPosition();

    if( (int)this_player()->GetParalyzed() ) {
	return "You cannot move!";
    }
    if( pos == POSITION_SITTING || pos == POSITION_LYING ) {
	return "You cannot target in that position!";
    }
    if( (int)environment(this_player())->GetProperty("no target") ) {
	message("environment", "A mystical force prevents your malice.",
	  this_player());
	return this_player()->CanManipulate();
    }
    return this_player()->CanManipulate();
}

mixed can_target_only_liv(object target){
    return can_target_liv(target);
}

mixed can_target_liv_only(object target){
    return can_target_liv(target);
}

mixed do_target_liv(object target) {
    return do_target_lvs(({ target }), 1);
}

mixed do_target_only_liv(object target){
    return do_target_lvs(({ target }), 1);
}

mixed do_target_liv_only(object target){
    return do_target_lvs(({ target }), 1);
}

varargs mixed do_target_lvs(mixed *targets, int exclusive) {
    object *obs;
    object *notarget;
    string tmp;

    notarget = ({});
    obs = filter(targets, (: objectp :));
    if( !sizeof(obs) ) {
	mixed *ua;

	ua = unique_array(targets, (: $1 :));
	foreach(string *lines in ua) this_player()->eventPrint(lines[0]);
	return 1;
    }
    foreach(object entity in get_livings(environment(this_player()))){
	if(member_array(entity,obs) == -1) notarget += ({ entity });
    }
    if(sizeof(notarget)) this_player()->AddNonTargets(notarget);
    this_player()->SetAttack(obs);
    tmp = item_list(obs);
    obs->eventPrint((string)this_player()->GetName() + " targets you!");
    environment(this_player())->eventPrint((string)this_player()->GetName() +
      " targets " + tmp + "!",
      ({ this_player(), obs... }));
    this_player()->eventPrint("You target " + tmp + ".");
    return 1;
}