/*    /lib/obj/dummy.c
 *    From the Dead Souls Object Library
 *    A dummy item object that handles item descriptions and such
 *    Created by Descartes of Borg 961014
 *    Version: @(#) dummy.c 1.18@(#)
 *    Last modified: 96/12/31
 */

#include <lib.h>
#include <function.h>

inherit LIB_CLEAN;
inherit LIB_DESCRIPTION;
inherit LIB_ENTER;
inherit LIB_ID;
inherit LIB_LISTEN;
inherit LIB_LOOK;
inherit LIB_RADIANCE;
inherit LIB_READ;
inherit LIB_SEARCH;
inherit LIB_SMELL;
inherit LIB_TOUCH;

/* ***************** dummy.c attributes ***************** */

int isDummy() {
    return 1;
}
varargs string array SetId(mixed ids...) {
    ids = id::SetId(ids);
    if( sizeof(ids) && !GetKeyName() ) {
	SetKeyName(ids[0]);
	if( !GetShort() ) {
	    SetShort(add_article(ids[0]));
	}
    }
    return ids;
}
varargs int GetInvis(object ob) {
    return 1;
}

/* ********************* dummy.c events ****************** */
static int Destruct() {
    object env;
    int x;

    if( env = environment() ) {
	env->eventReleaseObject(this_object());
	x = clean::Destruct();
	if( !x ) {
	    env->eventReceiveObject(this_object());
	}
	return x;
    }
    else return clean::Destruct();
}
mixed eventMove(mixed dest) {
    object ob;
    string str;

    str = "I am "+file_name(this_object())+", named "+identify(GetId())+", ";
    str += "and I have been asked to move ";
    str += "by "+identify(previous_object());

    if(previous_object(-1)) str += " at the request of "+identify(previous_object(-1));
    str += ". ";
    if(environment()) str += "\nMy current environment is "+file_name(environment())+".";
    else str += "\nI currently have no environment.";

    if( stringp(dest) ) {
	ob = load_object(dest);

    }
    else {
	ob = dest;
    }
    str += "\nMy intended destination is "+file_name(ob)+". ";
    move_object(ob);
    //eventMove(ob);
    if( environment() != ob ) {
	str += "\nThe move was not successful";
	return 0;
    }
    else {
	str += "\nThe move was successful.";
	eventAnnounceCanonicalId(environment());
	return 1;
    }
}

/* ******************* dummy.c driver applies ******************** */
varargs static void create(string array id, mixed long, string array adj) {
    string str;
    str = "I am "+file_name(this_object())+" and I have been created ";
    str += "by "+identify(previous_object(-1));

    if(environment()) str += "\nMy current environment is "+file_name(environment())+".";
    else str += "\nI currently have no environment.";
    str += "\nCall stack: "+get_stack();

    enter::create();
    parse_init();
    if( adj ) {
	SetAdjectives(adj...);
    }
    if( id ) {
	SetId(id...);
    }
    SetExternalDesc(long || "");
}