#pragma stric_types
inherit "/std/room";


#include <stdproperties.h>
#define MIECZ "/d/Imperium/kasan/miecz.c"
#include </sys/stdproperties.h>
#include <macros.h>


int czy_miecz=1;


create_room()
{
    set_short("Biuro komendanta");

    add_prop (ROOM_I_INSIDE, 1);
    add_prop (ROOM_I_LIGHT, 1);            
    set_long("@@dlugi_opis");
    
    add_item(({"miecz", "espadon"}), "@@l_miecz");    
    add_exit("mailroom.c", ({"poczta", "na poczte"}));
    
}

int
wez_miecz(string str)
{
    object espadon;
    
    notify_fail("Zdejmij co?? Moze zdejmij espadon znad biurka??\n");
    if(str!="espadon znad biurka")
        return 0;

    notify_fail("Nie widzisz niczego co moglbys zdjac.\n");
    if(czy_miecz !=1)
    return 0;

    espadon = clone_object(MIECZ);
    espadon->move(this_player(),1);
    
    write("Podchodzisz do biurka, i zdejmujesz espadon ze sciany.\n");
    write("Po chwili miecz rozjasnia sie i zaaraz gasnie.\n");
    say(QCIMIE(this_player(), PL_MIA) + "zbliza sie do biurka i zdejmuje "+
    "espadon ze sciany.\n");
    say("Ostrze espadonu na chwile rozjasnia sie, by po chwili zgasnac.\n");
    czy_miecz=0;
    return 1;
}

void
init()
{
    ::init();
    add_action("wez_miecz", "zdejmij");
}


string
dlugi_opis()
    {
    string str;
    
    str =  "Znajdujesz sie w niewielkim pokoiku, ktore zapewne jest biurem "+
           "jakiegos oficera. Na scianach pelno jest roznego rodzaju broni "+
	   "mieczow i szabli. ";

    if(czy_miecz == 1)
    str += "Nad biurkiem wisi sporych rozmiarow espadon, ktory rzuca ci "+
           "jego dziwna biala poswiata.";
    str += "\n";
    return str;
    }

    
string
l_miecz()
    {
    string str;
    str = "Slucham?";
    if(czy_miecz==1)
    str = "Widzisz imponujacy rozmiarami piekny, zadko spotykany bialy espadon "+
          "umieszczony nad biurkiem.";
    str += "\n";
    return str;
    }