inherit "/d/Imperium/std/room.c";
inherit "/lib/pub.c";
#include "/sys/stdproperties.h"
#include "silvy.h"
#include "pl.h"
#include "macros.h"
#include "moria.h"

int zamow(string str);
object barm;

create_imperium_room()
 {

    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT, 1);
    set_short("Karczma 'Pod Zgnilym Trollem'");
    set_long("Jestes w niezbyt duzej wydrazonej w skale karczmie, " +
                 "stoja tu kilkuosobowe stoliki nakryte obrusami w krate. " +
                 "Lokal jest slawny na cale miasto, wobec czego jego " +
                 "wlasciciel niemoze narzekac na brak klienteli." +
                 "Powietrze jest przesycone gesta mieszanka zapachow " +
                 "potraw oraz rozwieszonych na belkach pod powala ziol. " +
                 "Na scianie wisi tablkiczka, na ktorej sa spisane dania " +
                 "i napoje ktore mozna zamowic.");
                                     
    add_exit(PATH+"u1","poludnie");

    add_item(({"tabliczke","menu"}),
        "Jest to niewielka drewniana tabliczka na ktorej dostrzegasz jakis napis..\n");
    add_drink("piwa","piwo","kufel ciemnego piwa",
        "kufel ciemnego piwa", 0,
        9, 400, 5, 122, PL_MESKI_NZYW);
    add_drink("wodki","wodke","setke krasnoludzkiej wody",
        "krasnoludzkiej wody",
        ( ({"wytrawny"}),({"wytrawni"}) ),
        12, 600, 3, 320, PL_NIJAKI_NOS);
        
    add_food("zupe", 0,
        400, 60, PL_MESKI_NZYW, "zupe z trolla");
    add_food("chleb", 0,
        200, 60, PL_MESKI_NZYW, "chleb z lojem");
         add_food("udziec",
        ( ({"barani"}),({"baranie"}) ),
        50, 35, PL_MESKI_NZYW, "barani udziec");
    add_cmd_item( ({"tabliczke","menu"}), ({"czytaj", "przeczytaj"}),
    "@@menu");

    set_alarm(15.0,100.0,"halas");
    set_alarm(45.0,150.0,"halas1");
 
    barm=clone_object("/d/Imperium/Karak-Throlde/npc/milen.c");
    barm->move(this_object());
}

void
init()
{
    ::init();
    init_pub();
    add_action(zamow,"kup");
    add_action(zamow,"zamow");
}

int
zamow(string str)
{
    if(!barm)
    {
        write("Z rozdraznieniem spostrzegasz ze nie ma tu karczmarza.\n");
        say(QCIMIE(TP, 0) + " szuka wzrokiem karczmarza.\n");
        return 1;
    }
    return order(str);
}

string
menu()
{ 
    say(QCIMIE(this_player(), PL_MIA) + " czyta tabliczke. \n");
    return
    "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n" +
    "% Napoje:                                  %\n" +
    "% Czysta krasnoludzka wodka    50 miedzi   %\n" +
    "% Duze mocne piwo              26 miedzi   %\n" +
    "%                                          %\n" +
    "% Zarlo:                                   %\n" +
    "% Barani udziec               225 miedzi   %\n" +
    "% Chleb z lojem                15 miedzi   %\n" +
    "% Zupa z trolla                36 miedzi   %\n" +
    "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
}

void halas()
 {
    tell_room(TO,BSN("Nad gwarem rozmow wzbija sie okrzyk siedzacego " +
                     "przy kontuarze pijanego w sztok krasnoluda: " +
                     "Kolejka dla ... hic ! ... wszystkich !!!"));
 } 
void halas1()
 {
    tell_room(TO,BSN("Szczupla kelnerka przemyka obok ciebie niosac " +
                     "tace pelna kufli z zimnym porterem. " +
                     "Gdy przechodzi obok ciebie nie obieszkasz" +
                     "jej uszczypnac w tyleczek"));
 } 

void
reset_imperium_room()
{
    if(!barm)
    {
        barm=clone_object(NPATH + "npc/milen.c");
        barm->move(TO);
    }
}