/* Silvy luty'97 */

inherit "/d/Imperium/Nuln/std/room";
#include "/sys/stdproperties.h"
#include "silvy.h"
#include "miesz.h"
#include <ss_types.h>
#include <macros.h>

create_imperium_room()
{

    add_prop(ROOM_I_LIGHT, 1);
    set_short("Waska ulica Nuln");
    set_long("@@dlugi");
    add_exit(NPATH + "lokacje/nulica2.c","poludnie");

    add_item(({"kamienice","domy"}),
        "Domy, jakie widuje sie czesto w dzielnicach " +
        "portowych, odrapanie i zaniedbane.\n");
    add_item(({"pomyje","sciek","rynsztok"}),
        "Przy blizszych ogledzinach szaroburych " +
        "pomyj mozesz dostrzec kawalki jedzenia, obierki, " +
        "odchody i bogowie wiedza co jeszcze. Bije od tego " +
        "niemilosierny smrod.\n");
    add_item(({"pranie","sznury","bielizna","bielizne"}),
        "Na mocnych sznurach zawieszonych pomiedzy oknami " +
        "budynkow suszy sie ostatnie pranie mieszkancow.\n");
    add_item(({"okienko","okienka","piwniczne okienko","piwniczne okienka"}),
        "Poloznone kilka cali nad powierzchnia gruntu, piwniczne okienka " +
        "sluza prawdopodobnie do wsypywania opalu i czesciowego chociaz " +
        "oswietlania piwnic.\n");
    add_item(({"mur","sciana","sciane","ceglany mur","ceglana sciana",
        "ceglana sciane","murowana sciana","murowana sciane"}),
        "Porosnieta mchem sciana przegradza ulice w poprzek, uniemozliwiajac " +
        "wyjscie na polnoc.\n");
    add_item("mech","Szarobrunatny, wilgotny mech porasta ceglana sciane.\n");
    add_item("cegly","Cegly, z ktorych zbudowano mur wygladaja na stare, " +
        "duzo starsze niz sama sciana.\n");

    set_event_time(15.0, 60.0);
    add_event("Z jednego z okien na pietrze wychyla sie glowa " +
        "zaspanego mieszczanina w snieznobialej szlafmycy.\n");
    add_event("Wielki, brudny szczur wylania sie z jednego z " +
        "piwnicznych okienek i weszy swym rozowym nosem. Po chwili " +
        "znika, wystraszony widocznie jakims halasem.\n");
    add_event("Stado mew, zwabione tu najwyrazniej zapachem stechlizny, " +
        "obsiadlo rynsztok, wygrzebujac z niego kawalki jedzenia.\n");
    add_event("Zza muru dociera dziwny, skrzypiacy dzwiek. Czujesz jak " +
        "przechodza cie ciarki ...\n");
    set_events_on(1);

    ludzie(1);
}

int 
climbwall(string str)
{
   mixed gdzie=({"na mur","na sciane"});
   
   if (member_array(str,gdzie)==-1) return notify_fail("Wejdz na co?\n");
   
   if(TP->query_skill(SS_CLIMB) < (10 + random(30)))
      {
      write("Probujesz wspiac sie na sciane, ale twoja noga slizga " +
          "sie na mchu i spadasz, tlukac sobie siedzenie.\n");
      say(QCIMIE(TP,PL_MIA) + " probuje wspiac sie na sciane, ale slizga sie " +
          "na mchu i laduje siedzeniem na twardym bruku.\n");
      return 1;
      }
   write("Wspinasz sie na sciane i zrecznym skokiem ladujesz po drugiej " +
      "stronie. \n");
   TP->move_living("przeskakujac przez mur",NPATH + "lokacje/nulica4.c",1,0);
   return 1;
}

int 
climbwall1(string str)
{
   mixed gdzie=({"sie na mur","sie na sciane"});
   
   if (member_array(str,gdzie)==-1) return notify_fail("Wespnij sie na co?\n");
   
   if(TP->query_skill(SS_CLIMB) < (10 + random(30)))
      {
      write("Probujesz wspiac sie na sciane, ale twoja noga slizga " +
          "sie na mchu i spadasz, tlukac sobie siedzenie.\n");
      say(QCIMIE(TP,PL_MIA) + " probuje wspiac sie na sciane, ale slizga sie " +
          "na mchu i laduje siedzeniem na twardym bruku.\n");
      return 1;
      }
   write("Wspinasz sie na sciane i zrecznym skokiem ladujesz po drugiej " +
      "stronie. \n");
   TP->move_living("przeskakujac przez mur",NPATH + "lokacje/nulica4.c",1,0);
   return 1;
}

init()
{
   add_action(climbwall,"wejdz");
   add_action(climbwall1,"wespnij");
   ::init();
}

void
reset_imperium_room()
{
    ludzie(1);
}    

string
dlugi()
{
   return("Tutaj spokojna uliczka konczy sie gwaltownie solidna, " +
        "murowana sciana. Sciana ma mniej wiecej trzy metry wysokosci " +
        "i wykonana jest z czerwonej cegly. Szrobrunatny mech porasta " +
        "ja na calej wysokosci. " +
        opis_pory_roku() +
        " Ulica biegnie ku poludniowi, won stechlizny " +
        "unosi sie znad plynacej rynsztokiem cieczy.\n");
}