inherit "/std/monster";

#include <ss_types.h>
#include <macros.h>
#include <stdproperties.h>

void
create_monster()
{
    if (!IS_CLONE)
         return;

    ustaw_imie (({"Franz Verkaufer", "Franza Verkaufer",
    		  "Franzowi Verkaufer", "Franza Verkaufer",
    		  "Franzem Verkaufer", "Franzu Verkaufer"}));
    		  
    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("sympatyczny","sympatyczni");
               
    dodaj_nazwy( ({"sklepikarz","sklepikarza","sklepikarzowi","sklepikarza",
    		   "sklepikarzem","sklepikarzu"}),
    		 ({"sklepikarze","sklepikarzy","sklepikarzom","sklepikarzy",
    		   "sklepikarzami","sklepikarzach"}),
    		 PL_MESKI_OS);
    dodaj_nazwy( ({"franz","franza","franzowi","franza","franzem","franzu"}),
    		 ({"franz","franza","franzowi","franza","franzem","franzu"}),
    		 PL_MESKI_OS);
    	
                
    set_long ("Stojacy za lada sklepikarz jest wystarczajacym dowodem na to,"
      +" iz jego towary sa najlepszej jakosci. Pomimo ogromu obowiazkow, "+
      "zwiazanych z prowadzeniem sklepu, z jego twarzy nie znika "+
      "mily usmiech.\n");
    
                  
    set_gender(G_MALE);
 
    add_prop(CONT_I_WEIGHT, 100000);
    add_prop(CONT_I_HEIGHT, 160);

    set_skill(SS_DEFENCE, 25 + random(5));
    set_skill(SS_WEP_SWORD, 25 + random(10));
    set_skill(SS_UNARM_COMBAT, 15 + random(5));
    set_skill(SS_PARRY, 15 + random(10));

    set_stats(({ 45, 45, 42, 40, 50, 40}));

    set_chat_time(13);
    add_chat("W czyms moge pomoc?");
    add_chat("Kupie lub sprzedam towary !");

    set_act_time(10);
    add_act("emote gladzi brode.");
    add_act("emote przeciera lade.");
    add_act("popatrz uwaznie");

}

void
add_introduced(string imie)
{
    set_alarm(2.0, 0.0, "return_introduce", imie);
}

void
emote_hook(string emote, object wykonujacy, string przyslowek)
{
    switch (emote)
    {
        case "bow": set_alarm(3.0, 0.0, "command", "bow " + 
        				wykonujacy->query_name());
        	    break;
        	    
        case "laugh": set_alarm(2.5, 0.0, "return_laugh", wykonujacy);
        	      break;
    }
}

string
query_presentation()
{
    return "Franz Verkaufer, sklepikarz, czlowiek";
}

void
return_introduce(string kto) 
{
    command("przedstaw sie " + OB_NAME(find_living(kto, 0)));
}

void
return_laugh(object kto) 
{
    int los;
    
    los = random(5);
    
    switch (los) 
    {
      case 0 : command("zasmiej"); break;
      case 1 : command("emote rechocze rubasznie."); break;
      case 2 : command ("say Jest tu cos smiesznego?");
      default:
        command("hmm");
    }
}


int
zamow( string co )
{
setuid();
seteuid(getuid());
return 0;
    if ( co == "pancerfaust" )
	{
this_object()->command("'Masz, tym rozjebiesz kazdego, nawet czolg!\n");
clone_object("/d/Imperium/vic/temp/rpg.c")->move(this_object());
this_object()->command("daj pancerfausta "+this_player()->query_real_name(PL_CEL)+"");
return 1;
	}
write("Zamow co?\n");
return 1;
}

void
init_living()
{
add_action("zamow","zamow");
::init_living();
}