/* Plaszczyk
 * autor : Arvena
 */
 
inherit "/std/armour";

#include <macros.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <ss_types.h>
#include <formulas.h>
#include <pl.h>

#define TP this_player()

string mmout, mmin;
int widzenie_w_ciemnosci;

void
create_armour()
{
    ustaw_nazwe(({"plaszcz", "plaszcza", "plaszczowi", "plaszcz",
		  "plaszczem", "plaszczu"}),
		({"plaszcze", "plaszczy", "plaszczom", "plaszcze",
		  "plaszczami", "plaszczach"}),
		PL_MESKI_NOS_NZYW);
		
    dodaj_przym("dlugi", "dludzy");
    dodaj_przym("gwiezdzisty", "gwiezdzisci");
    
    set_long("Jest to siegajacy ziemi, czarny plaszcz z duzym, "+
             "szerokim kapturem. Caly material mieni sie milionami "+
             "srebrzystych gwiazd, ktore wyszyte jakas tajemnicza "+
             "nicia ukladaja sie w czarodziejskie, intrygujace znaki.\n");
    
    set_ac(A_BODY, 10, 10, 10,
	   A_ARMS, 10, 10, 10,
	   A_LEGS, 10, 10, 10);
	   
    set_slots(A_ROBE);
    
    add_prop(OBJ_I_WEIGHT, 1000);
    add_prop(OBJ_I_VOLUME, 500);
    add_prop(OBJ_I_VALUE, query_default_value()*3);
    
    add_prop(OBJ_I_IS_MAGIC_ARMOUR, 1);
    add_prop(MAGIC_AM_MAGIC, ({10, "enchantment"}));
    add_prop(MAGIC_AM_ID_INFO, "Zalozenie tego plaszcza umozliwia "
	+ "ukrycie sie - nikt nie jest w stanie cie rozpoznac.\n");
    
    set_af(this_object());
}

mixed
wear(object obj)
{    
    set_alarm(0.5, 0.0, "zakladanie");

    return 0;
}

void
zakladanie()
{
    string postac=TP->query_rasa(PL_DOP);
    TP->add_prop(LIVE_I_NEVERKNOWN, 1);
    widzenie_w_ciemnosci=TP->query_prop(LIVE_I_SEE_DARK);
    TP->add_prop(LIVE_I_SEE_DARK, 100);
    TP->ustaw_shorty(({"tajemnicza zakapturzona postac "+postac,
		       "tajemniczej zakapturzonej postaci "+postac,
		       "tajemniczej zakapturzonej postaci "+postac,
		       "tajemnicza zakapturzona postac "+postac,
		       "tajemnicza zakapturzona postacia "+postac,
		       "tajemniczej zakapturzonej postaci "+postac}),
		     ({"tajemnicze zakapturzone postacie",
		       "tajemniczych zakapturzonych postaci",
		       "tajemniczym zakapturzonym postaciom",
		       "tajemnicze zakapturzone postacie",
		       "tajemniczymi zakapturzonymi postaciami",
		       "tajemniczych zakapturzonych postaciach"}),
		     PL_ZENSKI);
    mmout=TP->query_mm_out();
    mmin=TP->query_mm_in();
    TP->set_mm_out("rozplywa sie we mgle");
    TP->set_mm_in("wylania sie z mgly.");
}

mixed
remove(object obj)
{
    TP->remove_prop(LIVE_I_NEVERKNOWN);
    TP->remove_prop(LIVE_I_SEE_DARK);
    if (widzenie_w_ciemnosci>0)
	TP->add_prop(LIVE_I_SEE_DARK, widzenie_w_ciemnosci);
    TP->usun_shorty();
    TP->set_mm_out(mmout);
    TP->set_mm_in(mmin);

    return 0;
}