MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame^] | 1 | // (c) by Padreic (Padreic@mg.mud.de) |
| 2 | |
| 3 | #include "../files.h" |
| 4 | |
| 5 | inherit ROOM("stdroom"); |
| 6 | |
| 7 | void 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 | |
| 48 | static 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 | |
| 55 | void 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 | |
| 64 | static 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 | |
| 77 | static 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 | } |