// tunika
// data : ??
// autor : dhor
 
inherit "/std/object.c";

#include <dhor.h>
#include <macros.h>
#define TUNIKA "_tunika_"

int wear;
int wear(string co);
int remove(string co);

create_object()
{

    ustaw_nazwe(({ "tunika", "tuniki", "tunice", "tunike", "tunika",
        "tunice" }), ({ "tuniki", "tunik", "tunikom", "tuniki",
        "tunikami", "tunikach" }), PL_ZENSKI);

    dodaj_przym("dluga","dludzy");
    dodaj_przym("czarny","czarni");

    set_long("Jest to wykonana z lnu czarna tunika rycerska. Jest bardzo "+
    "dluga, rozcieta wzdluz od pasa w dol na cztery czesci, siega niemal "+
    "kostek, zakrywajac prawie calkowicie korpus i nogi, niemniej wcale "+
    "nie krepuje ruchow. Wykonana jest bardzo starannie i nie posiada "+
    "zadnych zdobien, oprocz wyszytego na przodzie lekko juz zatartego znaku. \n"); 

    add_prop(OBJ_I_VOLUME, 1000);
    add_prop(OBJ_I_WEIGHT, 1000);
    add_prop(OBJ_I_VALUE, 220);
  

}

void
init()
{

    add_action ("remove","zdejmij"); 
    add_action("wear","zaloz");
    ::init ();
  
}

int
wear(string co)
{
    notify_fail("Co chcesz zalozyc?\n");
    if (!(co=="tunike")) return 0;
    if (member_array(TUNIKA, this_player()->query_sublocs()) > -1)
    {
       notify_fail("Masz juz inna tunike na sobie.\n");
       return 0;
    }
    this_player()->add_subloc(TUNIKA, this_object());
    write("Zakladasz dluga czarna tunike na tulow, nogi i ramiona.\n");
    say(QCIMIE(TP,PL_MIA)+" zaklada dluga czarna tunike.\n");
	move(TP, TUNIKA);
	wear=1;
	update_actions();
    return 1;
}

int
remove(string co)
{
    notify_fail("Co chcesz zdjac?\n");
    if (!(co=="tunike")) return 0;
    this_player()->remove_subloc(TUNIKA);
    write("Zdejmujesz dluga czarna tunike.\n");
    say(QCIMIE(TP,PL_MIA)+" zdejmuje dluga czarna tunike.\n");
	wear=0;
	move(TP);
//	update_actions();
    return 1;
}

void
leave_env(object from, object to)
{

    this_player()->remove_subloc(TUNIKA);
    if (wear)
    {
    write("Zdejmujesz dluga czarna tunike.\n");
    say(QCIMIE(TP,PL_MIA)+" zdejmuje dluga czarna tunike.\n");
        wear=0;
    }
    ::leave_env(from, to);
}

string
show_subloc(string subloc, object on_obj, object for_obj)
{
    if (on_obj == for_obj)
        return "Nosisz dluga czarna tunike.\n";
    return "Ma na sobie dluga czarna tunike.\n";
}