#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=({"kalm","kalma","kalmowi","kalma","kalmem","kalmie"});
    ustaw_odmiane_rasy(PL_ELF);		   
    dodaj_nazwy(PL_MEZCZYZNA);
    set_gender(G_MALE);
    dodaj_przym("dumny","dumny");
    dodaj_przym("srebrnowlosy","srebrnowlosy");
    ustaw_imie(imie,PL_MESKI_OS);    
    set_long("Majestatyczna postac elfa wyglada na godna zaufania. "+
    "Jego twarz wyraza gleboka dume, "+
    "a oczy sprawiaja ze nie mozesz od nich oderwac wzroku. Usta waskie i "+
    "nieruchome wprawiaja cie troche w zaklopotanie. Jego dlugie srebrne "+
    "wlosy leza spokojnie na ramionach i plecach, sa lekko pokrecone. Na "+
    "szyji ma przewieszomy medalion przedstawiajacy zamknieta ksiege a na "+
    "niej smoka, jest to znak Straznika Ksiag najwyzej postawionej osobie "+
    "w Candlekeep. Ubrany jest w zlota polyskujaca szate.\n");
    set_title("Straznik Ksiag, mistrz wszelkiej magi na swiecie");
    add_prop(CONT_I_WEIGHT, 50000); 
    add_prop(CONT_I_VOLUME, 35000); 
    add_prop(CONT_I_HEIGHT, 175);
    add_prop(LIVE_S_EXTRA_SHORT," siedzacy na tronie");
    set_stats ( ({ 50, 50, 50, 100, 100, 50 }) );        
    set_act_time(25);
    add_act("emote bawi sie swoim medalionem.");
    add_act("emote spoglada dumnie na ciebie.");
    add_act("usmiechnij sie");
    add_act("emote stuka palcami o porecz tronu.");
    add_act("emote krzyrzuje palce rak i zapada w drzemke.");
    set_chat_time(25);
    add_chat("Praca Straznika Ksiag jest bardzo ciezka.");
    add_chat("Musze dbac o nasze ksiegi.");
    add_chat("Czy nie widziales moze Remusa?");    
}
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");
        }
}