/*
 * BAGNO15.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("Poludniowy brzeg jeziorka");

add_item(({"brzeg","jezioro"})," Stoisz na brzegu niewielkiego jeziorka. "
        +"Prawdopodobnie na wskutek posiadania wewnetrzego zrodla, jezioro "
        +"nie jest zarosniete i w niczym nie przypomina rozlewajacej sie za "
        +"toba breji. Brzegi jeziora sa gesto zarosniete.\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+"bagno18.c","poludnie");
add_exit(NPATH+"bagno14.c","zachod");
// add_exit(NPATH+"jeziorko.c",({"jezioro","na jezioro"}),"@@plyn",ZMECZENIE);
     // 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 wschodnim. Na "
        +"zachod wzdluz gestwiny biegnie waska sciezka, ktorej drugi koniec "
        +"niknie w mgle na poludniu.\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 prze 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;
}