inherit "/std/object";

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

void create_object()
{
  add_name("_list_do_gustawa_kahnera");
  ustaw_nazwe (({"list","listu","listowi","list","listem","liscie"}),
      ({"listy","listow","listom","listy","listami","listach"}),
                PL_MESKI_NOS_NZYW);
  dodaj_przym ("szary","szarzy");
  dodaj_przym ("duzy","duzi");
  set_long ("Duza szara koperta jest podpisana czytelnym pismem:\n" +
  	"\tGustawowi Kahnerowi, wojtowi Tadrig.\n");
    add_cmd_item("list","przeczytaj","Na kopercie widzisz imie adresata.\n");
    add_cmd_item(({"list","koperte"}),"otworz","@@no_i_co");
}

string
no_i_co()
{
    write("Energicznym ruchem rozdzierasz koperte. Przy okazji porwales tez " +
    	"list, co znajdowal sie wewnatrz. To pech.\n");
    say(QCIMIE(this_player(),PL_MIA)+" energicznym ruchem rozdziera koperte.\n");
    this_object()->remove_object();
    return"";
}