/* /verbs/items/give.c
* from the Dead Souls Object Library
* give LIV OBJ
* give OBJ to LIV
* give LIV WRD WRD
* give WRD WRD to LIV
* created by Descartes of Borg 950113
*/
#pragma save_binary
#include <lib.h>
#include "include/give.h"
inherit LIB_VERB;
string curr2;
static void create() {
verb::create();
SetVerb("give");
SetRules("LIV WRD WRD", "WRD WRD to LIV", "LIV OBS", "OBS to LIV");
SetErrorMessage("Give what to whom?");
SetHelp("Syntax: <give LIVING ITEM>\n"
" <give LIVING ITEMS>\n"
" <give ITEM to LIVING>\n"
" <give ITEMS to LIVING>\n"
" <give LIVING AMOUNT CURRENCY>\n"
" <give AMOUNT CURRENCY to LIVING>\n\n"
"This command allows you to give something you have to "
"someone else.\n\n"
"See also: drop, get, put");
}
mixed can_give_liv_obj() {
return can_give_obj_to_liv();
}
mixed can_give_obj_to_liv(mixed arg1, mixed arg2) {
return this_player()->CanManipulate(); }
mixed can_give_liv_wrd_wrd(object targ, string num, string curr) {
return can_give_wrd_wrd_to_liv(num, curr, targ);
}
mixed can_give_wrd_wrd_to_liv(string num, string curr, object targ) {
int amt;
curr2 = curr;
if(!valid_currency(curr)) curr = truncate(curr,1);
if(!valid_currency(curr)) curr = truncate(curr,1);
if(!valid_currency(curr)) curr = curr2 +"s";
if(!valid_currency(curr)) curr = curr2 +"es";
if(valid_currency(curr)) curr2 = curr;
if(sscanf(num,"%d",amt) != 1){
if(valid_currency(curr)) return "Please use a number to specify the amount.";
else return "That isn't a valid currency.";
}
if( amt < 1 ) return "What sort of amount is that?";
if( amt > (int)this_player()->GetCurrency(lower_case(curr)) )
return "You don't have that much " + curr + ".";
if(this_player()->GetLevel() < 4) return "Newbies can't give money.";
return this_player()->CanManipulate();
}
mixed do_give_liv_obj(object target, object what) {
return do_give_obj_to_liv(what, target);
}
mixed do_give_obj_to_liv(object what, object target) {
if(!intp(target->CanManipulate())){
this_player()->eventPrint(target->GetName()+" is incapable "+
"of holding that.");
return 1;
}
if( !((int)what->eventMove(target)) ) {
this_player()->eventPrint("They cannot accept that right now.");
return 1;
}
this_player()->eventPrint("You give " + (string)target->GetName() + " " +
(string)what->GetShort() + ".");
target->eventPrint((string)this_player()->GetName() + " gives you " +
(string)what->GetShort() + ".");
environment(this_player())->eventPrint((string)this_player()->GetName() +
" gives " +
(string)target->GetName() +
" " + (string)what->GetShort() +".",
({ this_player(), target }));
return 1;
}
mixed do_give_liv_wrd_wrd(object target, string num, string curr) {
return do_give_wrd_wrd_to_liv(num, curr, target);
}
mixed do_give_wrd_wrd_to_liv(string num, string curr, object target) {
int amt;
if(curr2) curr = curr2;
amt = to_int(num);
if( (int)target->AddCurrency(curr, amt) == -1 ) {
this_player()->eventPrint("You just can't give that money away.");
return 1;
}
if( (int)this_player()->AddCurrency(curr, -amt) == -1 ) {
target->AddCurrency(curr, -amt);
this_player()->eventPrint("The amount of money you have is boggled.");
return 1;
}
this_player()->eventPrint("You give " + (string)target->GetName() + " " +
amt + " " + curr + ".");
target->eventPrint((string)this_player()->GetName() + " gives you " +
amt + " " + curr + ".");
environment(this_player())->eventPrint((string)this_player()->GetName() +
" gives " + amt + " " + curr +
" to " + (string)target->GetName() +
".", ({ target, this_player() }));
return 1;
}
mixed do_give_liv_obs(object target, mixed *items) {
return do_give_obs_to_liv(items, target);
}
mixed do_give_obs_to_liv(mixed *items, object target) {
object *obs;
if( sizeof(items) < 1 ) {
this_player()->eventPrint("You don't have any to give.");
return 1;
}
obs = filter(items, (: objectp :));
if( !sizeof(obs) ) {
mixed *ua;
ua = unique_array(items, (: $1 :));
foreach(string *list in ua) this_player()->eventPrint(list[0]);
return 1;
}
foreach(object ob in obs) do_give_obj_to_liv(ob, target);
return 1;
}
