lima-1.0b5/
lima-1.0b5/driver/
lima-1.0b5/driver/ChangeLog.old/
lima-1.0b5/driver/Win32/
lima-1.0b5/driver/compat/
lima-1.0b5/driver/include/
lima-1.0b5/driver/testsuite/
lima-1.0b5/driver/testsuite/clone/
lima-1.0b5/driver/testsuite/command/
lima-1.0b5/driver/testsuite/data/
lima-1.0b5/driver/testsuite/etc/
lima-1.0b5/driver/testsuite/include/
lima-1.0b5/driver/testsuite/inherit/
lima-1.0b5/driver/testsuite/inherit/master/
lima-1.0b5/driver/testsuite/log/
lima-1.0b5/driver/testsuite/single/
lima-1.0b5/driver/testsuite/single/tests/compiler/
lima-1.0b5/driver/testsuite/single/tests/efuns/
lima-1.0b5/driver/testsuite/single/tests/operators/
lima-1.0b5/driver/testsuite/u/
lima-1.0b5/driver/tmp/
lima-1.0b5/etc/
lima-1.0b5/lib/WWW/help/
lima-1.0b5/lib/cmds/
lima-1.0b5/lib/cmds/create/
lima-1.0b5/lib/cmds/player/attic/
lima-1.0b5/lib/contrib/bboard/
lima-1.0b5/lib/contrib/boards/
lima-1.0b5/lib/contrib/marriage/
lima-1.0b5/lib/contrib/roommaker/
lima-1.0b5/lib/contrib/transient_effect/
lima-1.0b5/lib/daemons/channel/
lima-1.0b5/lib/daemons/imud/
lima-1.0b5/lib/data/
lima-1.0b5/lib/data/config/
lima-1.0b5/lib/data/links/
lima-1.0b5/lib/data/news/
lima-1.0b5/lib/data/players/
lima-1.0b5/lib/data/secure/
lima-1.0b5/lib/domains/
lima-1.0b5/lib/domains/std/2.4.5/maze1/
lima-1.0b5/lib/domains/std/2.4.5/npc/
lima-1.0b5/lib/domains/std/2.4.5/post_dir/
lima-1.0b5/lib/domains/std/2.4.5/sub/
lima-1.0b5/lib/domains/std/camera/
lima-1.0b5/lib/domains/std/config/
lima-1.0b5/lib/domains/std/cult/
lima-1.0b5/lib/domains/std/effects/
lima-1.0b5/lib/domains/std/misc/
lima-1.0b5/lib/domains/std/monsters/
lima-1.0b5/lib/domains/std/recorder/
lima-1.0b5/lib/domains/std/rooms/
lima-1.0b5/lib/domains/std/rooms/beach/
lima-1.0b5/lib/domains/std/rooms/labyrinth/
lima-1.0b5/lib/domains/std/school/
lima-1.0b5/lib/domains/std/school/O/
lima-1.0b5/lib/domains/std/spells/
lima-1.0b5/lib/domains/std/spells/stock-mage/
lima-1.0b5/lib/domains/std/spells/stock-priest/
lima-1.0b5/lib/help/
lima-1.0b5/lib/help/admin/
lima-1.0b5/lib/help/hints/General_Questions/
lima-1.0b5/lib/help/hints/Pirate_Quest/
lima-1.0b5/lib/help/player/
lima-1.0b5/lib/help/player/bin/
lima-1.0b5/lib/help/player/quests/
lima-1.0b5/lib/help/wizard/
lima-1.0b5/lib/help/wizard/coding/guilds/
lima-1.0b5/lib/help/wizard/coding/rooms/
lima-1.0b5/lib/help/wizard/lib/daemons/
lima-1.0b5/lib/help/wizard/lib/lfun/
lima-1.0b5/lib/help/wizard/lib/std/
lima-1.0b5/lib/help/wizard/mudos_doc/
lima-1.0b5/lib/help/wizard/mudos_doc/applies/
lima-1.0b5/lib/help/wizard/mudos_doc/applies/interactive/
lima-1.0b5/lib/help/wizard/mudos_doc/applies/parsing/
lima-1.0b5/lib/help/wizard/mudos_doc/concepts/
lima-1.0b5/lib/help/wizard/mudos_doc/driver/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/arrays/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/buffers/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/compile/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/filesystem/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/floats/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/functions/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/general/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/mappings/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/mixed/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/numbers/
lima-1.0b5/lib/help/wizard/mudos_doc/efuns/parsing/
lima-1.0b5/lib/help/wizard/mudos_doc/lpc/constructs/
lima-1.0b5/lib/help/wizard/mudos_doc/lpc/types/
lima-1.0b5/lib/include/driver/
lima-1.0b5/lib/log/
lima-1.0b5/lib/obj/admtool/
lima-1.0b5/lib/obj/admtool/internal/
lima-1.0b5/lib/obj/admtool/mudinfo/
lima-1.0b5/lib/obj/admtool/secure/
lima-1.0b5/lib/obj/secure/
lima-1.0b5/lib/obj/secure/cmd/
lima-1.0b5/lib/obj/secure/mailers/
lima-1.0b5/lib/obj/secure/shell/
lima-1.0b5/lib/obj/secure/shell/classes/
lima-1.0b5/lib/obj/tasktool/
lima-1.0b5/lib/obj/tasktool/internal/
lima-1.0b5/lib/open/
lima-1.0b5/lib/secure/
lima-1.0b5/lib/secure/cgi/
lima-1.0b5/lib/secure/modules/
lima-1.0b5/lib/secure/simul_efun/
lima-1.0b5/lib/std/adversary/
lima-1.0b5/lib/std/adversary/advancement/
lima-1.0b5/lib/std/adversary/armor/
lima-1.0b5/lib/std/adversary/blows/
lima-1.0b5/lib/std/adversary/death/
lima-1.0b5/lib/std/adversary/formula/
lima-1.0b5/lib/std/adversary/health/
lima-1.0b5/lib/std/adversary/pulse/
lima-1.0b5/lib/std/adversary/wield/
lima-1.0b5/lib/std/classes/event_info/
lima-1.0b5/lib/std/container/
lima-1.0b5/lib/std/living/
lima-1.0b5/lib/std/modules/contrib/
lima-1.0b5/lib/std/patterns/
lima-1.0b5/lib/std/race/
lima-1.0b5/lib/std/race/restricted/
lima-1.0b5/lib/std/room/
lima-1.0b5/lib/tmp/
lima-1.0b5/lib/trans/
lima-1.0b5/lib/trans/admincmds/
lima-1.0b5/lib/trans/obj/
lima-1.0b5/lib/wiz/
/* Do not remove the headers from this file! see /USAGE for more info. */

#include <mudlib.h>
#include <daemons.h>
#include <commands.h>

void add_hook(string, function);
void remove_hook(string, function);
object query_target();
object query_link();

void action_arrival(object);
void action_departure(object);

private nosave function arrival_fn = (: action_arrival :);
private nosave function departure_fn = (: action_departure :);

private function            my_hook;
private nosave string array response_queue = ({ });
private int                 delay_time = 5;
private string array        my_actions;

private object              env;

mixed need_hooks() { return 1; }

object query_body()
{
  return this_object();
}

object query_shell_ob()
{
  if(this_object()->query_link())
    return this_object()->query_link()->query_shell_ob();
  return this_object();
}

string array query_actions()
{
  return my_actions;
}

//:FUNCTION set_delay_time
// void set_delay_time(int);
// Sets the amount of time between possible actions. The minimum value
// is 5, which is default and is fine for most situations. For a large
// number of action objects, increasing this number (and increasing the
// chance that an action can be executed at the same time) could be
// beneficial.
void set_delay_time(int x)
{
  delay_time = x >= 5 ? x : 5;
}

int query_delay_time()
{
  return delay_time;
}

//:FUNCTION do_game_command
//Emulates handling of emotes and player commands for NPCs that inherit this
//module.  E.g. do_game_command("wield sword").  do_game_command("smile hap*").
void do_game_command(string str)
{
  object save_tu;
  array winner;
  string verb, argument;

  save_tu = this_user();
  set_this_user(this_object());

  verb = str;
  sscanf(verb, "%s %s", verb, argument);

  winner = CMD_D->find_cmd_in_path(verb, ({ CMD_DIR_PLAYER "/" }));
  if(arrayp(winner))
    winner[0]->call_main("", "", "", "", "", "", argument);
  else if(environment())
  {
    mixed result = parse_sentence(str);

    if(stringp(result))
      write(result);
  }

  set_this_user(save_tu);
}

private void do_respond()
{
  mixed cmd = response_queue[0];
  if(stringp(cmd))
    do_game_command(cmd);
  else
    evaluate(cmd);
  response_queue = response_queue[1..];
}

//:FUNCTION respond
//Does a command [using do_game_command] after a small delay.  This is the
//best way to have NPCs react to events, as a slight delay makes it a bit
//more believable, and also if you do things immediately, the action may
//PRECEDE the thing you are responding to.  Example: Troll which attacks
//anyone who says 'foo'.  I say 'foo', you and the troll are in the room.
//If the message is delivered to the troll before you, the troll will attack
//me BEFORE the message gets to you.
void respond(string str)
{
  response_queue += ({ str });
  call_out((: do_respond :), random(3));
  if(!my_hook)
  {
    my_hook = (: remove_call_out :);
    add_hook("remove", my_hook);
  }
}

// Return the number of listeners (player in room)
int query_listeners()
{
  object *inv;
  if (!env)
    return 0;
  if(inv = all_inventory(env))
    return sizeof(filter(inv, (: $1->query_link() :)));
  return 0;
}

// The periodic action call_out
void actions()
{
  if(!this_object()->query_target() && sizeof(my_actions))
    do_game_command(choice(my_actions));
  if(query_listeners())
    call_out("actions", delay_time);
}

// If last player leaves, remove call_out
private void action_departure(object who)
{
  if (who->query_link())
  {
    if(!query_listeners())
      remove_call_out("actions");
  }
}

// If first player arrives, add call_out
private void action_arrival(object who)
{
  if (who->query_link())
  {
    if(query_listeners() == 1)
      call_out("actions", delay_time);
  }
}

// It moves the "object_arrived/left" hooks (which are associated with a room)
// when the action monster moves
void action_movement()
{
  if(env)
  {
    env->remove_hook("object_arrived", arrival_fn);
    env->remove_hook("object_left", departure_fn);
  }

  env = environment();
  env->add_hook("object_arrived", arrival_fn );
  env->add_hook("object_left", departure_fn );
  if(find_call_out("actions")<0)
    if(query_listeners())
      call_out("actions", delay_time);    
}

void start_actions()
{

  add_hook("move", (: action_movement :));
  if(env = environment(this_object()))
  { 
    env->add_hook("object_arrived", arrival_fn );
    env->add_hook("object_left", departure_fn );
  }

  if(query_listeners())
    call_out("actions", delay_time);
}


//:FUNCTION set_actions
// protected void set_actions(int chance, string array actions);
// This function sets a list of actions and a delay, 
// and chooses one to be executed time each time that delay elapses.
// This function should only be called from within setup().
protected void set_actions(int delay, string array actions)
{
  delay_time = delay;
  my_actions = actions;
  start_actions();
}