inherit "/d/Imperium/std/room";
#include <macros.h>
#include <pl.h>
#include <wa_types.h>
#include <ss_types.h>

#define TO this_object()
#define TP this_player()



void
create_imperium_room()
{
 set_short("Stajnia");
 set_long("Znajdujesz sie w zatopionym w polmroku, duzym "+
    "pomieszczeniu. Dookola ciebie znajduja sie boksy, bedace "+
    "miejscem pobytu koni nie pedzacych w tej chwili po "+
    "szlakach Imperium. Cala podloge pokrywaja sterty "+
    "pachnacego siana. Na jednym z boksow dostrzegasz mala "+
    "tabliczke.\n");
  
 add_item("tabliczke", "Na tabliczce napisano:\nAby pobrac "+
    "swego wierzchowca, wpisz <pobierz wierzchowca>.\n");

 add_exit("/d/Imperium/Zwiad/lokacje/hol2.c","polnoc");
 
}

int
pobierz( string str )
{
    if (str != "wierzchowca")
        {
        write("Pobierz co?\n");
        return 1;
        }
    if (!TP->query_prop("zwiadowca"))
        {
        write("Tylko Zwiadowcy moga tu dostac swego wierzchowca.\n");
        return 1;
        }
    if (TP->query_real_name() == "dart")
    {
    tell_room(TO,"Niski chlopczyk niknie wsrod koni, a po chwili "+
        "wraca prowadzac se soba twego wierzchowca.\n");
    setuid();
    seteuid(getuid());
    clone_object("/d/Imperium/Zwiad/npc/konie/dart_horse")->move(TO);
    write_file("/d/Imperium/Zwiad/log/konie.log",
        ctime(time()) + ": " + TP->query_name() + " pobral konia.\n");
    return 1;
    }
    if (TP->query_real_name() == "siro")
    {
    tell_room(TO,"Niski chlopczyk niknie wsrod koni, a po chwili "+
        "wraca prowadzac se soba twego wierzchowca.\n");
    setuid();
    seteuid(getuid());
    clone_object("/d/Imperium/Zwiad/npc/konie/siro_horse")->move(TO);
    write_file("/d/Imperium/Zwiad/log/konie.log",
        ctime(time()) + ": " + TP->query_name() + " pobral konia.\n");
    return 1;
    }
    if (TP->query_real_name() == "ild")
    {
    tell_room(TO,"Niski chlopczyk niknie wsrod koni, a po chwili "+
        "wraca prowadzac se soba twego wierzchowca.\n");
    setuid();
    seteuid(getuid());
    clone_object("/d/Imperium/Zwiad/npc/konie/ild_horse")->move(TO);
    write_file("/d/Imperium/Zwiad/log/konie.log",
        ctime(time()) + ": " + TP->query_name() + " pobral konia.\n");
    return 1;
    }
    tell_room(TO,"Niski chlopczyk niknie wsrod koni, a po chwili "+
        "wraca prowadzac se soba twego wierzchowca.\n");
    setuid();
    seteuid(getuid());
    clone_object("/d/Imperium/Konie/zwiad_horse")->move(TO);
    write_file("/d/Imperium/Zwiad/log/konie.log",
        ctime(time()) + ": " + TP->query_name() + " pobral konia.\n");
    return 1;
}

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