inherit "/d/Imperium/std/monster.c";
#include <stdproperties.h>
#include <ss_types.h>
#include <macros.h>
#include <wa_types.h>
#include <filter_funs.h>

#define NAZN "naznaczony_przez_wyznawce"
#define AMU_SUBLOC "czarny_kamienny_amulet"

void dodaj_subloca();
int naznaczony;
object gracz;

create_monster()
{
    ustaw_imie(({"klaus","klausa","klausowi","klausa","klausem","klausie"}),
                  PL_MESKI_OS);
    set_long("Krepy, stary mezczyzna o cerze ogorzalej od wiatru i slonca."+
             " Jego dlugie, proste wlosy sa zmierzwione jak od wichury, a rece zniszczone"+
             " od ciezkiej pracy, ale jego sylwetka wyraza zdecydowanie i zacieklosc, a w zielonych"+
             " oczach pala plomien determinacji.\n");
    
    dodaj_przym("zielonooki","zielonoocy");
    dodaj_przym("krepy","krepi");         
    
    set_title("Moltke, Arcyhierofant Lesnego Kregu");
    ustaw_odmiane_rasy(PL_CZLOWIEK);
    
    set_gender(G_MALE);
    
    set_random_move(100, 1);
    
    set_stats(({45+random(30),40+random(30),35+random(30),30,33,51}));
    set_hp(this_object()->query_max_hp());
    set_skill(SS_DEFENCE, random(30)+15);
    set_skill(SS_PARRY, random(30)+10);
    set_skill(SS_WEP_SWORD,random(60)+10);    
    set_chat_time(45+random(10));
    set_act_time(32+random(10));
    
    add_act("emote spoglada na ciebie, a w jego zielonych oczach widac madrosc prastarego Lasu.");
    add_act("emote pochyla glowe i zdaje sie cos mamrotac.");
    add_act("emote spokojnie sie usmiecha.");
    add_act("emote gleboko sie zamysla, bezwiednie obracajac pierscien.");
    add_act("emote patrzy gdzies w dal.");
    add_act("emote szeptem cos recytuje.");

    add_act("powiedz Niech Taal ma nas w swojej opiece.");
    add_act("powiedz Czy potrafisz dochowac tajemnicy?");
    add_act("powiedz Jezeli szanujesz las i jestes wiernym wyznawca Taala, moze zechcesz sie do mnie przylaczyc?");
    add_act("powiedz Niech beda dzieki Taalowi, juz drugi raz zawrocil mnie sprzed bram Morra.");
    add_act("powiedz Nie naduzywaj goscinnosci Lasu, moze cie spotkac straszna kara.");
    
    add_cact("powiedz To glupota atakowac Lesny Krag!");
    add_cact("powiedz Okladam cie klatwa Taala!");
    add_cact("powiedz Taalu, przyjmij dusze mojego wroga!");
    
    set_alignment(0);

        
    
    set_alarm(0.3,0.0,"dodaj_dusze");
    set_default_answer(QCIMIE(this_object(),PL_MIA) + " odpowiada: Nie wiem, o czym mowisz!"+
                       " Czy ja wygladam na jasnowidza?\n");
    
}


void
init_living()
{
    ::init_living();
    add_action("join", "zapisz");
   
}

int
join(string str)
{

  if (!str || str != "sie")
    {
	 notify_fail("Kogo chcesz zapisac?\n");
	 return 0;
    }

    
    
  if(this_player()->test_bit("imperium",1,0))
  {
    notify_fail("Nie mozesz przylaczyc sie do tego klubu, jestes juz bowiem "+
      "w innym.\n");
    return 0;
  }

	if (this_player()->query_prop(NAZN))
	{
	write("Dupa dupa.\n");
	dodaj_subloca();
	update_actions();
    write("Od teraz jestes jedn"+this_player()->koncowka("ym","a")+
	  " z wyznacow Tzeentha.\n");
    
	this_player()->set_bit(1,0);

    return 1;
	}


write("Pocaluj sie.\n");
	return 0;
}

void
dodaj_subloca()
{
	if (!query_player(NAZN)) return;
	environment(this_object())->add_subloc(AMU_SUBLOC, this_object());
	move(environment(this_object()), AMU_SUBLOC);
}