inherit "/std/armour";
#include <wa_types.h>
#include <stdproperties.h>
#include <macros.h>
#include <formulas.h>
#include <filter_funs.h>
#include <options.h>
#define ILE_MANY 200
#define LOKACJE ({"/d/Imperium/Nuln/lokacje/plac","/d/Imperium/Zakon/zamek/przed_brama", \
"/d/Imperium/Zakon/zamek/kancelaria","/d/Imperium/Altdorf/Ogrod/ogr14", \
"/d/Imperium/Kislev/BialaCerkiev/lokacje/kryptat2","/d/Imperium/Altdorf/Ulice/alimp3", \
"/d/Imperium/Altdorf/Ulice/ulnau1","/d/Imperium/Altdorf/Ulice/ulsig9", \
"/d/Imperium/Altdorf/Ulice/most6","/d/Imperium/Altdorf/Trakty/trake12","/d/Imperium/Altdorf/Swiatynia/swsig1","/d/Imperium/Altdorf/Zamek_Franza/kor9", \
"/d/Imperium/Altdorf/Zamek_Franza/sypialnia","/d/Imperium/Czarne/lokacje/czarne17", \
"/d/Imperium/Czarne/lokacje/czarne9","/d/Imperium/Czarne/lokacje/z_karak","/d/Imperium/Dimm/lokacje/droga4",\
"/d/Imperium/Dimm/lokacje/wioska8","/d/Imperium/Kislev/lokacje/kis159","/d/Imperium/Kislev/lokacje/kis74",\
"/d/Imperium/Kislev/lokacje/kis25","/d/Imperium/Kislev/lokacje/sklep","/d/Imperium/Kislev/lokacje/kis107",\
"/d/Imperium/Kislev/trakt/area12","/d/Imperium/Kislev/trakt/area1","/d/Imperium/Kislev/BialaCerkiev/lokacje/5",\
"/d/Imperium/Karak-Throlde/lokacje/karak19","/d/Imperium/Karak-Throlde/lokacje/karak40",\
"/d/Imperium/Karak-Throlde/lokacje/pokprzyjec","/d/Imperium/Loren/las/las120","/d/Imperium/Loren/las/las52",\
"/d/Imperium/Loren/las/las99","/d/Imperium/Loren/Athel/ulica15","/d/Imperium/Kreutz/lokacje/placyk",\
"/d/Imperium/Kreutz/lokacje/ulica2","/d/Imperium/Kraina/ORKI/lokacje/oboz14",\
"/d/Imperium/Kraina/ORKI/lokacje/oboz10","/d/Imperium/Kraina/ORKI/lokacje/podz9",\
"/d/Imperium/Kraina/RUINY/jaskinie/jask8","/d/Imperium/Kraina/RUINY/jaskinie/jask9",\
"/d/Imperium/Kraina/RUINY/ruiny/ruiny5","/d/Imperium/Kraina/RUINY/ruiny/ruinyc6","/d/Imperium/Kraina/RUINY/ruiny/ruinyb2",\
"/d/Imperium/Kraina/BAGNO/bagno17","/d/Imperium/Pustkowia/trakt/szlak14","/d/Imperium/Pustkowia/trakt/szlak18",\
"/d/Imperium/Pustkowia/twierdza/lokacje/kor24","/d/Imperium/Pustkowia/twierdza/lokacje/kor23",\
"/d/Imperium/Pustkowia/twierdza/lokacje/wn4","/d/Imperium/Pustkowia/rownina/r187",\
"/d/Imperium/Pustkowia/rownina/r184","/d/Imperium/Pustkowia/rownina/r300","/d/Imperium/Nuln/lokacje/most",\
"/d/Imperium/Nuln/lokacje/ulica1"})
void
create_armour()
{
    ustaw_nazwe(({"amulet","amuletu","amuletowi","amulet","amuletem","amulecie"}),
    ({"amulety","amuletow","amuletom","amulety","amuletami","amuletach"}), PL_MESKI_NZYW);
    dodaj_przym("bialy","biali");
    dodaj_przym("lekki", "leccy");
    add_name("_kiss_gem_");
    add_prop(OBJ_M_NO_DROP, "Chyba nie chcesz wyjebac swojego zajebistego amuletu?\n");
    add_prop(OBJ_M_NO_SELL, "Pojebalo cie?\n");
    add_prop(OBJ_M_NO_GIVE, "Chyba nie oddasz takiego skarbu jakiemus lamusowi?\n");
    set_long("Jest to niewielki wielki amulet - pojebany tak jak wszystko tutaj :P\n" +
             "Mozesz go stuknac a wtedy stanie sie maly psikus!\n");
    set_default_armour( 0, A_NECK, 0, 0);
    add_prop(OBJ_I_WEIGHT,                8);
    add_prop(OBJ_I_VOLUME,                2);
    add_prop(OBJ_I_VALUE,                15);
}
void
init()
{
  ::init();
  add_action("potrzyj", "stuknij");
}
int
potrzyj(string str)
{
  
  notify_fail("Co chcesz stuknac?\n");
  if (str != "amulet") return 0;
  notify_fail("Jestes zbyt mentalnie wyczerpany by go stuknac.\n");
  if (this_player()->query_mana() < 200) return 0;
  notify_fail("Jestes zbyt zajety walka by stuknac amulet.\n");
  if (this_player()->query_attack()) return 0;
  switch(random(20))
  {
  case 0..10:
  write("Stukasz w amulet lecz nic sie nie dzieje.\n");
  this_player()->set_mana(this_player()->query_mana() - ILE_MANY);
  break;
  default:
  write("Stukasz w amulet i obok ciebie pojawia sie duzy niebieski owal, po chwili namyslu wskazujesz w niego, po "+
  "chwili jestes w innym miejscu.\n");
  say(QCIMIE(this_player(), PL_MIA) + " stuka lekko a po chwili obok "+this_player()->koncowka("jego","jej")+" pojawia sie niebieski owal. "+
  "Po chwili "+QIMIE(this_player(),PL_MIA)+" wchodzin wen i znika.\n");
  this_player()->set_mana(this_player()->query_mana() - ILE_MANY);
  
  switch(random(100))
  {
  case 0:
  this_player()->move_living("M", this_player()->query_default_start_location() + ".c", 1, 0);
  break;
  default:
  this_player()->move_living("M", LOKACJE[random(sizeof(LOKACJE))]+".c", 1, 0);  
  break;  
  }
   
  say("Nagle pojawia sie niebieski owal, z ktorego wychodzi "+QIMIE(this_player(),PL_MIA)+".\n");
  break;
}
  return 1;
}
string
query_auto_load ()
{
        return MASTER_OB(this_object());
}
string
query_recover()
{
  return 0;
}