/* /verbs/items/get.c
* from the Dead Souls Object Library
* created by Descartes of Borg 950113
* Version: @(#) get.c 1.5@(#)
* Last Modified: 96/11/12
*/
#include <lib.h>
inherit LIB_VERB;
static void create() {
verb::create();
SetVerb("get");
SetRules("WRD WRD from OBJ", "WRD WRD out of OBJ", "OBS",
"OBS out of OBJ", "OBS from OBJ");
SetSynonyms("take");
SetErrorMessage("Get what? Or perhaps get something from somewhere?");
SetHelp("Syntax: <get ITEM>\n"
" <get ITEM from OBJECT>\n"
" <get ITEM out of OBJECT>\n"
" <get AMOUNT CURRENCY from pile>\n"
" <get AMOUNT CURRENCY out of pile>\n\n"
"This allows you to get items in the same room as you, or "
"contained inside other items so that you are carrying them. "
"In addition, you can specify partial amounts of currency to "
"pick up from a pile lying around.\n\n"
"Synonyms: take\n\n"
"See also: drop, give, put");
}
mixed eventCheckLight(object who) {
int light;
if( (light = who->GetEffectiveVision()) < 2 ) {
if( 100 + (10*light) < random(100) )
return "You fumble around in the darkness.";
else return this_player()->CanManipulate();
}
else if( light > 5 ) {
if( 100 - (10*light) < random(100) )
return "You fumble around in the blinding light.";
else return this_player()->CanManipulate();
}
else return this_player()->CanManipulate();
}
mixed can_get_obj(string verb) {
return eventCheckLight(this_player());
}
varargs mixed can_get_obj_out_of_obj(string verb, string rule, object item, object container, mixed poo) {
return eventCheckLight(this_player());
}
mixed can_get_obj_from_obj(string verb, string rule, object item, object container) {
return can_get_obj_out_of_obj(verb, rule, item, container);
}
mixed can_get_wrd_wrd_out_of_obj(string num, string curr) {
return eventCheckLight(this_player());
}
mixed can_get_wrd_wrd_from_obj(string num, string curr) {
return can_get_wrd_wrd_out_of_obj(num, curr);
}
mixed do_get_obj(object ob) {
return ob->eventGet(this_player());
}
mixed do_get_wrd_wrd_out_of_obj(string num, string curr, object pile) {
return pile->eventGetMoney(this_player(), to_int(num), curr);
}
mixed do_get_wrd_wrd_from_obj(string num, string curr, object pile) {
return do_get_wrd_wrd_out_of_obj(num, curr, pile);
}
mixed do_get_obj_out_of_obj(object ob, object storage) {
if(!ob) return "No object";
if(!(environment(ob) == storage)){
ob = present(ob->GetKeyName(), storage);
if(!ob){
write("That's not in there.");
return "";
}
}
return (mixed)storage->eventGetFrom(this_player(), ({ ob }));
}
mixed do_get_obj_from_obj(object ob, object storage) {
return do_get_obj_out_of_obj(ob, storage);
}
mixed do_get_obs(mixed *targs) {
object *obs;
if( !sizeof(targs) ) {
this_player()->eventPrint("There is no such thing to be taken.");
return 1;
}
obs = filter(targs, (: objectp :));
if( !sizeof(obs) ) {
mapping messages = unique_mapping(targs, (: $1 :));
foreach(string msg in keys(messages)) {
this_player()->eventPrint(msg);
}
return 1;
}
foreach(object item in obs) {
if( (mixed)item->CanGet(this_player()) != 1 ) continue;
item->eventGet(this_player());
}
return 1;
}
mixed do_get_obs_out_of_obj(mixed *targs, object storage) {
object *obs;
if( !sizeof(targs) ) {
this_player()->eventPrint("There is no such thing to be taken.");
return 1;
}
obs = filter(targs, (: objectp :));
if( !sizeof(obs) ) {
mapping messages = unique_mapping(targs, (: $1 :));
foreach(string msg in keys(messages)) {
this_player()->eventPrint(msg);
}
return 1;
}
return (mixed)storage->eventGetFrom(this_player(), obs);
}
mixed do_get_obs_from_obj(mixed *obs, object storage) {
return do_get_obs_out_of_obj(obs, storage);
}
