doc/beispiele/AddCmd/busch.c

inherit "/std/thing";
#include <properties.h>
#include <moving.h>
#include <language.h>

#pragma strict_types,save_types,rtt_checks

protected void create()
{
   ::create();

   SetProp(P_GENDER, NEUTER);
   SetProp(P_NAME, "Gebuesch");
   SetProp(P_SHORT,"Ein Gebuesch");
   SetProp(P_LONG,"Du stehst vor einem gaanz normalen Gebuesch. Es traegt "
                  "Fruechte. Und eventuell\nkann man darin etwas finden.\n");
   SetProp(P_NOGET,"Es ist festgewachsen, eventuell kann man es ausgraben?\n");

   SetProp(P_WEIGHT,5000);
   SetProp(P_SIZE,100);

   AddId(({"busch","gebuesch"}));

   AddDetail(({"fruechte","frucht"}),
     "Es scheinen Beeren zu sein. Vielleicht kannst Du sie pfluecken?\n");
   AddDetail("beeren",
     "Pflueck sie doch, vielleicht bringt das ja was.\n");

   // Nur wenn die Syntax erfuellt ist, wird cmd_pfluecken() aufgerufen.
   // "pfluecke beeren von busch" etc.
   AddCmd("pfluecke|ernte&fruechte|beeren&@ID","cmd_pfluecken",
          "Was willst Du denn @verben?|Wo willst Du denn die Beeren @verben?");

   // suchen gibt nur eine Meldung aus. Dafuer braucht man kuenftig keine
   // Funktionen mehr.
   AddCmd("such|suche|durchsuch|durchsuche&@ID&\nimpossible",0, 
          "Wo willst Du @VERBen?|Du durchsuchst das Gebuesch, findest aber nichts.^"
          "@WER1 durchsucht ein Gebuesch, findet aber nichts.");

   // Graben geht eh nicht. Daher nur Fehlermeldungen.
   // Das ^ sagt, dass hier ein return1 zurueckgegeben wird. Es gibt aber keine 
   // Raummeldung.
   AddCmd("grab|grabe&@ID&aus@\nimpossible",0,
          "Was willst Du graben?|Du willst das Gebuesch ausgraben?|"
          "Die Wurzeln scheinen tief zu rechen. Das wird nichts.^");
}

int cmd_pfluecken(string arg, mixed *param)
{
    object obj;
    obj=clone_object(__DIR__"obst");
    write("Verwundert pflueckst Du "+(obj->name())+" vom Busch. Komisch.\n");

    // Das hier ist ein Beispiel fuer AddCmd, daher mach ich mir nich 
    // die Muehe das richtig zu machen. Is eh nur fuer Magier!
    obj->move(this_player(),M_GET|M_NOCHECK);
    return 1;
}