/*
 * Przykladowa karczma.
 */
 
#include "local.h" 
inherit DHOME+"std/room"; 
inherit "/lib/pub"; 

#include <stdproperties.h>
#include <macros.h>

int zamow(string str);
object barm;


void
create_imperium_room()
{
    set_short("Karczma w wiosce Czarny Staw");
    set_long("Jestes w karczmie, w ktorej panuje swojska 'atmosfera',"+
        " skladajca sie w wiekszosci z klebow pary wodnej, rozchodzacych sie znad"+
        " kuchni, mieszczacej sie w tym samym pomieszceniu. Powietrze nasycone jest dymem"+
        " tytoniowym oraz kilkoma innymi zapachami, ktorych nie jestes w stanie"+
        " rozpoznac. Przez chwile zastanawiasz sie, czy przypadkiem nie wystarczy"+
        " powiesic swojego odzienia w powietrzu, jednak po glebszym zastanowieniu"+
        " rezygnujesz z tego pomyslu. Gdy twoj wzrok przyzwyczaja sie do warunkow, panujacych"+
        " tutaj, zauwazasz iz miejsce to jest zatloczone, lecz bez problemu"+
        " mozesz znalezc sobie miejsce przy barze. Na jednej ze"+
        " scian wisi mala tabliczka.\n");
    
    add_item("tabliczke", "Spelnia ona zapewne funkcje menu. Warto "+
        "by ja przeczytac.\n");
        
    add_cmd_item( ({ "tabliczke", "menu","jadlospis" }), ({ "czytaj", "przeczytaj" }),
        "@@menu");
        
    add_item("kuchnie","Kuchnia znajduje sie w tym samym pomieszczeniu co bar. "+
        "znad garnkow unosza sie kleby pary.\n");
    add_item("pare","Para wodna czyli woda w stanie lotnym.\n");
    add_item("bar","Na bar sklada sie prosta lad, oddzielajaca klientele od "+
        "personelu.\n");
                
    add_prop(ROOM_I_INSIDE, 1);
    add_prop(ROOM_I_LIGHT,1);
    
    add_drink("piwa","piwo","kufel jasno-bursztynowego piwa",
        "jasno-bursztynowego, rozwodnionego piwa",
        ({({"jasny","rozwodniony"}),({"jasni","rozwodnieni"})}),
        4,500,5,60,PL_NIJAKI_NOS);
    add_drink("winka","winko","szklaneczke slabego winka",
        "slabiutkiego, czerwonego winka",
        ({({"slaby","czerwony"}),({"slabi","czerwoni"})}),
        8,250,10,100,PL_NIJAKI_NOS);

    add_wynos_food(({ "jablko", "jablka", "jablku", "jablko", "jablkiem", "jablku" }),
        ({ "jablka", "jablek", "jablkom", "jablka", "jablkami", "jablkach" }),
        ({({"czerwony","niewielki"}),({"czerwoni","niewielcy"})}),45,10,
        "Nieduze, czerwone jablko.\n",PL_NIJAKI_NOS, 3600, 
        ({"zgnily","zgnili"}));     
                           
    add_food("placek", ({ ({"przenny"}) , ({"przenni"}) }), 
              120, 30, PL_MESKI_NZYW);
              
    add_exit(HOME+"placyk.c","polnoc",0,1);
}

int menu()
{
    say(QCIMIE(this_player(), 0) + " czyta tabliczke.\n");
    write(    
    "\nNa tabliczce widzisz:\n\n"+
    "\t\tMENU:\n"+
    "Napoje:\n"+
    " Piwo jasne:     30 miedziakow\n"+
    " Czerwone wino:  25 miedziakow\n\n"+
    "Jedzenie:\n"+
    " Jablko:         10 miedziakow\n"+
    " Przenny placek  30 miedziakow\n\n"+
    "Dodatkowo do nabycia:\n"+
    "5 litrowa beczulka piwa - 300 miedziakow\n"+
    "10 litrowa beczka czerwonego wina - 1000 miedziakow\n");
  return 1;
}

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);
}

void
set_karczmarz(object ob)
{
    barm = ob;
}