#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;
void
create_monster()
{
    imie=({"venris","venrisy","venrisie","venrise","venrisa","venrisie"});
    ustaw_odmiane_rasy(PL_CZLOWIEK);		   
    dodaj_nazwy(PL_KOBIETA);
    dodaj_nazwy(({ "gospodyni", "gospodyni", "gospodyni", "gospodynie", 
    		   "gospodynia", "gospodyni" }), ({ "gospodynie", 
    		   "gospodyn", "gospodynia", "gospodynie", "gospodyniami",
                   "gospodyniach" }), PL_ZENSKI);
    set_gender(G_FEMALE);
    dodaj_przym("zgrabny","zgrabni");
    dodaj_przym("piekny","piekni");
    ustaw_imie(imie,PL_ZENSKI);
    set_long("Jest to mloda piekna kobieta. Jej blond wlosy siegaja kolan. "+
	     "Ma na sobie krotka czerwona spodnice a na niej maly rozowy "+
	     "fartuszek. Jest bardzo wesola i usmiechnieta. Jej malenkie usta "+
	     "i duze oczy sprawiaja mile wrazenie. Rece ma bardzo zreczne widac "+
	     "ze zawod karczmarza nie jest jej obcy. Cialo ma bardzo dobrze "+
	     "uksztaltowane, piersi nie zaduze, uda nie za szerokie. Przez ramie "+
	     "ma przewieszona biala sciereczke.\n");
    set_title("karczmarka z Gospody Candlekeep");
    add_prop(CONT_I_WEIGHT, 50000); 
    add_prop(CONT_I_VOLUME, 35000); 
    add_prop(CONT_I_HEIGHT, 175);
    set_stats ( ({ 30, 20, 25, 10, 20, 10 }) );    
    set_act_time(10);
    add_act("emote ociera pot z czola.");
    add_act("emote przeciera szmatka bar.");
    add_act("emote przyglada sie tobie z zainteresowaniem.");
    add_act("emote spoglada na ciebie niewinnie.");
    add_act("usmiechnij sie szeroko");
    set_chat_time(10);
    add_chat("Ciezkie jest zycie karczmarza.");
    add_chat("Maz mnie opuscil i zostalam sama z tym wszystkim.");
    add_chat("Juz nigdy nie zaufam mezczyznie.");
    add_chat("Erik sie zwal, niech no go tylko dostane w swoje rece.");
}
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)
{
            command("przedstaw sie " + OB_NAME(ob));
            command("usmiechnij sie szeroko do "+OB_NAME(ob));
}
void
enter_inv(object ob,object from)
{
    int test;
    int test2;
    ::enter_inv(ob,from);
   if(function_exists("create_object", ob) == NPC_PATH+"list")
   {
   command("powiedz List do mnie...");
   test=from->test_bit("Faerun",1,0);
   test2=from->test_bit("Faerun",0,0);
   if((test==1)||(test2==0))
   {
   command("powiedz Dziekuje ci bardzo.");
   command("usmiechnij sie");
   }
   else
   {
   command("emote rozrywa koperte i czyta uwaznie list.");
   command("powiedz Nie moglam sie doczekac kiedy nareszcie "+
   "zwroci na mnie uwage.");
   command("usmiechnij sie wesolo");
   command("powiedz Odkad moj maz odszedl zakochalam sie w nim.");
   command("odetchnij");
   command("powiedz Prosze to dla ciebie.");
   command("emote daje ci zlota monete.");
   from->catch_msg("Czujesz sie bardziej doswiadczony.\n");
   from->add_exp(300,0);//300 expa questowego
   MONEY_MAKE_GC(1)->move(from);
   from->set_bit(1,0);//ustawia bit za quest z pierwszej grupy pierwszy bit
   from->clear_bit(0,0);//czyscimy bit pomocniczy
   }
   }
   else
   {
   command("powiedz To do niczego mi sie nie przyda.");
   command("emote daje ci "+ob->query_name()+".");
   ob->move(from);
   }
}