inherit "/std/herb";

#include <herb.h>
#include <pl.h>

#define TP this_player()

create_herb()
{
    ustaw_nazwe( ({ "kartonik", "kartonika", "kartonikowi", "kartonik",
        "kartonikiem", "kartoniku" }),
        ({ "kartoniki", "kartonikow", "kartonikom", "kartoniki",
        "kartonikami", "kartonikach" }), PL_MESKI_NOS_NZYW);
  

    dodaj_przym("plastikowy", "plastikowi");
    dodaj_przym("rozowy", "rozowi");
   
    ustaw_nazwe_ziola( ({ "kwas", "kwasa", "kwasowi", "kwas",
        "kwasem", "kwasie" }), PL_MESKI_OS); 
    
    set_id_long("Kwas! Po prostu kwas! Czysty drag! Tylko zazyc i odlatywac.\n");

    set_unid_long("Dziwny kartonik z rozowym proszkiem.\n"); 
    
/* 
 * Tablica 3 form czasownika do spozycia ziola we wlasciwy sposob. W naszym
 * przypadku wlasciwym sposobem, czyli takim, ktory wywoluje porzadany
 * efekt jest przezucie. Gracz zawsze moze sprobowac zjesc nasz lisc,
 * ale nie poczuje zadnego efektu.
 * Wymagana tablica powinna zawierac nastepujace formy czasownika: 
 * ({ komenda, 2 osoba, 3 osoba, bezokolicznik })
 */    
    set_ingest_verb( ({ "zazyj", "zazywasz", "zazywa", "zazyc" }) );
    
/* Ustawiamy teraz jak wysoko trzeba miec opanowane zielarstwo, zeby
 * moc zidentyfikowac ziolo. W naszym przypadku dajemy 15 - blumpka
 * jest dosyc znana.
 */
    set_id_diff(50);
    
/* Czas na ustalenie, jak ciezko jest znalesc blumpke. Zwazywszy na to,
 * ze roscie w gestych lasach rownikowych, jest ja raczej ciezko znalezc.
 * Stopien trudnosci odnalezienia powinien sie miescic w 
 * przedziale 1 - 10, tak wiec damy jej 7.
 */
    set_find_diff(8);

/* Jak juz wspomnielismy, przezute ziolo leczy troche rany. Troche, 
 * nie za bardzo - 10 hp.
 */
    set_effect(HERB_SPECIAL, special_effect);
    
/*
 * Jeszcze ile sekund musi uplynac, zanim ziolo sie obrobci w proch
 * z przesuszenia. Blumpka, jako lisc rosliny z wilgotego klimatu, 
 * raczej szybo traci wilgosc - 800 sekund.
 */
    set_decay_time(10000);
    
 /* I cena ziola w miedzianych monetach...
  */
    set_herb_value(3000);
}

void
special_effect()
{
    object kwas;
    setuid();
    seteuid(getuid());
    kwas=clone_object("/d/Imperium/ziola/efekt/kwas_effect.c");
    kwas->move(TP);
    kwas->rozjeb_czache();
}