inherit "/std/poison_effect.c";

#include <macros.h>
#include <pl.h>
#include <poison_types.h>

int dzialanie = 0;

create_poison_effect()
{
    set_damage( ({ POISON_HP, 60, POISON_USER_DEF, 30 }) );
    set_strength(30);
    set_poison_type("standard");
}

int
special_damage(int *damage, int i)
{
    poisonee->add_panic(random(10) + 20);
    
    if(!dzialanie)
    {
        tell_object(poisonee, "Nagle od rany po sztylecie zaczyna " + 
            "emanowac chlod. Czujesz jak twoje zmysly staja sie " +
            "przytepione, oczy zasnuwaja ci sie mgla. Z trudem zdajesz " +
            "sobie sprawe z faktu, ze do twojej krwi dostala sie jakas " +
            "przekleta trucizna!!\n");
            
        dzialanie = 1;
    }

    // Zwierze nie moze tak reagowac, jak slusznie zauwazyl Samobor, ktory 
    // walczyl tym sztyletem z wezem.
    
    if ((!function_exists("create_zwierze",poisonee))&&(!function_exists("create_potwor",poisonee)))
       {
          switch(random(4))
              {
                 case 0:
                    poisonee->catch_msg("\n\tProsto na ciebie leci ogromny " +
             	       "nietoperz!\n");
                    tell_room(environment(poisonee), QCIMIE(poisonee, PL_MIA) +
                       " nagle kuli sie, unikajac niewidzialnego uderzenia.\n",
                       poisonee);
                    break;
                 case 1:
                    {
                       poisonee->catch_msg("\n\tUWAZAJ! Z LEWEJ!\n");
                       tell_room(environment(poisonee), QCIMIE(poisonee, PL_MIA) +
                         " nagle odskakuje w prawo, oslaniajac rekami glowe.\n",
                         poisonee);
                    }
                    break;
                 case 2:
                    {
                        poisonee->catch_msg("\nCzujesz paniczny strach, padasz " +
                               "na kolana i trzesiesz sie, "+
                               "glosno szczekajac zebami.\n");
                        tell_room(environment(poisonee), QCIMIE(poisonee, PL_MIA) +
                           " pada na kolana i trzesie sie jak osika.\n", poisonee);
                     }
                     break;
                  case 3:
                     {
                         poisonee->catch_msg("\nOlbrzymi demon siega po ciebie " +
                         	"szponiasta lapa!\n");
                         poisonee->command("krzyknij");
                     }
                     break;
              }
       }
     return i+2;
}