inherit "/d/Imperium/std/room";
inherit "/lib/pub.c";

#include "nath.h"
#include "/sys/money.h"

int zamow(string str);
object karczmarz;

void
create_imperium_room()
{
	add_prop(ROOM_I_INSIDE, 1);
    
	

    set_short("Gospoda.");
    set_long("@@dlugi");
                
    add_exit(NPATH + "lokacje/plac2.c", "zachod");
	add_exit(NPATH + "sklepy/podworze1.c", "wschod");
	add_exit(NPATH + "sklepy/pokoj1.c", "gora");

    add_item("bar", "Drewniany, dlugi blat ustawiony na grubych nogach. \n");
             
    add_item(({"stolik", "stoliki"}), "Debowe, okragle badz prostokatne, z ustawionymi przy nich krzeslami i lawami, "+
		"ustawiono pod scianami, tak by centrum sali bylo wolne. \n");             
            
    add_item("tabliczke",
			 "Jest na niej wypisane menu. Mozesz ja przeczytac.\n");
        
    add_item(({"menu", "jadlospis"}), "To dzisiejszy menu. Moze " +
    	     "powinienes go przeczytac?\n");

    add_cmd_item(({"tablice", "menu", "jadlospis"}), ({"czytaj", 
    		 "przeczytaj"}), "@@menu");
        
    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("dziczyzne", "dziczyzne na ostro",
        160, 60, PL_ZENSKI, "dziczyzne na ostro");

    add_food("stek","stek a'al Henor",
        180, 90, PL_MESKI_NZYW, "stek a'la Henor");

    add_food("sole","sole z ostrygami",
        150, 140, PL_ZENSKI, "sole z ostrygami");
	
	add_food("manguste", "manguste z migdalami",
		150, 170, PL_ZENSKI, "manguste z migdalami");
     
    add_cmd_item( ({"tabliczke","menu"}), ({"czytaj", "przeczytaj"}),
    "@@menu");

    karczmarz=clone_object(NPATH + "npc/irwin.c");
    karczmarz->move(TO);
}

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

int
zamow(string str)
{
    if(!karczmarz)
    {
        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 jasne, pelne :                    45 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" +
    " Dziczyzna na ostro :                   60 miedziakow\n" +
    " Stek a'la Henor :						 90 miedziakow\n" +
    " Sola z ostrygami :				     140 miedziakow\n" +
	" Mangusta z migdalami :				 170 miedziakow\n\n";
}

string
dlugi()
{
    return("Stoisz w przestronej, karczemnej izbie. Przy jednej ze scian stoi dlugi bar, a pod scianami "+
		"stoliki, lawy i krzesla. Dla wygodniejszych gosci kilka stolikow odgrodzono od reszty sali "+
		"drewnianymi parawanami. W tlumie gosci widzisz szybko uwijajaca sie kelnerke. Przy wejsciu "+
		"opiera sie leniwie o futryne potezny jegomosc pilnujacy zapewne pozadku. Do pokoi sypilanych "+
		"prowadza waskie schody na gore, widzisz takze drzwi prowadzace na wschod. Nad szynkiem wisi "+
		"wisi tabliczka.\n");
}