// Name des Objects:    Waschobjekt
// Letzte Aenderung:    01.04.2005
// Magier:              Seleven
// Dieses File gibt dem Spieler die Moeglichkeit, eine Waschgelegenheit in
// seinem Seherhaus aufzustellen. Das beim Kommando wasch(e), dusch(e) laesst
// sich die Medung ueberschreiben (Test per raum->QueryProp("h_commands"))
// 01.07.2007 (Zesstra): GetOwner() definiert.
//----------------------------------------------------------------------------
#pragma strong_types,rtt_checks

#include "schrankladen.h"
inherit LADEN("swift_std_container");

string *wcmd;
string *objekte =
  (({"\nstinkobj","\nzesstra_asche","seleve\nscheisse","\npopc",
     "\nsspbollen","seleve\nstinkobj","\nq2p_gestank","ber\tram_skot",
     "bambi\nschmutzigehaende"}));
/* Wurzel(Klo/Imbiss), Zesstra(Vulkan/Illuminatos), Seleven(Klo/Nebelelfen),
 * Seleven(Popcorn/Nebelelfen), Boing(Schleimschmeisser,SSP), STANDART
 */

static void wasch_fun();

protected void create()
{
  if (!clonep(this_object())) return;
  ::create();

  wcmd = (({"wasche","wasch","dusche","dusch"}));
  AddId(({"duschkabine","kabine","dusche","waschgelegenheit"}));
  SetProp(P_NAME,"Duschkabine");
  
  SetProp("cnt_version_obj",1);

  SetProp("obj_cmd",
  "wasch(e), dusch(e)\n"+
  "   Damit laesst sich das Stinken aus dem Imbissklo beseitigen.\n"+
  "   Wenn kein Befehl 'wasch(e)' im Raum beschrieben ist, erfolgt eine\n"+
  "   Standartmeldung, selbiges gilt fuer 'dusch(e)'.\n"+
  "ssetz(e) waschbefehl\n"+
  "   Damit kann man die Befehlsliste erweitern, die das Waschen \n"+
  "   ausloesen\n"+
  "sloesch(e) waschbefehl\n"+
  "   Damit kann man einen Befehl aus der Liste loeschen\n"+
  "waschbefehlslite, wbl"+
  "   Zeigt eine Liste der Befehle an, die das Waschen ausloesen.\n");

  SetProp(P_SHORT,"Eine Duschkabine");
  SetProp(P_LONG,BS("Die Duschkabine hat einen Rahmen aus hellem Holz. "
   "Dazwischen wurden matte Scheiben eingelassen, damit man niemanden beim "
   "Duschen beobachten kann."));
  AddDetail("rahmen","Der Rahmen ist aus hellem Holz.\n");
  AddDetail(({"scheiben","scheibe"}),"Die Scheiben der Duschkabine sind "+
   "matt und absolut undurchsichtig!\n");
  AddDetail(({"duschen","beim duschen"}),
   "Man kann niemanden beim Duschen beobachten.\n");

  SetProp(P_GENDER, FEMALE);
  SetProp(P_WEIGHT, 5000);         // Gewicht 5 Kg
  SetProp(P_MAX_WEIGHT, 0);        // Soll nur n pseudo-Container
  SetProp(P_WEIGHT_PERCENT, 100);  // Dafuer macht er auch nix leichter :)
  SetProp(P_MAX_OBJECTS, 0);       // Kein Container :)
  SetProp(P_VALUE, 0);             // Ist eh nicht verkaufbar.
  SetProp(P_NOBUY, 1);             // Fals doch: zerstoeren!
  SetProp(P_NOGET,
    "Das geht nicht. "+Name(WER,1)+" haftet wie magisch am Boden.\n");
  SetProp(P_MATERIAL, ({MAT_MISC_WOOD, MAT_MISC_MAGIC}) );
  SetProp(P_INFO, "Versuchs mal mit: \"skommandos "+QueryProp(P_IDS)[1]+"\" !\n");

  AddCmd(wcmd,"cmd_waschen");
  RemoveCmd(({"oeffne","oeffn","schliesse","schliess"}));
  AddCmd(({"ssetze","ssetz"}),"cmd_setzen");
  AddCmd(({"sloesche","sloesche"}),"cmd_loeschen");
  AddCmd(({"wbl","waschbefehlsliste"}),"liste");
}

// Zesstra, 1.7.07, fuers Hoerrohr
string GetOwner() {return "seleven";}

varargs int PreventInsert(object ob) {return 1;} //Das ist kein Container :)

static void wasch_fun()
{
  int i;
  object ob;
  i = sizeof(objekte);
  i--;
  while(i > -1)
  {

    if(!TP) return;
    ob = present(objekte[i],TP);
    while(ob)
    {
      if(query_once_interactive(ob))
	  {
	    tell_object(TP,BS("Du scheinst jemanden in Deinem Inv zu haben!\n"
	     "Das sollte sich vielleicht ein Magier anschauen."));
	    i--;
	    return;
      }
      ob->remove(1);
      if(present(objekte[i],TP));
       ob = present(objekte[i],TP);
    }
    i--;

  }
}

int cmd_waschen(string str)
{
  string verb;
  verb = query_verb();
  if(!environment()) return 0;
  if( !erlaubt() )
  {
      write("Du solltest den Besitzer vielleicht um Erlaubnis bitten.\n");
      return 1;
  }
  if(member(environment()->QueryProp("h_commands"),verb) == 0)
  {
    write(
     "Du springst schnell unter die Dusche und waeschst Dich gruendlich.\n");
    say(this_player()->Name(WER)+" springt schnell unter die Dusche.\n");
    wasch_fun();
    return 1;
  }
  wasch_fun();
  return 1;
}


static int cmd_setzen(string str)
{
  string bef;
  notify_fail("Moechtest Du einen Waschbefehl setzen?\n"+
    "Syntax: ssetz(e) waschbefehl [befehl]\n");
  if(!str || !stringp(str) || sizeof(str) == 0) return 0;
  sscanf(str,"waschbefehl %s",bef);
  if(!bef) return 0;
  if(bef[sizeof(bef) .. sizeof(bef)-1] == "e")
   bef = bef[sizeof(bef) .. sizeof(bef)-2];
  notify_fail("Der Befehl steht schon auf der Liste.\n");
  if(member(wcmd,bef) != -1) return 0;
  wcmd += (({bef,bef+"e"}));
  AddCmd(wcmd,"cmd_waschen");
  write(BS("Du hast die Befehle "+bef+" und "+bef+"e an die Liste "
   "angefuegt."));
  return 1;
}

static int cmd_loeschen(string str)
{
  string bef;
  notify_fail("Moechtest Du einen Waschbefehl loeschen?\n"+
    "Syntax: sloesch(e) waschbefehl [befehl]\n");
  if(!str || !stringp(str) || sizeof(str) == 0) return 0;
  sscanf(str,"waschbefehl %s",bef);
  if(!bef) return 0;
  notify_fail("Der Befehl steht gar nicht auf der Liste.\n");
  if(member(wcmd,bef) == -1) return 0;
  wcmd -= (({bef}));
  RemoveCmd(bef);
  write(BS("Du hast die Befehle "+bef+" und "+bef+"e von der Liste "
   "entfernt."));
  return 1;
}

static int liste(string str)
{
  write("Du hast folgende Befehle auf der Waschliste stehen:\n"+
   break_string(implode(wcmd,", "),78,3));
  return 1;
}


// oeffnen und schliessen ausbauen.
varargs int skommandos(string str)
{
  notify_fail( "Fehler: Dieser Befehl benoetigt eine gueltige Objekt-Id als Parameter.\n"
    +"Beispiel: skommandos "+QueryProp(P_IDS)[1]+"\n");
  if(!str) return 0;
  if(present(str)!=TO ) // Bin ich gemeint?
    return 0;
  write("=============================================================================\n");
  write("Aktuelle Version: "+QueryProp("cnt_version_std")+QueryProp("cnt_version_obj")+"\n");
  write( BS(Name(WER,1)+" kann nur in diesem Seherhaus verwendet werden, "
    +"da "+QueryPronoun(WER)+" speziell dafuer gekauft wurde. "+CAP(QueryPronoun(WER))
    +" verfuegt ueber folgende Kommandos:")
    +"-----------------------------------------------------------------------------\n"
    +"serlaube [Objekt-Id] [Spielername|\"hausfreunde\"|\"zweities\"]\n"
    +"  Erlaubt Personen, "+name(WEN,1)+" mitzubenutzen.\n"
    +"  serlaube + Objekt-Id (ohne Spielername/hausfreunde)\n"
    +"  listet alle Personen mit Zugriff auf "+name(WEN,1)+"\n\n"
    +"verschiebe [Objekt-Id] nach [Ausgang]\n"
    +"  Damit kannst Du "+name(WEN,1)+" innerhalb Deines Seherhauses verschieben.\n\n"
  //Seleven 07.12.2005
    +"sverstecke [Objekt-Id]\n"
    +"  Damit machst Du "+name(WEN,1)+" unsichtbar.\n"
    +"shole [Objekt-Id] hervor\n"
    +"  Damit machst Du "+name(WEN,1)+" wieder sichtbar.\n"
  // Bis hier
    +"zertruemmer [Objekt-Id]\n"
    +"  Damit zerstoerst Du "+name(WEN,1)+".\n\n");


  if( QueryProp("obj_cmd") )
    write( QueryProp("obj_cmd")+"\n" );

  write("[Objekt-Id] muss eine gueltige Id sein, in diesem Fall z.B. "
      +QueryProp(P_IDS)[1]+"\n");
  write("=============================================================================\n");


  return 1;
}