inherit "/std/armour";

#include <wa_types.h>
#include <stdproperties.h>
#include <cmdparse.h>
#include <pl.h>
#include <macros.h>
#include <ss_types.h>
#define TP this_player();
#define ZBROJA_SUBLOC "_zbroja_kasana_"
#define ZALOZYL_ZBROJE "_zalozyl_zbroje_"
#define ZBROJA_SUBLOCSTR "_zbroja_kasanastr_"
#define DODAJE_SILE "_dodaje_sile_"


void
create_armour()
{
    ustaw_nazwe(({"napiersnik", "napiersnika", "napiersnikowi", "napiersnik",
                  "napiersnikiem", "napiersniku" }),
                ({"napiersniki", "napiersnikow", "napiersnikom", "napiersniki",
                        "napiersnikami", "napiersnikach" }), PL_MESKI_NOS_NZYW);


    dodaj_przym("tajemniczy","tajemnicze");
    dodaj_przym( "mithrylowa","mithrylowe" );

    set_long("Mithrylowa tajemnicza zbroja.\n");
          
    add_prop(OBJ_I_VOLUME, 500);
    set_ac(A_BODY, 60, 60, 60, A_ARMS,40,40,40, A_LEGS,40,40,40);
    this_object()->set_af(this_object());

}



void
init()
{
    ::init ();
    add_action("skieruj", "skieruj");
}

mixed
wear(object on_obj)
{
    write("Zakladasz tajemnicza mithrylowa zbroje, czujesz ze jakas sila opanowywuje "+
          "twoj umysl, najpierw probojesz stawiac opor, jednak pozniej opanowywuje w "+
          "calosci twoj umysl.\n");
    saybb("Widzisz jak "+QIMIE(this_player(), PL_MIA)+" zaklada mithrylowa zbroje i przez "+
          "je"+on_obj->koncowka("go","j")+" cialo przechodza konwulsje .\n");

    this_player()->add_subloc(ZBROJA_SUBLOC, this_object());
    this_player()->add_prop(ZALOZYL_ZBROJE, 1);
    return 1;
}

mixed
remove()
{
    this_player()->remove_subloc(ZBROJA_SUBLOC);
    this_player()->remove_subloc(ZBROJA_SUBLOCSTR);
    this_player()->remove_prop(ZALOZYL_ZBROJE);
    this_player()->set_stat_extra(SS_STR, 0);
    if(this_player()->query_prop(DODAJE_SILE)==1)
        {
	  write("Czujesz ze twoja sila znika...\n");
	  this_player()->remove_prop(DODAJE_SILE);
	  return;
        }
     
//   return 1;

}


string
show_subloc(string subloc, object on_obj, object for_obj)
{
    if (subloc == ZBROJA_SUBLOCSTR)
    if (this_player()->query_prop(DODAJE_SILE))
      {
    if (on_obj == for_obj)
       return "Wokol twojej zbroi unosi sie poswiata.\n";
       return "niebieska poswiata.\n";
       }
     

    if  (subloc == ZBROJA_SUBLOC)
    {
    if (on_obj == for_obj)
    return "Twoja tajemnicza zbroja, wskazuje przynaleznosc do Bastionu Umarlych.\n";
    return "Je"+on_obj->koncowka("go","j")+" tajemnicza zbroja, to znak przynaleznosci "+
           "do Bastionu Umarlych.\n";
    }
}


int
skieruj(string mysl)
{
	string konc;
	konc = this_player()->koncowka("y","a");
	notify_fail("Skieruj swoje mysli na co?\n");
	
	
	if (this_player()->query_prop(ZALOZYL_ZBROJE)==0) 
	 {
	     notify_fail("Slucham?\n");
	     return 0;
	 }

        if (this_player()->query_prop(DODAJE_SILE)==1)
	  {
	  notify_fail("Nie mozesz sie bardziej skoncentrowac na sile.\n");
          return 0;
	  }
	  
	 if (mysl=="swoje mysli na sile") 
	 {
	   write("Skupiasz sie wszystkie swoje mysli, na swojej sile.\n");	   
	   this_player()->add_prop(DODAJE_SILE,1);
	   set_alarm(8.0, 0.0, "dodawanie_cech");
	   return 1;
	}
}

void dodawanie_cech()
{
     if(this_player()->query_prop(DODAJE_SILE)==1)
       {
        write("Czujesz sie silniejszy.\n");
        this_player()->set_stat_extra(SS_STR, 60);
	write("Zauwazasz niebieska poswiate naokolo zbroi.\n");
	this_player()->add_subloc(ZBROJA_SUBLOCSTR, this_object());
	return;
       }
}