inherit "/d/Imperium/Varn/kopalnie/stdroom.c";
#include "local.h"
#include <ss_types.h>
#include <macros.h>

#define HARD_TO_SWIM 15

create_varn_room() {
set_short("Chodnik w kopalni");
set_long("Znajdujesz sie w starym chodniku kopalni krasnoludzkiej. Ta jej "+
         "czesc jest obecnie zalana woda, ktora wlasnie obmywa twoje stopy. "+
         "Belki, ktore od wiekow podpieraja strop sa moccno nadgnile pod "+
"wplywem wody. Strop tworza ogromne masy ziemi, ktore niebezpiecznie "+
"napieraja na drewniane podpory. Cala konstrukcja wyglada tak, jakby "+
      "miala sie za chwile zawalic. Woda plynie na poludnie, "+
         "powoli podmywajac sciany i podpierajace je belki.\n");
add_prop(ROOM_I_INSIDE, 1);
add_exit(PATH + "kopalnia2ene.c", "polnoc", 0);
add_exit(PATH + "zalane2.c", "poludnie", "@@swim", 1);
add_item( ({ "belke", "belki" }) ,
             "Potezne belki od wiekow podtrzymuja strop. Jednak i one "+
             "nie oparly sie uplywowi czasu. Sa juz mocno sprochniale "+
             "i popekane. Woda takze przyczynila sie do ich zniszczenia. "+
             "Belki sa bowiem takze miejscami czarne i mocno przegnile. "+
             "Nie sprawiaja wrazenia mocnych.\n");
add_item( ({ "strop", "masy ziemi" }) ,
             "Strop kopalni tworza potezne masy ziemi. Napieraja one "+
             "niebezpiecznie na podpierajace je belki. Moga w kazdej "+
             "chwili runac na ciebie, pozostawiajac cie w tej kopalni "+
             "juz na zawsze.\n");
add_item( ({ "wode" }) ,
"Woda wypelnia te czesc kopalni. Zdaje sie, ze wyplywa z jakiejs "+
             "dziury w scianie. Jest lekko wzburzona i plynie w kierunku "+
             "poludniowym.\n");
}

swim()
{
int HARD;
HARD=random(HARD_TO_SWIM)-2;
if (this_player()->query_skill(SS_SWIM) < HARD)
{
    write("Niestety woda jest zbyt wzburzona, jak na twe sily.\n");
    write("Twoje pluca zaczynaja wypelniac sie woda!\n");
write("Zaczynasz tracic sily.\n");
this_player()->reduce_hit_point(HARD-this_player()->query_skill(SS_SWIM));
    write("Niemalze cudem udaje ci sie wyjsc z wody.\n");
    say(QCIMIE(this_player(),PL_MIA) + " nie daje rady rwacej wodzie.\n");
return 1;
}

    write("Plyniesz w rwacych potokach wody.\n");
    return 0;
}