blob: da3c5b3cb1d63ad6b8a6105a30a0baa77b00c3ca [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001inherit "/std/thing";
2#include <properties.h>
3#include <moving.h>
4#include <language.h>
5
6#pragma strict_types,save_types,rtt_checks
7
8protected void create()
9{
10 ::create();
11
12 SetProp(P_GENDER, NEUTER);
13 SetProp(P_NAME, "Gebuesch");
14 SetProp(P_SHORT,"Ein Gebuesch");
15 SetProp(P_LONG,"Du stehst vor einem gaanz normalen Gebuesch. Es traegt "
16 "Fruechte. Und eventuell\nkann man darin etwas finden.\n");
17 SetProp(P_NOGET,"Es ist festgewachsen, eventuell kann man es ausgraben?\n");
18
19 SetProp(P_WEIGHT,5000);
20 SetProp(P_SIZE,100);
21
22 AddId(({"busch","gebuesch"}));
23
24 AddDetail(({"fruechte","frucht"}),
25 "Es scheinen Beeren zu sein. Vielleicht kannst Du sie pfluecken?\n");
26 AddDetail("beeren",
27 "Pflueck sie doch, vielleicht bringt das ja was.\n");
28
29 // Nur wenn die Syntax erfuellt ist, wird cmd_pfluecken() aufgerufen.
30 // "pfluecke beeren von busch" etc.
31 AddCmd("pfluecke|ernte&fruechte|beeren&@ID","cmd_pfluecken",
32 "Was willst Du denn @verben?|Wo willst Du denn die Beeren @verben?");
33
34 // suchen gibt nur eine Meldung aus. Dafuer braucht man kuenftig keine
35 // Funktionen mehr.
36 AddCmd("such|suche|durchsuch|durchsuche&@ID&\nimpossible",0,
37 "Wo willst Du @VERBen?|Du durchsuchst das Gebuesch, findest aber nichts.^"
38 "@WER1 durchsucht ein Gebuesch, findet aber nichts.");
39
40 // Graben geht eh nicht. Daher nur Fehlermeldungen.
41 // Das ^ sagt, dass hier ein return1 zurueckgegeben wird. Es gibt aber keine
42 // Raummeldung.
43 AddCmd("grab|grabe&@ID&aus@\nimpossible",0,
44 "Was willst Du graben?|Du willst das Gebuesch ausgraben?|"
45 "Die Wurzeln scheinen tief zu rechen. Das wird nichts.^");
46}
47
48int cmd_pfluecken(string arg, mixed *param)
49{
50 object obj;
51 obj=clone_object(__DIR__"obst");
52 write("Verwundert pflueckst Du "+(obj->name())+" vom Busch. Komisch.\n");
53
54 // Das hier ist ein Beispiel fuer AddCmd, daher mach ich mir nich
55 // die Muehe das richtig zu machen. Is eh nur fuer Magier!
56 obj->move(this_player(),M_GET|M_NOCHECK);
57 return 1;
58}