/*    /cmds/creators/transfer.c
 *    From the Dead Souls Mud Library
 *    Moves object from one place to another
 *    created by Descartes of Borg 961008
 *    Version: @(#) transfer.c 1.2@(#)
 *    Last modified: 96/10/08
 */

#include <lib.h>
#include <message_class.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    object what, destination;
    string a, b;
    mixed res;

    if(!args || args == ""){
        return "Syntax: <transfer OBJECT into OBJECT>\n\n";
    }

    if( sscanf(args, "%s into %s", a, b) != 2 &&
            sscanf(args, "%s to %s", a, b) != 2 ) {
        return "Syntax: <transfer OBJECT into OBJECT>\n\n";
    }
    what = get_object(a);
    destination = get_object(b);
    if( !what ) {
        return "Unable to find " + a + ".";
    }
    if( !destination ) {
        return "Unable to find " + b + ".";
    }
    if( living(what) && living(destination) ) {
        return "None of that nonsense.";
    }
    res = what->eventMove(destination);
    if( !res ) {
        return "Failed to transfer " + identify(what) + " into " +
            identify(destination) + ".";
    }
    else if( res != 1 ) {
        return res;
    }
    previous_object()->eventPrint("Transferred " + identify(what) + " into " +
            identify(destination) + ".", MSG_SYSTEM);
    if( living(what) ) {
        what->eventDescribeEnvironment();
    }
    return 1;
}

string GetHelp() {
    return ("Syntax: transfer <OBJECT into OBJECT>\n\n"
            "Allows you to transfer the object you name into the container "
            "you name.\n"
            "See also: trans, expel, goto, return");
}