proom.c-Dateireferenz

#include <thing.h>
#include <moving.h>
#include <defines.h>
#include "../files.h"

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

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	NEED_PROTOTYPES
#define	STD_WACHSTUM   7200
#define	BS(x)   break_string(x, 78)
Funktionen
void	AddDetail (mixed *keys, mixed descr)
varargs int	AddPlant (string filename, string npcId)
string	AddPlantDetail (string filename)
int	CheckPlant (string filename)
object	GetPlant (string filename)
static int	_pfluecken (string str)
Variablen
mapping	plantMap

---

Makro-Dokumentation

#define BS

(

x

)

break_string(x, 78)

Definiert in Zeile 9 der Datei proom.c.

#define NEED_PROTOTYPES

Definiert in Zeile 1 der Datei proom.c.

#define STD_WACHSTUM   7200

Definiert in Zeile 8 der Datei proom.c.

---

Dokumentation der Funktionen

static int _pfluecken

(

string

str

)

[static]

Definiert in Zeile 105 der Datei proom.c.

{
   int i, res;
   string *keys;
   mixed ids, adj;
   object ob;

   if (!mappingp(plantMap)) return 0;
   _notify_fail("WAS moechtest Du pfluecken?\n");
   ids=Query(P_IDS);
   adj=Query(P_ADJECTIVES);
   for (i=sizeof(keys=m_indices(plantMap))-1; i>=0; i--) {
      if (sizeof(plantMap[keys[i]])!=6) continue;
      Set(P_IDS, plantMap[keys[i]][2]);
      Set(P_ADJECTIVES, plantMap[keys[i]][3]);
      if (!catch(res=id(str)) && res) {
         if (stringp(str=plantMap[keys[i]][5]) &&
             objectp(ob=present(str, ME))) {
             write(BS(ob->Name(WER, 2)
                 +" laesst Dich leider nicht nah genug heran. Irgendwie"
                 +" musst Du Dich wohl zunaechst um "
                 +ob->QueryPronoun(WEN)+" kuemmern."));
         }
         else if (objectp(ob=GetPlant(keys[i]))) {
            if (ob->move(PL, M_GET)==1)
               write(BS("Vorsichtig pflueckst Du "+ob->name(WEN, 1)
                       +" und nimmst "+ob->QueryPronoun(WEN)+" an Dich."));
            else {
               write(BS("Vorsichtig pflueckst Du "+ob->name(WEN, 1)+" kannst "
                        +ob->QueryPronoun(WEN)+" aber nicht nehmen."));
               ob->move(environment(PL), M_SILENT|M_NOCHECK);
            }
         }
         else write(BS(plantMap[keys[i]][4]+" ist noch nicht reif genug "
                      +"und muss erst noch etwas wachsen."));
         break;
      }
   }
   Set(P_IDS, ids);
   Set(P_ADJECTIVES, adj);
   return (i>=0);
}

void AddDetail	(	mixed *	keys,
		mixed	descr
	)

Wird benutzt von create().

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

varargs int AddPlant	(	string	filename,
		string	npcId
	)

Definiert in Zeile 19 der Datei proom.c.

Benutzt gender, i, ids, ob(), P_ADJECTIVES, P_GENDER, P_IDS, P_NAME_ADJ, plantMap, Query(), Set() und WER.

{
   int i,j,gender;
   object ob;
   string *ids, *adj, *det;
   mixed arr;

   if (!stringp(filename)) return -1;
   call_other(filename, "???");
   ob=find_object(filename);
   if (!objectp(ob)) raise_error("AddPlant(): Can't load "+filename+".\n");
   if (!mappingp(plantMap)) plantMap=([]);
   if (pointerp(arr=plantMap[filename]) && sizeof(arr)>2)
      raise_error("AddPlant(): "+filename+" already exists.\n");
   ids=ob->Query(P_IDS)-({ "Ding" });
   adj=ob->Query(P_ADJECTIVES);
   if (!pointerp(arr) || sizeof(arr)<2) arr=({0,0});
   plantMap[filename]=({arr[0], arr[1], ids, adj, ob->Name(WER, 1), npcId });
   det=({});
   adj=ob->QueryProp(P_NAME_ADJ);
   gender=Query(P_GENDER);
   Set(P_GENDER, ob->Query(P_GENDER));
   adj=map(adj, #'DeclAdj, WEN, 0);
   for (i=sizeof(ids)-1; i>=0; i--) {
      for (j=sizeof(adj)-1; j>=0; j--) det+=({ adj[j]+ids[i] });
   }
   det+=ids;
   det-=m_indices(Query(P_DETAILS)||([]));
   if (sizeof(det)) AddDetail(det, ob->Query(PLANT_ROOMDETAIL));
   AddCmd(({"pflueck", "pfluecke"}), "_pfluecken");
}

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

string AddPlantDetail

(

string

filename

)

Definiert in Zeile 53 der Datei proom.c.

{
   int i,j,gender;
   object ob;
   string *ids, *det, *adj;
   call_other(filename, "???");
   ob=find_object(filename);
   if (!objectp(ob)) raise_error("AddPlantDetail(): Can't load "+filename+".\n");
   det=({});
   ids=ob->Query(P_IDS)-({ "Ding" });
   adj=ob->QueryProp(P_NAME_ADJ);
   gender=Query(P_GENDER);
   Set(P_GENDER, ob->Query(P_GENDER));
   adj=map(adj, #'DeclAdj, WEN, 0);
   for (i=sizeof(ids)-1; i>=0; i--) {
      for (j=sizeof(adj)-1; j>=0; j--) det+=({ adj[j]+ids[i] });
   }
   AddDetail(det+ids, ob->Query(PLANT_ROOMDETAIL));
   Set(P_GENDER, gender);
}

int CheckPlant

(

string

filename

)

Definiert in Zeile 74 der Datei proom.c.

{
   mixed arr;
   if (!mappingp(plantMap)) plantMap=([]);
   if (!pointerp(arr=plantMap[filename]) || sizeof(arr)<2) {
      arr=plantMap[filename]=({ 0, 0 });
   }
   if (time()<arr[0]) return 0; // noch nicht nachgewachsen
   return 1;
}

object GetPlant

(

string

filename

)

Definiert in Zeile 90 der Datei proom.c.

{
   mixed arr;
   if (!mappingp(plantMap)) plantMap=([]);
   if (!pointerp(arr=plantMap[filename]) || sizeof(arr)<2) {
      arr=plantMap[filename]=({ 0, 0 });
   }
   if (time()<arr[0]) return 0; // noch nicht nachgewachsen
   arr[1]-=time();
   arr[1]=(arr[1]<=0 ? STD_WACHSTUM : (arr[1]<<1)+STD_WACHSTUM);
   arr[0]=time()+(arr[1]>>1); // Resetzeit
   arr[1]+=time();            // Zeit voelliger Regeneration
   return clone_object(filename);
}

---

Variablen-Dokumentation

mapping plantMap

Definiert in Zeile 11 der Datei proom.c.

Wird benutzt von AddPlant().