inherit "/std/object";
#include <pl.h>
#include <macros.h>
#include <stdproperties.h>
#include <language.h>
#include "gem.h"
string *troll=({"agat","ametyst","apatyt","azuryt","baryt",
	"chalcedon","kwarc","ortoklaz","perla","piryt"});
string *krasnozwierz=({"agat","ametyst","apatyt","azuryt","baryt",
	"chalcedon","kwarc","ortoklaz","perla","piryt","serpentyn",
	"rodochrozyt","onyks","karneol"});
string *ghoul=({"chalcedon","kwarc","ortoklaz","perla","piryt","serpentyn",
	"rodochrozyt","onyks","karneol","chryzopraz","kalcyt","bursztyn","apatyt"});
string *demon=({"arsenopiryt","rubin","oliwin","oliwin","arsenopiryt","oliwin","magnetyt"});
string *zwierzoczlek=({"agat","ametyst","apatyt","azuryt","baryt",
	"chalcedon","kwarc","ortoklaz","perla","piryt","bursztyn","opal"});
string *struchlec=({"bursztyn","ortoklaz","perla","onyks","serpentyn"});
string *undeadweak=({"agat","ametyst","apatyt","azuryt","baryt",
	"chalcedon","kwarc","ortoklaz","perla","piryt"});
string *undeadstrong=({"oliwin","rubin","bursztyn","bursztyn"});
string
losujkamien(string rasa)
{
int ilosc;
switch(rasa)
{
 case "troll":
	ilosc=random(sizeof(troll));
	return "/d/Standard/gems/"+troll[ilosc]+".c";
	break;
 case "krasnozwierz":
	ilosc=random(sizeof(krasnozwierz));
	return "/d/Standard/gems/"+krasnozwierz[ilosc]+".c";
	break;
 case "ghoul":
	ilosc=random(sizeof(ghoul));
	return "/d/Standard/gems/"+ghoul[ilosc]+".c";
	break;
 case "demon":
	ilosc=random(sizeof(demon));
	return "/d/Standard/gems/"+demon[ilosc]+".c";
	break;
 case "zwierzoczlek":
	ilosc=random(sizeof(zwierzoczlek));
	return "/d/Standard/gems/"+zwierzoczlek[ilosc]+".c";
	break;
 case "struchlec":
	ilosc=random(sizeof(struchlec));
	return "/d/Standard/gems/"+struchlec[ilosc]+".c";
	break;
 case "undeadweak":
	ilosc=random(sizeof(undeadweak));
	return "/d/Standard/gems/"+undeadweak[ilosc]+".c";
	break;
 case "undeadstrong":
	ilosc=random(sizeof(undeadstrong));
	return "/d/Standard/gems/"+undeadstrong[ilosc]+".c";
	break;
}
return "cepie";
}

create_object()
{
    ustaw_nazwe( ({"krowa","krowy","krowie","krowe","krowa","krowie"}),
       ({"krowy","krow","krowom","krowy","krowami","krowach"}), PL_ZENSKI); 
       set_long("Objekt przydzielajacy kamyki. Jesli jestes mortalem i to widzisz "
	+"przyzwij MG.\n");
}