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

// Anmerkung: Heutzutage gibt es fuer Lebensmittel (bzw. alle Dinge, die
// man essen oder trinken kann) ein Standardobjekt namens /std/food,
// welches viele Funktionalitaet mitbringt, die man ansonsten selber
// muehsam basteln muss. Die Verwendung ist dringend empfohlen.

#include <properties.h> // wieder unsere allgemeinen Properties

inherit "/std/thing";

// globale Variable, die angibt, wie voll die Flasche ist. Es sind 5
// Portionen enthalten.
int menge = 5;

protected void create()
{
   ::create();
   // Objekt ueber seine Properties beschreiben...
   // P_SHORT und P_LONG werden direkt als Funktion implementiert (s.u.)
   SetProp(P_NAME, "Milchflasche");
   SetProp(P_GENDER, FEMALE);
   SetProp(P_VALUE, 80);
   SetProp(P_WEIGHT, 1000);
   AddId(({"flasche", "milchflasche"}));
   AddCmd(({"trink", "trinke"}), "_trinken");
}

// Anstelle von P_SHORT Kurzbeschreibung ueber Funktion short().
// Dies ist nicht immer moeglich, da nicht zwangslaeufig zu jeder Propertie
// eine gleichnamige Funktion existiert.
// Es ist allerdings noch sog. Querymethoden (siehe dazu <man QueryProp> und
// <man Query> bei Bedarf).
public string short()
{
   string str;
   switch(menge) {
     case 1: str="Eine fast leere Milchflasche.\n"; break;
     case 2: str="Eine bald leere Milchflasche.\n"; break;
     case 3: str="Eine halbvolle Milchflasche.\n";  break;
     case 4: str="Eine fast volle Milchflasche.\n"; break;
     case 5: str="Eine volle Milchflasche.\n";      break;
     default: str="Eine leere Milchflasche.\n";
   }
   return str;
}

public string long()
{
   if (menge>1)
      return "Eine Flasche mit leckerer Vollmilch.\n";
   else
      return "Die Milchflasche ist bald leider schon alle, Du solltest "
             "Dich vielleicht mal\nnach Nachschub umsehn.\n";
}

public int _trinken(string str)
{
   notify_fail("Syntax: trinke aus milchflasche\n");

   // Falls die ersten vier Zeichen in dem uebergebenen String ungleich
   // "aus " sind, dann fuehlt sich das Objekt nicht angesprochen, kann das
   // Verb also nicht komplett abarbeiten und gibt deshalb eine 0 zurueck.
   if (str[0..3]!="aus ") return 0;

   // Ich benutze nun alles ab dem vierten Zeichen und pruefe, ob sich das
   // Objekt davon angesprochen fuehlt. Hierzu dient die Funktion id().
   // Grosser Vorteil: Uebersichtlich und spaeteres Ergaenzen von Ids bzw.
   // Adjektiven geht sehr einfach und erspart lange if()-Abfragen.
   if ( !id(str[4..]) ) return 0;

   if (menge<=0) {
     write("Die Milchflasche ist leider schon leer :(.\n");
   }
   else {
     // drink_soft() ist eine Funktion, die in allen Lebewesen im
     // Morgengrauen definiert ist und ueber die man sowohl Abfragen als
     // auch hochsetzen von P_DRINK vornehmen sollte.
     if (this_player()->drink_soft(10)) {

       // heal_self() ist auch in allen Lebewesen definiert und heilt bei
       // dem Lebewesen Lebens- und Konzentrationspunkte.
       this_player()->heal_self(10);
       write("Genuesslich trinkst Du einen Schluck Milch.\n");
       say(this_player()->Name(WER)+" trinkt einen Schluck Vollmilch,\n");
       menge--;
     }
     else write("Soviel kannst Du leider nicht mehr trinken.\n");
   }
   return 1;
}