/*
 * BAGNO10.c dziecko bagna
 * Autor: Mithandir
 * Projekt: Bagna by Tanis i Mithandir
 */

inherit "/d/Imperium/Kraina/BAGNO/bagno.c";

#include "bagno.h"
// Mam nadzieje, ze wszystko juz jest zadeklarowane
#define HARD_TO_SWIM 30
#define ZMECZENIE 5

int plyn(string str);

void
create_bagno_kraina()
{
    // Tu byly smieci();
set_short("Polnocny brzeg jeziorka");

add_item(({"brzeg","jezioro"}),"Stoisz na brzegu niewielkiego jeziorka. "
	+"Szeroka, lekko wzburzona tafla wody pozostala wolna od zielonej "
	+"narosli pokrywajacej reszte bagna. Powodem tego byly zapewne "
	+"niewielkie fale i niska temperatura wody pochodzacej od jakiegos "
	+"podziemnego zrodla. Brzeg jeziorka jest gesto zarosniety i tylko "
	+"w jednym miejscu mozesz wejsc do wody. Wydaje ci sie, ze przez mgle "
	+"widzisz wyrwe w roslinnosci na drugim koncu jeziora.\n");
add_item("drugi brzeg","Wydaje ci sie, ze na przeciwleglym brzegu dostrzegasz "
	+"niewielka wyrwe w roslinnosci, podobna do tej przy ktorej stoisz. "
	+"Choc jezoro jest niewielkie, sredniej wielkosci fale i bardzo zimna "
	+"woda czynia droge wplaw na drugi brzeg wyjatkowo trudna. Jednak, "
	+"jesli umiesz plywac, powinienes dac rade tam doplynac.\n");
add_item(({"wyrwa","dziura"}),"Niedaleko ciebie szczelnie opatulajaca tafle "
	+"wody roslinnosc na chwile sie rozstepuje, tworzac malenka, naturalna "
	+"plaze. Choc bardzo niska temperatura wody nie zacheca do kapieli, "
	+"gdybys chcial, moglbys w tym miejscu wejsc do wody.\n");

     // Przedmioty, ktore mozna obejrzec w tej lokacji

add_event("Z jeziorka zrywa sie do lotu stado dzikich gesi i odlatuje na "
	+"polnoc.\n");

     // Zdarzenia losowe,


add_exit(NPATH+"bagno11.c","wschod");
// add_exit(NPATH+"jezioro.c","jeziorko","@@plyn");
     // Wyjscia z tej lokacji.

}

void
init()
{
        ::init();
        add_action(plyn,"plyn");
        add_action(plyn,"przeplyn");
}

string
dlugi_opis()
{
    return("Stoisz nad brzegiem niewielkiego, zadziwiajaco czystego "
	+"jeziorka. Grunt wokol ciebie jest znacznie twardszy niz w "
	+"pozostalej czesci bagna, choc we wszystkich kierunkach oprocz "
	+"polnocy nadal widzisz tylko zielona breje z rosnacymi "
	+"gdzieniegdzie drzewami i krzewami. Woda w jeziorku na polnocy jest "
	+"na pewno bardzo orzezwiajaca. Przez mgle widzisz po drugiej stronie "
	+"jeziorka kawalek niezarosnietego brzegu. Moze moglbys tam "
	+"doplynac. Oprocz niektorych miejsc brzeg "
	+"jeziorka jest gesto zarosniety, zwlaszcza w kierunku zachodnim. Na "
	+"wschod wzdluz gestwiny biegnie waska sciezka.\n");

     // Dlugi opis, maskujacy funkcje dlugi_opis z rodzica.

}

int
plyn(string str)
{
        if (stringp(str) && str!="przez jezioro" && str!="na jezioro" &&
           str!="na drugi brzeg" && str!="jezioro")
           {
                    notify_fail("Plyn dokad?");
                    return 0;
           }

        if (this_player()->query_skill(SS_SWIM)<=random(HARD_TO_SWIM))
        {
                write("Ufny w swe zdolnosci plywackie odwaznie rzucasz "
                   +"sie do jeziora. Probujesz plynac przed siebie, ale"
                   +"wysokie fale skutecznie ci to uniemozliwiaja. W koncu "
                   +"wyrzucaja cie zmeczonego z powrotem na brzeg.\n");
                this_player()->reduce_hit_point(20);
        write(""+this_player()->query_skill(SS_SWIM));
	say(QCTNAME(this_player())+" probowal przeplynac jeziorko, ale wysokie fale "
        +"wyrzucily go z powrotem na lad.\n");
                return 1;
        }
        write("Odwaznie rzucasz sie w fale jeziorka i plyniesz przed "
        +"siebie.\n");
        this_player()->move_living("plynac przez jezioro",NPATH+"jezioro.c",1);
        return 1;
}