/* /verbs/items/remove.c
* From the Dead Souls Object Library
* Allows players to remove armor
* Created by Descartes of Borg 960207
* Version: @(#) remove.c 1.2@(#)
* Last modified: 97/01/01
*/
#include <lib.h>
inherit LIB_VERB;
static void create() {
verb::create();
SetVerb("remove");
SetRules("OBS", "OBS from OBJ", "OBS out of OBJ");
SetErrorMessage("Remove what?");
SetHelp("Syntax: <remove ARMOR>\n"
" <remove all [of ARMOR]>\n"
" <remove ITEM from CONTAINER>\n\n"
"This verb allows you to remove a piece of armor which you are "
"currently wearing.\n\n"
"The second syntax is simply a synonym for the \"get\" "
"command.\n\n"
"See also: get, wear, wield, unwield");
}
mixed can_remove_obj() {
if( this_player()->GetParalyzed() ) {
return "You cannot do anything.";
}
if(intp(check_light())) return this_player()->CanManipulate();
else return check_light();
}
mixed can_remove_obj_out_of_obj() {
int light;
if(intp(check_light())) return this_player()->CanManipulate();
else return check_light();
}
mixed can_remove_obj_from_obj() {
return can_remove_obj_out_of_obj();
}
mixed do_remove_obj(object ob) {
return ob->eventUnequip(this_player());
}
mixed do_remove_obs(mixed *res) {
object *obs;
obs = filter(res, (: objectp :));
if( !sizeof(obs) ) {
mixed *ua;
ua = unique_array(res, (: $1 :));
foreach(string *list in ua)
this_player()->eventPrint(list[0]);
return 1;
}
res = (mixed *)obs->eventUnequip(this_player()) - ({ 1 });
if( !sizeof(res) ) return 1;
else return res[0];
}
mixed do_remove_obj_out_of_obj(object targ, object container) {
return (mixed)container->eventGetFrom(this_player(), ({ targ }));
}
mixed do_remove_obj_from_obj(object targ, object container) {
return do_remove_obj_out_of_obj(targ, container);
}
mixed do_remove_obs_out_of_obj(mixed *res, object container) {
return (mixed)container->eventGetFrom(this_player(), res);
}
mixed do_remove_obs_from_obj(mixed *res, object container) {
return do_remove_obs_out_of_obj(res, container);
}
