/*
 * Plik  : czary.h
 * Autor : Torg
 * Opis  : Glowny plik czarow dla Wyznawcow Solkana
 * Data  : 16 sierpnia 2002
 *
 * Copyright (C)
 *
 */

#include "defs.h"

int mozna_rzucac=1;
int mozna_rzucac2=1;
object *summon=({});


void
eat_mana(int ile)
{
    TP->set_mana(TP->query_mana()-ile);
}


void
hurt_all(int dem, string str)
{
    int i;
    object *livs = all_inventory(environment(TP));
    livs = FILTER_LIVE(livs);
    if (!str)
    str="";

    for (i = 0; i < sizeof(livs); i++)
    {
        if (livs[i] != TP)
        {
            if (!livs[i]->query_prop(SOLKANITA))
            livs[i]->reduce_hit_point(dem);
            livs[i]->catch_msg(""+str+"");

            if (livs[i]->query_hp()<1)
            livs[i]->do_die();
        }
    }
}


int
query_chance(int spell)
{
    switch(spell)
    {
        case 0:
        return 100;
        break;

        case 1:
        return 90;
        break;

        case 2:
        return 80;
        break;

        case 3:
        return 70;
        break;

        case 4:
        return 60;
        break;

        case 5:
        return 50;
        break;

        case 6:
        return 40;
        break;

        case 7:
        return 30;
        break;

        case 8:
        return 20;
        break;

        case 9:
        return 10;
        break;

        default:
        return 5;
        break;
    }
}

void
think()
{
    write("Znow czujesz kontakt z Solkanem.\n");
    mozna_rzucac=1;
}

void
think2()
{
    write("Czujesz jak odzyskujesz potezny kontakt z Bogiem.\n");
    mozna_rzucac2=1;
}

void
hurt_player(object ob, int dem)
{
    ob->reduce_hit_point(dem+TP->query_stat(3));
    if (ob->query_hp()<1)
    ob->do_die(TP);
}

void
apar(object ob)
{
    ob->remove_stun();
}