// Gwardzista miejski, napisane  przez Alfena
// obiekt dziedziczy po zol_imp.c


#include "local.h"
#include <pl.h>
#include <macros.h>

inherit "/d/Imperium/std/patrol_podwl.c";

#define MIECZ NPATH + "bronie/halabarda.c"
#define KOLCZUGA NPATH + "zbroje/kolczuga2.c"

#define IMPERIUM_I_EQUIP_GWARDZISTY "_imperium_i_equip_gwardzisty"

#define G ({ ({ "gwardzista", "gwardzisty", "gwardziscie", "gwardziste",\
		"gwardzista", "gwardziscie" }),\
	     ({ "gwardzisci", "gwardzistow", "gwardzistom", "gwardzistow",\
	        "gwardzistami", "gwardzistach" }) })

	        
	        
void
create_czlonek_patrolu()
{
  ustaw_nazwe (G[0], G[1], PL_MESKI_OS);
  ustaw_krotki_opis (G[0], G[1], PL_MESKI_OS);
  
  set_long("Ten czlowiek przynalezy do strazy miejskiej miasta Nuln. "+
    "Czujnym wzrokiem omiata zarowno przybyszow, jak i mieszkancow miasta, "+
   "wyszukujac potencjalnych rozrabiakow i zlodziei. Nic nie ujdzie jego "+
   "uwadze.\n");
 
 add_weapon(MIECZ);
 add_armour(KOLCZUGA);
 
}

void
enter_env(object dest,object old)
{
  if (!objectp(query_my_leader()->query_follow()))
  if(dest->id("_swiatynia_sigmara_"))
  {
    set_alarm(1.0,0.0,"wkladamy");
  }
    ::enter_env(dest,old);
}

void
wkladamy()
{
    int i;
    object *przedm = all_inventory(this_object());
    
    for(i = 0;i < sizeof(przedm);i++)
    {
      if(!przedm[i]->query_prop(IMPERIUM_I_EQUIP_GWARDZISTY))
      {
        command("wloz "+OB_NAME(przedm[i])+" do urny");
      }
    }
    command("krzyknij Ku chwale Sigmara!");
}