/*  Oficer gwardii napisane przez Alfena
*  oficer dziedziczy po obiektach zol_imp.c i patrol.c
*/


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

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

#define MIECZ NPATH + "bronie/dwmiecz2.c"
#define KOLCZUGA NPATH + "zbroje/kolczuga2.c"
#define HELM NPATH + "zbroje/helm3.c"
#define IMPERIUM_I_EQUIP_GWARDZISTY "_imperium_i_equip_gwardzisty"


#define G ({ ({ "oficer", "oficera", "oficerowi", "oficera",\
		"oficerem", "oficerze"}),\
	     ({ "oficerowie", "oficerow", "oficerom", "oficerow",\
	     	"oficerami", "oficerach"}) })



/* object patr;

object
p()
{
  return patr;
}


void
set_p(object ob)
{
  patr = ob;
}
*/

void
create_dowodca_patrolu()
{
  int i, *tab_skilli;
  object ob;
  
  set_long ("Ten czlowiek odziany jest w zbroje, czesciowo przykryta "+
    "zdobiona peleryna. Jego ubior zdobia oznaki "+
    "oficerskie. Jest czlonkiem gwardii miasta Nuln, doborowej jednostki, " +
    "zlozonej z dokladnie wyselekcjonowanych zolnierzy.\n");
 
  ustaw_nazwe ( G[0], G[1], PL_MESKI_OS);
  ustaw_krotki_opis( G[0], G[1], PL_MESKI_OS);
 
  
  add_armour(KOLCZUGA);
  add_armour(HELM);
  add_weapon(MIECZ);
 
  
  set_stats(({70, 50, 70, 50, 50, 100}));

  set_skill(SS_WEP_SWORD, 100);
  set_skill(SS_DEFENCE, 100);
  set_skill(SS_PARRY, 100);
  set_skill(SS_AWARENESS, 70);

}

void
enter_env(object dest,object old)
{
  if (objectp(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!");
}        

int
query_oficer_nuln()
{
   return 1;
}