inherit "/cmd/std/command_driver";

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

#include "szturmix.h"

init_emoty()
{
        add_action("wita","obrpowitaj");
        add_action("zegna","obrpozegnaj");
        add_action("warkot","obrwarkot");
        add_action("obrzaplacz","obrzaplacz");
        add_action("lista","obrkto");
        add_action("pomoc","obrpomoc");
}

 
int 
wita(string str)
{
    object *cele;
    cele = parse_this (str, "%l:"+PL_DOP);

    
        if (sizeof(cele=parse_this(str, "%l:" + PL_BIE)))
        {
          actor("Z ponura mina pozdrawiasz obojetnym gestem",cele,PL_BIE,".");
          target("z ponura mina pozdrawia cie lekko, moze obojetnym gestem.",cele);
       all2act("z ponura mina pozdrawia",cele,PL_BIE," lekko moze obojetnym gestem");
            return 1;
        }
    notify_fail("Kogo chcesz powitac?\n");
    return 0;
}

int 
zegna(string str)
{
    object *cele;
    cele = parse_this (str, "%l:"+PL_DOP);

    
        if (sizeof(cele=parse_this(str, "%l:" + PL_BIE)))
        {
          actor("Nieukrywajac swej radosci z rozstania zegnasz",cele,PL_BIE,".");
          target("nieukrywajac swej radosci zegna cie mocnym usciskiem dloni.",cele);
       all2act("nieukrywajac swej radosci z rozstania zegna",cele,PL_BIE," mocnym usciskiem dloni.");
            return 1;
        }
    notify_fail("Kogo chcesz pozegnac?\n");
    return 0;
}
int 
warkot(string str)
{
   
    
    write("Warczysz probojac sprawic wrazenie groznego i udaje ci sie to z niemalym skutkiem.\n");
    allbb("warczy probojac sprawic wrazenie groznego i udaje mu sie to z niemalym skutkiem. Lepiej nie wchodzic "
	+"w droge osobie o tak powalajacym oddechu!");
    
    return 1;
}
int 
obrzaplacz(string str)
{
   
    
    write("Nagle zaczynasz lkac, by po chwili wybuchnac placzem, ktory milknie dopiero po dluzszej chwili. Tylko ty "
	+"wiesz o tym, ze to byla przemyslana zagrywka, a nie emocje...\n");
    allbb("nagle zaczyna cichutko lkac, by po chwili wybuchnac placzem, ktory milnie dopiero po dluzszej chwili.");
    
    return 1;
}
int
lista(string str)
{
        object *gracze;
        int i;
        int y= 0;
        notify_fail("Ta komenda nie przyjmuje argumentow.\n");
        if (str) return 0;
        gracze = users();
        notify_fail("Obecnie jestes jedynym Obroncom Middenheim przebywajacym w swiecie.\n");
        if (sizeof(gracze) == 1) return 0;
        write("\t\tW swiecie sa oprocz ciebie obroncy znani jako:\n");
        write("*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*\n");
        for(i=0; i<sizeof(gracze); i++)
        {
         if(gracze[i]->query_prop("obronca_midd")) { write(gracze[i]->query_presentation()+ ".\n"); y++; }
        }
        write("*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*\n");
        write("Tera jest " + y + " Lobroncow Middenhejma.\n");
        write("*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*&*\n");
        return 1;
}



int pomoc(string str)
{
        write("+*@*@*@==========X=X=X=X=========================X=X=X=X========@*@*@*+\n"+
        "Dostepne komendy Uobroncow Middenheimu : \n"+
        "-obrpowitaj - Ponure powitanie\n"+
        "-obrpozegnaj - Radosne pozegnanie \n"+
        "-obrwarkot - Warczysz sprawiajac wrazenie b. groznego \n"+
        "-obrzaplacz - Zmuszasz sie do placzu \n"+
        "-obrjebnij - spec \n"+   
        "-obruspokoj - Uspokojenie przeciwnikow\n"+   
        "-obrkto - Pokazuje liste aktywnych obroncow\n"+   
        "TAX wynosi 15. Made by Szturmix\n"+  
        "+------===========XX=======================================XX========------+\n");

        return 1;
}