std/items/flasche.c - mudlib-public - Gitiles

 /*OBJ*/
 /* 2013-Mai-23, Arathorn
    Umfassend ueberarbeitet; setup(), init() und ReplaceWasser() entsorgt,
    P_WEIGHT und P_LONG dynamisch gebaut, so dass das staendige Umsetzen
    der Properties mittels setup() nach jedem Fuellen/Leeren entfaellt.
  */

 /* Letzte Aenderung: 4.5.2004, Arathorn.
    Zeile 149: cont_obj->remove() eingefuegt, damit das geclonte Objekt
    nach dem Abfragen seines Namens wieder entfernt wird.
    Update 6.6.2004, Arathorn. Habe um ein destruct() ergaenzt, weil das
    trotz remove() hartnaeckig weitergebuggt hat. *fluch*
  */

 /* Version 1.3 by Fraggle (17.1.1995) */

  // PreventInsert: verhindert Fuellen wie std/container
 /* Version 1.2 by Fraggle (17.1.1995) */

  // Flasche kann nun mittels environment(TP)->GetLiquid()
  // etwas anderes als Wasser enthalten, sofern
  // environment(TP)->QueryProp(P_WATER)==W_OTHER
  // BUG: auch 1l Methan wiegt 1 Kg, aendere ich spaeter

 /* Version 1.1 by Fraggle (17.1.1995) */
 #pragma strong_types,rtt_checks
 #pragma no_clone

 inherit "/std/thing";
 #include <language.h>
 #include <properties.h>
 #include <items/flasche.h>
 #include <items/fishing/fishing.h>

 #define DEFAULT_LIQ "Wasser"
 #define TP this_player()

 private string co_filename;
 public string liquid_name=DEFAULT_LIQ;

 string dynamic_long();

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

   AddId(({"wasserbehaelter","behaelter","\nwater_source"}));
   SetProp(P_NAME, "Wasserbehaelter");
   SetProp(P_GENDER , MALE);
   SetProp(P_ARTICLE, 1);
   SetProp(P_SHORT, "Ein Standard-Wasserbehaelter");
   SetProp(P_LONG,"none");
   Set(P_LONG, #'dynamic_long, F_QUERY_METHOD);
   SetProp(P_LONG_EMPTY,""); // Beschreibung fuer leeren Zustand
   SetProp(P_LONG_FULL,"");  // Beschreibung fuer gefuellten Zusand
   SetProp(P_LIQUID,1000);   // Fuellmenge = 1 Liter
   SetProp(P_WATER,0);       // Flasche ist defaultmaessig leer!
   SetProp(P_VALUE,10);

   // P_WEIGHT auf Leergewicht der Flasche setzen, QueryMethode liefert
   // die Summe aus Leergewicht+Fuellung zurueck (Dichte = 1).
   SetProp(P_WEIGHT,20);
   Set(P_WEIGHT, function int () {
      return ( Query(P_WEIGHT,F_VALUE)+
               (QueryProp(P_WATER)?QueryProp(P_LIQUID):0) );
      }, F_QUERY_METHOD);

   AddCmd(({"fuell","fuelle"}),"cmd_fuelle");
   AddCmd(({"leere", "entleere"}),"cmd_leere");
 }

 protected void create_super() {
   set_next_reset(-1);
 }

 // Behaelter ist gefuellt, dann ist die Langbeschreibung entweder die
 // P_LONG_FULL, falls angegben, oder die P_LONG + Beschreibung der Fuellung.
 // Genauso, wenn sie leer ist.
 string dynamic_long() {
   string l=Query(P_LONG,F_VALUE);
   if ( QueryProp(P_WATER) ) {
     string lf = QueryProp(P_LONG_FULL);
     if ( stringp(lf) && sizeof(lf) )
       l=lf;
     else
       l+=capitalize(QueryPronoun(WER))+" enthaelt "+liquid_name+".\n";
     // Falls die Flasche mit etwas anderem als Wasser gefuellt wird, die
     // Langbeschreibung fuer "volle Flasche" (P_LONG_FULL) aber nur fuer
     // Wasser ausgelegt ist, wird "Wasser" durch den Inhalt von liquid_name
     // ersetzt.
     if ( liquid_name != DEFAULT_LIQ )
       l=regreplace(l, DEFAULT_LIQ, liquid_name, 1);
   } else {
     string le = QueryProp(P_LONG_EMPTY);
     if ( stringp(le) && sizeof(le) )
       l=le;
     else
       l+=capitalize(QueryPronoun(WER))+" ist leer.\n";
   }
   return l;
 }

 // Zum Ueberschreiben! PreventInsert(object ob){return 0;} z.B.
 // macht die Flasche gasdicht.
 // Oder man kann die Flasche verschliessbar machen.
 int PreventInsert(object obj)
 {
   if(obj->id("gas")) { //default: NICHT Gasdicht!
     write(obj->Name(WER,1)+" entweicht sofort wieder!\n");
     return 1;
   }
   return 0;
 }

 // Transferiert den Inhalt der Flasche an <dest>
 protected int transfer_to(object dest)
 {
   int water=QueryProp(P_WATER);
   if (!water)
   {
     write(Name(WER,1) + " ist schon leer!\n");
     return 0;   // War schon leer!
   }
   int contents=QueryProp(P_LIQUID);

   if ( water&W_OTHER )
   {
     dest->PutLiquid(co_filename);
   }
   else
   {
     dest->AddWater(contents);
   }
   SetProp(P_WATER,0);
   RemoveId(lower_case(liquid_name));
   liquid_name=DEFAULT_LIQ;
   return contents; //gib die ml an Umgebung ab :)
 }

 // Entleert die Flasche ins Environment der Flasche, allerdings nicht, wenn
 // dies ein Lebewesen ist, dann wird das Environment von dem genommen.
 // TODO: Eine Flasche in einem Paket leeren wurde dann in das paket entleeren.
 // Das waere an sich sogar richtig... Nur: gewollt? Alternative koennen wir
 // auch das aeusserste Environment nehmen, was nicht lebt.
 public int empty()
 {
   if (environment())
   {
     // Environment des Benutzers finden.
     object env = environment();
     while (living(env))
       env=environment(env);
     return transfer_to(env);
   }
   return 0;
 }

 // Fuellt die Flasche aus <src>
 protected int fill_bottle(object src)
 {
   int liquidtype = src->QueryProp(P_WATER);
   if(liquidtype)
   {
     if(QueryProp(P_WATER)) {
       write(Name(WER,1)+" ist bereits voll!\n");
       return 1;
     }
     // Wasser von Umgebung abziehen!
     // Man kann als Magier die Funktion AddWater(int n) dazu benuetzten,
     // beispielsweise eine Pfuetze zu leeren, ...
     src->AddWater(-QueryProp(P_LIQUID));
     object cont_obj;
     if(liquidtype&W_OTHER)
     {
       // Mittels GetLiquid() kann die Flasche mit was anderem als Wasser
       // gefuellt werden.
       co_filename=src->GetLiquid();
       if (co_filename)
       {
         cont_obj=clone_object(co_filename);
         if(PreventInsert(cont_obj))
         {
           // Hier passiert eigentlich das gleiche wie nach dem ifblock, aber
           // auch noch Funktion beenden.
           // TODO: Rueckgaenig machen von AddWater()?
           // TODO: Die Meldung aus dem PreventInsert() muesste eigentlich
           // _vorher_ noch mit einer Befuellmeldung begleitet werden.
           cont_obj->remove(1);
           if ( objectp(cont_obj) )
             cont_obj->move("/room/muellraum",M_PUT);
           cont_obj=0;
           return 0;
         }
         else
           liquid_name=cont_obj->name(WEN);
         // In jedem Fall wird das Objekt wieder zerstoert - es wurde nur fuer
         // das Ermitteln des liquid_name benutzt... Weia.
         if ( cont_obj ) cont_obj->remove();
         if ( cont_obj ) cont_obj->move("/room/muellraum",M_PUT);
       }
     }
     SetProp(P_WATER,liquidtype);
     AddId(lower_case(liquid_name));
     //wie praktisch, 1 ml == 1 g :) // Aber nur fuer Wasser, du VOGEL! :-|
     return 1;
   }
   else {
     write("Du findest hier nichts, was Du in "+name(WEN,1)+
       " fuellen koenntest!\n");
     return 0;
   }
   return 0;
 }

 static int cmd_leere(string str)
 {
   object dest;
   notify_fail("Was willst Du denn (wo hinein) leeren?\n");
   if (!str)
     return 0;

   string strbottle,strobj;
   // leere flasche
   if (id(str))
   {
     //NOOP
   }
   // leere flasche in xxx
   else if (sscanf(str,"%s in %s",strbottle,strobj)==2)
   {
     if (!id(strbottle))
       return 0;
     dest = present(strobj, environment(this_player()))
            || present(strobj, this_player());
     if (!dest)
       return 0;
   }
   else
     return 0;
   // Syntaxpruefung fertig.

   if(!QueryProp(P_WATER))
   {
     write("Da ist kein "+liquid_name+" drin!\n");
     return 1;
   }

   if (dest)
   {
     write(break_string("Du leerst "+name(WEN,1)+ " in "
           + dest->name(WEN) + ".",78));
     say(break_string(TP->name()+" leert "+name(WEN,0)
           + " in " + dest->name(WEN) + ".",78),TP);
     transfer_to(dest);
     return 1;
   }
   write(break_string("Du leerst "+name(WEN,1)+".",78));
   say(break_string(TP->name()+" leert "+name(WEN,0)+".",78),TP);
   empty();
   return 1;
 }

 public int cmd_fuelle(string str)
 {
   string strbottle,strobj;

   notify_fail("Was willst Du denn (womit) fuellen?\n");
   if(!str)
     return 0;

   // fuelle flasche
   if (id(str))
   {
     if (fill_bottle(environment(this_player())))
     {
       write(break_string("Du fuellst etwas "+liquid_name+" in "
             +name(WEN,1)+".",78));
       say(break_string(TP->Name(WER)+" fuellt etwas "
             +liquid_name+" in "+name(WEN)+".",78), TP);
     }
     return 1;
   }
   // fuelle flasche aus xxx
   // fuelle flasche mit xxx
   // fuelle xxx in flasche
   // fuelle flasche in xxx
   // fuelle xxx aus flasche
   // fuelle xxx mit flasche
   else if (sscanf(str,"%s in %s",strobj,strbottle)==2
            || sscanf(str,"%s mit %s",strbottle,strobj)==2
            || sscanf(str,"%s aus %s",strbottle,strobj)==2)
   {
     object obj;
     // Flasche befuellen?
     if (id(strbottle)
         && ( obj=present(strobj, environment(this_player()))
                  || present(strobj, this_player()) )
        )
     {
       if (fill_bottle(obj))
       {
         write(break_string(
               "Du fuellst etwas "+liquid_name+" aus " + obj->name(WEM,1)
               + " in "+name(WEN,1)+".",78));
         say(break_string(TP->Name(WER)+" fuellt etwas "+liquid_name+ " aus "
               + obj->name(WEM,1) + " in "+name(WEN)+".",78), TP);
       }
       return 1;
     }
     // anderes Gefaess befuellen?
     else if (id(strobj)
         && ( obj=present(strbottle, environment(this_player()))
                  || present(strbottle, this_player()) )
        )
     {
       if (transfer_to(obj))
       {
         write(break_string(
               "Du fuellst etwas "+liquid_name+" aus " + name(WEM,1)
               + " in "+obj->name(WEN,1)+".",78));
         say(break_string(TP->Name(WER)+" fuellt etwas "+liquid_name+ " aus "
               + name(WEM,1) + " in "+obj->name(WEN)+".",78), TP);
       }
       return 1;
     }
   }
   // Syntax passt nicht.
   return 0;
 }

 int IsBottle() {
    return 1;
 }
	/OBJ/
	/* 2013-Mai-23, Arathorn
	Umfassend ueberarbeitet; setup(), init() und ReplaceWasser() entsorgt,
	P_WEIGHT und P_LONG dynamisch gebaut, so dass das staendige Umsetzen
	der Properties mittels setup() nach jedem Fuellen/Leeren entfaellt.
	*/

	/* Letzte Aenderung: 4.5.2004, Arathorn.
	Zeile 149: cont_obj->remove() eingefuegt, damit das geclonte Objekt
	nach dem Abfragen seines Namens wieder entfernt wird.
	Update 6.6.2004, Arathorn. Habe um ein destruct() ergaenzt, weil das
	trotz remove() hartnaeckig weitergebuggt hat. fluch
	*/

	/* Version 1.3 by Fraggle (17.1.1995) */

	// PreventInsert: verhindert Fuellen wie std/container
	/* Version 1.2 by Fraggle (17.1.1995) */

	// Flasche kann nun mittels environment(TP)->GetLiquid()
	// etwas anderes als Wasser enthalten, sofern
	// environment(TP)->QueryProp(P_WATER)==W_OTHER
	// BUG: auch 1l Methan wiegt 1 Kg, aendere ich spaeter

	/* Version 1.1 by Fraggle (17.1.1995) */
	#pragma strong_types,rtt_checks
	#pragma no_clone

	inherit "/std/thing";
	#include <language.h>
	#include <properties.h>
	#include <items/flasche.h>
	#include <items/fishing/fishing.h>

	#define DEFAULT_LIQ "Wasser"
	#define TP this_player()

	private string co_filename;
	public string liquid_name=DEFAULT_LIQ;

	string dynamic_long();

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

	AddId(({"wasserbehaelter","behaelter","\nwater_source"}));
	SetProp(P_NAME, "Wasserbehaelter");
	SetProp(P_GENDER , MALE);
	SetProp(P_ARTICLE, 1);
	SetProp(P_SHORT, "Ein Standard-Wasserbehaelter");
	SetProp(P_LONG,"none");
	Set(P_LONG, #'dynamic_long, F_QUERY_METHOD);
	SetProp(P_LONG_EMPTY,""); // Beschreibung fuer leeren Zustand
	SetProp(P_LONG_FULL,""); // Beschreibung fuer gefuellten Zusand
	SetProp(P_LIQUID,1000); // Fuellmenge = 1 Liter
	SetProp(P_WATER,0); // Flasche ist defaultmaessig leer!
	SetProp(P_VALUE,10);

	// P_WEIGHT auf Leergewicht der Flasche setzen, QueryMethode liefert
	// die Summe aus Leergewicht+Fuellung zurueck (Dichte = 1).
	SetProp(P_WEIGHT,20);
	Set(P_WEIGHT, function int () {
	return ( Query(P_WEIGHT,F_VALUE)+
	(QueryProp(P_WATER)?QueryProp(P_LIQUID):0) );
	}, F_QUERY_METHOD);

	AddCmd(({"fuell","fuelle"}),"cmd_fuelle");
	AddCmd(({"leere", "entleere"}),"cmd_leere");
	}

	protected void create_super() {
	set_next_reset(-1);
	}

	// Behaelter ist gefuellt, dann ist die Langbeschreibung entweder die
	// P_LONG_FULL, falls angegben, oder die P_LONG + Beschreibung der Fuellung.
	// Genauso, wenn sie leer ist.
	string dynamic_long() {
	string l=Query(P_LONG,F_VALUE);
	if ( QueryProp(P_WATER) ) {
	string lf = QueryProp(P_LONG_FULL);
	if ( stringp(lf) && sizeof(lf) )
	l=lf;
	else
	l+=capitalize(QueryPronoun(WER))+" enthaelt "+liquid_name+".\n";
	// Falls die Flasche mit etwas anderem als Wasser gefuellt wird, die
	// Langbeschreibung fuer "volle Flasche" (P_LONG_FULL) aber nur fuer
	// Wasser ausgelegt ist, wird "Wasser" durch den Inhalt von liquid_name
	// ersetzt.
	if ( liquid_name != DEFAULT_LIQ )
	l=regreplace(l, DEFAULT_LIQ, liquid_name, 1);
	} else {
	string le = QueryProp(P_LONG_EMPTY);
	if ( stringp(le) && sizeof(le) )
	l=le;
	else
	l+=capitalize(QueryPronoun(WER))+" ist leer.\n";
	}
	return l;
	}

	// Zum Ueberschreiben! PreventInsert(object ob){return 0;} z.B.
	// macht die Flasche gasdicht.
	// Oder man kann die Flasche verschliessbar machen.
	int PreventInsert(object obj)
	{
	if(obj->id("gas")) { //default: NICHT Gasdicht!
	write(obj->Name(WER,1)+" entweicht sofort wieder!\n");
	return 1;
	}
	return 0;
	}

	// Transferiert den Inhalt der Flasche an <dest>
	protected int transfer_to(object dest)
	{
	int water=QueryProp(P_WATER);
	if (!water)
	{
	write(Name(WER,1) + " ist schon leer!\n");
	return 0; // War schon leer!
	}
	int contents=QueryProp(P_LIQUID);

	if ( water&W_OTHER )
	{
	dest->PutLiquid(co_filename);
	}
	else
	{
	dest->AddWater(contents);
	}
	SetProp(P_WATER,0);
	RemoveId(lower_case(liquid_name));
	liquid_name=DEFAULT_LIQ;
	return contents; //gib die ml an Umgebung ab :)
	}

	// Entleert die Flasche ins Environment der Flasche, allerdings nicht, wenn
	// dies ein Lebewesen ist, dann wird das Environment von dem genommen.
	// TODO: Eine Flasche in einem Paket leeren wurde dann in das paket entleeren.
	// Das waere an sich sogar richtig... Nur: gewollt? Alternative koennen wir
	// auch das aeusserste Environment nehmen, was nicht lebt.
	public int empty()
	{
	if (environment())
	{
	// Environment des Benutzers finden.
	object env = environment();
	while (living(env))
	env=environment(env);
	return transfer_to(env);
	}
	return 0;
	}

	// Fuellt die Flasche aus <src>
	protected int fill_bottle(object src)
	{
	int liquidtype = src->QueryProp(P_WATER);
	if(liquidtype)
	{
	if(QueryProp(P_WATER)) {
	write(Name(WER,1)+" ist bereits voll!\n");
	return 1;
	}
	// Wasser von Umgebung abziehen!
	// Man kann als Magier die Funktion AddWater(int n) dazu benuetzten,
	// beispielsweise eine Pfuetze zu leeren, ...
	src->AddWater(-QueryProp(P_LIQUID));
	object cont_obj;
	if(liquidtype&W_OTHER)
	{
	// Mittels GetLiquid() kann die Flasche mit was anderem als Wasser
	// gefuellt werden.
	co_filename=src->GetLiquid();
	if (co_filename)
	{
	cont_obj=clone_object(co_filename);
	if(PreventInsert(cont_obj))
	{
	// Hier passiert eigentlich das gleiche wie nach dem ifblock, aber
	// auch noch Funktion beenden.
	// TODO: Rueckgaenig machen von AddWater()?
	// TODO: Die Meldung aus dem PreventInsert() muesste eigentlich
	// _vorher_ noch mit einer Befuellmeldung begleitet werden.
	cont_obj->remove(1);
	if ( objectp(cont_obj) )
	cont_obj->move("/room/muellraum",M_PUT);
	cont_obj=0;
	return 0;
	}
	else
	liquid_name=cont_obj->name(WEN);
	// In jedem Fall wird das Objekt wieder zerstoert - es wurde nur fuer
	// das Ermitteln des liquid_name benutzt... Weia.
	if ( cont_obj ) cont_obj->remove();
	if ( cont_obj ) cont_obj->move("/room/muellraum",M_PUT);
	}
	}
	SetProp(P_WATER,liquidtype);
	AddId(lower_case(liquid_name));
	//wie praktisch, 1 ml == 1 g :) // Aber nur fuer Wasser, du VOGEL! :-\|
	return 1;
	}
	else {
	write("Du findest hier nichts, was Du in "+name(WEN,1)+
	" fuellen koenntest!\n");
	return 0;
	}
	return 0;
	}

	static int cmd_leere(string str)
	{
	object dest;
	notify_fail("Was willst Du denn (wo hinein) leeren?\n");
	if (!str)
	return 0;

	string strbottle,strobj;
	// leere flasche
	if (id(str))
	{
	//NOOP
	}
	// leere flasche in xxx
	else if (sscanf(str,"%s in %s",strbottle,strobj)==2)
	{
	if (!id(strbottle))
	return 0;
	dest = present(strobj, environment(this_player()))
	\|\| present(strobj, this_player());
	if (!dest)
	return 0;
	}
	else
	return 0;
	// Syntaxpruefung fertig.

	if(!QueryProp(P_WATER))
	{
	write("Da ist kein "+liquid_name+" drin!\n");
	return 1;
	}

	if (dest)
	{
	write(break_string("Du leerst "+name(WEN,1)+ " in "
	+ dest->name(WEN) + ".",78));
	say(break_string(TP->name()+" leert "+name(WEN,0)
	+ " in " + dest->name(WEN) + ".",78),TP);
	transfer_to(dest);
	return 1;
	}
	write(break_string("Du leerst "+name(WEN,1)+".",78));
	say(break_string(TP->name()+" leert "+name(WEN,0)+".",78),TP);
	empty();
	return 1;
	}

	public int cmd_fuelle(string str)
	{
	string strbottle,strobj;

	notify_fail("Was willst Du denn (womit) fuellen?\n");
	if(!str)
	return 0;

	// fuelle flasche
	if (id(str))
	{
	if (fill_bottle(environment(this_player())))
	{
	write(break_string("Du fuellst etwas "+liquid_name+" in "
	+name(WEN,1)+".",78));
	say(break_string(TP->Name(WER)+" fuellt etwas "
	+liquid_name+" in "+name(WEN)+".",78), TP);
	}
	return 1;
	}
	// fuelle flasche aus xxx
	// fuelle flasche mit xxx
	// fuelle xxx in flasche
	// fuelle flasche in xxx
	// fuelle xxx aus flasche
	// fuelle xxx mit flasche
	else if (sscanf(str,"%s in %s",strobj,strbottle)==2
	\|\| sscanf(str,"%s mit %s",strbottle,strobj)==2
	\|\| sscanf(str,"%s aus %s",strbottle,strobj)==2)
	{
	object obj;
	// Flasche befuellen?
	if (id(strbottle)
	&& ( obj=present(strobj, environment(this_player()))
	\|\| present(strobj, this_player()) )
	)
	{
	if (fill_bottle(obj))
	{
	write(break_string(
	"Du fuellst etwas "+liquid_name+" aus " + obj->name(WEM,1)
	+ " in "+name(WEN,1)+".",78));
	say(break_string(TP->Name(WER)+" fuellt etwas "+liquid_name+ " aus "
	+ obj->name(WEM,1) + " in "+name(WEN)+".",78), TP);
	}
	return 1;
	}
	// anderes Gefaess befuellen?
	else if (id(strobj)
	&& ( obj=present(strbottle, environment(this_player()))
	\|\| present(strbottle, this_player()) )
	)
	{
	if (transfer_to(obj))
	{
	write(break_string(
	"Du fuellst etwas "+liquid_name+" aus " + name(WEM,1)
	+ " in "+obj->name(WEN,1)+".",78));
	say(break_string(TP->Name(WER)+" fuellt etwas "+liquid_name+ " aus "
	+ name(WEM,1) + " in "+obj->name(WEN)+".",78), TP);
	}
	return 1;
	}
	}
	// Syntax passt nicht.
	return 0;
	}

	int IsBottle() {
	return 1;
	}