#pragma strict_types
#include "dir.h"
inherit DOMAIN_STD+"room";
void
create_room()
{
set_short("Zaklad fryzjerski mistrza Marthyna");
set_long("Dosyc duze, jasno oswietlone pomieszczenie nie jest urzadzone ze" +
         " zbytnia dbaloscia o walory estetyczne. Owszem, na scianach wisza" +
         " obrazy przedstawiajace najrozniejsze i najdziwaczniejsze metody " +
         " uczesania. Jednak glowna czesc sciany przy drzwiach wejsciowych" +
         " zajmuje dosyc pokaznych rozmiarow tablica, na ktorej gestym maczkiem" +
         " cos wypisano. W rogu pomieszczenia stoi duze zwierciadlo. Pod jedna" +
         " ze scian leza worki, z ktorych wystaja sciete niedawno wlosy roznych" +
         " kolorow. \n");

add_item("worki","Sporych rozmiarow skorzane worki, ktore wypchane sa wlosami " +
                 " bylych klientow zakladu fryzjerskiego.\n");
add_item(({"obrazy","obraz"}),"Ilosc i znaczne zroznicowanie przedstawionych na " +
                 "obrazach fryzur moze przyprawic o zawrot glowy. Niektore rysunki moga" +
                 " smialo uchodzic za dziala sztuki.\n");
add_item(({"lustro","zwierciadlo"}),"Gladka i wypolerowana powierzchnia tego lustra" +
                  " odbija doskonale rzeczywistosc, nie robiac ze swojej strony zadnych " +
                  "znieksztalcen. Idealne do podziwiania nowych fryzur.\n");
add_item("tablice","Dosyc pokaznych rozmiarow tablica jest gesto zapisana. Jest na niej" +
                 " dokladna instrukcja i cennik uslug fryzjerskich.\n");
add_cmd_item(({"tablice","menu","instrukcje"}),"przeczytaj","@@prz_tab");
add_cmd_item(({"sie w zwierciadle","sie w lustrze"}),"przejrzyj","@@prz_lus");
add_cmd_item("wzory dlugosci","przejrzyj","@@prz_dlu");
add_cmd_item("wzory kolorow","przejrzyj","@@prz_typ");
add_cmd_item("wzory ksztaltow","przejrzyj","@@prz_opi");
clone_object(DIR + "fryzjer.c")->move(this_object());
}
int
prz_opi()
{
write("+----------------------------------------+\n");
write("+ Dostepne ksztalty fryzur:              +\n");
write("+----------------------------------------+\n");
write("+ upiete w konski ogon                   + " +
    "\n+ upiete w kucyk                         + " +
    "\n+ upiete w kok                           + " +
    "\n+ zaplecione w warkocz                   + " +
    "\n+ zaplecione w wakorcze                  + " +
    "\n+ luzno zwiazane z tylu glowy            + " +
    "\n+ zwiazane w kitke                       + " +
    "\n+ zaczesane do tylu                      + " +
    "\n+ zaczesane na lewa strone               + " +
    "\n+ zaczesane na prawa strone              + " +
    "\n+ cale w loczkach                        + " +
    "\n+ loki opadajace na twarz                + " +
    "\n+ spiete spinka                          + " +
    "\n+ zmierzwione i brude                    + " +
    "\n+ lsniace i czyste                       + " +
    "\n+ postawione na sztorc na czubku glowy   + " +
    "\n+ przylizane kawalkiem tluszczu          + " +
    "\n+ miekkie i puszyste                     + " +
    "\n+ lekko przerzedzone                     + " +
    "\n+ mocno przerzedzone                     + " +
    "\n+ przeplecione liscmi                    + " +
    "\n+ ulozone w fale                         + " +
    "\n+ calkowicie proste                      + " +
    "\n+----------------------------------------+ \n");
return 1;
}
int
prz_typ()
{
write("+---------------------------------+\n");
write("+ Dostepne kolory fryzur:         +\n");
write("+---------------------------------+\n");
write("+ blond                           + " +
    "\n+ kruczoczarne                    + " +
    "\n+ czarne                          + " +
    "\n+ mahoniowe                       + " +
    "\n+ ciemnobrazowe                   + " +
    "\n+ brazowe                         + " +
    "\n+ jasnobrazowe                    + " +
    "\n+ orzechowe                       + " +
    "\n+ kasztanowe                      + " +
    "\n+ szare                           + " +
    "\n+ siwe                            + " +
    "\n+ biale                           + " +
    "\n+ snieznobiale                    + " +
    "\n+ rude                            + " +
    "\n+ ogniste                         + " +
    "\n+---------------------------------+ " +
    "\n+ Takze przefarbowac mozemy na:   + " +
    "\n+---------------------------------+ " +
    "\n+ czerwono                        + " +
    "\n+ zloto                           + " +
    "\n+ srebrne                         + " +
    "\n+ niebiesko                       + " +
    "\n+ jasnoniebiesko                  + " +
    "\n+ morsko                          + " +
    "\n+ zielono                         + " +
    "\n+ turkusowo                       + " +
    "\n+ alabastrowo                     + " +
    "\n+ teczowo                         + " +
    "\n+---------------------------------+ \n");
return 1;
}
int
prz_dlu()
{
write("+---------------------------------+\n");
write("+ Dostepne dlugosci fryzur:       +\n");
write("+---------------------------------+\n");
write("+ obciete przy samej skorze       + " +
    "\n+ bardzo krotkie                  + " +
    "\n+ krotkie                         + " +
    "\n+ sredniej dlugosci               + " +
    "\n+ niezbyt dlugie                  + " +
    "\n+ dlugie                          + " +
    "\n+ siegajace ramion                + " +
    "\n+ siegajace pasa                  + " +
    "\n+ siegajace kolan                 + " +
    "\n+ siegajace kostek                + " +
    "\n+---------------------------------+ \n");
return 1;
}
int
prz_tab()
{
write("Studiujesz poczatek tablicy, w ktorym napisano:\n\n");
write("Witaj w zakladzie fryzjerskim mistrza nozyc i grzebienia Marthyna.\n");
write("Mozesz tutaj za niewielka oplata (10 zlotych monet) ozdobic swoja cenna glowe " +
          "wspaniala fryzura, ktora uczyni z Ciebie jeszcze piekniejsza istote. Oto najprostszy" +
          " sposob na stanie sie kims. Wystarczy zlozyc zamowienie:\n\n"); 
write("zamow <dlugosc>, <kolor> wlosy <ksztalt> na przyklad: 'zamow dlugie, czarne wlosy " +
         "przylizane kawalkiem tluszczu'\n\n");
write("Nie zapomnij o wyraznym wymowieniu zamowienia - sztukmistrz jest nieco przygluchy," +
         "dlatego musisz zrobic pauze po dlugosci.\n\n");
write("Mozesz dowiedziec sie o dostepnych dlugosciach, kolorach i ksztaltach fryzur, przegladajac " +
          "odpowiednie wzory, np. 'przejrzyj wzory ksztaltow'.\n");
return 1;
}
int
prz_lus()
{
object *inwen_gracza;
object fryz;
int i;
int nr_fryz = 0;
inwen_gracza = all_inventory(this_player());
for (i=0;i<sizeof(inwen_gracza);i++)
if (inwen_gracza[i]->query_short() == "fryzura")
nr_fryz = i + 1;
if (nr_fryz)
    {
       if (this_player()->query_armour(TS_HEAD)->query_short())
write("Wygladasz nawet ladnie. Moglbys obejrzec swoja" +
      " wspaniala fryzure, gdyby nie zalozony na glowe " +
      this_player()->query_armour(TS_HEAD)->query_short() + ".\n");
else
{
fryz = inwen_gracza[nr_fryz - 1];
write("Wygladasz nawet ladnie. Twoje " + fryz->cz_dlugosc() + ", " + fryz->cz_typ() +
         " wlosy " + fryz->cz_opis() + ".\n");
}
return 1;
    }
else
    {
write("Wygladasz calkiem normalnie.\n");
return 1;
    }
}