inherit "/d/Imperium/std/room.c";
#include <macros.h>
#include <stdproperties.h>
#include "../kislev.h"
#include "opisy.h"


#define M1 "Znajdujesz sie gdzies na przysypanej sniegiem ulicy "+\
	    "Kislevu. Monotonne, rowninne wiatry dochodza az tutaj "+\
	    "i owiewaja twoja twarz chmurami zimnego, polnocnego "+\
	    "powietrza.\n"

#define M2 "Stoisz posrod wznoszacych sie domow, ktorych dachy w calosci "+\
	    "zakryte sa przez zalegajacy wszedzie snieg. Znajdujac "+\
	    "sie w tym miescie masz okazje poznac srogosc prawdziwych "+\
	    "zim nabiegajacych do tej czesci Imperium z polnocnych "+\
	    "ziem.\n"
	    
#define M3 "Obracajac dookola glowa napotykasz na domy, karczmy i "+\
	    "opuszczone rudery zasypane przez gruba warstwe sniegu. "+\
	    "Kazdy podmuch zimnego, polnocnego wiatru przyprawia "+\
	    "cie o dreszcze, lecz jeszcze bardziej przerazajaca "+\
	    "musi byc tutaj noc... potwornie zimna i bezlitosna.\n"
	    

void
dodaj_mieszczan()
{
int rand = random(100);

    if ( rand < 80 )
	{
	dodaj_npca(NPC+"mieszczanin.c");
	dodaj_npca(NPC+"mieszczanka.c");
	}

}


string
random_long()
{
int rand;
string *op = ({M1,M2,M3,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,
	       A14,A15,A16,A17,A18,A19,A20});

   rand=random(sizeof(op));

return op[rand];
}

public void
create_kislev()
{
}

public nomask void
create_imperium_room()
{
set_short("Standard kislevu open");
set_long(random_long());

dodaj_mieszczan();
set_event_time(70.0,70.0);
add_event("Porywisty, zimny wiatr owiewa twoja twarz.\n",0);
add_event("Z oddali dobiegaja cie gwarne krzyki.\n",0);
add_event("Slyszysz wycie wiatru przeciskajacego sie pomiedzy "+
	"kamiennymi budowlami.\n",0);
add_event("Dobiegaja do ciebie ujadanie dzikich psow.\n",0);
add_event("Zaczyna pruszyc snieg.\n",0);
set_events_on(1);


create_kislev();
}


public void
reset_kislev()
{
}

public nomask void
reset_imperium_room()
{
reset_kislev();
}