kicherpilz.c-Dateireferenz

#include <properties.h>
#include "../files.h"
#include "/p/service/padreic/kraeuter/plant.h"

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

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	BS(x)   break_string(x, 78)
Funktionen
inherit	PLANT ("plant")
void	create ()
void	reset ()

---

Makro-Dokumentation

#define BS

(

x

)

break_string(x, 78)

Definiert in Zeile 10 der Datei kicherpilz.c.

---

Dokumentation der Funktionen

void create

(

)

Definiert in Zeile 12 der Datei kicherpilz.c.

Benutzt AddDetail(), AddId(), BS, create(), KICHERPILZ, MALE, P_GENDER, P_LONG, P_NAME, P_NAME_ADJ, P_SHORT, PLANT_ROOMDETAIL, set_next_reset() und SetProp().

{
  ::create(KICHERPILZ);
  SetProp(P_NAME,     "Kicherpilz");
  SetProp(P_NAME_ADJ, "lustig");
  SetProp(P_GENDER,   MALE);
  SetProp(P_LONG,     
    "Er hat ein gruenes Kaeppchen auf und ist fuer einen Pilz relativ gross. Ab und\n"
   +"an zuckt er und kichert albern. Daher hat er wohl auch seinen Namen\n");
  SetProp(PLANT_ROOMDETAIL, 
    "Ein besonders praechtiges Exemplar eines Kicherpilzes winkt dir\n"
   +"aufdringlich zu, also ob es scharf darauf waere, gepflueckt zu werden.\n");
  SetProp(P_SHORT,    "Ein Kicherpilz");
  AddId(({ "pilz", "kicherpilz" }));
  
  AddDetail("kaeppchen",BS(
     "Der Pilz scheint sich fuer die neueste Mode zu interessieren. "
    +"Mit dem gruenen Kaeppchen ist er nach dem letzten Schrei gekleidet."));
  AddDetail("mode",BS(
     "Du schaust an deiner Kleidung hinunter - naja, mit dem Pilz "
    +"kannst du nicht mithalten."));
  AddDetail("schrei",BS(
     "Sei ehrlich: Bei dem Gruen kann man nur schreien!"));
  AddDetail("gruen",BS(
     "Eigentlich ist es doch ganz gut, sich nicht fuer Mode zu "
    +"interessieren, denn das Gruen schmerzt in den Augen."));
 
  set_next_reset(200+random(200));
}

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

inherit PLANT

(

"plant"

)

void reset

(

void

)

Definiert in Zeile 42 der Datei kicherpilz.c.

Benutzt reset() und set_next_reset().

{
   set_next_reset(200+random(200));
   if (environment()) 
      tell_object(environment(), "Der Kicherpilz kichert Dich an.\n"); 
   ::reset();
}

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