description.c-Dateireferenz

#include <thing/description.h>
#include <thing/material.h>
#include <thing/lighttypes.h>
#include <exploration.h>
#include <class.h>
#include <thing/properties.h>
#include <thing/language.h>

Include-Abhängigkeitsdiagramm für description.c:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	NEED_PROTOTYPES
Funktionen
public mixed	short ()
public varargs string	long (int mode)
protected void	create ()
protected void	create_super ()
static void	GiveEP (int type, string key)
void	__reload_explore ()
public string	description_id ()
int	match_item (string str, string *ids)
varargs int	id (string str, int lvl)
int	match_ids (string *list)
void	AddId (mixed str)
void	RemoveId (mixed str)
static mixed	_set_ids (mixed ids)
void	AddAdjective (mixed str)
void	RemoveAdjective (mixed str)
static mixed	_set_adjectives (mixed adjectives)
private string	depointer_adj (mixed adj, int casus, int demon)
varargs string	name (int casus, int demon)
varargs string	Name (int casus, int demon)
static mixed	_set_name_adj (mixed adjectives)
void	AddDetail (mixed keys, mixed descr)
varargs void	RemoveDetail (mixed keys)
void	AddSpecialDetail (mixed keys, string functionname)
void	RemoveSpecialDetail (mixed keys)
void	AddReadDetail (mixed keys, mixed descr)
varargs void	RemoveReadDetail (mixed keys)
void	AddSounds (mixed keys, mixed descr)
varargs void	RemoveSounds (mixed keys)
void	AddSmells (mixed keys, mixed descr)
varargs void	RemoveSmells (mixed keys)
varargs mixed	GetDetail (mixed key, mixed race, int sense)
int	lies (string str)
void	read (string str)
private int	_closures (mixed x, mapping details, int yes)
static mapping	_query_details ()
static mapping	_query_special_details ()
static mapping	_query_read_details ()
static mapping	_query_sound_details ()
static mapping	_query_smell_details ()
static int	_query_total_light ()
static int	_set_light (int light)
public void	AddClass (mixed str)
void	RemoveClass (mixed str)
int	is_class_member (mixed str)
static mixed	_set_class (mixed classes)
static mapping	_set_material (mixed mat)
static mapping	_query_material ()
int	QueryMaterial (string mat)
int	QueryMaterialGroup (string matgroup)
string	MaterialList (int casus, mixed idinf)
varargs int	CheckLightType (int lighttype, int mode)
static int	_set_size (int sz)
static int	_query_clone_time ()
Variablen
private nosave mixed *	explore

---

Makro-Dokumentation

#define NEED_PROTOTYPES

Definiert in Zeile 19 der Datei description.c.

---

Dokumentation der Funktionen

void __reload_explore

(

)

Definiert in Zeile 123 der Datei description.c.

Benutzt EPMASTER und explore.

{
  explore = (mixed *)EPMASTER->QueryExplore();
  return;
}

private int _closures	(	mixed	x,
		mapping	details,
		int	yes
	)

Definiert in Zeile 727 der Datei description.c.

{ 
    return yes ? closurep(details[x]) : !closurep(details[x]); 
}

static int _query_clone_time

(

)

[static]

Definiert in Zeile 946 der Datei description.c.

{ return object_time(); }

static mapping _query_details

(

)

[static]

Definiert in Zeile 732 der Datei description.c.

{
  return filter_indices(Query(P_DETAILS, F_VALUE), #'_closures,
      Query(P_DETAILS, F_VALUE),0);
}

static mapping _query_material

(

)

[static]

Definiert in Zeile 874 der Datei description.c.

{
  mixed res;
  
  if ( !mappingp(res = Query(P_MATERIAL, F_VALUE)) )
    return ([MAT_MISC:100]);
  
  return res;
}

static mapping _query_read_details

(

)

[static]

Definiert in Zeile 744 der Datei description.c.

                                     {
  return deep_copy(Query(P_READ_DETAILS, F_VALUE));
}

static mapping _query_smell_details

(

)

[static]

Definiert in Zeile 752 der Datei description.c.

                                      {
  return deep_copy(Query(P_SMELLS, F_VALUE));
}

static mapping _query_sound_details

(

)

[static]

Definiert in Zeile 748 der Datei description.c.

                                      {
  return deep_copy(Query(P_SOUNDS, F_VALUE));
}

static mapping _query_special_details

(

)

[static]

Definiert in Zeile 738 der Datei description.c.

{
  return filter_indices(Query(P_DETAILS, F_VALUE),#'_closures,
      Query(P_DETAILS, F_VALUE),1);
}

static int _query_total_light

(

)

[static]

Definiert in Zeile 758 der Datei description.c.

{ return QueryProp(P_LIGHT); }

static mixed _set_adjectives

(

mixed

adjectives

)

[static]

Definiert in Zeile 263 der Datei description.c.

Benutzt AddAdjective(), F_VALUE, P_ADJECTIVES, Query() und Set().

{
  Set( P_ADJECTIVES,({}), F_VALUE);
  AddAdjective(adjectives);
  return Query(P_ADJECTIVES, F_VALUE);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

static mixed _set_class

(

mixed

classes

)

[static]

Definiert in Zeile 844 der Datei description.c.

{
  Set( P_CLASS, ({}), F_VALUE );
  return AddClass(classes);
}

static mixed _set_ids

(

mixed

ids

)

[static]

Definiert in Zeile 236 der Datei description.c.

Benutzt AddId(), F_VALUE, P_IDS, Query() und Set().

{
    Set( P_IDS,({}));
    AddId(ids);
    return Query(P_IDS, F_VALUE);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

static int _set_light

(

int

light

)

[static]

Definiert in Zeile 760 der Datei description.c.

{
    object env;
    
    env = this_object();
    
    while ( objectp(env = environment(env)) )
        // Ja. Man ruft die _set_xxx()-Funktionen eigentlich nicht direkt auf.
        // Aber das Lichtsystem ist schon *so* rechenintensiv und gerade der
        // P_LAST_CONTENT_CHANGE-Cache wird *so* oft benoetigt, dass es mir
        // da um jedes bisschen Rechenzeit geht.
        // Der Zweck heiligt ja bekanntlich die Mittel. ;-)
        //
        // Tiamak
        env->_set_last_content_change();
    
    return Set( P_LIGHT, light, F_VALUE);
}

static mapping _set_material

(

mixed

mat

)

[static]

Definiert in Zeile 855 der Datei description.c.

{
  int i, sz;
  mapping mats;
  
  if (mappingp(mat)) mats = mat;
  else
  {
    mats = ([]);
    
    if ( stringp(mat)) mats[mat]=100;
    else if ( pointerp(mat)&&sz=sizeof(mat) )
      for ( i = sz; i--; ) mats[mat[i]] += 100 / sz;
  }

  return Set( P_MATERIAL, mats, F_VALUE );
}

static mixed _set_name_adj

(

mixed

adjectives

)

[static]

Definiert in Zeile 446 der Datei description.c.

{
  if (!adjectives)
      adjectives=({});
  // In Array umwandeln
  else if ( !pointerp(adjectives)) 
      adjectives = ({ to_string(adjectives) });
  return Set( P_NAME_ADJ, adjectives );
}

static int _set_size

(

int

sz

)

[static]

Definiert in Zeile 936 der Datei description.c.

                             {
//Groesse muss > 0 sein, alles andere ist unsinnig! (0 und neg. Groessen
//haben keine phys. Relevanz und machen u.U. Probleme mit Objekten, die
//Schaden in Abhaengigkeit der Groesse machen)
  if (sz>0)
    Set(P_SIZE,sz,F_VALUE);
  return(Query(P_SIZE,F_VALUE));
}

void AddAdjective

(

mixed

str

)

Definiert in Zeile 244 der Datei description.c.

Benutzt F_VALUE, P_ADJECTIVES, Query() und Set().

Wird benutzt von _set_adjectives(), _set_autoloadobj(), create() und move().

{
  if (stringp(str)) str = ({ str });
  if (pointerp(str))
    // Doppelte eliminieren
      Set( P_ADJECTIVES, Query(P_ADJECTIVES, F_VALUE)-str+str, F_VALUE );
  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

public void AddClass

(

mixed

str

)

Definiert in Zeile 784 der Datei description.c.

{
  if (!stringp(str) && !pointerp(str)) return;
  if (stringp(str)) 
      str = ({ str });
  // Aliase aufloesen und implizite Klassen addieren.
  str = (string*)CLASSDB->AddImplicitClasses(str);
  // Summe mit alten Klassen bilden und Doppelte eliminieren
  str = str + Query(P_CLASS, F_VALUE);
  Set( P_CLASS, m_indices(mkmapping(str)), F_VALUE);

  return;
}

void AddDetail	(	mixed	keys,
		mixed	descr
	)

Definiert in Zeile 461 der Datei description.c.

{
    int i;
    mapping details;

    details = Query(P_DETAILS, F_VALUE);
    
    if (!pointerp(keys))
      details[lower_case((string)keys)]=descr;
    else
    {
      i=sizeof(keys);
      while(i--) details[lower_case((string)keys[i])]= descr;
    }
    
    // Set( P_DETAILS, details ); ueberfluessig, weil Mapping
    return;
}

void AddId

(

mixed

str

)

Definiert in Zeile 217 der Datei description.c.

Benutzt F_VALUE, P_IDS, Query() und Set().

Wird benutzt von _set_armour_type(), _set_ids(), create(), drink_this(), eat_this(), geschmack(), Identify(), liste(), MakeDrink(), set_furzer() und setup().

{
  if (stringp(str)) str = ({ str });
  if (pointerp(str))
    // Doppelte eliminieren
    Set( P_IDS, Query(P_IDS, F_VALUE)-str+str, F_VALUE);
  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void AddReadDetail	(	mixed	keys,
		mixed	descr
	)

Definiert in Zeile 533 der Datei description.c.

Wird benutzt von create().

{
  int i;
  mapping details;
  
  details = Query(P_READ_DETAILS, F_VALUE);
  
  if (!pointerp(keys))
    details[(string)keys]=descr;
  else
  {
    i=sizeof(keys);
    while(i--) details[lower_case((string)keys[i])]=descr;
  }
  
  // Set(P_READ_DETAILS,details); ueberfluessig, weil Mapping
  return;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void AddSmells	(	mixed	keys,
		mixed	descr
	)

Definiert in Zeile 611 der Datei description.c.

Wird benutzt von create().

{
  int i;
  mapping details;
  
  details = Query(P_SMELLS, F_VALUE);
  
  if (!pointerp(keys))
    details[(string)keys]=descr;
  else
  {
    i=sizeof(keys);
    while(i--) details[lower_case((string)keys[i])]=descr;
  }
  
  // Set(P_SMELLS,details); ueberfluessig, weil Mapping
  return;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void AddSounds	(	mixed	keys,
		mixed	descr
	)

Definiert in Zeile 572 der Datei description.c.

Wird benutzt von create().

{
  int i;
  mapping details;
  
  details = Query(P_SOUNDS, F_VALUE);
  
  if (!pointerp(keys))
    details[(string)keys]=descr;
  else
  {
    i=sizeof(keys);
    while(i--) details[lower_case((string)keys[i])]=descr;
  }
  
  // Set(P_SOUNDS,details); ueberfluessig, weil Mapping
  return;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

void AddSpecialDetail	(	mixed	keys,
		string	functionname
	)

Definiert in Zeile 501 der Datei description.c.

Wird benutzt von create().

{
    closure cl;

    // Absichern! Sonst koennte jeder interne Funktionen aufrufen
    if (extern_call() &&
        (geteuid(previous_object()) != geteuid() || process_call()) &&
        !(object_name(previous_object()) == "/obj/doormaster" &&
          functionname == "special_detail_doors") )
      raise_error( "Illegal use of AddSpecialDetail!\n" );

    // Closure generieren
    if ( !stringp(functionname)||
         !(cl = symbol_function( functionname, this_object())) )
      return;

    // Detail hinzufuegen
    AddDetail( keys, cl );
    return;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

varargs int CheckLightType	(	int	lighttype,
		int	mode
	)

Definiert in Zeile 910 der Datei description.c.

{
  switch (mode) {
    case LT_CHECK_ALL:
      // Wahr, wenn alle Lichttypen die abgefragt werden
      // auch gesetzt sind. Es koennen aber auch mehr ge-
      // setzt sein
      return ((QueryProp(P_LIGHT_TYPE)&lighttype)==lighttype);
    case LT_CHECK_MATCH:
      // Wahr wenn die uebergebenen Lichttypen genau dem
      // im Objekt gesetzten Wert entsprechen
      return (QueryProp(P_LIGHT_TYPE)==lighttype);
    case LT_CHECK_NONE:
      // Es wird geprueft, ob keiner der angegeben Licht-
      // typen im Objekt gesetzt ist.
      return ((~QueryProp(P_LIGHT_TYPE)&lighttype)==lighttype);
    case LT_CHECK_ANY:
    default:                        
      // Wahr wenn mindestens einer der uebergebene Licht-
      // typen im Objekt gesetzt ist. Es muessen nicht alle
      // Typen, die uebergeben sind, gesetzt sein.
      return ((QueryProp(P_LIGHT_TYPE)&lighttype)!=0);
  }
  return(0); //non-void funktion, Zesstra (impliziten Standard ergaenzt)
}

protected void create

(

)

Definiert in Zeile 38 der Datei description.c.

Benutzt EPMASTER, explore, F_MODE_AS, F_VALUE, LT_MISC, NOSETMETHOD, P_ADJECTIVES, P_CLASS, P_CLONE_TIME, P_CLONER, P_DETAILS, P_IDS, P_LIGHT, P_LIGHT_TYPE, P_LONG, P_NAME, P_NAME_ADJ, P_READ_DETAILS, P_SHORT, P_SMELLS, P_SOUNDS, SECURED, Set() und SetProp().

{
  string poid, tpid;
  object tp;
    
  SetProp( P_NAME, "Ding" );
  SetProp( P_SHORT, "Nichts besonderes" );
  SetProp( P_LONG, 0 );

  Set( P_ADJECTIVES, ({}) );
  Set( P_NAME_ADJ, ({}) );
  Set( P_IDS, ({}) );
  Set( P_CLASS, ({}) );
  Set( P_LIGHT, 0 );
  Set( P_LIGHT_TYPE, LT_MISC);
  
  Set( P_READ_DETAILS, ([]), F_VALUE);
  Set( P_READ_DETAILS, SECURED|NOSETMETHOD, F_MODE_AS);
  
  Set( P_DETAILS, ([]), F_VALUE);
  Set( P_DETAILS, SECURED|NOSETMETHOD, F_MODE_AS );
  
  Set( P_SMELLS, ([]), F_VALUE);
  Set( P_SMELLS, SECURED|NOSETMETHOD, F_MODE_AS );
  
  Set( P_SOUNDS, ([]), F_VALUE);
  Set( P_SOUNDS, SECURED|NOSETMETHOD, F_MODE_AS );

  // Aenderungen an dieser Prop sind tabu.
  Set( P_CLONE_TIME, NOSETMETHOD|SECURED, F_MODE_AS );

  // Id des Cloners und des Besitzers kommen nach P_CLONER
  if (objectp( tp=this_interactive()||this_player() ))
  {
    tpid=geteuid(tp);
    if (!(tpid=geteuid(tp))) tpid=getuid(tp);
  }
  else
    tpid="UNKNOWN";
  
  if (previous_object())
  {
    if (!(poid = geteuid(previous_object())))
      poid = getuid(previous_object());
  }
  else
    poid="UNKNOWN";
  
  Set( P_CLONER, (poid != tpid ? poid+":"+tpid: tpid) );
  Set( P_CLONER, NOSETMETHOD|SECURED, F_MODE_AS );
  
  // Gibt es FPs ?
  explore = (mixed *)EPMASTER->QueryExplore();

  // call_other, weil Npcs und Spieler kein AddCmd besitzen
  this_object()->AddCmd(({"lies","lese","les"}),"lies");
  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

protected void create_super

(

)

Definiert in Zeile 97 der Datei description.c.

Benutzt set_next_reset().

                              {
  set_next_reset(-1);
}     

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

private string depointer_adj	(	mixed	adj,
		int	casus,
		int	demon
	)

Definiert in Zeile 278 der Datei description.c.

Benutzt msg().

                                                                {
  string msg;
  int start;
  string res,a;
                adj = map( adj, #'DeclAdj, casus, demon );
  start = 1;
  res = "";
  foreach( a: adj ) {
    res += (start ? "" : ", ") + a[0..<2];
    start = 0;
  }
  return res + " ";
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

public string description_id

(

)

Definiert in Zeile 135 der Datei description.c.

                               {
  return md5(load_name() + short() + long());
}

varargs mixed GetDetail	(	mixed	key,
		mixed	race,
		int	sense
	)

Definiert in Zeile 651 der Datei description.c.

{
  mixed detail;
  
  if (stringp(race)) race = lower_case(race);
  
  switch(sense)
  {
  case SENSE_SMELL: detail=Query(P_SMELLS, F_VALUE)[key];
                    sense=EP_SMELL; break;
  case SENSE_SOUND: detail=Query(P_SOUNDS, F_VALUE)[key];
                    sense=EP_SOUND; break;
  default:          detail=Query(P_DETAILS, F_VALUE)[key];
                    sense=EP_DETAIL; break;
  }

  if (!stringp(detail))
  {
    if (closurep(detail))
      detail = (string)funcall(detail,key);
    else if (mappingp(detail))
      detail = (string)(detail[race]||detail[0]);
    else if (pointerp(detail))
      detail = (string)(detail[random(sizeof(detail))]);
  }

  // FP vergeben (so vorhanden ;-) )
  if (detail) GiveEP(sense,key);
  
  return detail;
}

static void GiveEP	(	int	type,
		string	key
	)			[static]

Definiert in Zeile 106 der Datei description.c.

Benutzt EPMASTER und explore.

Wird benutzt von _cl(), _normalfunction() und frage().

{
  //Abbruch, wenn vergebendes Objekt schon zerstoert ist. ACHTUNG: Auch
  //diese Abfrage wuerde kein FP vergeben werden, wenn sich das Objekt im
  //vergebenden Kommando zerstoert, da der Driver call_other() von zerstoerten
  //Objekten ignoriert!
  if (!objectp(this_object())) return;
  if (this_player()) this_player()->countCmds( type, key );
  
  if (explore&&!extern_call()&&
      (explore[0] == type) && (member(explore[1], key) >= 0) )
    EPMASTER->GiveExplorationPoint(key);
  return;
}

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

varargs int id	(	string	str,
		int	lvl
	)

Definiert in Zeile 172 der Datei description.c.

Benutzt count, ids, match_item(), P_IDS und QueryProp().

{ 
  string str2, tmp;
  int count;    
  mixed ids;

  // Kein Argument? Dann passt es nicht ...
  if (!stringp(str)) return 0;

  // Keine IDs? Auch nicht gut ...
  if (!pointerp(ids=QueryProp(P_IDS))) return 0;
  if (!sizeof(ids)) return 0;

  ids += ({ ("\n" + object_name()),
            ("\n" + explode(object_name(),"#")[0]) });

  // Id passt? Alles klar :-)
  if (match_item( str, ids )) return 1;

  // Die id hat eine Zahl drin. Wenn Zahl die Rohid passt,
  // dann gucken, ob man selber das nte Element ist.
  if (sscanf( str, "%s %d%s", str2, count, tmp)<2) return 0;
  if (count<1) return 0;
  if (strlen(tmp)) return 0;
  if (!match_item( str2, ids )) return 0;
  if (!environment()) return 0;
  return present(str2,count,environment())==this_object();
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int is_class_member

(

mixed

str

)

Definiert in Zeile 817 der Datei description.c.

{
  mixed cl, cl2;
  int i;

  // Keine Klasse, keine Mitgliedschaft ...
  if (!str || (!stringp(str) && !pointerp(str)) || str=="") 
      return 0;

  // Es sollte schon ein Array sein
  if (stringp(str)) 
      str = ({ str });

  // Klassen und Ids ins Array
  // TODO: Pruefen, ob das Einschliessen von IDs  unbedingt hart-kodiert sein
  // TODO::muss.
  if (!pointerp(cl=QueryProp(P_IDS))) cl=({});
  if (pointerp(cl2=QueryProp(P_CLASS))) cl+=cl2;

  // .. und testen
  foreach(string cls : str)
    if (member(cl,cls) > -1 ) return 1;

  return 0;
}

int lies

(

string

str

)

Definiert in Zeile 684 der Datei description.c.

{
  mixed detail;
  
  _notify_fail( "Was moechtest Du lesen?\n" );
  
  // Nur mit Argument und Spieler
  if (!str||!this_player()) return 0;
  
  // Nur wenn man etwas sieht ...
  if (this_player()->CannotSee()) return 1;
  
  // Objekt muss angesprochen sein und P_READ_MSG definieren
  if (id(str)&&(detail=QueryProp(P_READ_MSG)))
  {
    this_player()->More(process_string(detail));
    return 1;
  }
  
  // Vielleicht ein Detail?
  if (detail=QueryProp(P_READ_DETAILS)[str])
  {
    this_player()->More( process_string(detail) );
    GiveEP(EP_RDET,str);
    return 1;
  }
  return 0;
}

public varargs string long

(

int

mode

)

Definiert in Zeile 428 der Datei description.c.

{
    return process_string( QueryProp(P_LONG) );
}

int match_ids

(

string *

list

)

Definiert in Zeile 202 der Datei description.c.

Benutzt P_IDS und QueryProp().

{
  string *ids;

  // Ungueltige Parameter? Weg hier ...  
  if (!pointerp(list)) return 0;
  if (!pointerp(ids=QueryProp(P_IDS))) return 0;

  ids += ({ ("\n" + object_name()),
            ("\n" + explode(object_name(),"#")[0]) });

  return sizeof( list & ids );
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int match_item	(	string	str,
		string *	ids
	)

Definiert in Zeile 141 der Datei description.c.

Benutzt i, len, P_ADJECTIVES und QueryProp().

Wird benutzt von id().

{
  string *obj,*ads;
  int len, i;
  
  // Parameter falsch? Passt nicht ...
  if(!str)           return 0;
  if(!pointerp(ids)) return 0;
  if(!sizeof(ids))   return 0;
  
  // Ist schon so dabei? Na Klasse :-)
  if(member(ids,str)>-1) return 1;
  
  // Keine Adjektive vorhanden ... passt nicht.
  if (!(ads=QueryProp(P_ADJECTIVES))) return 0;
  if (!sizeof(ads))                   return 0;
  
  // Nur ein Wort? Dann passt es nicht
  obj=explode(str," ");
  if (!(len=sizeof(obj)-1)) return 0;
  
  // Adjektive stehen am Anfang. Sobald es nicht mehr passt,
  // muss es das Objektiv sein.
  while(i<len&&member(ads,obj[i])>-1) i++;

  return (member(ids,implode(obj[i..len]," "))>-1);
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

string MaterialList	(	int	casus,
		mixed	idinf
	)

Definiert in Zeile 903 der Datei description.c.

{
  return (string)call_other( MATERIALDB, "ConvMaterialList",
                             QueryProp(P_MATERIAL), casus, idinf );
}

varargs string Name	(	int	casus,
		int	demon
	)

Definiert in Zeile 422 der Datei description.c.

{
    return capitalize(name( casus, demon )||"");
}

varargs string name	(	int	casus,
		int	demon
	)

Definiert in Zeile 293 der Datei description.c.

{
  mixed sh, adj;
  int art, plural;

  art = QueryProp(P_ARTICLE);

  // RAW: direkt zurueckgeben ohne Verarbeitung
  if (casus == RAW )
  {
    if(pointerp(QueryProp(P_NAME)))
      return QueryProp(P_NAME)[WER];
    return QueryProp(P_NAME);
  }

  // Unsichtbar: Etwas
  if (QueryProp(P_INVIS))
    return ({ "etwas", "von etwas", "etwas", "etwas" })[casus];

  // Kein Name? Schade ...
  if (!(sh=QueryProp(P_NAME)) ||
      (stringp(sh) && !strlen(sh))) return 0;

  // P_NAME pruefen.
  if (pointerp(sh) && sizeof(sh) != 4)
      raise_error(sprintf("Ungueltige Arraygroesse in P_NAME: %d\n",
            sizeof(sh)));

  // Plural .. Namen verwursten
  if (plural = QueryProp(P_PLURAL))
  {
    // Selber Artikel suchen ist nicht ...
    if (demon==2||!art) demon = 0;

    // falls P_NAME ein Array mit Faellen enthaelt, den richtigen
    // extrahieren...
    if (pointerp(sh)) {
        sh = sh[casus];
    }
    else {
        // sonst versuchen, zu deklinieren.
        int last = sh[<1];
        if (casus == WEM&&last!='s'&&last!='n') sh = sh + "n";
    }

    // Sind Adjektive vorhanden?
    if ( pointerp(adj = QueryProp(P_NAME_ADJ)) && sizeof(adj))
        adj = depointer_adj(adj,casus,demon);
    if (!stringp(adj)) adj = "";

    return sprintf("%s%s%s%s",QueryArticle(casus,demon,0),adj,
                   (plural < 2 ? "":(plural < 8 ?
                    ({ "zwei ", "drei ", "vier ", "fuenf ", "sechs ",
                       "sieben " })[plural-2] : to_string(plural)+" ")),sh);
  }

  // Name ist Pointer: Einfach den richtigen auswaehlen
  if (pointerp(sh))
    sh = sh[casus];

  // Ansonsten doch wieder verwursten ...
  else if (stringp(sh))
  {
    int last = sh[<1];

    switch(casus)
    {
      case WEM:
      case WEN:
        if ( art && last=='e'&&QueryProp(P_GENDER) == MALE)
          sh = (string)sh + "n";
        break;

      case WESSEN:
        if( !art )
        {
          switch(last)
          {
            case 'x':
            case 's':
            case 'z':
              sh = (string)sh + "'";
              break;

          default:
            sh = (string)sh + "s";
          }
        } 
        else
        {
          switch(last)
          {
            default:
              if (QueryProp(P_GENDER)!=FEMALE)
                sh=(string)sh+"s";
              break;
            case 'e':
              if (QueryProp(P_GENDER)==MALE)
                sh=(string)sh+"n";
            case 'x':
            case 's':
            case 'z':
              break;
          } /* switch (last) */
        } /* if( !art ) else */
    } /* switch( casus ) */
  } /* pointerp(sh) */

  // RAW? Dann mal zurueck
  if (demon == RAW) return (string)sh;

  // Selber Artikel suchen ...
  if (demon==2)
  {
    if (art)
      demon = SuggestArticle();
    else
      demon=0; // Kein Artikel: egal (SuggestArticle ist zeitaufwendig)
  }

  if (pointerp(adj = QueryProp(P_NAME_ADJ)) && sizeof(adj))
    adj = depointer_adj(adj,casus,demon);

  if (!stringp(adj))  adj = "";

  return QueryArticle( casus, demon )+adj+sh;
}

int QueryMaterial

(

string

mat

)

Definiert in Zeile 885 der Datei description.c.

{
  mapping mats;
  
  if ( !mappingp(mats = QueryProp(P_MATERIAL)) )
    return 0;
  
  return mats[mat];
}

int QueryMaterialGroup

(

string

matgroup

)

Definiert in Zeile 896 der Datei description.c.

{
  return (int)call_other( MATERIALDB, "MaterialGroup",
                          QueryProp(P_MATERIAL), matgroup );
}

void read

(

string

str

)

Definiert in Zeile 714 der Datei description.c.

{ lies(str); }

void RemoveAdjective

(

mixed

str

)

Definiert in Zeile 254 der Datei description.c.

Benutzt F_VALUE, P_ADJECTIVES, Query() und Set().

{
  if (stringp(str)) str = ({ str });
  if (pointerp(str))
    Set( P_ADJECTIVES, Query(P_ADJECTIVES, F_VALUE) - str, F_VALUE );
  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void RemoveClass

(

mixed

str

)

Definiert in Zeile 799 der Datei description.c.

{
  if (!stringp(str) && !pointerp(str))
      return;
  if (stringp(str)) 
      str = ({ str });

  // Aliase aufloesen und implizite Klassen addieren.
  str = (string*)CLASSDB->AddImplicitClasses(str);

  // Und alle - inklusive impliziter Klassen - entfernen
  // TODO: Pruefen, ob dies die richtige Entscheidung ist.
  Set( P_CLASS, Query(P_CLASS, F_VALUE)-str, F_VALUE);

  return;
}

varargs void RemoveDetail

(

mixed

keys

)

Definiert in Zeile 481 der Datei description.c.

{
    int i;
    mapping details;
    
    details = Query(P_DETAILS), F_VALUE;

    // Alle loeschen geht direkt ...
    if (!keys )
      Set(P_DETAILS, ([]), F_VALUE);
    else if (!pointerp(keys))
        details-=([(string)keys]);
    else
        details-=mkmapping(keys);
    
    // Set( P_DETAILS, details ); ueberfluessig, weil Mapping
    return;
}

void RemoveId

(

mixed

str

)

Definiert in Zeile 227 der Datei description.c.

Benutzt F_VALUE, P_IDS, Query() und Set().

Wird benutzt von MakeDrink().

{
  if (stringp(str)) str = ({ str });
  if (pointerp(str))
    Set(P_IDS,Query(P_IDS, F_VALUE)-str, F_VALUE);
  return;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

Hier ist ein Graph der zeigt, wo diese Funktion aufgerufen wird:

varargs void RemoveReadDetail

(

mixed

keys

)

Definiert in Zeile 553 der Datei description.c.

{
  int i;
  mapping details;
  
  details = Query(P_READ_DETAILS, F_VALUE);
  
  if (!keys)
    Set(P_READ_DETAILS, ([]), F_VALUE);
  else if (!pointerp(keys))
    details-=([(string)keys]);
  else
    details-= mkmapping(keys);
  
  // Set(P_READ_DETAILS,details); ueberfluessig, weil Mapping
  return;
}

varargs void RemoveSmells

(

mixed

keys

)

Definiert in Zeile 631 der Datei description.c.

{
  int i;
  mapping details;
  
  details = Query(P_SMELLS, F_VALUE);
  
  if (!keys)
    Set(P_SMELLS, ([]), F_VALUE);
  else if (!pointerp(keys))
    details-=([(string)keys]);
  else
    details-= mkmapping(keys);
  
  // Set(P_SMELLS,details); ueberfluessig, weil Mapping
  return;
}

varargs void RemoveSounds

(

mixed

keys

)

Definiert in Zeile 592 der Datei description.c.

{
  int i;
  mapping details;
  
  details = Query(P_SOUNDS), F_VALUE;
  
  if (!keys)
    Set(P_SOUNDS, ([]), F_VALUE);
  else if (!pointerp(keys))
    details-=([(string)keys]);
  else
    details-= mkmapping(keys);

  // Set(P_SOUNDS,details); ueberfluessig, weil Mapping
  return;
}

void RemoveSpecialDetail

(

mixed

keys

)

Definiert in Zeile 523 der Datei description.c.

{
  // RemoveSpecialDetail(0) wuerde sonst ALLE Details (auch die
  // 'normalen') loeschen
  if (pointerp(keys)||stringp(keys))
    RemoveDetail(keys);
  return;
}

public mixed short

(

)

Definiert in Zeile 434 der Datei description.c.

{
  string sh;

  // Unsichtbar? Dann gibts nichts zu sehen ...
  if (QueryProp(P_INVIS)||!(sh=QueryProp(P_SHORT)))
    return 0;
  
  return process_string(sh)+".\n";
}

---

Variablen-Dokumentation

private nosave mixed* explore

Definiert in Zeile 27 der Datei description.c.

Wird benutzt von __reload_explore(), create() und GiveEP().