/* -*- LPC -*- */
/*
* $Locker: $
* $Id: remove.c,v 1.19 2003/01/30 06:33:24 pinkfish Exp $
* $Log: remove.c,v $
* Revision 1.19 2003/01/30 06:33:24 pinkfish
* Add in stuff to make sure they drop extra items.
*
* Revision 1.18 2002/06/18 20:51:06 presto
* You know, I really think I might have it right this time. No, really!
*
* Revision 1.17 2002/05/17 00:45:19 trilogy
* Forcibly unlocked by presto
*
* Revision 1.15 2002/05/16 01:54:40 trilogy
* Forcibly unlocked by presto
*
* Revision 1.13 2002/02/12 04:42:29 presto
* Fixed so that an item never blocks itself (which is possible for items
* of mixed type)
*
* Revision 1.12 2002/01/15 01:40:24 presto
* So help me God, I hope it works now.
*
* Revision 1.11 2002/01/07 05:27:16 presto
* Fixed mistake with not removing things that were *indirectly* blocked by
* other things
*
* Revision 1.10 2002/01/06 05:37:27 presto
* Rewrote. Seems to work better now, and I think it's more understandable. :)
* Will keep an eye on it
*
* Revision 1.9 2001/12/07 15:12:11 taffyd
* Fixed typo and grammar oddity.
*
* Revision 1.8 2001/11/08 02:22:07 pinkfish
* Fox up some little errors.
*
* Revision 1.7 2001/11/07 23:09:56 pinkfish
* Fix up the auto removal a little more.
*
* Revision 1.6 2001/11/07 21:46:34 pinkfish
* Make it so it automatically takes and puts stuff on and off.
*
* Revision 1.5 1999/12/08 04:09:04 ceres
* Modified to use standard can_wear_or_remove() function in /obj/handlers/clot
* hing_handler
*
* Revision 1.4 1998/09/15 00:28:32 pinkfish
* Fix up the output errors for remove.
*
* Revision 1.3 1998/08/25 10:18:41 pinkfish
* Change remove so it will order the thnigs to remove... SO it takes
* the toip off first.
*
* Revision 1.2 1998/03/27 20:49:01 pinkfish
* To the new clothing handler.
*
* Revision 1.1 1998/01/06 05:28:43 ceres
* Initial revision
*
*/
#include <clothing.h>
#include <tasks.h>
//#define DEBUG
#define SKILL "covert.manipulation.sleight-of-hand"
#ifdef DEBUG
#define TELL_ME "presto"
#endif
inherit "cmds/base";
int cmd(object *things) {
object *removed = ({ });
object *blocking = ({ });
object *blocked;
object *total_blocking = ({ });
object *succeeded;
object *failed;
object *failed_rewear;
object ob;
object blocker;
mapping is_blocking = ([ ]);
mapping hide_invis;
string tmp1;
string tmp2;
int last_blocking;
int limit;
int i;
int hiding;
int sneaking;
int difficulty;
int light;
int my_light;
succeeded = this_player()->query_wearing();
failed = filter(things, (: member_array($1, $(succeeded)) == -1 :));
things -= failed;
if (sizeof(things) == 0) {
write("You are not wearing " + query_multiple_short(failed, "the") +
".\n");
return 1;
}
succeeded = things;
for (i = 0; i < sizeof(succeeded); i++) {
ob = succeeded[i];
blocking = CLOTHING_HANDLER->query_items_blocking(ob, this_player()) -
({ ob });
if (sizeof(blocking)) {
foreach (blocker in blocking) {
if (undefinedp(is_blocking[blocker]))
is_blocking[blocker] = ({ ob });
else
is_blocking[blocker] |= ({ ob });
}
total_blocking |= blocking;
/*
* We need to add the blocking things to the things we are checking,
* because the blocking things may themselves be blocked by something
* that was not blocking the thing that the original blocker was
* blocking. Oh... you want an EXAMPLE. OK:
*
* Example: a silk shirt is blocked by a mail shirt, but NOT by a
* scabbard. However, the mail shirt IS blocked by the scabbard, so
* it has to be removed before we can remove the mail shirt; so that
* we can remove the silk shirt.
*/
succeeded = ({ things..., total_blocking... });
}
}
/*
* OK, here is the important, complicated bit. At this point, the
* is_blocking mapping is keeping track of everything that is blocking
* something else, and what it is blocking. We need to build an array of
* blocking objects in order from outermost layer to innermost. That way
* there should be no failures when we remove the covering stuff to get
* to the things that the player wants to remove. Here is how this works:
*
* 1. Loop over all items that are blocking something else
* 2. For each item, find the last thing in the array (so far) that would
* block the item. Insert the item we are adding should immediately
* after that position.
* 3. Loop over the array we are building up to the step 2 index and check
* whether each object would have been blocked by the new item, or by
* anything else that we moved already in a previous run through the
* loop. If so, move the object after the new item and previously moved
* items.
*/
total_blocking = ({ });
foreach (ob, blocked in is_blocking) {
#ifdef DEBUG
if (this_player() == find_player(TELL_ME))
tell_creator(TELL_ME, "ob == %s, blocked == %O\n",
ob->short(), blocked->short());
#endif
/* Find the last thing that is blocking 'ob' */
last_blocking = -1;
for (i = sizeof(total_blocking) - 1; i >= 0; i--) {
if (member_array(ob, is_blocking[total_blocking[i]]) > -1) {
last_blocking = i;
break;
}
}
if (last_blocking == -1) {
/*
* Nothing is blocking 'ob', so we can safely put it at the
* front of the list, because then, even if it blocks something
* else, it will get removed first.
*/
total_blocking = ({ ob, total_blocking... });
#ifdef DEBUG
if (this_player() == find_player(TELL_ME))
tell_creator(TELL_ME, "Nothing is blocking ob, adding it to "
"the beginning\n%O\n", total_blocking->short());
#endif
continue;
}
total_blocking = ({ total_blocking[0 .. last_blocking]...,
ob,
total_blocking[(last_blocking + 1) .. ]... });
#ifdef DEBUG
if (this_player() == find_player(TELL_ME))
tell_creator(TELL_ME, "Adding ob after last_blocking position "
"(%d)\n%O\n",
last_blocking, total_blocking->short());
#endif
limit = last_blocking;
blocking = copy(blocked);
for (i = 0; i < limit; i++) {
/*
* If the object we are checking is blocked by anything we have
* moved so far, then we have to move it too
*/
if (member_array(total_blocking[i], blocking) > -1) {
blocking += is_blocking[total_blocking[i]];
if (i == 0)
total_blocking =
({ total_blocking[1 .. (last_blocking + 1)]...,
total_blocking[0],
total_blocking[(last_blocking + 2) .. ]... });
else
total_blocking =
({ total_blocking[0 .. (i - 1)]...,
total_blocking[(i + 1) .. (last_blocking + 1)]...,
total_blocking[i],
total_blocking[(last_blocking + 2) .. ]... });
--limit;
--i;
#ifdef DEBUG
if (this_player() == find_player(TELL_ME))
tell_creator(TELL_ME, "Reordered list:\n%O\n",
total_blocking->short());
#endif
}
}
}
/* Remove stuff that's blocking the stuff we asked to remove */
foreach (blocker in total_blocking) {
tmp1 = CLOTHING_HANDLER->can_wear_or_remove(blocker, this_player());
if (tmp1) { /* This *shouldn't* happen */
// log_file("REMOVE_FAILURE", "things == %O\n", things);
// log_file("REMOVE_FAILURE", "reason == %s\n", tmp1);
// log_file("REMOVE_FAILURE", "blocker == %s (%s, %O)\n", blocker->short(), file_name(blocker), blocker);
// log_file("REMOVE_FAILURE", "total_blocking == \n");
// for (i = 0; i < sizeof(total_blocking); i++) {
// log_file("REMOVE_FAILURE", " %O (%s)\n", total_blocking[i], total_blocking[i]->short());
// }
// log_file("REMOVE_FAILURE", "is_blocking == \n");
// foreach (ob, blocked in is_blocking) {
// log_file("REMOVE_FAILURE", " %O (%s): \n", ob, ob->short());
// for (i = 0; i < sizeof(blocked); i++) {
// log_file("REMOVE_FAILURE", " %O (%s)\n", blocked[i], blocked[i]->short());
// }
// }
// log_file("REMOVE_FAILURE", "removed == %O\n", removed);
write("You cannot remove " +
query_multiple_short(is_blocking[blocker], "the") +
" " + tmp1 + ".\n");
things -= is_blocking[blocker];
break;
}
else if (this_player()->remove_armour(blocker)) {
write("You cannot remove " +
query_multiple_short(is_blocking[blocker], "the") +
" because you cannot remove " + blocker->one_short() + ".\n");
things -= is_blocking[blocker];
break;
}
else removed += ({ blocker });
}
/* Now remove the stuff we really wanted to */
/*
* Start with things we already removed because they were blocking
* something else
*/
succeeded = things & removed;
failed = ({ });
/* Now try to remove the rest */
foreach (ob in things - removed) {
if (this_player()->remove_armour(ob))
failed += ({ ob });
else
succeeded += ({ ob });
}
if (sizeof(succeeded) > 0) {
removed -= things;
tmp2 = query_multiple_short(succeeded, "the") ;
if (sizeof(removed) > 0) {
tmp1 = query_multiple_short(removed, "the");
write("You remove " + tmp1 + " so you can remove " + tmp2 + ".\n");
say(this_player()->the_short() + " removes " + tmp1 + " so " +
this_player()->query_pronoun() + " can remove " + tmp2 + ".\n");
}
else {
hide_invis = ( mapping )this_player()->query_hide_invis();
hiding = hide_invis[ "hiding" ] ? 1 : 0;
sneaking = this_player()->query_sneak_level() ? 1 : 0;
if( hiding || sneaking ) {
my_light = this_player()->query_light();
light = environment( this_player() )->query_light();
difficulty = light + ( 4 * my_light ) / ( light + 1 );
difficulty += succeeded[0]->query_complete_weight();
debug_printf( "Difficulty = %d.\n Skill = %s\n Bonus = %d\n",
difficulty, SKILL, this_player()->
query_skill_bonus( SKILL ) );
switch( TASKER->perform_task( this_player(), SKILL, difficulty,
TM_FREE ) ) {
case AWARD :
write( "%^YELLOW%^" + ({
"You discover something that lets your fingers move more "
"nimbly.",
"You find yourself capable of deceiving the eye with greater "
"ease than before.",
"You realise how to deceive the eye more effectively."
})[ random(3) ] + "%^RESET%^\n" );
case SUCCEED :
add_succeeded_mess( ({ "$N $V " + tmp2 + ", managing to stay "
"unnoticed.\n",
"" }) );
break;
default :
this_player()->add_succeeded_mess( this_object(), "$N "
"unsuccessfully tr$y to " + query_verb() + " " + tmp2 +
" while staying unnoticed.\n", ({ }) );
break;
}
} else {
this_player()->add_succeeded_mess( this_object(), "$N $V " + tmp2 +
".\n", ({ }) );
}
}
}
/* Put stuff back on that we took off */
succeeded = ({ });
failed_rewear = ({ });
foreach (ob in removed) {
if (this_player()->wear_armour(ob))
failed_rewear += ({ ob });
else
succeeded += ({ ob });
}
if (sizeof(succeeded) > 0) {
// Make sure they drop extra items
this_player()->force_burden_recalculate();
tmp1 = query_multiple_short(succeeded, "the");
write("You wear " + tmp1 + ".\n");
say(this_player()->the_short() + " wears " + tmp1 + ".\n");
}
if (sizeof(failed_rewear) > 0) {
write("You cannot put " +
query_multiple_short(failed_rewear, "the") + " back on.\n");
}
if (sizeof(failed) > 0) {
write("You cannot remove " + query_multiple_short(failed, "the") +
".\n");
}
return 1;
}
mixed *query_patterns() {
return ({ "<indirect:object:me>", (: cmd($1) :) });
} /* query_patterns() */
