#include <local.h>
inherit STD+"kislev_std.c";
inherit "/lib/pub.c";
#include "/sys/stdproperties.h"
#include "pl.h"
#include "macros.h"

int zamow(string str);
object barm;


void
create_kislev()
{

    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT, 1);
    set_short("Karczma 'Szalony Iwan'");
    set_long(" Stoisz na srodku glownej hali karczmy 'Szalony Iwan' "+
             "Ta karczma nie cieszy sie najlepsza renoma ale zapewnia "+
             "dostateczne uslugi dla zmeczonych wedrowcow czy tez "+
             "znudzonych mieszczan. Chmury dymu fajkowego znacznie zmiejszaja "+
             "widocznosc jak i utrudniaja oddychanie. Wiekszosc stolow jest "+
             "zajeta przez tubylcow rozgrzewajacych sie przy wodce. Przy scianie "+
             " jest zawieszona tabliczka z menu.\n");

   
    add_item(({"tabliczke","menu"}),
        "Tabliczka zawiera menu tego lokalu.\n");

    add_exit("kis90","poludnie",0,1,0);
 
  
    add_drink("piwa","piwo","kufel mocnego piwa",
        "prawdziwego kislevickiego piwa", 0,
        9, 400, 5, 122, PL_MESKI_NZYW);
    add_drink("wina","wino","kieliszek siarczystego wina",
        "siarczystego wina",
        ( ({"siarczysty"}),({"siarczysci"}) ),
        12, 100, 3, 320, PL_NIJAKI_NOS);
    add_drink("wodki","wodke","setka czystej wodki",
        "czystej wodki",
        ( ({"czysty"}),({"czysci"}) ),
        40, 50, 2, 1880, PL_MESKI_NZYW, "buklak wykonany jest "+
        "z dobrej gatunkowo skory, wzmacnianej metalowymi wstawkami "+
        "i ma wygrawerowany herb Kislevu.");
        
    add_food("ziemniaki",
        ( ({"pieczony"}),({"pieczeni"}) ),
        50, 35, PL_MESKI_NZYW, "pieczone ziemniaki");

    add_food("karp", 0,
        200, 60, PL_MESKI_NZYW, "karp w galarecie");

     
    add_cmd_item( ({"tabliczke","menu"}), ({"czytaj", "przeczytaj"}),
    "@@menu");
 
    barm=clone_object("d/Imperium/Kislev/npc/iwan.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
    "\nNa tabliczce widzisz : \n\n" +
    "\t\tMENU:\n\n" +
    "Napoje alkoholowe : \n\n" +
    " Piwo :                              20 miedziakow \n" +
    " (beczulka 5l)                      600 miedziakow\n"+
    " Wino :                              22 miedziaki\n" +
    " (buklak 3l)                        780 miedziaki\n"+
    " wodka kislevicka :                  94 miedziaki\n"+
    " (buklak 2l)                       3792 miedziaki\n\n" +
    "Zagrycha : \n\n" +
    " Pieczone ziemniaki :                35 miedziakow\n" +
    " Karp w galarecie :                 100 miedziakow\n\n";
}