/* 
 * Browar Kreutzhofenski by Tanis 
 */
 
inherit "/d/Imperium/std/room"; 
inherit "/lib/pub"; 

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

#include "tanis.h"

void
create_imperium_room()
{
    set_short("Browar Saufera");
   
    set_long("@@dlugi_opis");
       
    add_item("lade", "Lada jest zrobiona z debowego drewna. Jej powierzchnia jest "
            + "wytarta od czestego urzywania. W kilku miejscach widac plamy po "
            + "rozlanym piwie.\n");
    add_item(({"polki","polke"}),"Do scian umocowane sa solidne, drewniane "
            + "polki, z ktorych wiekszosc jest zajeta przez pekate beczki.\n");
    add_item(({"beczke","beczki"}),"Beczki lezace na polkach pod scianami sa bardzo pekate "
            + "i wygladaja na pelne. Po zapachu domyslasz sie, ze kryja w swym wnetrzu wspaniale piwo.\n");
  
    add_item(({"tablice","tabliczke"}), "Tabliczka spelnia funkcje menu. Na pewno "
	+ "da sie ja przeczytac.\n");
	
    add_cmd_item( ({ "tablice", "tabliczke", "menu" }), ({ "czytaj", "przeczytaj" }),
	"@@menu");
	
    add_prop(ROOM_I_INSIDE, 1);

    
    add_drink("piwa","piwo","kufel bursztynowego piwa z biala pianka",
        "jasno-bursztynowego piwa",
	({ ({ "jasny" }), ({ "jasni" }) }),
	4,500,5,65,PL_NIJAKI_OS, "Jest to pieciolitrowa beczulka, noszaca "+
        "znak Browaru Saufera z Kreutzhofen.");

    add_drink("piwa","piwo","kufel ciemnego piwa Bugman",
        "ciemnego piwa",
	({ ({ "ciemny" }), ({ "ciemni" }) }),
	7,500,5,95,PL_NIJAKI_OS, "Jest to pieciolitrowa beczulka, noszaca "+
        "znak Browaru Saufera z Kreutzhofen.");
   

    add_drink("piwa","piwo","kufel piwa slodowego",
        "slodowego piwa o ciemno-bursztynowej barwie",
	({ ({ "slodowy" }), ({ "slodowi" }) }),
	3,500,5,55,PL_NIJAKI_OS, "Jest to pieciolitrowa beczulka, noszaca "+
        "znak Browaru Saufera z Kreutzhofen.");

    dodaj_npca(NPCPATH + "piwowar.c");
  
    add_exit(NPATH + "ulica7.c","polnocny-zachod",0,1);
	      
	      
}

int
zamow(string str)
{
    if (!present("piwowar", environment(TP)))
    {
        write("Rozgladasz sie wokol, ale nie dostrzegasz nigdzie " +
               "piwowara. Moze ktos go zabil ?\n");
	say(TP->query_name(0) + " rozglada sie za piwowarem.\n");
	
        return 1;
    }
    
    return order(str);
}

void
init()
{
    ::init();

    add_action(zamow, "kup");
    add_action(zamow, "zamow");
}

string
menu()
{
    say(QCIMIE(this_player(), PL_MIA) + " czyta tabliczke.\n");
    return
    "Na tabliczce widzisz :\n\n"+
    "\t\tOferujemy nastepujace rodzaje piwa :\n\n"+
    "Jasne piwo 'Saufer'  (kufel)       32 miedziaki\n" +
    "                     (beczka 5l)  515 miedziakow\n"+
    "Ciemne piwo 'Bugman' (kufel)       47 miedziakow\n" +
    "                     (beczka 5l)  665 miedziakow\n"+
    "Slodowe piwo z Tilei (kufel)       27 miedziakow\n"+
    "                     (beczka 5l)  465 miedziakow\n\n";
}
string
dlugi_opis()
{
     string s;

     s = "Jestes w niewielkim, drewnianym pomieszczeniu, wypelnionym umieszczonymi pod scianami "
       + "polkami na beczki. Wnetrze wypelnia zapach roznych rodzajow piwa, przyjemnie "
       + "drazniacych nos. W jednym kacie pomieszczenia dostrzegasz gruba, debowa lade. ";
     if(present("piwowar")) 
       {
        s=s+ "Za lada stoi piwowar. ";
       }
     s=s+"Na scianie wisi niewielka tablica. Na polnocnym zachodzie widac wyjscie na ulice.\n";
     return s;
}