#include <../imirilla.h>
inherit STD+"standardnorski.c";

void
create_norska_room()
{
 add_prop(ROOM_I_LIGHT, 1);
 add_prop(ROOM_I_INSIDE, 1);

 set_short("Kuznia");
 set_long("W tym pomieszczeniu w ogole nie czuc chlodu, tak jak w innych "+
"czesciach twierdzy. Kamienny piec przy wschodniej scianie ogrzewa na tyle, "+
"by wojownik nie musial nosic tu zadnych placht badz skor. Przy wejsciu "+
"dostrzegasz tabliczke.\n");
 
 add_item("tabliczke",
"          *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n"+
"          *  Zamowic u nas mozesz:                   %\n"+
"          *                                          %\n"+
"          * -ciezka kolczuga dobrej jakosci          %\n"+
"          * -polerowany, debowy puklerz              %\n"+
"          * -helm ze wspanialymi rogami              %\n"+
"          * -doskonale wywazony topor jednoreczny    %\n"+
"          * -dwureczny mlot o przerazajacej sile     %\n"+
"          *                                          %\n"+
"          *******************************************%\n");

 add_exit(LOKACJE +"tablica","poludniowy-wschod");
 dodaj_npca(NPC +"kowal.c");
}

int
zamow( string str )
{
object ob;

setuid();
seteuid(getuid());
if (str == "mlot")
{
write("Kowal wykonuje niezwykle zrecznie i "+
"szybko swoja prace, po czym wrecza ci gotowy juz mlot..\n");
ob=clone_object("/d/Imperium/Norska/bronie/mlot1.c");
ob->set_pen(55);
ob->set_hit(55);
ob->move(TP);
return 1;
}

if (str=="puklerz")
{
write("Kowal wykonuje niezwykle zrecznie i "+
"szybko swoja prace, po czym wrecza ci gotowy juz puklerz.\n");
ob=clone_object("/d/Imperium/Norska/zbroje/puklerz1.c");
ob->move(TP);
return 1;
}

if (str=="topor")
{
write("Kowal wykonuje niezwykle zrecznie i "+
"szybko swoja prace, po czym wrecza ci gotowy juz topor.\n");
ob=clone_object("/d/Imperium/Norska/bronie/topor1.c");
ob->move(TP);
return 1;
}

if (str=="helm")
{
write("Kowal wykonuje niezwykle zrecznie i "+
"szybko swoja prace, po czym wrecza ci gotowy juz helm.\n");
ob=clone_object("/d/Imperium/Norska/zbroje/helm1.c");
ob->move(TP);
return 1;
}

if (str=="kolczuge")
{
write("Kowal wykonuje niezwykle zrecznie i "+
"szybko swoja prace, po czym wrecza ci gotowa juz kolczuge.\n");
ob=clone_object("/d/Imperium/Norska/zbroje/kolczuga1.c");
ob->move(TP);
return 1;
}

write("Zamow co?\n");
return 1;
}


void
init()
{
    ::init();
    
    add_action("zamow","zamow");    

}