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. */

// multiple.c - Module to allow adversaries to wield multiple objects at a
//              time without requiring a limb-based health module.
// July 22, 1998: Iizuka created.
// Sep 2000 : Loriel added code from Designa to remove/ignore empty slots
//            in query_weapon()

void simple_action(string, object);

private mapping weapons = ([
                                 "right hand" : 0,
                                 "left hand"  : 0,
]);

//:FUNCTION set_wield_slots
// Set the names of wielding slots in adversaries. Any existing value
// will be overwritten. Adversaries have "left arm" and "right arm"
// set as default values normally. Note that this is only available if
// WIELD_MULTIPLE is defined.
void set_wield_slots(string array list)
{
   if(!list)
      return;
   weapons = allocate_mapping(list, 0);
}

private string find_open_wield_slot()
{
   string array tmp = filter(keys(weapons), (: !weapons[$1] :));

   if(!sizeof(tmp))
      return 0;

   return choice(tmp);
}

varargs void wield(object ob, string where)
{
   if(weapons[where] == ob)
      return;

   if(!where)
      where = find_open_wield_slot();
   if(!where)
   {
      write("You have no way of wielding that!\n");
      return;
   }

   if(weapons[where])
      weapons[where]->mark_wielded_by(0);

   weapons[where] = ob;
   ob->mark_wielded_by(this_object(), where);
   simple_action(ob->query_wield_message(), ob);
}

varargs void unwield(string where)
{
   if(!where)
   {
      foreach(where in keys(weapons))
         unwield(where);
      return;
   }

   if(weapons[where])
      weapons[where]->mark_wielded_by(0);
   weapons[where] = 0;
}

varargs object query_weapon(string where)
{
   if(!where)
   {
      string array slots = keys(weapons);
      if(!sizeof(slots))
         return this_object();   // I am my own lethal weapon..
      while(1)
      {
        if(sizeof(slots)>1)
          where = choice(slots);
        else
          where = slots[0];
        if(weapons[where])
          break;
        else
          slots -= ({ where });
        if(sizeof(slots) == 0)
          return this_object();
      }
   }

   return weapons[where];
}

varargs int do_wield(object ob, string slot)
{
   if(!ob->valid_wield())
      return 0;
   if(ob->query_wielded_by() == this_object())
      return 0;
   wield(ob, slot);

   return 1;
}

int do_unwield(mixed where)
{
   if(objectp(where))
   {
      string array slots = filter(keys(weapons),
                                  (: weapons[$1] == $(where) :));
      if(!sizeof(slots))
         return 0;
      where = slots[0];
   }

   if(!weapons[where] || weapons[where] == this_object() ||
      !weapons[where]->valid_unwield())
         return 0;

   simple_action(weapons[where]->query_unwield_message(), weapons[where]);
   unwield(where);

   return 1;
}

string get_wield_attributes()
{
   string ret = " (wielded with ";
   string array wielding_slots = previous_object()->query_wielding();

   if(sizeof(wielding_slots) == 1)
      return sprintf(" (wielded in %s)", wielding_slots[0]);
   if(sizeof(wielding_slots) == 2)
   {
      if(wielding_slots[0][<3..] == "arm" && wielding_slots[1][<3..] == "arm")
      {
         ret += explode(wielding_slots[0], " ")[0] + " and ";
         ret += explode(wielding_slots[1], " ")[0] + ")";
         return ret;
      }
      else
      {
         ret += wielding_slots[0] + " and " + wielding_slots[1] + ")";
      }
   }
   else
   {
      for(int x = sizeof(wielding_slots) - 1; x > 1; x--)
         ret += wielding_slots[x] + ", ";
      ret += wielding_slots[1] + " and " + wielding_slots[0] + ")";
   }
   return ret;
}

string array query_wielding_limbs()
{
   return keys(weapons);
}