inherit "/d/Imperium/std/room";
#include <macros.h>
#include <stdproperties.h>
#include <forteca.h>

void
reset_imperium_room()
{
int i;
mixed guard;

setuid();
seteuid(getuid());
        guard = find_living("chaosnicy",1);

        if ( sizeof(guard) < 15 )
            {
                for ( i = 0; i < 2; i++ )
                {
                clone_object("/d/Imperium/vic/twierdza/npc/chaosnicy")->move(this_object());
                }
        }

}


void
create_imperium_room()
{
    add_prop(ROOM_I_INSIDE,1);
    set_short("Korbownia");
    set_long("Zauwazasz tu mase przeroznych, dziwacznych mechanizmow.\n");
	
	add_exit(PATH+"lok02.c","zachod");
	add_exit(PATH+"lok04.c","wschod");
	add_exit(PATH+"lok08.c","gora");
        
    reset_imperium_room();
    

}


int
podnies( string co )
{

    if (!co)
	{
	if (!this_player()->query_prop("chaosnik"))
	    {
	    write("Nie masz sily.\n");
	    return 1;
	    }
	    
	if (!(ENGINE)->query_brama())
	    {
	    write("Krecisz korba podnoszac most.\n");
	    say(QCIMIE(this_player(),PL_MIA)+" kreci korba podnoszac most!\n");
	    (ENGINE)->close_gate();
	    return 1;
	    }
	write("Hmmm... most zdaje sie byc juz podniesiony.\n");
	return 1;
	
	}
	
write("Podnies co?\n");
return 1;
}


int
obniz( string co )
{
    if (!co)
	{
	if (!this_player()->query_prop("chaosnik"))
	    {
	    write("Nie masz sily.\n");
	    return 1;
	    }
	if ((ENGINE)->query_brama())
	    {
	    write("Krecisz korba opuszczajac most! BAH!\n");
	    say(QCIMIE(this_player(),PL_MIA)+" kreci korba opuszczajac "+
		"most.\n");
	    (ENGINE)->open_gate();
	    return 1;
	    }    
	    write("Most jest juz obnizony pacanie.\n");
	    return 1;
	}
write("Obniz co?\n");
return 1;
}



void
init()
{
    ::init();
    add_action("obniz","obniz");
    add_action("podnies","podnies");
}