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

#define HARD_TO_SWIM  15
create_varn_room() {
set_short("Chodnik w kopalni");
set_long("Jestes w zalanym chodniku opuszczonej kopalni krasnoludzkiej. Poziom "+
         "wody jest tu znacznie nizszy i miejscami dostrzegasz juz przeswitujaca "+
         "podloge chodnika. Z wody powoli wynurzaja sie szyny, ktore niegdys "+
         "sluzyly do transportu wagonikow. Ogromne drewniane belki podpieraja "+
         "strop, ktory tworza potezne masy ziemi. Belki te sa juz mocno "+
         "nadgryzione przez zab czasu. Moga w kazdej chwili zalamac sie pod "+
         "poteznym naporem stropu i pogrzebac twoje cialo i dusze na zawsze "+
         "w tej kopalni.\n");
add_prop(ROOM_I_INSIDE, 1);
add_exit(PATH + "zalane4.c", "zachod", "@@swim");
add_item( ({ "belke", "belki" }) ,
"Potezne belki od wiekow podtrzymuja strop. Jednak i one "+
"nie oparly sie uplywowi czasu. Sa juz mocno sprochniale "+
"i popekane. 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. Jednak jej poziom jest tutaj bardzo niski. "+
"Prawdopodobnie posiada jakies ujscie w jednej ze scian.\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;
        }