#pragma no_clone
#pragma strict_types
inherit "/d/Faerun/std/room";
inherit "/lib/drink_water";
#include <macros.h>
#include <stdproperties.h>
#include <mudtime.h>
#include "definicje.h"
object load_board();
string dlugi_opis();
void
create_room()
{
    set_short("Glowny plac w Candlekeep");
    set_long(dlugi_opis());
    add_exit("drogak3","wschod");
    add_exit("droga28","polnoc");
    add_exit("drogak4","zachod");
    add_item("wode","Chlodne krople wody z fontanny "+
    		    "padajace na twoja twarz chlodza "+
		    "przyjemnie	skore.");
    add_item("fontanne","Jest to piekna fontanna, wykonanna "+
    	     " z bialego kamienia. Na srodku na podwyzszeniu w wodzie "+
	     "stoi pomnik jakiegos starca. "+
	     "Jest ona tak "+
	     "zbudowana ze bez trudu mezesz sie z niej napic.\n");
    load_board();
    add_prop(OBJ_I_CONTAIN_WATER,1);
    set_drink_places("z fontanny");
    clone_object(NPC_PATH+"straznik")->move(this_object());
    clone_object(NPC_PATH+"straznik")->move(this_object());
    clone_object(NPC_PATH+"kaplan")->move(this_object());
    clone_object(NPC_PATH+"kaplan")->move(this_object());
}
void 
init()
{
    ::init();
    init_drink_water();
}
object
load_board()
{
    object bb;
    string *file;
    string name;

    file = explode(MASTER + "/", "/");
    file = slice_array(file, 0, sizeof(file) - 2);

    seteuid(getuid());
    bb = clone_object("/std/board");

    name = implode(file, "/") + "/log";
    if (file_size(name) != -2) 
	mkdir(name);

    bb->set_board_name(name + "/board_data");
    bb->set_num_notes(30);
    bb->set_silent(0);
    bb->move(this_object());

    return bb;
}
string
opis_pory()
{
    switch(pora_roku())
    {
    case MT_ZIMA:
    return "Wszedzie jest bialo, a z nieba sypia sie biale platki sniegu. "+
	   "Ludzie idacy droga sa ubrani cieplej, a przy otwieraniu "+
	   "ust pojawia sie para. "+
	   "Dachy budynkow przysypal snieg.";
    break;			   
    case MT_WCZESNA_WIOSNA:
    return "Snieg powoli topnieje, tworzac blotnista hlape, ludzie idacy "+
	   "droga  sa troche "+
	   "luzniej ubraniy. Na drzewach pojawiaja sie pierwsze paki, "+
	   "zwiastujace nadejscie wiosny.";
    break;			   
    case MT_WIOSNA:
    return "Wszedzie jest zielono, ptaki siedzace na drzewach cwierkaja wesolo."+
	   "W powietrzu unosi sie zapach wiosennych kwiatow i ziol. "+
	   "Ludzie idacy droga, sa lekko ubrani, i sa jakby "+
    	   "bardziej usmiechnieci.";
    break;			   
    case MT_WCZESNE_LATO:
    return "Jest cieplo co oznacza nadejscie lata. "+
	   "Ludzie idacy ulica sa bardzo luzno ubrani. "+
	   "W gniazdach na drzewach piszcza mlode ptaki domagajace "+
	   "sie jedzenia. Droge w niektorych miejscach porasta trawa."; 	
    break;			   
    case MT_LATO:
    return "Jest bardzo goraco co oznacza ze lato jest w pelni. Twarze "+
	   "ludzi idacych ulica sa pokryte potem. W powietrzu unosi sie "+
	   "zapach owocow. Drzwi od domow sa pootwierane na osciez.";
    break;			   
    case MT_WCZESNA_JESIEN:
    return "Robi sie troche zimniej, pojawilo sie babie lato co oznacza "+
           "niechybny koniec lata. Na drzewach liscie robia sie powoli "+
    	   "zolte.";
    break;			   
    case MT_JESIEN:
    return "Jest chlodno, drzewa sa kompletnie lyse. Wieje porwisty wiatr "+
	   "ktory roznosi wolne liscie po calym miescie. Niebo jest pochmurne, "+
	   "niedlugo nadejdzie zima.";
    break;			   
	    }
}
string
dlugi_opis()
{
string oswietlenie;
    switch(pora_dnia())
    {
    case MT_SWIT:
    oswietlenie="Okolica jest coraz jasniejsza, ksiezyc juz zachodzi za "+
		"horyzont, zbliza sie niechybnie nowy dzien. ";
    break;				
    case MT_WCZESNY_RANEK:
    oswietlenie="Slonce znajduje sie tuz nad horyzontem. "+    
		"Jego jasne promienie raza cie w oczy. ";
    break;				    
    case MT_RANEK:
    oswietlenie="Slonce niedawno wstalo, jego jasne promienie "+
		"zaczynaja mozolnie zalewac caly swiat. ";
    break;				    
    case MT_POLUDNIE:
    oswietlenie="Slonca znajduje sie w zenicie, gdzieniegdzie "+
	        "jego tarcza jest przeslonieta chmurami. ";
    break;				
    case MT_POPOLUDNIE:
    oswietlenie="Slonce leniwie schodzi coraz blizej choryzontu. Jego "+
		"promienie sa troche slabsze i tak bardzo nie raza w oczy. ";
    break;				
    case MT_WIECZOR:
    oswietlenie="Slonce znajduje sie tuz nad horyzontem, a jego tarcza "+
	    "przybrala nieco ciemniejsza barwe, niechybnie zbliza sie noc. ";
    break;		
    case MT_POZNY_WIECZOR:
    oswietlenie="Slonce sie schowalo, pozostala tylko po nim czerwona "+
		"poswiata tuz nad horyzontem. Mieszkancy zdazaja do swoich"+
		"domow. ";
    break;				
    case MT_NOC:
    oswietlenie="Jest noc, jedyne zrodlo swiatla stanowi ksiezyc. Na drodze "+
	        "kreci sie kilku straznikow, pilnujacych pozadku w miescie. ";
    break;				
    }
    return "Znajdujesz sie na ogromnym placu, ktorego otacza zywoplot. Jest "+
    "to miejsce gdzie mozna spotkac wiele ludzi i posluchac plotek. Na srodku "+
    "stoi fontanna, z ktorej mozna zaczerpnac nieco wody. "+
    oswietlenie+""+opis_pory()+"\n";
}
void
drink_effect(string str)
{
    write("Podchodzisz na tyle blisko fontanny, aby moc zaczerpnac z niej "
        + "odrobine. Chlodne krople splywaja po twojej skorze, gdy gasisz "
        + "pragnienie lykiem swiezej, orzezwiajacej wody.\n");
    saybb(QCIMIE(this_player(), PL_MIA) + " podchodzi blisko fontanny, by "
        + "zaczerpnac z niej lyk wody.\n");
}