doc/beispiele/zauberwald/room/huette.c

// (c) by Padreic (Padreic@mg.mud.de)

// Ein Raum zum schoenen einbinden eines Seherhauses in den Wald

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

inherit ROOM("stdroom");

void create()
{
   ::create();
   SetProp(P_INDOORS, 1);
   SetProp(P_LIGHT, 1);
   SetProp(P_INT_SHORT, "Mitten im Wald");
   SetProp(P_INT_LONG,
     "Du stehst nun inmitten des Zauberwalds genau vor einer riesigen Buche unter\n"
    +"der jemand eine kleine Huette gebaut hat. Ringsumher stehen weitere Buesche\n"
    +"und Baeume und bilden eine dichte Vegetation, doch im Vergleich zu dieser\n"
    +"riesigen Buche wirkt alles andere wirklich mickrig. Durch das dichte\n"
    +"Blaetterdach dringt nur wenig Licht und so wundert es auch nicht das der\n"
    +"Boden hier relativ feucht ist und die Pflanzen so gut gedeihen koennen. Nach\n"
    +"Norden fuehrt als einziger Ausgang ein kleiner Trampelpfad zur Lichtung.\n");
   AddDetail(({"natur", "wald", "zauberwald"}), QueryProp(P_INT_LONG));
   AddDetail(({"buesche", "baeume", "vegetation", "pflanzen", "farne"}),
     "Rings um die Huette herscht eine wilde Vegetation. Es wachsen verschiedenste\n"
    +"Farne und Buesche und eine vielfalt verschiedenster Baeume. Alles zusammen\n"
    +"bildet eine fast undurchdringliche Vegetation.\n");
   AddDetail(({"licht", "blaetterdach"}),
     "Durch das relativ dichte Blaetterdach der hohen Baeume, faellt eigentlich nur\n"
    +"sehr wenig Licht durch und so ist es hier doch schon relativ duester, auch\n"
    +"wenn man noch nicht unbedingt eine eigene Lichtquelle braucht um etwas sehen\n"
    +"zu koennen.\n");
   AddDetail("lichtquelle",
     "Eine eigene Lichtquelle ist hier nicht unbedingt erforderlich, da dann doch\n"
    +"noch genuegend Licht durch das Blaetterdach durchdringt.\n");
   AddDetail("himmel",
     "Es scheint Dir als wuerde die Sonne gerade scheinen, auch wen das dichte\n"
    +"Blaetterdach die meisten Sonnenstrahlen nicht hindurch laesst.\n");
   AddDetail("boden",
     "Der Boden ist hier eigentlich, mit Ausnahme des Trampelpfads natuerlich,\n"
    +"ziemlich zugewachsen und von zahlreichen Pflanzen ueberwuchert.\n");
   AddDetail("erde",
     "Die Erde ist hier ueberall ein wenig lehmig, aber wirklich besonderes kannst\n"
    +"Du an der Erde nicht entdecken.\n");
   AddDetail(({"trampelpfad", "ausgang", "pfad"}),
     "Der Trampelpfad scheint doch relativ oft benutzt zu werden, denn die Erde ist\n"
    +"fast voellig bloss gelegt und die wenigen Pflanzen die dann doch versuchen ihn\n"
    +"zu bewachsen sind fast alle niedergetrampelt.\n");
   AddDetail(({"lichtung", "norden"}),
     "Vielleicht solltest Du einfach dem Trampelpfad nach Norden folgen und Dir die\n"
    +"Lichtung einfach aus der Naehe anschauen.\n");
   AddDetail(({"buche", "riesige buche"}),
     "Eichen sollst Du weichen, Buchen sollst Du suchen!\n");
   AddDetail(({"eiche", "eichen"}),
     "Du siehst zwar alles moegliche an Baeumen hier, aber Eichen befinden sich zum\n"
    +"Glueck nicht dadrunter.\n");
   AddDetail(({"glueck", "frage"}),
     "Ob es soetwas wie Glueck ueberhaupt gibt, ist wohl eher eine philosophische\n"
    +"Frage und etwas wo man stundenlang drueber diskutieren koennte. Fuer den\n"
    +"Moment beschliesst Du jedenfalls lieber die schoene Natur zu geniessen und\n"
    +"dem zwitschern der Voegel zu lauschen, als Dich mit soetwas zu beschaeftigen.\n");
   AddDetail(({"voegel", "zipfel", "baumzipfel", "zipfel der baeume"}),
     "Oben in den Zipfeln der Baeume kannst Du wage einige Voegel erkennen, doch um\n"
    +"diese naeher spezifizieren zu koennen, sind diese dann doch zu weit weg.\n");
   AddDetail("moment",
     "Geniesse den Moment und lebe Dein Leben!\n");
   AddDetail("ruhe",
     "Die Ruhe wird hier und da lediglich vom zwitschern einiger Voegel unterbrochen.\n");
   AddSpecialDetail(({"huette"}), "det_huette");
   AddSounds(SENSE_DEFAULT,
     "Es ist hier wirklich herrlich ruhig und nur hier und da hoerst Du das\n"
    +"zwitschern einiger Voegel. Natur pur.\n");
   AddSounds(({"voegel", "zwitschern", "voegel zwitschern"}),
     "Du lauschst dem zwitschern der Voegel und geniesst die himmlische Ruhe.\n");
   AddCmd(({"such", "suche"}), "cmd_suchen");
   AddCmd(({"geniess", "geniesse"}), "cmd_geniessen");
   AddCmd(({"leb", "lebe"}), "cmd_leben");
   AddCmd(({"kletter", "klettere"}), "cmd_klettern");
   AddExit("norden", ROOM("lichtungs"));
}

static string det_huette()
// Langbeschreibung nicht fest setzen, damit der Spieler sie selbst
// aendern kann.
{
   object ob;
   if (ob=present("\nmorgeneshaus", ME))
      return ob->long();
}

static int cmd_suchen(string str)
{
   notify_fail("WAS moechtest Du suchen?\n");
   if (str!="buchen" && str!="buche") return 0;
   write("Du brauchst nicht lange suchen und schon entdeckt Du eine riesige Buche vor\n"
        +"Dir, aber eigentlich waere es wohl auch eher erstaunlich, wenn Du diese\n"
        +"riesige Buche direkt vor Deiner Nase uebersehen wuerdest :).\n");
   return 1;
}

static int cmd_geniessen(string str)
{
   notify_fail("WAS moechtest Du geniessen?\n");
   if (str!="moment" && str!="den moment" && str!="ruhe") return 0;
   write("Du haeltst einen Moment inne und geniesst die himmlische Ruhe, die nur durch\n"
        +"das zwitschern einiger Voegel durchbrochen aber nicht gestoert wird.\n");
   return 1;
}

static int cmd_leben(string str)
{
   notify_fail("WAS moechtest Du leben?\n");
   if (str!="leben" && str!="mein leben" && str!="dein leben") return 0;
   write("Nun, wenn die Welt so einfach waere das Du mit einem simplen Kommando Dein\n"
        +"ganzes Leben steuern koenntest, dann waer die Welt doch wirklich langweilig,\n"
        +"oder? Ich will doch stark hoffen, das es sooo weit noch nicht bei Dir ist :).\n");
   return 1;
}

static int cmd_klettern(string str)
{
   notify_fail("WOHIN oder WORAUF moechtest Du klettern?\n");
   if (member(({"auf baum", "auf baumzipfel", "baum hoch",
                "buche hoch", "auf buche"}), str)==-1) return 0;
   write("Du versuchst vergeblich die riesige Buche hochzuklettern, doch die unteren\n"
        +"Aeste haengen leider bereits viel zu hoch, um diese erklimmen zu koennen.\n");
   return 1;
}