/* 
 * Kompania Krogulca
 *
 * Copyright(C):    Khazzar (jedrekz@pascom.pl)
 * Data:            26.08.2003
 * 
 */

#include "def.h"
inherit N_STD + "room";
           
void
create_room_w_obozie() 
{
    set_short("Barak kwatermistrza");
    set_long("Wszedles do sporego pomieszczenia zawalonego od podlogi po " +
             "strop roznymi paczkami, skrzynkami i beczkami. Tak tu musi " +
             "rezydowac kwatermistrz Kompanii, czlowiek odpowiedzialny za " +
             "ekwipunek zolnierzy. Sciany obwieszone sa nie calkiem na " +
             "pewno legalnie zdobytymi obrazami i gobelinami. Pod jedna " +
             "ze scian stoi potezne debowe biurko zasypane stosem faktur " +
             "i innych dokumentow. Na scianie nieopodal drzwi wisi " +
             "tabliczka.\n");

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

    add_exit(N_LOCATIONS + "2x2.c","polnoc"); 

    clone_object(N_OBJ + "skrzynia.c")->move(TO);
}

void
init()
{
    ::init();
    add_action("pobierz", "pobierz");
}

int
pobierz(string str)
{
    notify_fail("Kwatermistrz zaopatrza jedynie zolnierzy Kompanii Krogulca.\n");
    if (!ENGINE->query_member(TP)) return 0;

    notify_fail("Pobierz co? Miecz czy pancerz?\n");

    if ( str == "miecz" )
    {
        TP->catch_msg("Po chwili kwatermistrz wydaje ci solidny miecz.\n");
        tell_room(environment(TP),"Kwatermistrz wydaje " + QCIMIE(TP,PL_CEL) + 
                  " solidny miecz.\n", ({TP}));
        clone_object(N_ITEMS + "miecz")->move(TP);
        return 1;
    }

    if ( str == "pancerz" )
    {
        TP->catch_msg("Po chwili kwatermistrz wydaje ci kompleyny pancerz.\n");
        tell_room(environment(TP),"Kwatermistrz wydaje " + QCIMIE(TP,PL_CEL) + 
                  " kompletny pancerz.\n", ({TP}));

        clone_object(N_ITEMS + "napiersnik")->move(TP);
        clone_object(N_ITEMS + "naramienniki")->move(TP);
        clone_object(N_ITEMS + "nagolenniki")->move(TP);
        clone_object(N_ITEMS + "puklerz")->move(TP);
        clone_object(N_ITEMS + "puklerz")->move(TP);
        clone_object(N_ITEMS + "helm")->move(TP);
        return 1;
    }

    if ( str == "mundur" )
    {
        object *mundur;
        int i;

        notify_fail("Na coz ci drugi mundur?\n");
        mundur = deep_inventory(TP);
        for (i= 0; i < sizeof(mundur); i++)
            if (mundur[i]->czy_mundur_kompanii()) return 0;

        TP->catch_msg("Po chwili kwatermistrz wydaje ci mudnur kompanii.\n");
        tell_room(environment(TP),"Kwatermistrz wydaje " + QCIMIE(TP,PL_CEL) + 
                  " czarny mundur.\n", ({TP}));

        clone_object(N_ITEMS + "mundur")->move(TP);      
        return 1;   
    }

    if ( str == "lampe" )
    {
        TP->catch_msg("Po chwili kwatermistrz wydaje ci lampe oliwna.\n");
        tell_room(environment(TP),"Kwatermistrz wydaje " + QCIMIE(TP,PL_CEL) + 
                  " lampe oliwna.\n", ({TP}));

        clone_object(N_ITEMS + "lampa")->move(TP);
        return 1;
    }

    if ( str == "olej" )
    {
        TP->catch_msg("Po chwili kwatermistrz wydaje ci trzy butelki " +
                      "oleju.\n");
        tell_room(environment(TP),"Kwatermistrz wydaje " + QCIMIE(TP,PL_CEL) + 
                  " trzy butelki oleju.\n", ({TP}));

        clone_object(N_ITEMS + "olej")->move(TP);
        clone_object(N_ITEMS + "olej")->move(TP);
        clone_object(N_ITEMS + "olej")->move(TP);
        return 1;
    }


    return 0;
}