/* Silvy i Thalis - lipiec '96 */

inherit "/d/Imperium/std/room.c";
inherit "/lib/pub.c";
#include "/sys/stdproperties.h"
#include "silvy.h"
#include "pl.h"
#include "macros.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 'U Rudolfa'");
    set_long("Stoisz posrodku zatloczonej sali, wypelnionej po "+
                 "brzegi gawiedzia, spragniona mocnych trunkow i sytego" +
                 " jadla. Gwar rozmow miesza sie z brzekiem sztuccow i " +
                 "niewyrazna melodia grana na lutni. Opary fajkowgo " +
                 "dymu snuja sie pod powala karczmy. Na scianach wisza " +
                 "wyprawione skory dzikich zwierzat. W polnocnej czesci " +
                 "izby widzisz drewniany szynkwas, w poblizu ktorego " +
                 "umieszczono bogato zdobiona tabliczke informujaca " +
                 "o menu serwowanym w tym lokalu. " +                    
                 "Duze, debowe drzwi prowadza na zewnatrz, podczas gdy " +
                 "ciemnobrazowa kotara zaslania wyjscie na " +            
                 "wschod. Za kontuarem widac wejscie do kuchni. Drewniane " +
                 "schody prowadza w gore, na pietro oraz w dol, "+
                 "prawdopodobnie do piwniczki.\n");

    add_exit(NPATH + "lokacje/plac.c","poludniowy-wschod");
    add_exit("/d/Imperium/morenndir/lokacje/szatnia.c","polnocny-zachod");
    add_exit(NPATH + "sklepy/bar_7.c","polnoc");
    add_exit(NPATH + "sklepy/bar_5.c","wschod");
    add_exit(NPATH + "sklepy/bar_4.c","gora");
    add_exit(NPATH + "sklepy/piwniczka.c","dol");

    add_item(({"podloga","podloge","posadzka","posadzke"}),
               BSN("Na posadzce mozesz dostrzec, co serwowano tu przez " +
                   "ostatni miesiac."));
    add_item(({"sciany","sciana","sciane"}),
               BSN("Sciany obwieszone sa mysliwskimi trofeami."));
    add_item(({"trofea","skory"}),
               BSN("Widzisz glowe dzika, poroze jelenia, rozwarta paszczeke " +
                   "wilka i glowe potwora, ktorego nie jestes w stanie rozpoznac."));
    add_item(({"glowe dzika","dzika","deseczke"}),
      "Osadzona na drewnianej deseczce glowa dzika "+
      "budzi respekt. Puste slepia patrza w dal.\n");
    add_item(({"paszczeke wilka","wilka","czaszke","czaszke wilka"}),
      "Czaszka wilka szczerzy do ciebie swe biale kly.\n");
    add_item(({"glowe","glowe potwora"}),
               BSN("To cos ma zamiast nosa dlugi szary rog. Naprawde nie masz " +
                   "pojecia co to moze byc."));
    add_item(({"szynkwas","bar","kontuar"}),
               BSN("Debowy kontuar ciagnie sie przez cala szerokosc karczmy. " +
                   "Stoja na nim niezliczone ilosci kufli i szklanic."));
    add_item(({"kufle","szklanki","szklanice"}),
               BSN("Kufle, zrobione z grubego, twardego szkla, wydaja sie " +
                  "byc odporne na tutejszych gosci."));
    add_item(({"kotara","kotare"}),
               BSN("Ciemnobrazowa zaslona odgradza glowna sale od " +
                   "pomieszczenia na wschodzie."));
    add_item(({"tabliczke","menu"}),
        "Tabliczka zawiera menu tego lokalu.\n");

    add_drink("portera","portera","kufel aromatycznego portera",
        "prawdziwego nulnijskiego portera", 0,
        9, 400, 5, 122, PL_MESKI_NZYW);
    add_drink("wina","wino","kieliszek wytrawnego wina",
        "wytrawnego wina",
        ( ({"wytrawny"}),({"wytrawni"}) ),
        12, 100, 3, 320, PL_NIJAKI_NOS);
    add_drink("koniaku","koniak","kieliszek Koniaku Imperialnego",
        "wysmienitego Koniaku Imperialnego",
        ( ({"imperialny"}),({"imperialne"}) ),
        40, 50, 2, 1880, PL_MESKI_NZYW, "buklak wykonany jest "+
        "z dobrej gatunkowo skory, wzmacnianej metalowymi wstawkami "+
        "i ma wygrawerowany herb Altdorfu.");
        
    add_food("lososia",
        ( ({"wedzony"}),({"wedzone"}) ),
        50, 35, PL_MESKI_NZYW, "wedzonego lososia");

    add_food("pasztet", 0,
        200, 60, PL_MESKI_NZYW, "pasztet z zajaca");

    add_food("homara", 0,
        150, 100, PL_MESKI_NZYW, "homara po marienbursku");

     
    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(NPATH + "npc/rudolf.c");
    barm->move(TO);
}

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
    "\nNa tabliczce widzisz : \n\n" +
    "\t\tMENU:\n\n" +
    "Napoje alkoholowe : \n\n" +
    " Porter :                            48 miedziakow \n" +
    " (beczulka 5l)                      800 miedziakow\n"+
    " Wytrawne wino :                     32 miedziaki\n" +
    " (buklak 3l)                       1002 miedziaki\n"+
    " Koniak Imperialny :                 94 miedziaki\n"+
    " (buklak 2l)                       3792 miedziaki\n\n" +
    "Przystawki i dania glowne : \n\n" +
    " Losos wedzony :                     35 miedziakow\n" +
    " Pasztet z zajaca :                  60 miedziakow\n" +
    " Homar po marienbursku :            100 miedziakow\n\n";
}

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

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