inherit "/d/Imperium/std/room";
#include <macros.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <forteca.h>

int zamkniete=1;

#define TP this_player()

void
create_imperium_room()
{
    add_prop(ROOM_I_INSIDE,1);
    set_short("Platnerz");
    set_long("Platnerz.\n");
        
        add_exit(PATH+"lok05.c","poludnie");
        
}


int
zamow( string str )
{
object ob;

if (!TP->query_prop("chaosnik"))
{
write("Niestety nie nalezysz do wyznawcow Khorne'a.\n");
return 1;
}

    if ( str == "naramienniki" )
        {
        ob=clone_object("/d/Imperium/Pustkowia/twierdza/npc/zbroje/lnaramR");
        ob->set_ac(A_L_ARM,55,55,55);
        ob->move(TP);
        ob=clone_object("/d/Imperium/Pustkowia/twierdza/npc/zbroje/pnaramR");
        ob->set_ac(A_R_ARM,55,55,55);
        ob->move(TP);
        write("Dostajesz naramienniki.\n");
        return 1;       
        }

    if ( str == "nagolenniki" )
        {
        ob=clone_object("/d/Imperium/Pustkowia/twierdza/npc/zbroje/nagolenR");
        ob->set_ac(A_LEGS,55,55,55);
        ob->move(TP);
        write("Dostajesz nagolenniki.\n");
        return 1;
        }
    
    if ( str == "helm" )
        {
        ob=clone_object("/d/Imperium/Pustkowia/twierdza/npc/zbroje/helmR");
        ob->set_ac(A_HEAD,55,55,55);
        ob->move(TP);
        write("Dostajesz helm.\n");
        return 1;
        }


    if ( str == "rekawice" )
        {
        ob=clone_object("/d/Imperium/Pustkowia/twierdza/npc/zbroje/rekawR");
        ob->set_ac(A_HANDS,55,55,55);
        ob->move(TP);
        write("Dostajesz rekawice.\n");
        return 1;
        }

    if ( str == "buty" )
        {
        ob=clone_object("/d/Imperium/Pustkowia/twierdza/npc/zbroje/butyR");
        ob->set_ac(A_FEET,55,55,55);
        ob->move(TP);
        write("Dostajesz buty.\n");
        return 1;
        }
        
    if ( str == "szate" )
        {
        write("Nie ma tak dobrze... Nie bedzie kazdy w szacie zapierdalal.\n");
//        ob->set_ac(A_ROBE,55,55,55);
//        ob->move(TP);
//       write("Dostajesz szate.\n");
//        return 1;
        }
        
}

void
init()
{
::init();
add_action("zamow","zamow");

}
