/* Plik:   przystan4.c
 * Autor:  by Tarkin
 * Data:   18.11.1997
 * Opis:    Przystan w Karak-Varn
 */
inherit "/d/Imperium/std/room.c";

#pragma strict_types
#pragma save_binary

#include "local.h"

object statek;

void
create_imperium_room()
{

add_prop(ROOM_I_INSIDE, 1);
add_prop(ROOM_I_LIGHT, 1);

set_short("Podziemna przystan w Karak-Varn");
set_long("Znajdujesz sie w ogromnej jaskini. Naprzeciwko srebrnym "+
"blaskiem odbija sie tafla podziemnego jeziora. Na jego brzegu "+
"jest wybudowana przystan przy ktorej stoja barki i statki rzeczne, "+
"majestatycznie kolyszac sie na spokojnych wodach podziemnego "+
"akwenu. Panuje tutaj duzy ruch. Robotnicy zaladowywuja i rozladowywuja "+
"nowo przybyle barki, kupcy i przewoznicy targuja sie o ceny. Gleboko na "+
"jeziorze w kierunku polnocnym dostrzegasz oswietlony tunel ktorym wyplywa "+
"podziemna rzeka. Zapewne jest to droga jaka trafijaja tutaj statki. "+
"Pomieszczenie jest dobrze oswietlone, jedynie glebsze zakamarki jeziora "+
"osloniete sa calkowita ciemnoscia. Nie dostrzegasz rowniez stropu ktory "+
"okryty jest cieniem.\nWbita w skale stoi tu drewniana tablica.\n");

add_exit(NPATH + "przystan3.c", "zachod");

add_item("jezioro", "Sporej wielkosci podziemne jezioro. Jego tafla jest ciemna "+
"i odbija sie srebrnym blaskiem. Woda zapewnie jest lodowato zimna.\n");


add_item(({"statki","barki"}),"Statki, i barki przysumowane do kei kolysza "+
"sie na falach jeziora.\n");

add_item("tunel", "Dobrze oswietlony tunel, wyplywa nim podziemna rzeka. Zapewne jest "+
"to jedyny tunel ktorym mozna z tad wyplynac.\n");

    add_item(({"tablice","drewniana tablice"}),"Widzisz na niej wykaligrafowany napis:"+
        "\nW miejscu tym cumuje barka plynaca do miasta Nuln. Pasazerow prosimy o " +
        "sprawne wsiadanie i nie tamowanie ruchu. Bilety, w cenie 10 miedzianych monet do nabycia u kapitana jednostki.\n");
    add_cmd_item("tablice","przeczytaj","W miejscu tym cumuje barka plynaca do miasta Nuln. Pasazerow prosimy o " +
        "sprawne wsiadanie i nie tamowanie ruchu. Bilety, w cenie 10 miedzianych monet do nabycia u kapitana jednostki.\n");
    dodaj_npca(MPATH + "straznik.c");

setuid();
seteuid(getuid());
    statek = clone_object(SPATH + "shippie.c");
    statek -> start();
 
    (VARN + "inne/napad_r")->no_to_siup();
}