blob: 0d061695892cdcda31a6516efc6d1b40e22e7982 [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001// (c) by Padreic (Padreic@mg.mud.de)
2
3#include "../files.h"
4
5inherit ROOM("stdroom");
6
7void create()
8{
9 ::create();
10 SetProp(P_INDOORS, 0);
11 SetProp(P_LIGHT, 1);
12 SetProp(P_INT_SHORT, "Am Rande einer Lichtung im Zauberwald");
13 AddSpecialDetail(({"wald", "zauberwald"}), "_query_int_long");
14 AddDetail(({"westen", "lichtung", "plaetzchen", "idyllisches plaetzchen"}),
15 "Im Westen befindet sich eine grosse Lichtung mit einem kleinen Tuempel, am\n"
16 +"Rande der Lichtung stehen vereinzelt noch einige Baeume aber zum Tuempel hin,\n"
17 +"wird es dann mehr und mehr nur noch Gras das den Boden bedeckt.\n");
18 AddDetail(({"rasen", "gras"}),
19 "Am besten betrittst Du die Lichtung einfach und schaust Dir den Rasen\n"
20 +"naeher an.\n");
21 AddDetail("tuempel",
22 "Wenn Du Dir den Tuempel naeher ansehen moechtest, dann solltest Du schon\n"
23 +"ein Stueck naeher rangehen.\n");
24 AddDetail(({"stueck", "raum"}),
25 "Na wenigstens einen Raum weiter solltest Du schon gehn.\n");
26 AddDetail("schatten",
27 "Hier befindest Du Dich noch im Schatten der Baeume, die Lichtung im Westen\n"
28 +"liegt jedoch komplett in der waermenden Sonne.\n");
29 AddSpecialDetail("sonne", "det_sonne");
30 AddDetail(({"wegesrand", "baeume", "wegrand", "rand"}),
31 "Am Wegesrand stehen einige Baeume die ein schoenes Blaetterdach ueber den Weg\n"
32 +"spannen und den Weg in ihren Schatten legen.\n");
33 AddDetail(({"himmel", "blaetterdach", "dach", "licht", "sonnenstrahlen", "wolken", "wolke"}),
34 "Das Blaetterdach ist ziemlich dicht, so dass Du nicht soo viel sehen kannst,\n"
35 +"aber einige Sonnenstrahlen durchbrechen das Dach und erreichen den Weg.\n");
36 AddDetail(({"weg", "boden", "erde", "ausgang", "osten", "richtung"}),
37 "Im Westen fuehrt der Weg zu einer grossen Lichtung, waehrend er nach Osten hin\n"
38 +"Richtung Ausgang des Zauberwalds fuehrt.\n");
39 AddDetail("voegel", "Du kannst sie deutlich hoeren, bekommst aber keinen zu sehn.\n");
40 AddExit("osten", ROOM("weg1"));
41 AddExit("suedwesten", ROOM("lichtungso"));
42 AddExit("westen", ROOM("lichtungo"));
43 AddExit("nordwesten", ROOM("lichtungno"));
44 AddCmd("osten", "cmd_osten");
45 AddItem(NPC("laufeiche"), REFRESH_DESTRUCT);
46}
47
48static string det_sonne()
49{
50 if (PL) PL->SetProp(P_BLIND, 1);
51 return "Du schaust fasziniert in die Sonne und untersucht sie naeher, doch das war\n"
52 +"wohl ein grosser Fehler, denn ploetzlich wird es ganz ganz dunkel um Dich rum.\n";
53}
54
55void init()
56{
57 // wenn man von westen kommt und keine blockende Eiche hier ist, dann
58 // so betrachten als waere man aus dem osten gekommen
59 if (query_once_interactive(PL) && !present(WALDID("eiche")))
60 PL->SetProp(AUSGANG, "westen");
61 ::init();
62}
63
64static int cmd_osten()
65// wenn gerade eine Eiche hierhin gelaufen ist, kommen feindliche
66// Spieler nicht mehr vorbei :)
67{
68 if (PL && PL->QueryProp(AUSGANG)!="westen" &&
69 PL->QueryProp(ZAUBERWALD)>time() && present(WALDID("eiche"), ME)) {
70 if (present(WALDID("eiche 2"), ME))
71 write("Die Eichen stehen Dir dabei leider im Weg und lassen Dich nicht vorbei.\n");
72 else write("Die Eiche steht Dir dabei leider im Weg und laesst Dich nicht vorbei.\n");
73 return 1;
74 }
75}
76
77static string _query_int_long()
78{
79 if (!PL || PL->QueryProp(ZAUBERWALD)<=time())
80 return
81 "Du stehst nun mitten im Zauberwald. Im Westen erstreckt sich vor Dir eine\n"
82 +"grosse Lichtung, auf die Du muehelos gelangen kannst. Nach Osten hin fuehrt\n"
83 +"ein schmaler Weg zurueck zum Ausgang des Waldes. Alles scheint hier sehr\n"
84 +"friedlich zu sein, die Voegel zwitschern und das Blaetterdach ist hier auch\n"
85 +"nicht mehr so dicht wie im Osten, so dass einige Sonnenstrahlen den Weg\n"
86 +"erreichen. Es zieht Dich foermlich nach Westen auf die Lichtung, mitten auf\n"
87 +"dieses sonnige idyllische Plaetzchen.\n";
88 return "Nichts wie raus hier. Es war ganz und gar keine gute Idee hier im Wald Deiner\n"
89 +"Aggressivitaet freien Lauf zu lassen. Du kannst von Glueck haben, wenn Du mit\n"
90 +"einem blauen Auge davon kommst und den Wald noch lebend verlassen kannst.\n"
91 +"Nach Westen gelangst Du auf die grosse Lichtung, ratsamer waere jedoch wohl\n"
92 +"eher der Waldweg im Osten, ueber den Du den Zauberwald wieder verlassen kannst.\n";
93}