inherit "/std/object";

#include "elear.h"
#include <stdproperties.h>
#include <pl.h>
#include <macros.h>

int brud = 1;

string opispier ()
{
  string s;
  if (brud)
  {
    s = "Jest to niewielki, zloty pierscionek. To znaczy, niewielki, oszlamiony "
    +"pierscionek. To, ze jest zloty, jest ciezkie do zauwazenia, jako ze caly "
    +"pierscionek oblepiony jest smierdzacym blotem.\n";
  }
  else
  {
    s = "Jest to niewielki, zloty, lsniacy pierscionek.\n";
  }
  return s;
}

void create_object()
{
  ustaw_nazwe (({"pierscionek","pierscionka","pierscionkowi",
  		 "pierscionek","pierscionkiem","pierscionku"}),
  	({"pierscionki","pierscionkow","pierscionkom",
  	  "pierscionki","pierscionkami","pierscionkach"}),
   	PL_MESKI_NOS_NZYW);
  dodaj_nazwy(({"pierscien","pierscienia","pierscieniowi","pierscien",
      "pierscieniem","pierscieniu"}),
      ({"pierscienie","pierscieni","pierscieniom","pierscienie",
      "pierscieniami","pierscieniach"}),PL_MESKI_NOS_NZYW);
  dodaj_przym ("maly","maly");
  set_long ("@@opispier");

  add_prop(OBJ_I_WEIGHT, 10);
  add_prop(OBJ_I_VOLUME, 5);
  add_prop(OBJ_I_VALUE, 35);
}

int oczysc (string s)
{
  object obj;
  if (!s)
  {
    notify_fail ("Co chcesz wyczyscic?\n");
    return 0;
  }
  if (s=="pierscionek" || s=="pierscien" || s=="maly pierscionek" || s=="brudny pierscionek")
  {
      if (brud)
      {
          write ("Wycierasz pierscionek do czysta rabkiem swojego ubrania. "
          +"Teraz lsni on zlotym, metalicznym blaskiem. Az milo popatrzec.\n");
          say (QCIMIE(this_player(),PL_MIA)+" wyciera pierscionek ze szlamu.\n");
          add_name("_pierscien_igora_");
          brud = 0;
      }
      else
      {
          write ("Pierscionek juz jest czysty.\n");
      }
  }
  else write ("Nie mozesz tego zrobic.\n");
  return 1;
}  


void init()
{
  ::init();
  add_action (oczysc,"oczysc");
  add_action (oczysc,"wytrzyj");
  add_action (oczysc,"wyczysc");
}