/* /verbs/items/put.c
* from the Dead Souls Object Library
* put OBJ in OBJ
* put OBJ into OBJ
* created by Descartes of Borg 950114
* Version: @(#) put.c 1.2@(#)
* Last modified: 96/12/31
*/
#include <lib.h>
#include "include/put.h"
inherit LIB_VERB;
string *eligible;
static void create() {
verb::create();
SetVerb("put");
SetSynonyms("place", "stick");
SetRules("OBS in OBJ", "OBS into OBJ", "OBS on OBJ", "OBS onto OBJ", "OBS OBJ",
"WRD WRD in OBJ", "WRD WRD into OBJ", "WRD WRD on OBJ", "WRD WRD onto OBJ");
SetErrorMessage("Put what where?");
SetHelp("Syntax: <put ITEM into CONTAINER>\n"
"Syntax: <put ITEM onto SURFACE>\n\n"
"Allows you to stick objects into other objects.\n\n"
"Synonyms: place, stick\n\n"
"See also: get, give, drop");
}
mixed can_put_obs_word_obj(object *foo1, string wrd, object foo2) {
if(check_light()) return this_player()->CanManipulate();
else return 0;
}
mixed can_put_obs_obj(object *foo1, string wrd, object foo2){
return can_put_obs_word_obj(foo1, wrd, foo2);
}
mixed can_put_obj_word_obj(object target, string wrd, object storage) {
object *target_arr;
if(target) target_arr = ({ target });
return can_put_obs_word_obj(target_arr, wrd, storage);
}
mixed can_put_obj_obj(object target, string wrd, object storage){
return can_put_obj_word_obj(target, wrd, storage);
}
//mixed can_put_wrd_wrd_word_obj(string num, string curr,string wrd, mixed container) {
mixed can_put_wrd_wrd_word_obj(mixed args...) {
int amt;
string num, curr, wrd;
mixed container;
object ob1, ob2;
num = args[0];
curr = args[1];
wrd = args[2];
container = args[3];
ob1 = get_object(num+" "+curr);
ob2 = get_object(implode(args[6..]," "));
if(ob1 && ob2) return can_put_obj_word_obj(ob1, wrd, ob2);
if( !num || !curr ) return 0;
if( (amt = to_int(num)) < 1 ) return "You cannot do that!";
if( (int)this_player()->GetCurrency(curr) < amt )
return "You don't have that much " + curr + ".";
if(newbiep(this_player())){
return "Newbies can't drop money.";
}
if(wrd == "on" || wrd == "onto"){
if(container && !inherits( LIB_SURFACE, container ) ) return "#That isn't a load-bearing surface.";
}
if(container && container->GetClosed()){
return "#That's closed.";
}
if(intp(check_light())) return this_player()->CanManipulate();
else return check_light();
}
mixed do_put_obj_word_obj(object what, string wrd, object storage) {
if(storage && storage->GetClosed()){
write(capitalize(storage->GetShort())+" is closed.");
return 1;
}
if(wrd == "in" || wrd == "into") return (mixed)storage->eventPutInto(this_player(), what);
if(wrd == "on" || wrd == "onto") return (mixed)storage->eventPutOnto(this_player(), what);
}
mixed do_put_obj_obj(object what, object storage){
string prepo;
if(storage && inherits(LIB_SURFACE,storage)) prepo = "onto";
else prepo = "into";
return do_put_obj_word_obj(what, prepo, storage);
}
mixed do_put_obs_word_obj(mixed *res, string wrd, object storage) {
object *obs;
obs = filter(res, (: objectp :));
if( !sizeof(obs) ) {
mixed *ua;
ua = unique_array(res, (: $1 :));
foreach(string *lines in ua) {
if(storage && storage->GetClosed())
write(capitalize(storage->GetShort())+" is closed.");
else write("That doesn't seem possible at the moment.");
return 1;
}
if(storage && storage->GetClosed())
write(capitalize(storage->GetShort())+" is closed.");
else write("That doesn't seem possible at the moment.");
return 1;
}
if(!sizeof(filter(obs, (: environment($1) == this_player() :)))){
write("You don't seem to be in possession of that.");
eligible = ({});
return 1;
}
eligible=filter(obs, (: (!($1->GetWorn()) && environment($1) == this_player()) :));
if(!sizeof(eligible)){
write("Remove or unwield items before trying to put them somewhere.");
eligible = ({});
return 1;
}
if(wrd == "in" || wrd == "into") {
foreach(object ob in eligible)
storage->eventPutInto(this_player(), ob);
}
if(wrd == "on" || wrd == "onto") {
foreach(object ob in eligible)
storage->eventPutOnto(this_player(), ob);
}
eligible = ({});
return 1;
}
mixed do_put_obs_obj(mixed *res, object storage){
string prepo;
if(storage && inherits(LIB_SURFACE,storage)) prepo = "onto";
else prepo = "into";
return do_put_obs_word_obj(res, prepo, storage);
}
//mixed do_put_wrd_wrd_word_obj(string num, string curr, mixed wort, object ob) {
mixed do_put_wrd_wrd_word_obj(mixed args...) {
object pile, env;
int amt;
string num, curr, wort;
mixed container;
object ob, ob1, ob2;
num = args[0];
curr = args[1];
wort = args[2];
ob = args[3];
ob1 = get_object(num+" "+curr);
ob2 = get_object(implode(args[6..]," "));
if(ob1 && ob2) return do_put_obj_word_obj(ob1, wort, ob2);
if(wort == "on") wort = "onto";
if(wort == "in") wort = "into";
if(wort == "onto" && !inherits( LIB_SURFACE, ob ) ) {
write("That isn't a load-bearing surface.");
return 1;
}
if(wort == "into" && inherits( LIB_SURFACE, ob ) ) {
write("That's a surface. Try \"put on\"");
return 1;
}
if((inherits(LIB_SIT,ob) && sizeof(ob->GetSitters())) ||
(inherits(LIB_LIE,ob) && sizeof(ob->GetLiers()))){
write("There appears to be someone blocking your access.");
return 0;
}
amt = to_int(num);
env = environment(this_player());
pile = new(LIB_PILE);
pile->SetPile(curr, amt);
if( !((int)pile->eventMove(ob)) ||
(int)this_player()->AddCurrency(curr, -amt) == -1 ) {
this_player()->eventPrint("Something prevents your action.");
pile->eventDestruct();
return 1;
}
this_player()->eventPrint("You put " + amt + " " + curr +
" "+wort+" "+ob->GetShort()+".");
environment(this_player())->eventPrint((string)this_player()->GetName() +
" puts some " + curr + " "+wort+" "+ob->GetShort()+".",
this_player());
return 1;
}
mixed eventCheckLight(object who) {
return check_light(who);
}
