#include <std.h>
#include <macros.h>
#include "ss_types.h"
#include <stdproperties.h>
#include "local.h"

inherit GPATH + "std/ziola.c";
inherit GPATH + "std/room.c";

string opispokoju()
{
  string s = "Znajdujesz sie w nieduzym pomieszczeniu, przesiaknietym zapachami"
  +" rozmaitych ziol";
  if (this_player()->query_skill(SS_HERBALISM) > 12-random(5))
      s = s + ": pierdziatki kosmatej, wykrzywnika wygietego i mlecza pospolitego.";
  else
      s = s + ".";
  s = s + " Nie masz watpliwosci, iz znajdujesz sie w jednej z zielarni Nuln."
  +" Pomieszczenie to jest slabo oswietlone - na scianach plona cztery slabe,"
  +" migotliwe kaganki - lecz siedzacemu za kontuarem zgarbionemu, siwemu aptekarzowi"
  +" najwyrazniej to odpowiada, gdyz nawet okno zaslonil suszacymi sie ziolami. ";

  switch (pora_dnia())
  {
      case "wieczor":
      case "noc":
          s = s + "Zreszta, na dworze i tak jest teraz noc.";
          break;
      default:
          s = s + "Przenika przez nie zaledwie kilka niklych promieni slonecznych.";
  }
  s = s + "\nWszedzie na scianach widzisz suszace sie ziola, zas na kilku stojacych"
  +" pod scianami regalach stoja w sloiczkach lub leza powiazane w peczki rozne"
  +" juz przesuszone lub odpowiednio przygotowane ziola i gotowe ich mikstury."
  +" Widzisz miedziana tabliczke, przytwierdzona do kontuaru.\n";

  return s; 
}

void
create_imperium_apteka()
{
  set_short("Apteka");

  set_long("@@opispokoju");
  
  add_item (({"regal","regaly","polki"}), "Na polkach regalow"
  +" widzisz rozmaitych ksztaltow sloiczki, wypelnione suszonymi ziolami. Kazdy sloiczek jest"
  +" oznaczony etykietka z nazwa znajdujacego sie wewnatrz ziela.\n");
  add_item (({"sloiki","sloik","sloiczki","peczki"}), "Wszystkie sloiki,"
  +" stojace na regalach, sa dokladnie pooznaczane i opisane, posegregowane"
  +" i umieszczone na wlasciwych polkach. Herbalista najwyrazniej bardzo"
  +" dba o porzadek.\n");
  add_item (({"ziola","ziela","ziolka","sufit","sciany"}), "Ziola znajduja sie tu wszedzie - "
  +" zwisaja z sufitu, sa poprzyczepiane na scianach, nawet okno jest prawie"
  +" calkiem nimi zasloniete. Aptekarz po prostu nie traci czasu i caly czas"
  +" suszy kolejne nabytki i znaleziska, zeby potem kazde ziolko sproszkowac"
  +" lub pociac na kawalki, umiescic w sloiczku, podpisac i umiescic na regale.");
  add_item (({"okno"}), "Okno jest prawie calkiem zasloniete zwisajacymi z jego"
  +" gornej framugi peczkami rozmaitych roslin zielnych. Przygladajac sie blizej"
  +" zauwazasz, ze rowniez z zewnatrz okno obrosniete jest bluszczem. Jedynym oswietleniem"
  +" tego pomieszczenia sa cztery niewielkie kaganki, zawieszone na scianach.\n");
  add_item (({"kaganki","kaganek","lampki"}), "Cztery kaganki zawieszone tuz pod"
  +" sufitem stanowia jedyne oswietlenie apteki. Wisza doslownie tuz pod sufitem"
  +" - jak wiec zapala je stary herbalista, pozostanie jego tajemnica.\n");
  
  add_item(({"tabliczke", "miedziana tabliczke"}),
    "Tabliczka jest juz mocno zakurzona, jednakze dostrzegasz na niej "+
    "jakis napis.\n");
  add_cmd_item(({"tabliczke","miedziana tabliczke","napis z tabliczki",
    "napis z miedzianej tabliczki","napis"}),"przeczytaj",
    "@@napis_na_tablicze");
  
  add_exit(NPATH + "lokacje/zielna.c","polnoc",0,1,0);
  
  dodaj_npca(NPATH + "npc/zielarz.c");
  
  ustaw_nazwe_pliku_ziol(LPATH + "apteka");
  
if (!odczytaj_ziola())
  {
    dodaj_ziola(GPATH + "ziola/babka",10);
    dodaj_ziola(GPATH + "ziola/casur",10);
    dodaj_ziola(GPATH + "ziola/deliona",10);
    dodaj_ziola(GPATH + "ziola/drath",10);
    dodaj_ziola(GPATH + "ziola/lulek",10);
    dodaj_ziola(GPATH + "ziola/mieta",10);
    dodaj_ziola(GPATH + "ziola/mniszek",10);
    dodaj_ziola(GPATH + "ziola/oset",10);
    dodaj_ziola(GPATH + "ziola/rabarbar",10);
    dodaj_ziola(GPATH + "ziola/sercekap",10);
    dodaj_ziola(GPATH + "ziola/stulicha",10);
  }
  
}


void
create_imperium_room()
{
  add_prop(ROOM_I_NO_SKY, 1);
  add_prop(ROOM_I_INSIDE, 1);
  create_imperium_apteka();
}




void
init()
{
  init_ziola();
  ::init();
}



int
remove_object()
{
  zapisz_ziola();
  return ::remove_object();
}


string
napis_na_tablicze()
{
  return "Na tablice widniej nastepujacy napis:\n"+
    "  Witamy szanownych klientow w najlepiej zaopatrzonej aptece w Nuln.\n"+
    "Szanowni klienci moga wykonywac nastepujace czynnosci:\n"+
    " 1. przegladac cennik, np.: przejrzyj cennik, ew przejrzyj ziola.\n"+
    " 2. kupowac ziola, np.: kup babke.\n"+
    " 3. sprzedawac ziola, np.: sprzedaj babke.\n"+
    "Serdecznie zapraszamy do korzystania z uslug naszej apteki.\n";
}