int
special_attack(object enemy)
{
    int attacktype, i, penet;
    mixed* hitresult;
    string how, how1;
    object me=TO;
    
    attacktype = random(10);
    penet=TO->query_stat(0)*15-enemy->query_stat(2);
    if(enemy->query_hp()<penet)
	{
		enemy->catch_msg("Zjawa wyciaga dlon w twym kierunku.\nCzujesz pieczenie "
			+"w gardle, ktore stopniowo rozprzestrzenia sie po twoim ciele...\n");
		tell_room(environment(TO),"Ogromna zjawa wyciaga reke w kierunku "+enemy->query_Imie(PL_DOP)
			+"\nCzujesz swad palonego miesa.\n",({enemy}));
		enemy->set_hp(0);
		enemy->do_die(TO);
		return 1;
	}
    switch(attacktype)
	{
	case 0:
		enemy->catch_msg("Zjawa wyciaga dlon w twym kierunku.\nCzujesz pieczenie "
			+"w gardle, ktore stopniowo rozprzestrzenia sie po twoim ciele...\n");
		tell_room(environment(TO),"Ogromna zjawa wyciaga reke w kierunku "+enemy->query_Imie(PL_DOP)
			+"\nCzujesz swad palonego miesa.\n",({enemy}));
		enemy->set_hp(0);
		enemy->do_die(TO);
		return 1;
		break;
	default:
          hitresult = enemy->hit_me(penet, W_BLUDGEON, 30, me, -1);
		enemy->catch_msg("Slyszysz cichy szept, a pozniej przerazliwy bol...\n");
		tell_room(environment(TO),"Slyszysz cichy szept... Chwile pozniej "+QCIMIE(enemy,PL_MIA)
			+"piszczy cicho.\n",({enemy}));
		return 1;
	}
	return 0;
           
}