// Skora zwierzat z Lasu Loren

inherit "/std/object";

#include <stdproperties.h>
#include <macros.h>

int wartosc;

 
konfiguruj(string *nazwy, mixed *pnazwy, mixed *adj, int weight, int volume,
          int value, string long, int rodzaj)
{
    int i;

    if (pointerp(pnazwy))
     ustaw_nazwe(nazwy,pnazwy,rodzaj);
    else
     ustaw_nazwe(nazwy,rodzaj);
    
    if (adj)
    {
        i = sizeof(adj[0]);
        
        while(i-- > 0)
            dodaj_przym(adj[0][i], adj[1][i]);    
    }    
    
    set_long(long);
    add_prop(OBJ_I_WEIGHT,weight);
    add_prop(OBJ_I_VOLUME,volume);
    set_skora_value(value);
    remove_prop(OBJ_M_NO_SELL);
}

/* Powinno byc raczej init_skora, ale w sklepie musialbym zmieniac */
void
create_skora()
{
    string rasa;
    
    if (previous_object() && pointerp(previous_object()->query_prop(CORPSE_M_RACE)))
      rasa=previous_object()->query_prop(CORPSE_M_RACE)[0];
    
    if (!rasa)
     return;
    switch (rasa)
    {
        case "niedzwiedz":
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"niedzwiedzi"}),({"niedzwiedzi"}) }),
          12000,10000,400,"Jest to gruba, wlochata i ciepla skora z niedzwiedzia"+
          " . Ma brunatny kolor i jest miekka w dotyku.\n",
          PL_ZENSKI );
        case "niedzwiadek":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"miekki","niedzwiedzi"}),({"mieccy","niedzwiedzi"}) }),
          573,530,200,"Widzisz miekka, brazowa skore. Zostala ona zdjeta z "+
          "mlodego niedzwiadka.\n",
          PL_ZENSKI );
        break;
        case "wilk":   
        case "wilczyca":
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"wilczy"}),({"wilczy"}) }),
          2220,1020,40,"Jest to skora wilka. Szarobrunatna siersc jest w wielu miejscach przetarta.\n",
          PL_ZENSKI );
        break;
        case "sarna":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"brazowy","delikatny"}),({"brazowi","delikatni"}) }),
          1000,1000,150,"Jest to cienka, delikatna skora z mlodej sarenki.\n",
          PL_ZENSKI );
        break;
        case "jelen":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"brazowy","delikatny"}),({"brazowi","delikatni"}) }),
          3000,3000,180,"Cienka, lecz lsniaca i wytrzymala skora dorodnego jelenia.\n",
          PL_ZENSKI );
        break;
        case "lis":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"brazowy","delikatny"}),({"brazowi","delikatni"}) }),
          1000,1000,110,"Jest to przepiekne, rude i lsniace lisie futro.\n",
          PL_ZENSKI );
        break;
        case "dzik":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"brazowy","delikatny"}),({"brazowi","delikatni"}) }),
          3000,3000,45,"Gruba, ciezka skora jakiegos dzika.\n",
          PL_ZENSKI );
        break;
        case "kot":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"pregowany","gladki"}),({"pregowani","gladcy"}) }),
          1000,1000,70,"Gladka, pregowana skora jakiegos duzego, dzikiego kota.\n",
          PL_ZENSKI );
        break;
        case "zajac":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"brazowy","delikatny"}),({"brazowi","delikatni"}) }),
          200,200,30,"Skora jest szara i choc nieduza, jest dosyc ciepla. Nalezala do jakiegos zajaca.\n",
          PL_ZENSKI );
        break;
        case "kon":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"mocny","aksamitny"}),({"mocni","aksamitni"}) }),
          2500,2500,120,"Aksamitna, wytrzymala skora jakiegos konia.\n",
          PL_ZENSKI );
        break;
        case "wiewiorka":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"rudy","puszysty"}),({"rudzi","puszysci"}) }),
          70,70,10,"Mala, puszysta skorka jakiejs biednej wiewiorki.\n",
          PL_ZENSKI );
        break;
        case "borsuk":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"gruby","sztywny"}),({"grubi","sztywni"}) }),
          1000,1000,90,"Niezbyt duzy plat bialoszarej, borsuczej skory.\n",
          PL_ZENSKI );
        break;
        case "zubr":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"brazowy","ciezki"}),({"brazowi","ciezcy"}) }),
          20000,15000,350,"Ciezki, brazowy plat skory zubra.\n",
          PL_ZENSKI );
        break;
        case "jednorozec":   
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"snieznobialy","aksamitny"}),({"snieznobiali","akasmitni"}) }),
          2500,2500,1500,"Delikatna, snieznobiala skora jednorozca.\n",
          PL_ZENSKI );
        break;
        default:
          konfiguruj ( ({"skora","skory","skorze","skore","skora","skorze"}),
          ({"skory","skor","skorom","skory","skorami","skorach"}),
          ({ ({"gruby"}),({"grubi"}) }),
          1420,800,60,"Jest to gruba skora jakiegos zwierzecia.\n",
          PL_ZENSKI );
    }
}

public void
leftover_init(string *lp,string *lmn,int rodzaj,string *rasa,int rodzaj_r)
{
    create_skora();
}

int
query_skora_value()
{
    return wartosc;
}

int
set_skora_value(int nowa)
{
    return wartosc=nowa;
}