#pragma strict types
inherit "/std/monster";
#include <macros.h>
#include <stdproperties.h>
#include <language.h>
#include <composite.h>
#include <money.h>
#include <pl.h>
#include <time.h>
#include <formulas.h>
#include <std.h>
#include "../definicje.h"
string *imie;
static object *przedstawieni=({ });
void
create_monster()
{
    imie=({"remus","remusa","remusowi","remusa","remusem","remusie"});
    ustaw_odmiane_rasy(PL_CZLOWIEK);		   
    dodaj_nazwy(PL_MEZCZYZNA);
    set_gender(G_MALE);
    dodaj_przym("stary","starzy");
    dodaj_przym("zmeczony","zmeczeni");
    ustaw_imie(imie,PL_MESKI_OS);
    set_long("Jest to czlowiek sedziwego wieku. Posiada "+
	     "dluga bialabrode siegajaca kolan. Jego twarz jest pokryta "+
	     "cala w zmarszczkach mimo to widac ze jest pelna madrosci i "+
	     "wiedzy . Jego zielone oczy sprawiaja ze tego "+
	     "czlowieka nie da sie nie lubic. Mimo swojego wieku porusza "+
	     "sie dosyc szybko i lekko tak jakby jego starosc mu nie "+
	     "przeszkadzala. Na sobie ma biala szate przepasana grubym "+
	     "skorzanym pasem, na niej ma przypiety rowniez bialy plaszcz, "+
	     "przez szyje ma przewieszony zloty medalion otwartej ksiegi, co "+
	     "oznacza ze jest Pierwszym Czytaczem najwazniejsza osoba w "+
	     "Candlekeep po Strazniku Ksiag.\n");
    set_title("Pierwszy Czytacz doradca Straznika Ksiag");
    add_prop(CONT_I_WEIGHT, 50000); 
    add_prop(CONT_I_VOLUME, 35000); 
    add_prop(CONT_I_HEIGHT, 175);
    set_stats ( ({ 10, 10, 10, 10, 10, 10 }) );    
    set_act_time(10);
    add_act("emote wzdycha ciezko.");
    add_act("emote kreci koniec brody palcami.");
    add_act("emote przyglada sie z zainteresowaniem ksiazka.");
    set_chat_time(25);
    add_chat("Ksiazki to podstawa wszelkiej wiedzy.");
    add_chat("W naszej bibliotece znajduja sie ksiazki ze wszystkich dziedzin "+
    "zycia.");
    add_chat("Przeczytalem je prawie wszystkie, a i tak jeszcze czuje potrzebe "+
    "czytania.");
    add_chat("I pomyslec ze tez ja sie uczylem w tej szkole.");
}
void
add_introduced(string imie_mia, string imie_bie)
{
    set_alarm(2.0, 0.0, "return_introduce", find_player(imie_mia));
}

void
return_introduce(object ob)
{
    if (ob && environment(ob) == environment())
        if (member_array(ob, przedstawieni -= ({0})) != -1)
        {
            command("powiedz Witaj ponownie, " + ob->query_wolacz() + ".");
            command("usmiechnij sie do " + OB_NAME(ob));
        }
        else
        {
            przedstawieni += ({ob});
            command("przedstaw sie " + OB_NAME(ob));
            command("uklon sie " + OB_NAME(ob) + " z godnoscia");
        }
}