/*
 * Standardowy npc Kreutzhofenski
 * by Tanis luty 1998
 */

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

#include "/d/Imperium/sys/alarm.h"
#include "tanis.h"

string  znika_akcja, znika_mowi, znika_walczac, pojawia_sie;
mixed dokad;

void
zniknij()
{
  if (!query_attack())
  {
    tell_room(environment(this_object()), QCIMIE(this_object(), PL_MIA) +
      znika_mowi);
    tell_room(environment(this_object()), QCIMIE(this_object(), PL_MIA) +
      znika_akcja);    
  }
  else
  {
    tell_room(environment(this_object()), QCIMIE(this_object(), PL_MIA) +
      znika_walczac);    
  }
  this_object()->move(VOID);
}

void
pojaw_sie()
{
  tell_room(dokad, pojawia_sie + QIMIE(this_object(), PL_MIA) + ".\n");
  this_object()->move(dokad);
}

void
pora_znikac(string pora_d, mixed skad)
{
//  set_alarm(itof(random(360)), 0.0, "zniknij");
zniknij();
}

void
pora_pojawic_sie(string pora_d, mixed gdzie)
{
  dokad=gdzie;
//  set_alarm(itof(random(60)), 0.0, "pojaw_sie");
pojaw_sie();
}