inherit "/d/Imperium/Rangerzy/lokacje/std";
#include "dane.h"
int kapiel(string str);
void opisy(object gracz, int faza);
void
create_ranger_room()
{
   set_short("Laznia");
   set_long("W centralnym punkcie tego pomieszczenia znajduja sie dwa zaglebione "+
            "w podlodze baseny, jeden z zimna drugi z goraca woda. W rogach "+
            "pomieszczenia zauwazasz donnice z wielkimi paprociami. Wzdloz scian "+
            "stoja lawy na ktorych siedzi kilka rozszczebiotanych, polnagich kobiet, "+
            "elfek i krasnoludek, gotowych w kazdej chwili pomoc ci w kapieli a "+
            "potem rozmasowac kazdy miesien twego obolalego ciala. Wypelniajaca "+
            "pomieszczenie para dopelnia intymnej i zmyslowej atmosfery tego miejsca. "+
            "Jedyne o czym mozesz teraz myslec to aby 'wziac kapiel'. \n");
   add_exit(RPATH + "14a.c", "poludnie", 0, 1);
}
void
init()
{
	::init();
	add_action("kapiel", "wez");
}
int
kapiel(string str)
{
	notify_fail("Co chcesz wziasc?\n");
	if (str != "kapiel") return 0;
   	set_alarm(0.1, 0.0, opisy(this_player(), 0));
   	return 1;
}
void
opisy(object gracz, int faza)
{
	switch(faza)
	{
		case 0:
		{
			write("Zanurzasz siê w goracej wodzie czujac jak mija napiecie minionych dni. "+
			      "Cudownie ciepla woda wyplukuje z twoich miesni zmeczenie ostatnich bitew "+
			      "i dlugich dni wedrowki.\n");
			say(QCIMIE(gracz, PL_MIA) + " rozbiera sie i wskakuje do wody.\n");
			set_alarm(1.0, 0.0, opisy(gracz, 1));
			break;
		}
		case 1:
		{
			write("Podchodza do ciebie dwie laziebne i pomagaja ci namydlic cale cialo. "+
			      "Jedna z nich szoruje twoje barki twarda szczotka. Dotyk jej biustu na "+
			      "twoich plecach wywoluje przyjemne mrowienie w ledzwiach. Zamykasz oczy "+
			      "i odchylasz glowe do tylu, czujesz sie blogo i bezpiecznie. Blyska ci "+
			      "mysl, ze tak musi wygladac raj... Zastanawiasz sie czy ktoras z dwoch dziwek "+
			      "mialaby cos przeciw gdybys tak... A moze obie...? Podejmujesz decyzje i "+
			      "otwierasz oczy...\n");
			set_alarm(5.0, 0.0, opisy(gracz, 2));
			break;
		}
		case 2:
		{
			write("Zrelaksowany kapiela wskakujesz do basenu z zimna woda czujac jak opadaja "+
			      "emocje i stygna zmysly. Znow jestes soba – chlodnym wojownikiem na drodze do chwaly...\n\n"+
			      "Splukujesz z siebie resztki mydla i wychodzisz z kapieli.\n");
			break;
	    }
	}
}