/*    /cmds/creators/force.c
 *    From the Nightmare V Object Library
 *    Created by Descartes of Borg 961018
 *    Version: %A%
 *    Last modified: %D%
 */

#include <lib.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    object who = previous_object();
    object target;
    string name, cmd;

    if( sscanf(args, "%s to %s", name, cmd) != 1 ) {
	int i = strsrch(args, " ");

	name = "";
	while( i != -1 ) {
	    name += args[0..(i-1)];
	    if( strlen(args) < i-1 ) {
		args = args[(i+1)..];
	    }
	    else {
		args = "";
	    }
	    if( target = find_living(lower_case(name)) ) {
		break;
	    }
	    if( target = find_living(convert_string(name)) ) {
		break;
	    }
	}
	if( !target ) {
	    who->eventPrint("Cannot find any living thing called: " + name);
	    return 1;
	}
	cmd = args;
    }
    else {
	target = find_living(lower_case(name));
	if( !target ) {
	    target = find_living(convert_string(name));
	}
	if( !target ) {
	    who->eventPrint("Cannot find any living thing called: " + name);
	    return 1;
	}
    }
    target->eventPrint(who->GetName() + " forces you to: " + cmd);
    who->eventPrint("You force " + target->GetShort() + " to: " + cmd);
    target->eventForce(cmd);
    return 1;
}

string GetErorMessage() {
    "Force whom to do what?";
}

string GetHelp() {
    return ("Syntax: <force LIVING to COMMAND>\n\n"
	    "Allows you to force a living object to take a certain action.");
}