/*
 *		Zgrzebna szata dla Braci Sluzebnych
 *
 *		Napisal : Mithandir ... 1998
 *
 */
 
inherit "/std/object.c";

#include <cmdparse.h>
#include <macros.h>

#include <stdproperties.h>
#include <wa_types.h>

#include "mith.h"
#include "ryc_zak.h"

#pragma no_inherit
int zalozona;
int wear(string co);
int remove(string co);

create_object()
{
	ustaw_nazwe (({"szata","szaty","szacie","szate","szata","szacie"}),
		({"szaty","szat","szatom","szaty","szatami","szatach"}),
		PL_ZENSKI);

	dodaj_przym("zgrzebny","zgrzebni");
	dodaj_przym("szary","szarzy");
	
	set_long ("Jest to szara, zgrzebna szata, wykonana z grubego materialu. "
		+"Nosza ja bracia sluzebni Zakonu Rycerskiego Sigmara Mlotodzierzcy "
		+"aby cwiczyc swa pokore.\n");
		
	add_prop (OBJ_I_WEIGHT, 300);
	add_prop (OBJ_I_VALUE, 100);
	set_alarm(0.3,0.0,"dodaj_propy");
}
void
init()
{
    ::init ();
//    if (this_player()->query_guild_name_occ()==GUILD_NAME && this_player()
    zalozona ? add_action ("remove","zdejmij") : add_action("wear","zaloz");
}

dodaj_propy()
{
	add_prop(OBJ_M_NO_SELL, "Szata jest bezwartosciowa.\n");
    add_prop(OBJ_M_NO_DROP, "Nie odwazysz sie wyrzucic szaty zakonnej, gdyz sciagnelo by to na ciebie gniew Sigmara.\n");
    add_prop(OBJ_M_NO_GIVE, "Nie mozesz nikomu dac szaty zakonnej.\n");
    add_prop(OBJ_M_NO_STEAL, 1);
	add_prop(OBJ_M_NO_GET,"Nie jestes w stanie podniesc szaty... Cos poteznego powstrzymuje twoja wole.\n");
}

usun_propy()
{
	remove_prop(OBJ_M_NO_SELL);
    remove_prop(OBJ_M_NO_DROP);
    remove_prop(OBJ_M_NO_GIVE);
    remove_prop(OBJ_M_NO_STEAL);
	remove_prop(OBJ_M_NO_GET);
}


int
wear(string co)
{
    notify_fail("Co chcesz zalozyc?\n");
    if (!(co=="szate")) return 0;
    this_player()->add_subloc(SZATA_SUBLOC, this_object());
    move(TP,SZATA_SUBLOC);
    write("Zakladasz na siebie zgrzebna szate.\n");
    say(QCIMIE(TP,PL_MIA)+" zaklada zgrzebna szate Braci Sluzebnych.\n");
	zalozona=1;
	update_actions();
    return 1;
}

int
remove(string co)
{
    notify_fail("Co chcesz zdjac?\n");
    if (!(co=="szate")) return 0;
    this_player()->remove_subloc(SZATA_SUBLOC);
    write("Zdejmujesz szara zgrzebna szate.\n");
    move(TP);
    say(QCIMIE(TP,PL_MIA)+" zdejmuje szara zgrzebna szate.\n");
	zalozona=0;
	update_actions();
    return 1;
}

void
leave_env(object from, object to)
{

    this_player()->remove_subloc(SZATA_SUBLOC);
    ::leave_env(from, to);
}

string
show_subloc(string subloc, object on_obj, object for_obj)
{
    if (on_obj == for_obj)
        return "Nosisz zgrzebna szate, aby okazac sluszna u Brata Sluzebnego pokore.\n";
    return "Ma na sobie zgrzebna szate Braci Sluzebnych Zakonu Sigmara Mlotodzierzcy.\n";
}

string 
query_auto_load ()
{
        return MASTER_OB(this_object());
}