inherit "/d/Imperium/Varn/kopalnie/stdroom.c";
#include "local.h"
#include <ss_types.h>
#include <macros.h>
#define HARD_TO_SWIM 20
create_varn_room() {
set_short("Chodnik w kopalni");
set_long("Znajdujesz sie w slepym zaulku chodnika opuszczonej kopalni "+
"krasnoludzkiej. Ta jej czesc jest niemaj calkowicie wypelniona woda, "+
"ktora miejscami muska strop. Strop ten jest tworzony przez potezne masy "+
"ziemi, niebezpiecznie napierajace na drewniane belki. Belki te bowiem "+
"sa mocno naznaczone przez zab czasu. Woda w tym miejscu jest "+
"jakby zimniejsza i glebsza. Ale moze tylko ci sie tak wydaje.\n");
add_exit(PATH  + "zalane12.c", "polnoc", 0, 4);
add_prop(ROOM_I_INSIDE, 1);
add_item( ({ "belea", "belki" }),
"Potezne belki od wiekow podpieraja strop w kopalni. Jednak i one nie "+
"oparly sie uplywowi czasu. Sa miejscami sprochniale, a takze nadgnile "+
"pod wplywem wody.\n");
add_item( ({ "strop", "masy ziemi" }),
"Stop tworza ogromne masy ziemi. Niebezpiecznie napieraja one na drewniane "+
"belki. Moga w kazdej chwili runac na ciebie.\n");
add_item( ({ "wode" }),
"Woda wypelnia te czesc kopalni. W tym miejscu jest jakby nieco glebsza "+
"i zimniejsza. Byc moze moznaby tu zanurkowac.\n");
}

int nurkuj();

void
init()
{
::init();
add_action(nurkuj,"nurkuj");
add_action(nurkuj,"zanurkuj");
}

int
nurkuj()
{
int HARD;
HARD=random(HARD_TO_SWIM);
if (this_player()->query_skill(SS_SWIM) < HARD)
{                                              
write("Probujesz zanurkowac, lecz woda jest na to zbyt wzburzona.\n");
write("Zaczyna krecic ci sie w glowie.\n");
this_player()->reduce_hit_point(HARD-this_player()->query_skill(SS_SWIM));
write("Ostatkiem sil wyplywasz na powierzchnie.\n");
say(QCIMIE(this_player(),PL_MIA) + " cudem unika smierci podczas nurkowania.\n");
return 1;
}
write("Zanurzasz sie gleboko w chlodnej wodzie.\n");
this_player()->move_living("pod wode, nurkujac", VARN + "zatopione/glebia.c");
return 1;
}