/*
 * Jezioro by Mithandir
 * Projekt bagna by Tanis & Mithandir
 * 23-11-97
 */

inherit "/d/Imperium/std/p_room";

#include "bagno.h"
#define ZMECZENIE 5

int nie_da_rady(string str);
string meczy_sie();

void
create_imperium_room()
{
        set_short("Jezioro");
        set_long("@@dlugi");
        add_prop(ROOM_M_NO_ATTACK," Nie mozesz walczyc kiedy plyniesz");

        set_event_time(10.0,25.0);

        add_event(meczy_sie);

        set_events_on(1);

        add_exit(NPATH+"bagno15.c","poludnie",0,ZMECZENIE);
        add_exit(NPATH+"bagno10.c","polnoc",0,ZMECZENIE);
}

void
init()
{
        ::init();

        add_action(nie_da_rady,"ob");
        add_action(nie_da_rady,"obejrzyj");
}

int
nie_da_rady(string str)
{
        write("Chcialbys sie rozejzec dookola, ale wysokie fale co chwila zalewaja ci oczy. Oprocz tego coraz bardziej tracisz sily.\n");
}

string
meczy_sie()
{
        write("Czujesz, jak sily coraz bardziej cie opuszczaja. Jesli nie wyjdziesz szybko na brzeg, mozesz juz nigdy tego nie zrobic.\n");
        this_player()->reduce_hit_point(10);
        if (this_player->query_hp()<1)
           this_player->do_die(this_object());
        return "";
}

string
dlugi()
{
    return(opis_pory_roku() + " Znajdujesz sie posrodku jeziorka. " +
    "Wysokie fale zalewaja cie co chwila, " +
    "ale jakos sie trzymasz. Jednak z kazda chwila ubywa ci sil. " +
    "Jesli nie wydostaniesz sie szybko na brzeg, moze byc z toba krucho. "
    +"Cale jeziorko jest obrosniete gestymi chaszczami, "+
    "tylko w dwoch miejscach brzeg jest wystarczajaco przerzedzony, " +
    "aby mozna bylo tam wyjsc.\n");
}