/* /lib/props/description.c
* From the Dead Souls Object Library
* Handles the describing of objects
* Created by Descartes of Borg 961222
* Version: @(#) description.c 1.1@(#)
* Last modified: 96/12/22
*/
#include <lib.h>
#include <function.h>
private int ProperNoun = 0;
private int Modify = 1;
private mixed Short = 0;
mixed direct_modify_obj_str() {
return 1;
}
mixed direct_modify_word_str() {
return 1;
}
mixed direct_initfix_obj() {
return 1;
}
mixed direct_initfix() {
return 1;
}
mixed direct_reload_obj() { return 1; }
mixed indirect_reload_obj() { return 1; }
mixed direct_reload_word_obj() { return 1; }
mixed indirect_reload_word_obj() { return 1; }
mixed direct_reload_str_obj() { return 1; }
mixed indirect_reload_str_obj() { return 1; }
mixed direct_reload_str_word() { return 1; }
mixed indirect_reload_str_word() { return 1; }
mixed direct_reload() { return 1; }
mixed indirect_reload() { return 1; }
mixed direct_reload_every_str() { return 1; }
mixed indirect_reload_every_str() { return 1; }
mixed direct_copy_obj_to_obj() { return 1; }
mixed direct_copy_obj_str() { return 1; }
mixed direct_add_obj_to_obj() { return 1; }
mixed indirect_add_obj_to_obj() { return 1; }
mixed direct_delete_obj_from_obj(){
return 1;
}
mixed indirect_delete_obj_from_obj(){
return 1;
}
mixed indirect_delete_obj_from_here() { return 1; }
mixed direct_delete_obj_from_here() { return 1; }
mixed direct_delete_obj_from_room() { return 1; }
mixed indirect_delete_obj_from_room() { return 1; }
mixed indirect_add_obj_to_here() { return 1; }
mixed direct_add_obj_to_here() { return 1; }
mixed indirect_add_obj_to_room() { return 1; }
mixed direct_add_obj_to_room() { return 1; }
mixed indirect_add_obj() { return 1; }
mixed direct_add_obj() { return 1; }
mixed indirect_delete_obj() { return 1; }
mixed direct_delete_obj() { return 1; }
int SetNoModify(int i){
if(i) Modify = 0;
else Modify = 1;
}
int GetModify(){
return Modify;
}
int GetNoModify(){
if(Modify) return 0;
else return 1;
}
string GetShort();
string GetDefiniteShort() {
string tmp = GetShort();
if( !tmp ) {
return 0;
}
if( ProperNoun ) {
return tmp;
}
else {
return add_article(tmp, 1);
}
}
string GetShort() {
if( !Short ) {
return 0;
}
if( functionp(Short) ) {
if( functionp(Short) & FP_OWNER_DESTED ) {
return "Error in evaluating function pointer.";
}
return evaluate(Short);
}
else if( arrayp(Short) ) {
return Short[query_night()];
}
else {
return Short;
}
}
varargs mixed SetShort(mixed val, int proper) {
if( !stringp(val) && !functionp(val) && !arrayp(val) ) {
error("Bad argument 1 to SetShort().\n");
}
if( proper ) {
ProperNoun = proper;
}
else if( stringp(val) ) { // add a support for most old stuff...
if( strlen(val) > 2 ) {
string tmp = lower_case(val[0..2]);
if( tmp[0..1] != "a " && tmp != "an " ) {
ProperNoun = 1;
}
}
else {
ProperNoun = 1;
}
}
return (Short = val);
}
object array GetDummyItems() {
object *DummyItems = ({});
foreach(object item in all_inventory(this_object())){
if(base_name(item) == LIB_DUMMY){
DummyItems += ({ item });
}
}
return DummyItems;
}
