inherit "/d/Imperium/Rangerzy/lokacje/std";
#include "dane.h"
string menu();
int zamow(string co);
void
create_ranger_room()
{
   set_short("Kuznia");
   set_long("Centralnym punktem tego pomieszczenia jest olbrzymie czarne kowadlo. "+
            "Jedna ze scian stanowi huczace palenisko ze skomplikowanym systemem "+
            "miechow. Oprocz swojej zwyklej funkcji zapewnia ono takze goraca wode dla "+
            "pobliskiej lazni. Powietrze tutaj jest gorace i przesiakniete zapachem "+
            "zelaza i siarki. Czujesz jak po twoich plecach zaczynaja sciekac struzki "+
            "potu. Na scianach wisza przerozne narzedzia kowalskie, miedzy innymi "+
            "imponujacy zestaw mlotow roznej wielkosci, od ogromnego do tych "+
            "najmniejszych do precyzyjnego kucia. Domyslasz sie, ze jestes w pracowni "+
            "nie lada mistrza kowalskiego. Na stolach opodal wejscia gotowe wyroby "+
            "przyciagaja twoje oko swoim smiertelnym pieknem. Na slupie widzisz mala "+
            "tabliczke. W jednej ze scian znajduje sie okienko do magazynu.\n");
   add_item("tebliczke", "Moze warto by ja przeczytac?\n");
   add_cmd_item("tabliczke", "przeczytaj", "@@menu");
   add_exit(RPATH + "12.c", "poludnie", 0, 1);
}
void
init()
{
	::init();
	add_action("zamow", "zamow");
}
int
zamow( string co )
{
  setuid();
  seteuid(getuid());
  notify_fail("Nie jestes rangerem!\n");
  if (!(this_player()->query_prop("ranger"))) return 0;
  switch(co)
  {
	  case "miecz":
        {
            clone_object(OBJ+"miecz1.c")->move(this_player());
            write("Otrzymujesz miecz.\n");
            break;
        }
      case "szate":
        {
            clone_object(OBJ + "szata.c")->move(this_player());
            write("Otrzymujesz ciemnozielona Rangerska szate.\n");
   	        break;
        }
      case "kolczuge":
        {
                        clone_object(OBJ+"kolczuga")->move(this_player());
			write("Otrzymujesz lekka matowa kolczuge.\n");
			break;
	    }
	  case "spodenki":
	    {
                        clone_object(OBJ + "spodenki.c")->move(this_player());
			write("Otrzymujesz matowe kolcze spodenki.\n");
			break;
		}
          case "napiersnik":
              {
                clone_object(OBJ+"naptw.c")->move(this_player());
                write("Otrzymujesz zielonkawy lekki napiersnik.\n");
                break;
        }
              	
	  default: write("Zamow co? Przeczytaj tabliczke by obejrzec dostepne produkty.\n");
  }
  return 1;
}
string
menu()
{
	return "Moja oferta:\n\n"+
	       "Zielonkawy lekki napiersnik NOWOSC\n"+
	       "Lekka matowa kolczuga\n"+
	       "Matowe kolcze spodenki\n"+
	       "Ostry dlugi miecz elfi\n"+
	       "Ciemnozielona szata\n"+
	       "Me wyroby jedynie mieszkancy tej Twierdzy moga uzyc.\n";	
}